module Main where main = do putStrLn "Program Started" putStrLn !"message" putStrLn "Program Ended"