sub log10 { 
  sprintf("%e", $_[0]); 
  print "log10($_[0]) = $2 + log10($1)" 
}