let pp_call_style style pp_atom pp_free fmt f es =
match style , es with
| (VFunCall|ApplyCall) , [] -> Format.pp_print_string fmt f
| (VFunCall|FunCall) , _ -> pp_tuple_call pp_free fmt f es
| ApplyCall , _ -> pp_apply_call pp_atom fmt f es