type visitor_in = {kexpr : Ast_cpp.expression vin;kstmt : Ast_cpp.statement vin;kinit : Ast_cpp.initialiser vin;ktypeC : Ast_cpp.typeC vin;kclass_member : Ast_cpp.class_member vin;kfieldkind : Ast_cpp.fieldkind vin;kparameter : Ast_cpp.parameter vin;kcompound : Ast_cpp.compound vin;kclass_def : Ast_cpp.class_definition vin;kfunc_def : Ast_cpp.func_definition vin;kcpp : Ast_cpp.cpp_directive vin;kblock_decl : Ast_cpp.block_declaration vin;kdeclaration : Ast_cpp.declaration vin;ktoplevel : Ast_cpp.toplevel vin;kinfo : Ast_cpp.tok vin;}and visitor_out = Ast_cpp.any -> unitand 'a vin = (('a -> unit) * visitor_out) -> 'a -> unitval default_visitor : visitor_inval mk_visitor : visitor_in -> visitor_out