let pp_list pp fmt xs =
  List.iter (fun x -> pp fmt x ; Format.pp_print_newline fmt ()) xs