import Directory 

main = aaa "/tmp/FOO"

aaa ddd = do createDirectory ddd
	     d <- doesDirectoryExist ddd
	     print d
	     removeDirectory ddd
	     d <- doesDirectoryExist ddd
	     print d