1 2 3 4 5 6 7 8
module Main where import System.Directory main :: IO () main = do createDirectory "foo" createDirectory "foo"