module SomeModule where

f = do
   putStrLn "foo"
   -- uncomment to see error message with module loading 
   --putStrLn $ "toto" + 1