let
pp_closure fmt (vinfo,s) =
Format
.fprintf fmt
"%a@@%s"
!
Ast_printer
.d_var vinfo s