let pp_flow fmt nil op pp = function | [] -> pp_print_string fmt nil | x::xs -> fprintf fmt "@[<hov 1>(%a" pp x ; List.iter (fun x -> fprintf fmt "@,%s%a" op pp x) xs ; fprintf fmt ")@]"