import Directory main = aaa "/tmp/FOO" aaa ddd = do createDirectory ddd setCurrentDirectory ddd d <- getCurrentDirectory print d writeFile "aaa" "HELLO" l <- getDirectoryContents d print l