#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	my $precision=$this->precision;
	my $mass=int(($this->mass - $this->basemass) * (10 ** $precision)) 
			/ (10 ** $precision);
	return $mass." kilogram".($mass == 1 ? "" : "s");
}
