module Main where

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

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