This procedure is defined in the server but not documented via ad_proc or proc_doc and may be intended as a private interface.
The procedure is defined as:
proc ::xo::write_file {fn content} {
set F [::open $fn w]
::fconfigure $F -translation binary
::puts -nonewline $F $content
::close $F
}