$ perl -e " printf qq{ %9d %10f %.0f\n}, $_, $_*0.00125, $_*0.00125 for 7999,4000,555,400,0.01 "
      7999   9.998750 10
      4000   5.000000 5
       555   0.693750 1
       400   0.500000 0
         0   0.000013 0