sig
  val print_xschema : Format.formatter -> Xquery_type_ast.xschema -> unit
  val bprintf_xschema : string -> Xquery_type_ast.xschema -> string
end