import IO
import Directory

main = do hdl <- openFile "/tmp/foo.txt" WriteMode
	  hPutStr hdl "Hello"
	  hClose hdl
	  x <- doesFileExist "/tmp/foo.txt"
	  print x
	  y <- doesFileExist "/tmp"
	  print y