+let m_open_fence = P.Mtext([], "(")
+let b_open_fence = Box.b_text [] "("
+(*
+let m_close_fence = P.Mtext([], ")")
+let b_close_fence = Box.b_text [] ")"
+*)
+
+let b_h_with_open_fence attrs a b op =
+ Box.b_h attrs [ b_open_fence; a; Box.b_object op; b ]
+let b_h_without_open_fence attrs a b op =
+ Box.b_h attrs [ a; Box.b_object op; b ]
+let b_v_with_open_fence attrs a b op =
+ Box.b_v attrs [
+ Box.b_h [] [ b_open_fence; a];
+ Box.b_indent (Box.b_h [] [ Box.b_object op; b ])
+ ]
+let b_v_without_open_fence attrs a b op =
+ Box.b_v attrs [
+ a;
+ Box.b_indent (Box.b_h [] [ Box.b_object op; b ])
+ ]
+
+let m_row_with_open_fence = P.row_with_brackets
+let m_row_without_open_fence = P.row_without_brackets
+
+let m_close_fence = ")"
+let b_close_fence = ")"
+