import IO main = do x <- openFile "/tmp/foo.txt" ReadMode y <- hGetLine x putStr y