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