val skip: 'expr box
val indent : 'expr box -> 'expr box
-val document_of_box : Mpresentation.mpres box -> Xml.token Stream.t
+val box2xml:
+ obj2xml:('a -> Xml.token Stream.t) -> 'a box ->
+ Xml.token Stream.t
+
+val map: ('a -> 'b) -> 'a box -> 'b box
+
+(*
+val document_of_box :
+ ~obj2xml:('a -> Xml.token Stream.t) -> 'a box -> Xml.token Stream.t
+*)
val b_h: attr -> 'expr box list -> 'expr box
val b_v: attr -> 'expr box list -> 'expr box