module Main (main) where
main = f
  where f = g
          where
        g = putStrLn "hello world"