let
pp_tuple_call pp fmt f xs =
Format
.fprintf fmt
"@[<hov 1>%s%a@]"
f (pp_tuple pp) xs