let print fmt {ints = ints; is_int = b; expl = e } = List.iter (fun i -> fprintf fmt "%a" print_interval i) ints