module Main where

main = do
  print (scaleFloat 30000 1)
  print (scaleFloat (maxBound :: Int) 1)