append_tail ~tail (Box.Object([],rhs))]) in
let plbox =
match pl with
- [] -> append_tail ~tail (Box.Text([],"[]"))
+ | [] -> append_tail ~tail (Box.Text([],"[]"))
+ | [r] -> (make_rule ~tail:("]" :: tail) "[" r)
| r::tl ->
Box.V([],
(make_rule ~tail:[] "[" r) ::