Help for this page

Select Code to Download

Select or download this

sub quant {
   my $v = shift;
   return int($v*9);
}