(* Enlivening Expressions *)
| Maction of attr * mpres list
-and
+and row = Mtr of attr * mtd list
- row = Mtr of attr * mtd list
+and mtd = Mtd of attr * mpres
-and
-
- mtd = Mtd of attr * mpres
-
-and
-
- attr = (string * string) list
+and attr = (string option * string * string) list
;;
val two_rows_table_without_brackets : attr -> mpres -> mpres -> mpres -> mpres
val row_with_brackets : attr -> mpres -> mpres -> mpres -> mpres
val row_without_brackets : attr -> mpres -> mpres -> mpres -> mpres
-val print_mpres :
- mpres -> Xml.token Stream.t
+val print_mpres : mpres -> Xml.token Stream.t
+val document_of_mpres : mpres -> Xml.token Stream.t