sub log10 { my $n = shift; return log($n)/log(10); }