let $db := db:open('test')

                let $doc := $db/doc[id='cb818e0d-7d49-4f78-8424-49e063d3efdf']

                let $zip := archive:create(<archive:entry>file.txt</archive:entry>, $doc)

                return file:write-binary('test.zip', $zip)

 

It writes only string.

How can I write full xml-data ?