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