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