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