'expr box =
Text of attr * string
| Space of attr
+ | Ink of attr
| H of attr * ('expr box) list
| V of attr * ('expr box) list
| Object of attr * 'expr
val skip: 'expr box
val indent : 'expr box -> 'expr box
+val document_of_box : Mpresentation.mpres box -> Xml.token Stream.t
+val b_h: attr -> 'expr box list -> 'expr box
+val b_v: attr -> 'expr box list -> 'expr box
+val b_text: attr -> string -> 'expr box
+val b_object: 'expr -> 'expr box
+val b_indent: 'expr box -> 'expr box
+val b_space: 'expr box
+val b_kw: string -> 'expr box