createDomain :: State -> String -> IO ()
createDomain st dom = Domain.outputDomain =<< Domain.create st dom
createDomain :: State -> String -> IO ()
createDomain st dom = Domain.outputDomain =<< Domain.create st dom
createDomain st dom = Domain.outputDomain =<< Domain.create st dom