module CreateExample where

import BaseXClient
import System.CPUTime
import Text.Printf

main :: IO ()
main = withSession "localhost" 1984 "admin" "admin" $ \session -> do
  create "database" "<x>Hello World!</x>" session >>= print
  execute "xquery /" session >>= print
  execute "drop db database" session >>= print