module Main where

mygetlines :: Int -> [IO [String]]
mygetlines 0 = []
mygetlines a =  (fmap words getLine) : mygetlines (a-1)

main :: IO ()
main = sequence (mygetlines 5) >>= print