{- getting n lines - still consumes the whole of the input :-( -}

getNlines :: Int -> IO String

getNlines 0 =
    return []
getNlines :: Int -> IO String
getNlines 0 =
    return []
getNlines 0 =
    return []