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