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