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