$ perl -e'$_ = -1; $_ /= 10 while $_ < 0; printf "%g\n", $_;'
-0