import Debug.Trace

i = 3.0

main :: IO ()
main = traceShow i $ putStrLn "Hello world"