sub max
{
  return $_[0] > $_[1] ? $_[0] : $_[1];
}

sub rightscale
{
  my $num = shift;
  return 10 ** max(int(log(abs($num))/log(10))-1,1);
}