1 2 3 4 5 6
module Main where main = do putStrLn "Program Started" putStrLn !"message" putStrLn "Program Ended"