# run with dbxml -s works.txt
# setVerbose -1 -1
createContainer foo.bdbxml
openContainer foo.bdbxml
query '
let $d := "dbxml:/foo.bdbxml/foo"
return fn:put(<foo></foo>, $d)
'
quit