module Do where

main :: IO ()
main = do
  let a = 42 in print a