let print_parsed fmt = function
  | Seq l -> print_sequence fmt l
  | Otherwise -> Format.pp_print_string fmt "Otherwise"