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