let
pp_descr fmt x =
Format
.fprintf fmt
"%a %a ;"
(pp_ctype
true
) x.vtype !
Ast_printer
.d_var x