$ perl -MPOSIX -le 'print POSIX::floor(POSIX::log10(1e-33) / POSIX::log10(1000));' -11