type visitor_in = {kitem : Cst_ml.item vin;ktoplevel : Cst_ml.toplevel vin;kexpr : Cst_ml.expr vin;kpattern : Cst_ml.pattern vin;kty : Cst_ml.ty vin;kfield_decl : Cst_ml.field_declaration vin;kfield_expr : Cst_ml.field_and_expr vin;kfield_pat : Cst_ml.field_pattern vin;ktype_declaration : Cst_ml.type_declaration vin;klet_def : Cst_ml.let_def vin;klet_binding : Cst_ml.let_binding vin;kqualifier : Cst_ml.qualifier vin;kmodule_expr : Cst_ml.module_expr vin;kparameter : Cst_ml.parameter vin;kargument : Cst_ml.argument vin;kinfo : Cst_ml.tok vin;}and visitor_out = Cst_ml.any -> unitand 'a vin = (('a -> unit) * visitor_out) -> 'a -> unitval default_visitor : visitor_inval mk_visitor : visitor_in -> visitor_out