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