getLines :: FilePath -> IO [String]
getLines file = do
        h <- openFile file ReadMode
        text <- hGetContents h
        return $ words text
getLines :: FilePath -> IO [String]
getLines file = do
        h <- openFile file ReadMode
        text <- hGetContents h
        return $ words text
getLines file = do
        h <- openFile file ReadMode
        text <- hGetContents h
        return $ words text