main :: IO ()
main = do


  putStrLn "Hello\
            \ World!\n"


  putStrLn $ unwords ["This", "is", "an", "example", "text!\n"]


  putStrLn $ unlines [
             unwords ["This", "is", "the", "first" , "line."]
           , unwords ["This", "is", "the", "second", "line."]
           , unwords ["This", "is", "the", "third" , "line."]
           ]