module InputOutput where import IO import Parser -- OUTPUT output outfile result = do writeFile outfile (show result) putStr ("Writing in file " ++ "'" ++ outfile ++ "'" ++ " done.\n") -- INPUT input infile = do hdl <- openFile infile ReadMode content <- hGetContents hdl return content