DBG22A:let process_core_type x : core_type= x
DBG22A:let process_core_type x : core_type= x
DBG22EB:let process_types_class_field_kind__Cfk_virtual((acore_type):(core_type)):string = (process_generic_type_d "class_field_kind" "Cfk_virtual") (process_generic_type_ccore_type acore_type))
DBG222EC:emit_constructor_arguments:class_field_kind;Cfk_virtual:| Cfk_virtual(core_type) -> (process_generic_type "class_field_kind" "Cfk_virtual" [(process_core_type core_type)])
DBG22E:constructor_declaration_new: constructor:"Cfk_virtual"{| Cfk_virtual(core_type) -> (process_generic_type "class_field_kind" "Cfk_virtual" [(process_core_type core_type)])}
DBG22A:let process_Ptyp_tuplecore_type,core_type x : Ptyp_tuplecore_type,core_type= x
DBG22A:let process_Ptyp_tuplecore_type,core_type x : Ptyp_tuplecore_type,core_type= x
DBG22EB:let process_types_class_field_desc__Pcf_constraint((aPtyp_tuplecore_type,core_type):(Ptyp_tuplecore_type,core_type)):string = (process_generic_type_d "class_field_desc" "Pcf_constraint") (process_generic_type_cPtyp_tuplecore_type,core_type aPtyp_tuplecore_type,core_type))
DBG222EC:emit_constructor_arguments:class_field_desc;Pcf_constraint:| Pcf_constraint(Ptyp_tuplecore_type,core_type) -> (process_generic_type "class_field_desc" "Pcf_constraint" [(process_Ptyp_tuplecore_type,core_type Ptyp_tuplecore_type,core_type)])
DBG22E:constructor_declaration_new: constructor:"Pcf_constraint"{| Pcf_constraint(Ptyp_tuplecore_type,core_type) -> (process_generic_type "class_field_desc" "Pcf_constraint" [(process_Ptyp_tuplecore_type,core_type Ptyp_tuplecore_type,core_type)])}
DBG22A:let process_Ptyp_tuplecore_type,core_type x : Ptyp_tuplecore_type,core_type= x
DBG22A:let process_Ptyp_tuplecore_type,core_type x : Ptyp_tuplecore_type,core_type= x
DBG22EB:let process_types_class_type_field_desc__Pctf_constraint((aPtyp_tuplecore_type,core_type):(Ptyp_tuplecore_type,core_type)):string = (process_generic_type_d "class_type_field_desc" "Pctf_constraint") (process_generic_type_cPtyp_tuplecore_type,core_type aPtyp_tuplecore_type,core_type))
DBG222EC:emit_constructor_arguments:class_type_field_desc;Pctf_constraint:| Pctf_constraint(Ptyp_tuplecore_type,core_type) -> (process_generic_type "class_type_field_desc" "Pctf_constraint" [(process_Ptyp_tuplecore_type,core_type Ptyp_tuplecore_type,core_type)])
DBG22E:constructor_declaration_new: constructor:"Pctf_constraint"{| Pctf_constraint(Ptyp_tuplecore_type,core_type) -> (process_generic_type "class_type_field_desc" "Pctf_constraint" [(process_Ptyp_tuplecore_type,core_type Ptyp_tuplecore_type,core_type)])}
DBG22A:let process_Ptyp_tupleloc,private_flag,virtual_flag,core_type x : Ptyp_tupleloc,private_flag,virtual_flag,core_type= x
DBG22A:let process_Ptyp_tupleloc,private_flag,virtual_flag,core_type x : Ptyp_tupleloc,private_flag,virtual_flag,core_type= x
DBG22EB:let process_types_class_type_field_desc__Pctf_method((aPtyp_tupleloc,private_flag,virtual_flag,core_type):(Ptyp_tupleloc,private_flag,virtual_flag,core_type)):string = (process_generic_type_d "class_type_field_desc" "Pctf_method") (process_generic_type_cPtyp_tupleloc,private_flag,virtual_flag,core_type aPtyp_tupleloc,private_flag,virtual_flag,core_type))
DBG222EC:emit_constructor_arguments:class_type_field_desc;Pctf_method:| Pctf_method(Ptyp_tupleloc,private_flag,virtual_flag,core_type) -> (process_generic_type "class_type_field_desc" "Pctf_method" [(process_Ptyp_tupleloc,private_flag,virtual_flag,core_type Ptyp_tupleloc,private_flag,virtual_flag,core_type)])
DBG22E:constructor_declaration_new: constructor:"Pctf_method"{| Pctf_method(Ptyp_tupleloc,private_flag,virtual_flag,core_type) -> (process_generic_type "class_type_field_desc" "Pctf_method" [(process_Ptyp_tupleloc,private_flag,virtual_flag,core_type Ptyp_tupleloc,private_flag,virtual_flag,core_type)])}
DBG22A:let process_Ptyp_tupleloc,mutable_flag,virtual_flag,core_type x : Ptyp_tupleloc,mutable_flag,virtual_flag,core_type= x
DBG22A:let process_Ptyp_tupleloc,mutable_flag,virtual_flag,core_type x : Ptyp_tupleloc,mutable_flag,virtual_flag,core_type= x
DBG22EB:let process_types_class_type_field_desc__Pctf_val((aPtyp_tupleloc,mutable_flag,virtual_flag,core_type):(Ptyp_tupleloc,mutable_flag,virtual_flag,core_type)):string = (process_generic_type_d "class_type_field_desc" "Pctf_val") (process_generic_type_cPtyp_tupleloc,mutable_flag,virtual_flag,core_type aPtyp_tupleloc,mutable_flag,virtual_flag,core_type))
DBG222EC:emit_constructor_arguments:class_type_field_desc;Pctf_val:| Pctf_val(Ptyp_tupleloc,mutable_flag,virtual_flag,core_type) -> (process_generic_type "class_type_field_desc" "Pctf_val" [(process_Ptyp_tupleloc,mutable_flag,virtual_flag,core_type Ptyp_tupleloc,mutable_flag,virtual_flag,core_type)])
DBG22E:constructor_declaration_new: constructor:"Pctf_val"{| Pctf_val(Ptyp_tupleloc,mutable_flag,virtual_flag,core_type) -> (process_generic_type "class_type_field_desc" "Pctf_val" [(process_Ptyp_tupleloc,mutable_flag,virtual_flag,core_type Ptyp_tupleloc,mutable_flag,virtual_flag,core_type)])}
DBG22A:let process_core_type x : core_type= x
DBG22A:let process_core_type x : core_type= x
DBG22EB:let process_types_class_type_desc__Pcty_arrow((aarg_label,acore_type,aclass_type):(arg_label*core_type*class_type)):string = (process_generic_type_d "class_type_desc" "Pcty_arrow") (process_generic_type_carg_label aarg_label)(process_generic_type_ccore_type acore_type)(process_generic_type_cclass_type aclass_type))
DBG222EC:emit_constructor_arguments:class_type_desc;Pcty_arrow:| Pcty_arrow(arg_label,core_type,class_type) -> (process_generic_type "class_type_desc" "Pcty_arrow" [(process_arg_label arg_label);(process_core_type core_type);(process_class_type class_type)])
DBG22E:constructor_declaration_new: constructor:"Pcty_arrow"{| Pcty_arrow(arg_label,core_type,class_type) -> (process_generic_type "class_type_desc" "Pcty_arrow" [(process_arg_label arg_label);(process_core_type core_type);(process_class_type class_type)])}
DBG22A:let process_core_type x : core_type= x
DBG22A:let process_core_type x : core_type= x
DBG22EB:let process_types_expression_desc__Pexp_coerce((aexpression,aoption,acore_type):(expression*option*core_type)):string = (process_generic_type_d "expression_desc" "Pexp_coerce") (process_generic_type_cexpression aexpression)(process_generic_type_coption aoption)(process_generic_type_ccore_type acore_type))
DBG222EC:emit_constructor_arguments:expression_desc;Pexp_coerce:| Pexp_coerce(expression,option,core_type) -> (process_generic_type "expression_desc" "Pexp_coerce" [(process_expression expression);(process_option option);(process_core_type core_type)])
DBG22E:constructor_declaration_new: constructor:"Pexp_coerce"{| Pexp_coerce(expression,option,core_type) -> (process_generic_type "expression_desc" "Pexp_coerce" [(process_expression expression);(process_option option);(process_core_type core_type)])}
DBG22A:let process_core_type x : core_type= x
DBG22A:let process_core_type x : core_type= x
DBG22EB:let process_types_expression_desc__Pexp_constraint((aexpression,acore_type):(expression*core_type)):string = (process_generic_type_d "expression_desc" "Pexp_constraint") (process_generic_type_cexpression aexpression)(process_generic_type_ccore_type acore_type))
DBG222EC:emit_constructor_arguments:expression_desc;Pexp_constraint:| Pexp_constraint(expression,core_type) -> (process_generic_type "expression_desc" "Pexp_constraint" [(process_expression expression);(process_core_type core_type)])
DBG22E:constructor_declaration_new: constructor:"Pexp_constraint"{| Pexp_constraint(expression,core_type) -> (process_generic_type "expression_desc" "Pexp_constraint" [(process_expression expression);(process_core_type core_type)])}
DBG22A:let process_core_type x : core_type= x
DBG22A:let process_core_type x : core_type= x
DBG22EB:let process_types_pattern_desc__Ppat_constraint((apattern,acore_type):(pattern*core_type)):string = (process_generic_type_d "pattern_desc" "Ppat_constraint") (process_generic_type_cpattern apattern)(process_generic_type_ccore_type acore_type))
DBG222EC:emit_constructor_arguments:pattern_desc;Ppat_constraint:| Ppat_constraint(pattern,core_type) -> (process_generic_type "pattern_desc" "Ppat_constraint" [(process_pattern pattern);(process_core_type core_type)])
DBG22E:constructor_declaration_new: constructor:"Ppat_constraint"{| Ppat_constraint(pattern,core_type) -> (process_generic_type "pattern_desc" "Ppat_constraint" [(process_pattern pattern);(process_core_type core_type)])}
DBG22A:let process_core_type x : core_type= x
DBG22A:let process_core_type x : core_type= x
DBG22EB:let process_types_object_field_desc__Oinherit((acore_type):(core_type)):string = (process_generic_type_d "object_field_desc" "Oinherit") (process_generic_type_ccore_type acore_type))
DBG222EC:emit_constructor_arguments:object_field_desc;Oinherit:| Oinherit(core_type) -> (process_generic_type "object_field_desc" "Oinherit" [(process_core_type core_type)])
DBG22E:constructor_declaration_new: constructor:"Oinherit"{| Oinherit(core_type) -> (process_generic_type "object_field_desc" "Oinherit" [(process_core_type core_type)])}
DBG22A:let process_core_type x : core_type= x
DBG22A:let process_core_type x : core_type= x
DBG22EB:let process_types_object_field_desc__Otag((aloc,acore_type):(loc*core_type)):string = (process_generic_type_d "object_field_desc" "Otag") (process_generic_type_cloc aloc)(process_generic_type_ccore_type acore_type))
DBG222EC:emit_constructor_arguments:object_field_desc;Otag:| Otag(loc,core_type) -> (process_generic_type "object_field_desc" "Otag" [(process_loc loc);(process_core_type core_type)])
DBG22E:constructor_declaration_new: constructor:"Otag"{| Otag(loc,core_type) -> (process_generic_type "object_field_desc" "Otag" [(process_loc loc);(process_core_type core_type)])}
DBG22A:let process_core_type x : core_type= x
DBG22A:let process_core_type x : core_type= x
DBG22EB:let process_types_row_field_desc__Rinherit((acore_type):(core_type)):string = (process_generic_type_d "row_field_desc" "Rinherit") (process_generic_type_ccore_type acore_type))
DBG222EC:emit_constructor_arguments:row_field_desc;Rinherit:| Rinherit(core_type) -> (process_generic_type "row_field_desc" "Rinherit" [(process_core_type core_type)])
DBG22E:constructor_declaration_new: constructor:"Rinherit"{| Rinherit(core_type) -> (process_generic_type "row_field_desc" "Rinherit" [(process_core_type core_type)])}
DBG221EC: let process_core_type_desc__Ptyp_extension x :string =match x with 
DBG22EB:let process_types_core_type_desc__Ptyp_extension((aextension):(extension)):string = (process_generic_type_d "core_type_desc" "Ptyp_extension") (process_generic_type_cextension aextension))
DBG222EC:emit_constructor_arguments:core_type_desc;Ptyp_extension:| Ptyp_extension(extension) -> (process_generic_type "core_type_desc" "Ptyp_extension" [(process_extension extension)])
DBG22E:constructor_declaration_new: constructor:"Ptyp_extension"{| Ptyp_extension(extension) -> (process_generic_type "core_type_desc" "Ptyp_extension" [(process_extension extension)])}
DBG221EC: let process_core_type_desc__Ptyp_package x :string =match x with 
DBG22EB:let process_types_core_type_desc__Ptyp_package((apackage_type):(package_type)):string = (process_generic_type_d "core_type_desc" "Ptyp_package") (process_generic_type_cpackage_type apackage_type))
DBG222EC:emit_constructor_arguments:core_type_desc;Ptyp_package:| Ptyp_package(package_type) -> (process_generic_type "core_type_desc" "Ptyp_package" [(process_package_type package_type)])
DBG22E:constructor_declaration_new: constructor:"Ptyp_package"{| Ptyp_package(package_type) -> (process_generic_type "core_type_desc" "Ptyp_package" [(process_package_type package_type)])}
DBG221EC: let process_core_type_desc__Ptyp_poly x :string =match x with 
DBG22A:let process_core_type x : core_type= x
DBG22A:let process_core_type x : core_type= x
DBG22EB:let process_types_core_type_desc__Ptyp_poly((alist,acore_type):(list*core_type)):string = (process_generic_type_d "core_type_desc" "Ptyp_poly") (process_generic_type_clist alist)(process_generic_type_ccore_type acore_type))
DBG222EC:emit_constructor_arguments:core_type_desc;Ptyp_poly:| Ptyp_poly(list,core_type) -> (process_generic_type "core_type_desc" "Ptyp_poly" [(process_list list);(process_core_type core_type)])
DBG22E:constructor_declaration_new: constructor:"Ptyp_poly"{| Ptyp_poly(list,core_type) -> (process_generic_type "core_type_desc" "Ptyp_poly" [(process_list list);(process_core_type core_type)])}
DBG221EC: let process_core_type_desc__Ptyp_variant x :string =match x with 
DBG22EB:let process_types_core_type_desc__Ptyp_variant((alist,aclosed_flag,aoption):(list*closed_flag*option)):string = (process_generic_type_d "core_type_desc" "Ptyp_variant") (process_generic_type_clist alist)(process_generic_type_cclosed_flag aclosed_flag)(process_generic_type_coption aoption))
DBG222EC:emit_constructor_arguments:core_type_desc;Ptyp_variant:| Ptyp_variant(list,closed_flag,option) -> (process_generic_type "core_type_desc" "Ptyp_variant" [(process_list list);(process_closed_flag closed_flag);(process_option option)])
DBG22E:constructor_declaration_new: constructor:"Ptyp_variant"{| Ptyp_variant(list,closed_flag,option) -> (process_generic_type "core_type_desc" "Ptyp_variant" [(process_list list);(process_closed_flag closed_flag);(process_option option)])}
DBG221EC: let process_core_type_desc__Ptyp_alias x :string =match x with 
DBG22A:let process_core_type x : core_type= x
DBG22A:let process_core_type x : core_type= x
DBG22EB:let process_types_core_type_desc__Ptyp_alias((acore_type,astring):(core_type*string)):string = (process_generic_type_d "core_type_desc" "Ptyp_alias") (process_generic_type_ccore_type acore_type)(process_generic_type_cstring astring))
DBG222EC:emit_constructor_arguments:core_type_desc;Ptyp_alias:| Ptyp_alias(core_type,string) -> (process_generic_type "core_type_desc" "Ptyp_alias" [(process_core_type core_type);(process_string string)])
DBG22E:constructor_declaration_new: constructor:"Ptyp_alias"{| Ptyp_alias(core_type,string) -> (process_generic_type "core_type_desc" "Ptyp_alias" [(process_core_type core_type);(process_string string)])}
DBG221EC: let process_core_type_desc__Ptyp_class x :string =match x with 
DBG22EB:let process_types_core_type_desc__Ptyp_class((alongident_loc,alist):(longident_loc*list)):string = (process_generic_type_d "core_type_desc" "Ptyp_class") (process_generic_type_clongident_loc alongident_loc)(process_generic_type_clist alist))
DBG222EC:emit_constructor_arguments:core_type_desc;Ptyp_class:| Ptyp_class(longident_loc,list) -> (process_generic_type "core_type_desc" "Ptyp_class" [(process_longident_loc longident_loc);(process_list list)])
DBG22E:constructor_declaration_new: constructor:"Ptyp_class"{| Ptyp_class(longident_loc,list) -> (process_generic_type "core_type_desc" "Ptyp_class" [(process_longident_loc longident_loc);(process_list list)])}
DBG221EC: let process_core_type_desc__Ptyp_object x :string =match x with 
DBG22EB:let process_types_core_type_desc__Ptyp_object((alist,aclosed_flag):(list*closed_flag)):string = (process_generic_type_d "core_type_desc" "Ptyp_object") (process_generic_type_clist alist)(process_generic_type_cclosed_flag aclosed_flag))
DBG222EC:emit_constructor_arguments:core_type_desc;Ptyp_object:| Ptyp_object(list,closed_flag) -> (process_generic_type "core_type_desc" "Ptyp_object" [(process_list list);(process_closed_flag closed_flag)])
DBG22E:constructor_declaration_new: constructor:"Ptyp_object"{| Ptyp_object(list,closed_flag) -> (process_generic_type "core_type_desc" "Ptyp_object" [(process_list list);(process_closed_flag closed_flag)])}
DBG221EC: let process_core_type_desc__Ptyp_constr x :string =match x with 
DBG22EB:let process_types_core_type_desc__Ptyp_constr((alongident_loc,alist):(longident_loc*list)):string = (process_generic_type_d "core_type_desc" "Ptyp_constr") (process_generic_type_clongident_loc alongident_loc)(process_generic_type_clist alist))
DBG222EC:emit_constructor_arguments:core_type_desc;Ptyp_constr:| Ptyp_constr(longident_loc,list) -> (process_generic_type "core_type_desc" "Ptyp_constr" [(process_longident_loc longident_loc);(process_list list)])
DBG22E:constructor_declaration_new: constructor:"Ptyp_constr"{| Ptyp_constr(longident_loc,list) -> (process_generic_type "core_type_desc" "Ptyp_constr" [(process_longident_loc longident_loc);(process_list list)])}
DBG221EC: let process_core_type_desc__Ptyp_tuple x :string =match x with 
DBG22EB:let process_types_core_type_desc__Ptyp_tuple((alist):(list)):string = (process_generic_type_d "core_type_desc" "Ptyp_tuple") (process_generic_type_clist alist))
DBG222EC:emit_constructor_arguments:core_type_desc;Ptyp_tuple:| Ptyp_tuple(list) -> (process_generic_type "core_type_desc" "Ptyp_tuple" [(process_list list)])
DBG22E:constructor_declaration_new: constructor:"Ptyp_tuple"{| Ptyp_tuple(list) -> (process_generic_type "core_type_desc" "Ptyp_tuple" [(process_list list)])}
DBG221EC: let process_core_type_desc__Ptyp_arrow x :string =match x with 
DBG22A:let process_core_type x : core_type= x
DBG22A:let process_core_type x : core_type= x
DBG22A:let process_core_type x : core_type= x
DBG22A:let process_core_type x : core_type= x
DBG22EB:let process_types_core_type_desc__Ptyp_arrow((aarg_label,acore_type,acore_type):(arg_label*core_type*core_type)):string = (process_generic_type_d "core_type_desc" "Ptyp_arrow") (process_generic_type_carg_label aarg_label)(process_generic_type_ccore_type acore_type)(process_generic_type_ccore_type acore_type))
DBG222EC:emit_constructor_arguments:core_type_desc;Ptyp_arrow:| Ptyp_arrow(arg_label,core_type,core_type) -> (process_generic_type "core_type_desc" "Ptyp_arrow" [(process_arg_label arg_label);(process_core_type core_type);(process_core_type core_type)])
DBG22E:constructor_declaration_new: constructor:"Ptyp_arrow"{| Ptyp_arrow(arg_label,core_type,core_type) -> (process_generic_type "core_type_desc" "Ptyp_arrow" [(process_arg_label arg_label);(process_core_type core_type);(process_core_type core_type)])}
DBG221EC: let process_core_type_desc__Ptyp_var x :string =match x with 
DBG22EB:let process_types_core_type_desc__Ptyp_var((astring):(string)):string = (process_generic_type_d "core_type_desc" "Ptyp_var") (process_generic_type_cstring astring))
DBG222EC:emit_constructor_arguments:core_type_desc;Ptyp_var:| Ptyp_var(string) -> (process_generic_type "core_type_desc" "Ptyp_var" [(process_string string)])
DBG22E:constructor_declaration_new: constructor:"Ptyp_var"{| Ptyp_var(string) -> (process_generic_type "core_type_desc" "Ptyp_var" [(process_string string)])}
DBG221EC: let process_core_type_desc__Ptyp_any x :string =match x with 
DBG22EB:let process_types_core_type_desc__Ptyp_any(():()):string = (process_generic_type_d "core_type_desc" "Ptyp_any") )
DBG222EC:emit_constructor_arguments:core_type_desc;Ptyp_any:| Ptyp_any() -> (process_generic_type "core_type_desc" "Ptyp_any" [])
DBG22E:constructor_declaration_new: constructor:"Ptyp_any"{| Ptyp_any() -> (process_generic_type "core_type_desc" "Ptyp_any" [])}
DBG22A:let process_core_type x : core_type= x
DBG22A:let process_core_type x : core_type= x
DBG22EB:let process_types_payload__PTyp((acore_type):(core_type)):string = (process_generic_type_d "payload" "PTyp") (process_generic_type_ccore_type acore_type))
DBG222EC:emit_constructor_arguments:payload;PTyp:| PTyp(core_type) -> (process_generic_type "payload" "PTyp" [(process_core_type core_type)])
DBG22E:constructor_declaration_new: constructor:"PTyp"{| PTyp(core_type) -> (process_generic_type "payload" "PTyp" [(process_core_type core_type)])}
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"PTyp"{| PTyp(core_type) -> (process_generic_type "payload" "PTyp" [(process_core_type core_type)])}
DEBUG2Erec: let process_type_decl_7core_type (x:core_type):string = match x with {ptyp_desc(* core_type_desc*);ptyp_loc(* location*);ptyp_loc_stack(* location_stack*);ptyp_attributes(* attributes*)} ->(process_type_decl_core_type_desc ptyp_desc)^(process_type_decl_location ptyp_loc)^(process_type_decl_location_stack ptyp_loc_stack)^(process_type_decl_attributes ptyp_attributes) emit_type_decl
DEBUG2Erec: let process_type_decl_7core_type_desc (x:core_type_desc):string = match x with {(ptype_variant 
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"Ptyp_any"{| Ptyp_any() -> (process_generic_type "core_type_desc" "Ptyp_any" [])}
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"Ptyp_var"{| Ptyp_var(string) -> (process_generic_type "core_type_desc" "Ptyp_var" [(process_string string)])}
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"Ptyp_arrow"{| Ptyp_arrow(arg_label,core_type,core_type) -> (process_generic_type "core_type_desc" "Ptyp_arrow" [(process_arg_label arg_label);(process_core_type core_type);(process_core_type core_type)])}
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"Ptyp_tuple"{| Ptyp_tuple(list) -> (process_generic_type "core_type_desc" "Ptyp_tuple" [(process_list list)])}
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"Ptyp_constr"{| Ptyp_constr(longident_loc,list) -> (process_generic_type "core_type_desc" "Ptyp_constr" [(process_longident_loc longident_loc);(process_list list)])}
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"Ptyp_object"{| Ptyp_object(list,closed_flag) -> (process_generic_type "core_type_desc" "Ptyp_object" [(process_list list);(process_closed_flag closed_flag)])}
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"Ptyp_class"{| Ptyp_class(longident_loc,list) -> (process_generic_type "core_type_desc" "Ptyp_class" [(process_longident_loc longident_loc);(process_list list)])}
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"Ptyp_alias"{| Ptyp_alias(core_type,string) -> (process_generic_type "core_type_desc" "Ptyp_alias" [(process_core_type core_type);(process_string string)])}
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"Ptyp_variant"{| Ptyp_variant(list,closed_flag,option) -> (process_generic_type "core_type_desc" "Ptyp_variant" [(process_list list);(process_closed_flag closed_flag);(process_option option)])}
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"Ptyp_poly"{| Ptyp_poly(list,core_type) -> (process_generic_type "core_type_desc" "Ptyp_poly" [(process_list list);(process_core_type core_type)])}
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"Ptyp_package"{| Ptyp_package(package_type) -> (process_generic_type "core_type_desc" "Ptyp_package" [(process_package_type package_type)])}
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"Ptyp_extension"{| Ptyp_extension(extension) -> (process_generic_type "core_type_desc" "Ptyp_extension" [(process_extension extension)])}
DEBUG:(emit_type_variant_constructor_declaration_list ( variant_2 "core_type_desc"))} ->SKIP emit_type_decl
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"Rinherit"{| Rinherit(core_type) -> (process_generic_type "row_field_desc" "Rinherit" [(process_core_type core_type)])}
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"Otag"{| Otag(loc,core_type) -> (process_generic_type "object_field_desc" "Otag" [(process_loc loc);(process_core_type core_type)])}
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"Oinherit"{| Oinherit(core_type) -> (process_generic_type "object_field_desc" "Oinherit" [(process_core_type core_type)])}
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"Ppat_constraint"{| Ppat_constraint(pattern,core_type) -> (process_generic_type "pattern_desc" "Ppat_constraint" [(process_pattern pattern);(process_core_type core_type)])}
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"Pexp_constraint"{| Pexp_constraint(expression,core_type) -> (process_generic_type "expression_desc" "Pexp_constraint" [(process_expression expression);(process_core_type core_type)])}
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"Pexp_coerce"{| Pexp_coerce(expression,option,core_type) -> (process_generic_type "expression_desc" "Pexp_coerce" [(process_expression expression);(process_option option);(process_core_type core_type)])}
DEBUG2Erec: let process_type_decl_7value_description (x:value_description):string = match x with {pval_name(* loc*);pval_type(* core_type*);pval_prim(* list*);pval_attributes(* attributes*);pval_loc(* location*)} ->(process_type_decl_loc pval_name)^(process_type_decl_core_type pval_type)^(process_type_decl_list pval_prim)^(process_type_decl_attributes pval_attributes)^(process_type_decl_location pval_loc) emit_type_decl
DEBUG2Erec: let process_type_decl_7label_declaration (x:label_declaration):string = match x with {pld_name(* loc*);pld_mutable(* mutable_flag*);pld_type(* core_type*);pld_loc(* location*);pld_attributes(* attributes*)} ->(process_type_decl_loc pld_name)^(process_type_decl_mutable_flag pld_mutable)^(process_type_decl_core_type pld_type)^(process_type_decl_location pld_loc)^(process_type_decl_attributes pld_attributes) emit_type_decl
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"Pcty_arrow"{| Pcty_arrow(arg_label,core_type,class_type) -> (process_generic_type "class_type_desc" "Pcty_arrow" [(process_arg_label arg_label);(process_core_type core_type);(process_class_type class_type)])}
DEBUG2Erec: let process_type_decl_7class_signature (x:class_signature):string = match x with {pcsig_self(* core_type*);pcsig_fields(* list*)} ->(process_type_decl_core_type pcsig_self)^(process_type_decl_list pcsig_fields) emit_type_decl
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"Pctf_val"{| Pctf_val(Ptyp_tupleloc,mutable_flag,virtual_flag,core_type) -> (process_generic_type "class_type_field_desc" "Pctf_val" [(process_Ptyp_tupleloc,mutable_flag,virtual_flag,core_type Ptyp_tupleloc,mutable_flag,virtual_flag,core_type)])}
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"Pctf_method"{| Pctf_method(Ptyp_tupleloc,private_flag,virtual_flag,core_type) -> (process_generic_type "class_type_field_desc" "Pctf_method" [(process_Ptyp_tupleloc,private_flag,virtual_flag,core_type Ptyp_tupleloc,private_flag,virtual_flag,core_type)])}
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"Pctf_constraint"{| Pctf_constraint(Ptyp_tuplecore_type,core_type) -> (process_generic_type "class_type_field_desc" "Pctf_constraint" [(process_Ptyp_tuplecore_type,core_type Ptyp_tuplecore_type,core_type)])}
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"Pcf_constraint"{| Pcf_constraint(Ptyp_tuplecore_type,core_type) -> (process_generic_type "class_field_desc" "Pcf_constraint" [(process_Ptyp_tuplecore_type,core_type Ptyp_tuplecore_type,core_type)])}
DEBUG:(emit_type_variant_constructor_declaration_list constructor:"Cfk_virtual"{| Cfk_virtual(core_type) -> (process_generic_type "class_field_kind" "Cfk_virtual" [(process_core_type core_type)])}
DBG12B:let process_types_directive_argument_desc__Pdir_string((astring0):(string)):string = (process_types ("directive_argument_desc","Pdir_string") ^(core_type2 "astring0"))
DBG12C:| Pdir_string (emit_core_type_list string0) -> (process_types_directive_argument_desc__Pdir_string((process_string string0)))
DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pdir_string" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_directive_argument_desc__Pdir_int((astring0,aoption1):(string*option)):string = (process_types ("directive_argument_desc","Pdir_int") ^(core_type2 "astring0")^(core_type2 "aoption1"))
DBG12C:| Pdir_int (emit_core_type_list string0,option1) -> (process_types_directive_argument_desc__Pdir_int((process_string string0),(process_option option1)))
DBG1:Ptyp_constr1 'char' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"char|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pdir_int" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"char|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_directive_argument_desc__Pdir_ident((alongident0):(longident)):string = (process_types ("directive_argument_desc","Pdir_ident") ^(core_type2 "alongident0"))
DBG12C:| Pdir_ident (emit_core_type_list longident0) -> (process_types_directive_argument_desc__Pdir_ident((process_longident longident0)))
DBG1:Ptyp_constr1 'longident' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pdir_ident" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_directive_argument_desc__Pdir_bool((abool0):(bool)):string = (process_types ("directive_argument_desc","Pdir_bool") ^(core_type2 "abool0"))
DBG12C:| Pdir_bool (emit_core_type_list bool0) -> (process_types_directive_argument_desc__Pdir_bool((process_bool bool0)))
DBG1:Ptyp_constr1 'bool' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pdir_bool" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"bool|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'directive_argument_desc' my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'directive_argument' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"directive_argument|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG12C: let process_toplevel_phrase__Ptop_def x :string =match x with 
DBG12B:let process_types_toplevel_phrase__Ptop_def((astructure0):(structure)):string = (process_types ("toplevel_phrase","Ptop_def") ^(core_type2 "astructure0"))
DBG12C:| Ptop_def (emit_core_type_list structure0) -> (process_types_toplevel_phrase__Ptop_def((process_structure structure0)))
DBG1:Ptyp_constr1 'structure' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ptop_def" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"structure|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_toplevel_phrase__Ptop_dir((atoplevel_directive0):(toplevel_directive)):string = (process_types ("toplevel_phrase","Ptop_dir") ^(core_type2 "atoplevel_directive0"))
DBG12C:| Ptop_dir (emit_core_type_list toplevel_directive0) -> (process_types_toplevel_phrase__Ptop_dir((process_toplevel_directive toplevel_directive0)))
DBG1:Ptyp_constr1 'toplevel_directive' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ptop_dir" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"toplevel_directive|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'module_expr' my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'pattern' my_process_core_type_list:DBG12C: let process_structure_item_desc__Pstr_eval x :string =match x with 
DBG12B:let process_types_structure_item_desc__Pstr_eval((aexpression0,aattributes1):(expression*attributes)):string = (process_types ("structure_item_desc","Pstr_eval") ^(core_type2 "aexpression0")^(core_type2 "aattributes1"))
DBG12C:| Pstr_eval (emit_core_type_list expression0,attributes1) -> (process_types_structure_item_desc__Pstr_eval((process_expression expression0),(process_attributes attributes1)))
DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pstr_eval" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_structure_item_desc__Pstr_value((arec_flag0,alist1):(rec_flag*list)):string = (process_types ("structure_item_desc","Pstr_value") ^(core_type2 "arec_flag0")^(core_type2 "alist1"))
DBG12C:| Pstr_value (emit_core_type_list rec_flag0,list1) -> (process_types_structure_item_desc__Pstr_value((process_rec_flag rec_flag0),(process_list list1)))
DBG1:Ptyp_constr1 'value_binding' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"value_binding|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'rec_flag' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pstr_value" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"rec_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"value_binding|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_structure_item_desc__Pstr_primitive((avalue_description0):(value_description)):string = (process_types ("structure_item_desc","Pstr_primitive") ^(core_type2 "avalue_description0"))
DBG12C:| Pstr_primitive (emit_core_type_list value_description0) -> (process_types_structure_item_desc__Pstr_primitive((process_value_description value_description0)))
DBG1:Ptyp_constr1 'value_description' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pstr_primitive" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"value_description|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_structure_item_desc__Pstr_type((arec_flag0,alist1):(rec_flag*list)):string = (process_types ("structure_item_desc","Pstr_type") ^(core_type2 "arec_flag0")^(core_type2 "alist1"))
DBG12C:| Pstr_type (emit_core_type_list rec_flag0,list1) -> (process_types_structure_item_desc__Pstr_type((process_rec_flag rec_flag0),(process_list list1)))
DBG1:Ptyp_constr1 'type_declaration' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'rec_flag' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pstr_type" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"rec_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_structure_item_desc__Pstr_typext((atype_extension0):(type_extension)):string = (process_types ("structure_item_desc","Pstr_typext") ^(core_type2 "atype_extension0"))
DBG12C:| Pstr_typext (emit_core_type_list type_extension0) -> (process_types_structure_item_desc__Pstr_typext((process_type_extension type_extension0)))
DBG1:Ptyp_constr1 'type_extension' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pstr_typext" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"type_extension|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_structure_item_desc__Pstr_exception((atype_exception0):(type_exception)):string = (process_types ("structure_item_desc","Pstr_exception") ^(core_type2 "atype_exception0"))
DBG12C:| Pstr_exception (emit_core_type_list type_exception0) -> (process_types_structure_item_desc__Pstr_exception((process_type_exception type_exception0)))
DBG1:Ptyp_constr1 'type_exception' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pstr_exception" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"type_exception|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_structure_item_desc__Pstr_module((amodule_binding0):(module_binding)):string = (process_types ("structure_item_desc","Pstr_module") ^(core_type2 "amodule_binding0"))
DBG12C:| Pstr_module (emit_core_type_list module_binding0) -> (process_types_structure_item_desc__Pstr_module((process_module_binding module_binding0)))
DBG1:Ptyp_constr1 'module_binding' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pstr_module" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"module_binding|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_structure_item_desc__Pstr_recmodule((alist0):(list)):string = (process_types ("structure_item_desc","Pstr_recmodule") ^(core_type2 "alist0"))
DBG12C:| Pstr_recmodule (emit_core_type_list list0) -> (process_types_structure_item_desc__Pstr_recmodule((process_list list0)))
DBG1:Ptyp_constr1 'module_binding' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"module_binding|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pstr_recmodule" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"module_binding|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_structure_item_desc__Pstr_modtype((amodule_type_declaration0):(module_type_declaration)):string = (process_types ("structure_item_desc","Pstr_modtype") ^(core_type2 "amodule_type_declaration0"))
DBG12C:| Pstr_modtype (emit_core_type_list module_type_declaration0) -> (process_types_structure_item_desc__Pstr_modtype((process_module_type_declaration module_type_declaration0)))
DBG1:Ptyp_constr1 'module_type_declaration' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pstr_modtype" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"module_type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_structure_item_desc__Pstr_open((aopen_declaration0):(open_declaration)):string = (process_types ("structure_item_desc","Pstr_open") ^(core_type2 "aopen_declaration0"))
DBG12C:| Pstr_open (emit_core_type_list open_declaration0) -> (process_types_structure_item_desc__Pstr_open((process_open_declaration open_declaration0)))
DBG1:Ptyp_constr1 'open_declaration' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pstr_open" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"open_declaration|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_structure_item_desc__Pstr_class((alist0):(list)):string = (process_types ("structure_item_desc","Pstr_class") ^(core_type2 "alist0"))
DBG12C:| Pstr_class (emit_core_type_list list0) -> (process_types_structure_item_desc__Pstr_class((process_list list0)))
DBG1:Ptyp_constr1 'class_declaration' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"class_declaration|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pstr_class" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"class_declaration|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_structure_item_desc__Pstr_class_type((alist0):(list)):string = (process_types ("structure_item_desc","Pstr_class_type") ^(core_type2 "alist0"))
DBG12C:| Pstr_class_type (emit_core_type_list list0) -> (process_types_structure_item_desc__Pstr_class_type((process_list list0)))
DBG1:Ptyp_constr1 'class_type_declaration' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"class_type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pstr_class_type" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"class_type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_structure_item_desc__Pstr_include((ainclude_declaration0):(include_declaration)):string = (process_types ("structure_item_desc","Pstr_include") ^(core_type2 "ainclude_declaration0"))
DBG12C:| Pstr_include (emit_core_type_list include_declaration0) -> (process_types_structure_item_desc__Pstr_include((process_include_declaration include_declaration0)))
DBG1:Ptyp_constr1 'include_declaration' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pstr_include" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"include_declaration|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_structure_item_desc__Pstr_attribute((aattribute0):(attribute)):string = (process_types ("structure_item_desc","Pstr_attribute") ^(core_type2 "aattribute0"))
DBG12C:| Pstr_attribute (emit_core_type_list attribute0) -> (process_types_structure_item_desc__Pstr_attribute((process_attribute attribute0)))
DBG1:Ptyp_constr1 'attribute' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pstr_attribute" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"attribute|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_structure_item_desc__Pstr_extension((aextension0,aattributes1):(extension*attributes)):string = (process_types ("structure_item_desc","Pstr_extension") ^(core_type2 "aextension0")^(core_type2 "aattributes1"))
DBG12C:| Pstr_extension (emit_core_type_list extension0,attributes1) -> (process_types_structure_item_desc__Pstr_extension((process_extension extension0),(process_attributes attributes1)))
DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'extension' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pstr_extension" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"extension|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'structure_item_desc' my_process_core_type_list:DBG12C: let process_module_expr_desc__Pmod_ident x :string =match x with 
DBG12B:let process_types_module_expr_desc__Pmod_ident((alongident_loc0):(longident_loc)):string = (process_types ("module_expr_desc","Pmod_ident") ^(core_type2 "alongident_loc0"))
DBG12C:| Pmod_ident (emit_core_type_list longident_loc0) -> (process_types_module_expr_desc__Pmod_ident((process_longident_loc longident_loc0)))
DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pmod_ident" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_module_expr_desc__Pmod_structure((astructure0):(structure)):string = (process_types ("module_expr_desc","Pmod_structure") ^(core_type2 "astructure0"))
DBG12C:| Pmod_structure (emit_core_type_list structure0) -> (process_types_module_expr_desc__Pmod_structure((process_structure structure0)))
DBG1:Ptyp_constr1 'structure' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pmod_structure" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"structure|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_module_expr_desc__Pmod_functor((afunctor_parameter0,amodule_expr1):(functor_parameter*module_expr)):string = (process_types ("module_expr_desc","Pmod_functor") ^(core_type2 "afunctor_parameter0")^(core_type2 "amodule_expr1"))
DBG12C:| Pmod_functor (emit_core_type_list functor_parameter0,module_expr1) -> (process_types_module_expr_desc__Pmod_functor((process_functor_parameter functor_parameter0),(process_module_expr module_expr1)))
DBG1:Ptyp_constr1 'module_expr' my_process_core_type_list:DBG1:Ptyp_constr1 'functor_parameter' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pmod_functor" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"functor_parameter|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"module_expr|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_module_expr_desc__Pmod_apply((amodule_expr0,amodule_expr1):(module_expr*module_expr)):string = (process_types ("module_expr_desc","Pmod_apply") ^(core_type2 "amodule_expr0")^(core_type2 "amodule_expr1"))
DBG12C:| Pmod_apply (emit_core_type_list module_expr0,module_expr1) -> (process_types_module_expr_desc__Pmod_apply((process_module_expr module_expr0),(process_module_expr module_expr1)))
DBG1:Ptyp_constr1 'module_expr' my_process_core_type_list:DBG1:Ptyp_constr1 'module_expr' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pmod_apply" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"module_expr|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"module_expr|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_module_expr_desc__Pmod_constraint((amodule_expr0,amodule_type1):(module_expr*module_type)):string = (process_types ("module_expr_desc","Pmod_constraint") ^(core_type2 "amodule_expr0")^(core_type2 "amodule_type1"))
DBG12C:| Pmod_constraint (emit_core_type_list module_expr0,module_type1) -> (process_types_module_expr_desc__Pmod_constraint((process_module_expr module_expr0),(process_module_type module_type1)))
DBG1:Ptyp_constr1 'module_type' my_process_core_type_list:DBG1:Ptyp_constr1 'module_expr' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pmod_constraint" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"module_expr|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"module_type|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_module_expr_desc__Pmod_unpack((aexpression0):(expression)):string = (process_types ("module_expr_desc","Pmod_unpack") ^(core_type2 "aexpression0"))
DBG12C:| Pmod_unpack (emit_core_type_list expression0) -> (process_types_module_expr_desc__Pmod_unpack((process_expression expression0)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pmod_unpack" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_module_expr_desc__Pmod_extension((aextension0):(extension)):string = (process_types ("module_expr_desc","Pmod_extension") ^(core_type2 "aextension0"))
DBG12C:| Pmod_extension (emit_core_type_list extension0) -> (process_types_module_expr_desc__Pmod_extension((process_extension extension0)))
DBG1:Ptyp_constr1 'extension' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pmod_extension" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"extension|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'module_expr_desc' my_process_core_type_list:DBG12C: let process_with_constraint__Pwith_type x :string =match x with 
DBG12B:let process_types_with_constraint__Pwith_type((alongident_loc0,atype_declaration1):(longident_loc*type_declaration)):string = (process_types ("with_constraint","Pwith_type") ^(core_type2 "alongident_loc0")^(core_type2 "atype_declaration1"))
DBG12C:| Pwith_type (emit_core_type_list longident_loc0,type_declaration1) -> (process_types_with_constraint__Pwith_type((process_longident_loc longident_loc0),(process_type_declaration type_declaration1)))
DBG1:Ptyp_constr1 'type_declaration' my_process_core_type_list:DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pwith_type" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_with_constraint__Pwith_module((alongident_loc0,alongident_loc1):(longident_loc*longident_loc)):string = (process_types ("with_constraint","Pwith_module") ^(core_type2 "alongident_loc0")^(core_type2 "alongident_loc1"))
DBG12C:| Pwith_module (emit_core_type_list longident_loc0,longident_loc1) -> (process_types_with_constraint__Pwith_module((process_longident_loc longident_loc0),(process_longident_loc longident_loc1)))
DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pwith_module" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_with_constraint__Pwith_modtype((alongident_loc0,amodule_type1):(longident_loc*module_type)):string = (process_types ("with_constraint","Pwith_modtype") ^(core_type2 "alongident_loc0")^(core_type2 "amodule_type1"))
DBG12C:| Pwith_modtype (emit_core_type_list longident_loc0,module_type1) -> (process_types_with_constraint__Pwith_modtype((process_longident_loc longident_loc0),(process_module_type module_type1)))
DBG1:Ptyp_constr1 'module_type' my_process_core_type_list:DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pwith_modtype" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"module_type|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_with_constraint__Pwith_modtypesubst((alongident_loc0,amodule_type1):(longident_loc*module_type)):string = (process_types ("with_constraint","Pwith_modtypesubst") ^(core_type2 "alongident_loc0")^(core_type2 "amodule_type1"))
DBG12C:| Pwith_modtypesubst (emit_core_type_list longident_loc0,module_type1) -> (process_types_with_constraint__Pwith_modtypesubst((process_longident_loc longident_loc0),(process_module_type module_type1)))
DBG1:Ptyp_constr1 'module_type' my_process_core_type_list:DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pwith_modtypesubst" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"module_type|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_with_constraint__Pwith_typesubst((alongident_loc0,atype_declaration1):(longident_loc*type_declaration)):string = (process_types ("with_constraint","Pwith_typesubst") ^(core_type2 "alongident_loc0")^(core_type2 "atype_declaration1"))
DBG12C:| Pwith_typesubst (emit_core_type_list longident_loc0,type_declaration1) -> (process_types_with_constraint__Pwith_typesubst((process_longident_loc longident_loc0),(process_type_declaration type_declaration1)))
DBG1:Ptyp_constr1 'type_declaration' my_process_core_type_list:DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pwith_typesubst" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_with_constraint__Pwith_modsubst((alongident_loc0,alongident_loc1):(longident_loc*longident_loc)):string = (process_types ("with_constraint","Pwith_modsubst") ^(core_type2 "alongident_loc0")^(core_type2 "alongident_loc1"))
DBG12C:| Pwith_modsubst (emit_core_type_list longident_loc0,longident_loc1) -> (process_types_with_constraint__Pwith_modsubst((process_longident_loc longident_loc0),(process_longident_loc longident_loc1)))
DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pwith_modsubst" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'override_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'module_type' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"module_type|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'module_type' my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:DBG12C: let process_signature_item_desc__Psig_value x :string =match x with 
DBG12B:let process_types_signature_item_desc__Psig_value((avalue_description0):(value_description)):string = (process_types ("signature_item_desc","Psig_value") ^(core_type2 "avalue_description0"))
DBG12C:| Psig_value (emit_core_type_list value_description0) -> (process_types_signature_item_desc__Psig_value((process_value_description value_description0)))
DBG1:Ptyp_constr1 'value_description' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Psig_value" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"value_description|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_signature_item_desc__Psig_type((arec_flag0,alist1):(rec_flag*list)):string = (process_types ("signature_item_desc","Psig_type") ^(core_type2 "arec_flag0")^(core_type2 "alist1"))
DBG12C:| Psig_type (emit_core_type_list rec_flag0,list1) -> (process_types_signature_item_desc__Psig_type((process_rec_flag rec_flag0),(process_list list1)))
DBG1:Ptyp_constr1 'type_declaration' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'rec_flag' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Psig_type" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"rec_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_signature_item_desc__Psig_typesubst((alist0):(list)):string = (process_types ("signature_item_desc","Psig_typesubst") ^(core_type2 "alist0"))
DBG12C:| Psig_typesubst (emit_core_type_list list0) -> (process_types_signature_item_desc__Psig_typesubst((process_list list0)))
DBG1:Ptyp_constr1 'type_declaration' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Psig_typesubst" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_signature_item_desc__Psig_typext((atype_extension0):(type_extension)):string = (process_types ("signature_item_desc","Psig_typext") ^(core_type2 "atype_extension0"))
DBG12C:| Psig_typext (emit_core_type_list type_extension0) -> (process_types_signature_item_desc__Psig_typext((process_type_extension type_extension0)))
DBG1:Ptyp_constr1 'type_extension' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Psig_typext" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"type_extension|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_signature_item_desc__Psig_exception((atype_exception0):(type_exception)):string = (process_types ("signature_item_desc","Psig_exception") ^(core_type2 "atype_exception0"))
DBG12C:| Psig_exception (emit_core_type_list type_exception0) -> (process_types_signature_item_desc__Psig_exception((process_type_exception type_exception0)))
DBG1:Ptyp_constr1 'type_exception' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Psig_exception" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"type_exception|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_signature_item_desc__Psig_module((amodule_declaration0):(module_declaration)):string = (process_types ("signature_item_desc","Psig_module") ^(core_type2 "amodule_declaration0"))
DBG12C:| Psig_module (emit_core_type_list module_declaration0) -> (process_types_signature_item_desc__Psig_module((process_module_declaration module_declaration0)))
DBG1:Ptyp_constr1 'module_declaration' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Psig_module" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"module_declaration|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_signature_item_desc__Psig_modsubst((amodule_substitution0):(module_substitution)):string = (process_types ("signature_item_desc","Psig_modsubst") ^(core_type2 "amodule_substitution0"))
DBG12C:| Psig_modsubst (emit_core_type_list module_substitution0) -> (process_types_signature_item_desc__Psig_modsubst((process_module_substitution module_substitution0)))
DBG1:Ptyp_constr1 'module_substitution' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Psig_modsubst" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"module_substitution|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_signature_item_desc__Psig_recmodule((alist0):(list)):string = (process_types ("signature_item_desc","Psig_recmodule") ^(core_type2 "alist0"))
DBG12C:| Psig_recmodule (emit_core_type_list list0) -> (process_types_signature_item_desc__Psig_recmodule((process_list list0)))
DBG1:Ptyp_constr1 'module_declaration' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"module_declaration|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Psig_recmodule" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"module_declaration|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_signature_item_desc__Psig_modtype((amodule_type_declaration0):(module_type_declaration)):string = (process_types ("signature_item_desc","Psig_modtype") ^(core_type2 "amodule_type_declaration0"))
DBG12C:| Psig_modtype (emit_core_type_list module_type_declaration0) -> (process_types_signature_item_desc__Psig_modtype((process_module_type_declaration module_type_declaration0)))
DBG1:Ptyp_constr1 'module_type_declaration' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Psig_modtype" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"module_type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_signature_item_desc__Psig_modtypesubst((amodule_type_declaration0):(module_type_declaration)):string = (process_types ("signature_item_desc","Psig_modtypesubst") ^(core_type2 "amodule_type_declaration0"))
DBG12C:| Psig_modtypesubst (emit_core_type_list module_type_declaration0) -> (process_types_signature_item_desc__Psig_modtypesubst((process_module_type_declaration module_type_declaration0)))
DBG1:Ptyp_constr1 'module_type_declaration' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Psig_modtypesubst" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"module_type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_signature_item_desc__Psig_open((aopen_description0):(open_description)):string = (process_types ("signature_item_desc","Psig_open") ^(core_type2 "aopen_description0"))
DBG12C:| Psig_open (emit_core_type_list open_description0) -> (process_types_signature_item_desc__Psig_open((process_open_description open_description0)))
DBG1:Ptyp_constr1 'open_description' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Psig_open" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"open_description|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_signature_item_desc__Psig_include((ainclude_description0):(include_description)):string = (process_types ("signature_item_desc","Psig_include") ^(core_type2 "ainclude_description0"))
DBG12C:| Psig_include (emit_core_type_list include_description0) -> (process_types_signature_item_desc__Psig_include((process_include_description include_description0)))
DBG1:Ptyp_constr1 'include_description' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Psig_include" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"include_description|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_signature_item_desc__Psig_class((alist0):(list)):string = (process_types ("signature_item_desc","Psig_class") ^(core_type2 "alist0"))
DBG12C:| Psig_class (emit_core_type_list list0) -> (process_types_signature_item_desc__Psig_class((process_list list0)))
DBG1:Ptyp_constr1 'class_description' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"class_description|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Psig_class" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"class_description|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_signature_item_desc__Psig_class_type((alist0):(list)):string = (process_types ("signature_item_desc","Psig_class_type") ^(core_type2 "alist0"))
DBG12C:| Psig_class_type (emit_core_type_list list0) -> (process_types_signature_item_desc__Psig_class_type((process_list list0)))
DBG1:Ptyp_constr1 'class_type_declaration' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"class_type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Psig_class_type" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"class_type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_signature_item_desc__Psig_attribute((aattribute0):(attribute)):string = (process_types ("signature_item_desc","Psig_attribute") ^(core_type2 "aattribute0"))
DBG12C:| Psig_attribute (emit_core_type_list attribute0) -> (process_types_signature_item_desc__Psig_attribute((process_attribute attribute0)))
DBG1:Ptyp_constr1 'attribute' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Psig_attribute" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"attribute|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_signature_item_desc__Psig_extension((aextension0,aattributes1):(extension*attributes)):string = (process_types ("signature_item_desc","Psig_extension") ^(core_type2 "aextension0")^(core_type2 "aattributes1"))
DBG12C:| Psig_extension (emit_core_type_list extension0,attributes1) -> (process_types_signature_item_desc__Psig_extension((process_extension extension0),(process_attributes attributes1)))
DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'extension' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Psig_extension" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"extension|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'signature_item_desc' my_process_core_type_list:DBG12C: let process_functor_parameter__Unit x :string =match x with 
DBG12C:| Unit (emit_core_type_list ) -> (process_types_functor_parameter__Unit())
DBG1:constructor_declaration_new: (constructor "Unit" {Pcstr_tuple:my_process_core_type_list:})
DBG12B:let process_types_functor_parameter__Named((aloc0,amodule_type1):(loc*module_type)):string = (process_types ("functor_parameter","Named") ^(core_type2 "aloc0")^(core_type2 "amodule_type1"))
DBG12C:| Named (emit_core_type_list loc0,module_type1) -> (process_types_functor_parameter__Named((process_loc loc0),(process_module_type module_type1)))
DBG1:Ptyp_constr1 'module_type' my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Named" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"module_type|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_module_type_desc__Pmty_ident((alongident_loc0):(longident_loc)):string = (process_types ("module_type_desc","Pmty_ident") ^(core_type2 "alongident_loc0"))
DBG12C:| Pmty_ident (emit_core_type_list longident_loc0) -> (process_types_module_type_desc__Pmty_ident((process_longident_loc longident_loc0)))
DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pmty_ident" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_module_type_desc__Pmty_signature((asignature0):(signature)):string = (process_types ("module_type_desc","Pmty_signature") ^(core_type2 "asignature0"))
DBG12C:| Pmty_signature (emit_core_type_list signature0) -> (process_types_module_type_desc__Pmty_signature((process_signature signature0)))
DBG1:Ptyp_constr1 'signature' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pmty_signature" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"signature|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_module_type_desc__Pmty_functor((afunctor_parameter0,amodule_type1):(functor_parameter*module_type)):string = (process_types ("module_type_desc","Pmty_functor") ^(core_type2 "afunctor_parameter0")^(core_type2 "amodule_type1"))
DBG12C:| Pmty_functor (emit_core_type_list functor_parameter0,module_type1) -> (process_types_module_type_desc__Pmty_functor((process_functor_parameter functor_parameter0),(process_module_type module_type1)))
DBG1:Ptyp_constr1 'module_type' my_process_core_type_list:DBG1:Ptyp_constr1 'functor_parameter' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pmty_functor" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"functor_parameter|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"module_type|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_module_type_desc__Pmty_with((amodule_type0,alist1):(module_type*list)):string = (process_types ("module_type_desc","Pmty_with") ^(core_type2 "amodule_type0")^(core_type2 "alist1"))
DBG12C:| Pmty_with (emit_core_type_list module_type0,list1) -> (process_types_module_type_desc__Pmty_with((process_module_type module_type0),(process_list list1)))
DBG1:Ptyp_constr1 'with_constraint' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"with_constraint|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'module_type' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pmty_with" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"module_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"with_constraint|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_module_type_desc__Pmty_typeof((amodule_expr0):(module_expr)):string = (process_types ("module_type_desc","Pmty_typeof") ^(core_type2 "amodule_expr0"))
DBG12C:| Pmty_typeof (emit_core_type_list module_expr0) -> (process_types_module_type_desc__Pmty_typeof((process_module_expr module_expr0)))
DBG1:Ptyp_constr1 'module_expr' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pmty_typeof" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"module_expr|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_module_type_desc__Pmty_extension((aextension0):(extension)):string = (process_types ("module_type_desc","Pmty_extension") ^(core_type2 "aextension0"))
DBG12C:| Pmty_extension (emit_core_type_list extension0) -> (process_types_module_type_desc__Pmty_extension((process_extension extension0)))
DBG1:Ptyp_constr1 'extension' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pmty_extension" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"extension|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_module_type_desc__Pmty_alias((alongident_loc0):(longident_loc)):string = (process_types ("module_type_desc","Pmty_alias") ^(core_type2 "alongident_loc0"))
DBG12C:| Pmty_alias (emit_core_type_list longident_loc0) -> (process_types_module_type_desc__Pmty_alias((process_longident_loc longident_loc0)))
DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pmty_alias" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'module_type_desc' my_process_core_type_list:DBG12C: let process_class_field_kind__Cfk_virtual x :string =match x with 
DBG12A:let process_core_type x : core_type= x
DBG12A:let process_core_type x : core_type= x
DBG12B:let process_types_class_field_kind__Cfk_virtual((acore_type0):(core_type)):string = (process_types ("class_field_kind","Cfk_virtual") ^(core_type2 "acore_type0"))
DBG12C:| Cfk_virtual (emit_core_type_list core_type0) -> (process_types_class_field_kind__Cfk_virtual((process_core_type core_type0)))
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Cfk_virtual" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_class_field_kind__Cfk_concrete((aoverride_flag0,aexpression1):(override_flag*expression)):string = (process_types ("class_field_kind","Cfk_concrete") ^(core_type2 "aoverride_flag0")^(core_type2 "aexpression1"))
DBG12C:| Cfk_concrete (emit_core_type_list override_flag0,expression1) -> (process_types_class_field_kind__Cfk_concrete((process_override_flag override_flag0),(process_expression expression1)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'override_flag' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Cfk_concrete" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"override_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_class_field_desc__Pcf_inherit((aoverride_flag0,aclass_expr1,aoption2):(override_flag*class_expr*option)):string = (process_types ("class_field_desc","Pcf_inherit") ^(core_type2 "aoverride_flag0")^(core_type2 "aclass_expr1")^(core_type2 "aoption2"))
DBG12C:| Pcf_inherit (emit_core_type_list override_flag0,class_expr1,option2) -> (process_types_class_field_desc__Pcf_inherit((process_override_flag override_flag0),(process_class_expr class_expr1),(process_option option2)))
DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'class_expr' my_process_core_type_list:DBG1:Ptyp_constr1 'override_flag' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pcf_inherit" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"override_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_expr|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'class_field_kind' my_process_core_type_list:DBG1:Ptyp_constr1 'mutable_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'class_field_kind' my_process_core_type_list:DBG1:Ptyp_constr1 'mutable_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'class_field_kind' my_process_core_type_list:DBG1:Ptyp_constr1 'mutable_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'class_field_kind' my_process_core_type_list:DBG1:Ptyp_constr1 'mutable_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'class_field_kind' my_process_core_type_list:DBG1:Ptyp_constr1 'mutable_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG12A:let process_Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_field_kind|") ->my_process_core_type_list:,my_process_core_type_list: x : Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_field_kind|") ->my_process_core_type_list:,my_process_core_type_list:= x
DBG1:Ptyp_constr1 'class_field_kind' my_process_core_type_list:DBG1:Ptyp_constr1 'mutable_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'class_field_kind' my_process_core_type_list:DBG1:Ptyp_constr1 'mutable_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'class_field_kind' my_process_core_type_list:DBG1:Ptyp_constr1 'mutable_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG12A:let process_Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_field_kind|") ->my_process_core_type_list:,my_process_core_type_list: x : Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_field_kind|") ->my_process_core_type_list:,my_process_core_type_list:= x
DBG12B:let process_types_class_field_desc__Pcf_val((aPtyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_field_kind|") ->my_process_core_type_list:,my_process_core_type_list:0):(Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_field_kind|") ->my_process_core_type_list:,my_process_core_type_list:)):string = (process_types ("class_field_desc","Pcf_val") ^(core_type2 "aPtyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_field_kind|") ->my_process_core_type_list:,my_process_core_type_list:0"))
DBG12C:| Pcf_val (emit_core_type_list Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_field_kind|") ->my_process_core_type_list:,my_process_core_type_list:0) -> (process_types_class_field_desc__Pcf_val((process_Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_field_kind|") ->my_process_core_type_list:,my_process_core_type_list: Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_field_kind|") ->my_process_core_type_list:,my_process_core_type_list:0)))
DBG1:Ptyp_constr1 'class_field_kind' my_process_core_type_list:DBG1:Ptyp_constr1 'mutable_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pcf_val" {Pcstr_tuple:ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_field_kind|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'class_field_kind' my_process_core_type_list:DBG1:Ptyp_constr1 'private_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'class_field_kind' my_process_core_type_list:DBG1:Ptyp_constr1 'private_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'class_field_kind' my_process_core_type_list:DBG1:Ptyp_constr1 'private_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'class_field_kind' my_process_core_type_list:DBG1:Ptyp_constr1 'private_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'class_field_kind' my_process_core_type_list:DBG1:Ptyp_constr1 'private_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG12A:let process_Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_field_kind|") ->my_process_core_type_list:,my_process_core_type_list: x : Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_field_kind|") ->my_process_core_type_list:,my_process_core_type_list:= x
DBG1:Ptyp_constr1 'class_field_kind' my_process_core_type_list:DBG1:Ptyp_constr1 'private_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'class_field_kind' my_process_core_type_list:DBG1:Ptyp_constr1 'private_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'class_field_kind' my_process_core_type_list:DBG1:Ptyp_constr1 'private_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG12A:let process_Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_field_kind|") ->my_process_core_type_list:,my_process_core_type_list: x : Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_field_kind|") ->my_process_core_type_list:,my_process_core_type_list:= x
DBG12B:let process_types_class_field_desc__Pcf_method((aPtyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_field_kind|") ->my_process_core_type_list:,my_process_core_type_list:0):(Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_field_kind|") ->my_process_core_type_list:,my_process_core_type_list:)):string = (process_types ("class_field_desc","Pcf_method") ^(core_type2 "aPtyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_field_kind|") ->my_process_core_type_list:,my_process_core_type_list:0"))
DBG12C:| Pcf_method (emit_core_type_list Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_field_kind|") ->my_process_core_type_list:,my_process_core_type_list:0) -> (process_types_class_field_desc__Pcf_method((process_Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_field_kind|") ->my_process_core_type_list:,my_process_core_type_list: Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_field_kind|") ->my_process_core_type_list:,my_process_core_type_list:0)))
DBG1:Ptyp_constr1 'class_field_kind' my_process_core_type_list:DBG1:Ptyp_constr1 'private_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pcf_method" {Pcstr_tuple:ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_field_kind|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG12A:let process_Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list: x : Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:= x
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG12A:let process_Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list: x : Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:= x
DBG12B:let process_types_class_field_desc__Pcf_constraint((aPtyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:0):(Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:)):string = (process_types ("class_field_desc","Pcf_constraint") ^(core_type2 "aPtyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:0"))
DBG12C:| Pcf_constraint (emit_core_type_list Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:0) -> (process_types_class_field_desc__Pcf_constraint((process_Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list: Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:0)))
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pcf_constraint" {Pcstr_tuple:ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_class_field_desc__Pcf_initializer((aexpression0):(expression)):string = (process_types ("class_field_desc","Pcf_initializer") ^(core_type2 "aexpression0"))
DBG12C:| Pcf_initializer (emit_core_type_list expression0) -> (process_types_class_field_desc__Pcf_initializer((process_expression expression0)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pcf_initializer" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_class_field_desc__Pcf_attribute((aattribute0):(attribute)):string = (process_types ("class_field_desc","Pcf_attribute") ^(core_type2 "aattribute0"))
DBG12C:| Pcf_attribute (emit_core_type_list attribute0) -> (process_types_class_field_desc__Pcf_attribute((process_attribute attribute0)))
DBG1:Ptyp_constr1 'attribute' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pcf_attribute" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"attribute|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_class_field_desc__Pcf_extension((aextension0):(extension)):string = (process_types ("class_field_desc","Pcf_extension") ^(core_type2 "aextension0"))
DBG12C:| Pcf_extension (emit_core_type_list extension0) -> (process_types_class_field_desc__Pcf_extension((process_extension extension0)))
DBG1:Ptyp_constr1 'extension' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pcf_extension" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"extension|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'class_field_desc' my_process_core_type_list:DBG1:Ptyp_constr1 'class_field' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"class_field|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'pattern' my_process_core_type_list:DBG12C: let process_class_expr_desc__Pcl_constr x :string =match x with 
DBG12B:let process_types_class_expr_desc__Pcl_constr((alongident_loc0,alist1):(longident_loc*list)):string = (process_types ("class_expr_desc","Pcl_constr") ^(core_type2 "alongident_loc0")^(core_type2 "alist1"))
DBG12C:| Pcl_constr (emit_core_type_list longident_loc0,list1) -> (process_types_class_expr_desc__Pcl_constr((process_longident_loc longident_loc0),(process_list list1)))
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pcl_constr" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_class_expr_desc__Pcl_structure((aclass_structure0):(class_structure)):string = (process_types ("class_expr_desc","Pcl_structure") ^(core_type2 "aclass_structure0"))
DBG12C:| Pcl_structure (emit_core_type_list class_structure0) -> (process_types_class_expr_desc__Pcl_structure((process_class_structure class_structure0)))
DBG1:Ptyp_constr1 'class_structure' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pcl_structure" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"class_structure|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_class_expr_desc__Pcl_fun((aarg_label0,aoption1,apattern2,aclass_expr3):(arg_label*option*pattern*class_expr)):string = (process_types ("class_expr_desc","Pcl_fun") ^(core_type2 "aarg_label0")^(core_type2 "aoption1")^(core_type2 "apattern2")^(core_type2 "aclass_expr3"))
DBG12C:| Pcl_fun (emit_core_type_list arg_label0,option1,pattern2,class_expr3) -> (process_types_class_expr_desc__Pcl_fun((process_arg_label arg_label0),(process_option option1),(process_pattern pattern2),(process_class_expr class_expr3)))
DBG1:Ptyp_constr1 'class_expr' my_process_core_type_list:DBG1:Ptyp_constr1 'pattern' my_process_core_type_list:DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'arg_label' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pcl_fun" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"arg_label|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_expr|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_class_expr_desc__Pcl_apply((aclass_expr0,alist1):(class_expr*list)):string = (process_types ("class_expr_desc","Pcl_apply") ^(core_type2 "aclass_expr0")^(core_type2 "alist1"))
DBG12C:| Pcl_apply (emit_core_type_list class_expr0,list1) -> (process_types_class_expr_desc__Pcl_apply((process_class_expr class_expr0),(process_list list1)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'arg_label' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"arg_label|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'class_expr' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pcl_apply" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"class_expr|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"arg_label|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_class_expr_desc__Pcl_let((arec_flag0,alist1,aclass_expr2):(rec_flag*list*class_expr)):string = (process_types ("class_expr_desc","Pcl_let") ^(core_type2 "arec_flag0")^(core_type2 "alist1")^(core_type2 "aclass_expr2"))
DBG12C:| Pcl_let (emit_core_type_list rec_flag0,list1,class_expr2) -> (process_types_class_expr_desc__Pcl_let((process_rec_flag rec_flag0),(process_list list1),(process_class_expr class_expr2)))
DBG1:Ptyp_constr1 'class_expr' my_process_core_type_list:DBG1:Ptyp_constr1 'value_binding' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"value_binding|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'rec_flag' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pcl_let" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"rec_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"value_binding|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_expr|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_class_expr_desc__Pcl_constraint((aclass_expr0,aclass_type1):(class_expr*class_type)):string = (process_types ("class_expr_desc","Pcl_constraint") ^(core_type2 "aclass_expr0")^(core_type2 "aclass_type1"))
DBG12C:| Pcl_constraint (emit_core_type_list class_expr0,class_type1) -> (process_types_class_expr_desc__Pcl_constraint((process_class_expr class_expr0),(process_class_type class_type1)))
DBG1:Ptyp_constr1 'class_type' my_process_core_type_list:DBG1:Ptyp_constr1 'class_expr' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pcl_constraint" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"class_expr|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_type|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_class_expr_desc__Pcl_extension((aextension0):(extension)):string = (process_types ("class_expr_desc","Pcl_extension") ^(core_type2 "aextension0"))
DBG12C:| Pcl_extension (emit_core_type_list extension0) -> (process_types_class_expr_desc__Pcl_extension((process_extension extension0)))
DBG1:Ptyp_constr1 'extension' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pcl_extension" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"extension|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_class_expr_desc__Pcl_open((aopen_description0,aclass_expr1):(open_description*class_expr)):string = (process_types ("class_expr_desc","Pcl_open") ^(core_type2 "aopen_description0")^(core_type2 "aclass_expr1"))
DBG12C:| Pcl_open (emit_core_type_list open_description0,class_expr1) -> (process_types_class_expr_desc__Pcl_open((process_open_description open_description0),(process_class_expr class_expr1)))
DBG1:Ptyp_constr1 'class_expr' my_process_core_type_list:DBG1:Ptyp_constr1 'open_description' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pcl_open" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"open_description|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_expr|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'class_expr_desc' my_process_core_type_list:DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'injectivity' my_process_core_type_list:DBG1:Ptyp_constr1 'variance' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"variance|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"injectivity|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'virtual_flag' my_process_core_type_list:DBG12C: let process_class_type_field_desc__Pctf_inherit x :string =match x with 
DBG12B:let process_types_class_type_field_desc__Pctf_inherit((aclass_type0):(class_type)):string = (process_types ("class_type_field_desc","Pctf_inherit") ^(core_type2 "aclass_type0"))
DBG12C:| Pctf_inherit (emit_core_type_list class_type0) -> (process_types_class_type_field_desc__Pctf_inherit((process_class_type class_type0)))
DBG1:Ptyp_constr1 'class_type' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pctf_inherit" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"class_type|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'virtual_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'mutable_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'virtual_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'mutable_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'virtual_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'mutable_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'virtual_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'mutable_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'virtual_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'mutable_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG12A:let process_Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list: x : Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:= x
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'virtual_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'mutable_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'virtual_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'mutable_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'virtual_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'mutable_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG12A:let process_Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list: x : Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:= x
DBG12B:let process_types_class_type_field_desc__Pctf_val((aPtyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:0):(Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:)):string = (process_types ("class_type_field_desc","Pctf_val") ^(core_type2 "aPtyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:0"))
DBG12C:| Pctf_val (emit_core_type_list Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:0) -> (process_types_class_type_field_desc__Pctf_val((process_Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list: Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:0)))
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'virtual_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'mutable_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pctf_val" {Pcstr_tuple:ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'virtual_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'private_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'virtual_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'private_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'virtual_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'private_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'virtual_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'private_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'virtual_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'private_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG12A:let process_Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list: x : Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:= x
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'virtual_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'private_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'virtual_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'private_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'virtual_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'private_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG12A:let process_Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list: x : Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:= x
DBG12B:let process_types_class_type_field_desc__Pctf_method((aPtyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:0):(Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:)):string = (process_types ("class_type_field_desc","Pctf_method") ^(core_type2 "aPtyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:0"))
DBG12C:| Pctf_method (emit_core_type_list Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:0) -> (process_types_class_type_field_desc__Pctf_method((process_Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list: Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:0)))
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'virtual_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'private_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pctf_method" {Pcstr_tuple:ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG12A:let process_Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list: x : Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:= x
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG12A:let process_Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list: x : Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:= x
DBG12B:let process_types_class_type_field_desc__Pctf_constraint((aPtyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:0):(Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:)):string = (process_types ("class_type_field_desc","Pctf_constraint") ^(core_type2 "aPtyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:0"))
DBG12C:| Pctf_constraint (emit_core_type_list Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:0) -> (process_types_class_type_field_desc__Pctf_constraint((process_Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list: Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:0)))
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pctf_constraint" {Pcstr_tuple:ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_class_type_field_desc__Pctf_attribute((aattribute0):(attribute)):string = (process_types ("class_type_field_desc","Pctf_attribute") ^(core_type2 "aattribute0"))
DBG12C:| Pctf_attribute (emit_core_type_list attribute0) -> (process_types_class_type_field_desc__Pctf_attribute((process_attribute attribute0)))
DBG1:Ptyp_constr1 'attribute' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pctf_attribute" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"attribute|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_class_type_field_desc__Pctf_extension((aextension0):(extension)):string = (process_types ("class_type_field_desc","Pctf_extension") ^(core_type2 "aextension0"))
DBG12C:| Pctf_extension (emit_core_type_list extension0) -> (process_types_class_type_field_desc__Pctf_extension((process_extension extension0)))
DBG1:Ptyp_constr1 'extension' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pctf_extension" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"extension|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'class_type_field_desc' my_process_core_type_list:DBG1:Ptyp_constr1 'class_type_field' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"class_type_field|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG12C: let process_class_type_desc__Pcty_constr x :string =match x with 
DBG12B:let process_types_class_type_desc__Pcty_constr((alongident_loc0,alist1):(longident_loc*list)):string = (process_types ("class_type_desc","Pcty_constr") ^(core_type2 "alongident_loc0")^(core_type2 "alist1"))
DBG12C:| Pcty_constr (emit_core_type_list longident_loc0,list1) -> (process_types_class_type_desc__Pcty_constr((process_longident_loc longident_loc0),(process_list list1)))
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pcty_constr" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_class_type_desc__Pcty_signature((aclass_signature0):(class_signature)):string = (process_types ("class_type_desc","Pcty_signature") ^(core_type2 "aclass_signature0"))
DBG12C:| Pcty_signature (emit_core_type_list class_signature0) -> (process_types_class_type_desc__Pcty_signature((process_class_signature class_signature0)))
DBG1:Ptyp_constr1 'class_signature' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pcty_signature" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"class_signature|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12A:let process_core_type x : core_type= x
DBG12A:let process_core_type x : core_type= x
DBG12B:let process_types_class_type_desc__Pcty_arrow((aarg_label0,acore_type1,aclass_type2):(arg_label*core_type*class_type)):string = (process_types ("class_type_desc","Pcty_arrow") ^(core_type2 "aarg_label0")^(core_type2 "acore_type1")^(core_type2 "aclass_type2"))
DBG12C:| Pcty_arrow (emit_core_type_list arg_label0,core_type1,class_type2) -> (process_types_class_type_desc__Pcty_arrow((process_arg_label arg_label0),(process_core_type core_type1),(process_class_type class_type2)))
DBG1:Ptyp_constr1 'class_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'arg_label' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pcty_arrow" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"arg_label|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_type|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_class_type_desc__Pcty_extension((aextension0):(extension)):string = (process_types ("class_type_desc","Pcty_extension") ^(core_type2 "aextension0"))
DBG12C:| Pcty_extension (emit_core_type_list extension0) -> (process_types_class_type_desc__Pcty_extension((process_extension extension0)))
DBG1:Ptyp_constr1 'extension' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pcty_extension" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"extension|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_class_type_desc__Pcty_open((aopen_description0,aclass_type1):(open_description*class_type)):string = (process_types ("class_type_desc","Pcty_open") ^(core_type2 "aopen_description0")^(core_type2 "aclass_type1"))
DBG12C:| Pcty_open (emit_core_type_list open_description0,class_type1) -> (process_types_class_type_desc__Pcty_open((process_open_description open_description0),(process_class_type class_type1)))
DBG1:Ptyp_constr1 'class_type' my_process_core_type_list:DBG1:Ptyp_constr1 'open_description' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pcty_open" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"open_description|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_type|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'class_type_desc' my_process_core_type_list:DBG12C: let process_extension_constructor_kind__Pext_decl x :string =match x with 
DBG12B:let process_types_extension_constructor_kind__Pext_decl((alist0,aconstructor_arguments1,aoption2):(list*constructor_arguments*option)):string = (process_types ("extension_constructor_kind","Pext_decl") ^(core_type2 "alist0")^(core_type2 "aconstructor_arguments1")^(core_type2 "aoption2"))
DBG12C:| Pext_decl (emit_core_type_list list0,constructor_arguments1,option2) -> (process_types_extension_constructor_kind__Pext_decl((process_list list0),(process_constructor_arguments constructor_arguments1),(process_option option2)))
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'constructor_arguments' my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pext_decl" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"constructor_arguments|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_extension_constructor_kind__Pext_rebind((alongident_loc0):(longident_loc)):string = (process_types ("extension_constructor_kind","Pext_rebind") ^(core_type2 "alongident_loc0"))
DBG12C:| Pext_rebind (emit_core_type_list longident_loc0) -> (process_types_extension_constructor_kind__Pext_rebind((process_longident_loc longident_loc0)))
DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pext_rebind" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'extension_constructor' my_process_core_type_list:DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'extension_constructor_kind' my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'private_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'extension_constructor' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"extension_constructor|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'injectivity' my_process_core_type_list:DBG1:Ptyp_constr1 'variance' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"variance|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"injectivity|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG12C: let process_constructor_arguments__Pcstr_tuple x :string =match x with 
DBG12B:let process_types_constructor_arguments__Pcstr_tuple((alist0):(list)):string = (process_types ("constructor_arguments","Pcstr_tuple") ^(core_type2 "alist0"))
DBG12C:| Pcstr_tuple (emit_core_type_list list0) -> (process_types_constructor_arguments__Pcstr_tuple((process_list list0)))
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pcstr_tuple" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_constructor_arguments__Pcstr_record((alist0):(list)):string = (process_types ("constructor_arguments","Pcstr_record") ^(core_type2 "alist0"))
DBG12C:| Pcstr_record (emit_core_type_list list0) -> (process_types_constructor_arguments__Pcstr_record((process_list list0)))
DBG1:Ptyp_constr1 'label_declaration' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"label_declaration|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pcstr_record" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"label_declaration|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'constructor_arguments' my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'mutable_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG12C: let process_type_kind__Ptype_abstract x :string =match x with 
DBG12C:| Ptype_abstract (emit_core_type_list ) -> (process_types_type_kind__Ptype_abstract())
DBG1:constructor_declaration_new: (constructor "Ptype_abstract" {Pcstr_tuple:my_process_core_type_list:})
DBG12B:let process_types_type_kind__Ptype_variant((alist0):(list)):string = (process_types ("type_kind","Ptype_variant") ^(core_type2 "alist0"))
DBG12C:| Ptype_variant (emit_core_type_list list0) -> (process_types_type_kind__Ptype_variant((process_list list0)))
DBG1:Ptyp_constr1 'constructor_declaration' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"constructor_declaration|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ptype_variant" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"constructor_declaration|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_type_kind__Ptype_record((alist0):(list)):string = (process_types ("type_kind","Ptype_record") ^(core_type2 "alist0"))
DBG12C:| Ptype_record (emit_core_type_list list0) -> (process_types_type_kind__Ptype_record((process_list list0)))
DBG1:Ptyp_constr1 'label_declaration' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"label_declaration|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ptype_record" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"label_declaration|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12C:| Ptype_open (emit_core_type_list ) -> (process_types_type_kind__Ptype_open())
DBG1:constructor_declaration_new: (constructor "Ptype_open" {Pcstr_tuple:my_process_core_type_list:})
DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'private_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'type_kind' my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'injectivity' my_process_core_type_list:DBG1:Ptyp_constr1 'variance' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"variance|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"injectivity|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'pattern' my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'binding_op' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"binding_op|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'binding_op' my_process_core_type_list:DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'pattern' my_process_core_type_list:DBG12C: let process_expression_desc__Pexp_ident x :string =match x with 
DBG12B:let process_types_expression_desc__Pexp_ident((alongident_loc0):(longident_loc)):string = (process_types ("expression_desc","Pexp_ident") ^(core_type2 "alongident_loc0"))
DBG12C:| Pexp_ident (emit_core_type_list longident_loc0) -> (process_types_expression_desc__Pexp_ident((process_longident_loc longident_loc0)))
DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_ident" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_constant((aconstant0):(constant)):string = (process_types ("expression_desc","Pexp_constant") ^(core_type2 "aconstant0"))
DBG12C:| Pexp_constant (emit_core_type_list constant0) -> (process_types_expression_desc__Pexp_constant((process_constant constant0)))
DBG1:Ptyp_constr1 'constant' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_constant" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"constant|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_let((arec_flag0,alist1,aexpression2):(rec_flag*list*expression)):string = (process_types ("expression_desc","Pexp_let") ^(core_type2 "arec_flag0")^(core_type2 "alist1")^(core_type2 "aexpression2"))
DBG12C:| Pexp_let (emit_core_type_list rec_flag0,list1,expression2) -> (process_types_expression_desc__Pexp_let((process_rec_flag rec_flag0),(process_list list1),(process_expression expression2)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'value_binding' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"value_binding|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'rec_flag' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_let" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"rec_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"value_binding|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_function((acases0):(cases)):string = (process_types ("expression_desc","Pexp_function") ^(core_type2 "acases0"))
DBG12C:| Pexp_function (emit_core_type_list cases0) -> (process_types_expression_desc__Pexp_function((process_cases cases0)))
DBG1:Ptyp_constr1 'cases' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_function" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"cases|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_fun((aarg_label0,aoption1,apattern2,aexpression3):(arg_label*option*pattern*expression)):string = (process_types ("expression_desc","Pexp_fun") ^(core_type2 "aarg_label0")^(core_type2 "aoption1")^(core_type2 "apattern2")^(core_type2 "aexpression3"))
DBG12C:| Pexp_fun (emit_core_type_list arg_label0,option1,pattern2,expression3) -> (process_types_expression_desc__Pexp_fun((process_arg_label arg_label0),(process_option option1),(process_pattern pattern2),(process_expression expression3)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'pattern' my_process_core_type_list:DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'arg_label' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_fun" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"arg_label|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_apply((aexpression0,alist1):(expression*list)):string = (process_types ("expression_desc","Pexp_apply") ^(core_type2 "aexpression0")^(core_type2 "alist1"))
DBG12C:| Pexp_apply (emit_core_type_list expression0,list1) -> (process_types_expression_desc__Pexp_apply((process_expression expression0),(process_list list1)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'arg_label' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"arg_label|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_apply" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"arg_label|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_match((aexpression0,acases1):(expression*cases)):string = (process_types ("expression_desc","Pexp_match") ^(core_type2 "aexpression0")^(core_type2 "acases1"))
DBG12C:| Pexp_match (emit_core_type_list expression0,cases1) -> (process_types_expression_desc__Pexp_match((process_expression expression0),(process_cases cases1)))
DBG1:Ptyp_constr1 'cases' my_process_core_type_list:DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_match" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"cases|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_try((aexpression0,acases1):(expression*cases)):string = (process_types ("expression_desc","Pexp_try") ^(core_type2 "aexpression0")^(core_type2 "acases1"))
DBG12C:| Pexp_try (emit_core_type_list expression0,cases1) -> (process_types_expression_desc__Pexp_try((process_expression expression0),(process_cases cases1)))
DBG1:Ptyp_constr1 'cases' my_process_core_type_list:DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_try" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"cases|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_tuple((alist0):(list)):string = (process_types ("expression_desc","Pexp_tuple") ^(core_type2 "alist0"))
DBG12C:| Pexp_tuple (emit_core_type_list list0) -> (process_types_expression_desc__Pexp_tuple((process_list list0)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_tuple" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_construct((alongident_loc0,aoption1):(longident_loc*option)):string = (process_types ("expression_desc","Pexp_construct") ^(core_type2 "alongident_loc0")^(core_type2 "aoption1"))
DBG12C:| Pexp_construct (emit_core_type_list longident_loc0,option1) -> (process_types_expression_desc__Pexp_construct((process_longident_loc longident_loc0),(process_option option1)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_construct" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_variant((alabel0,aoption1):(label*option)):string = (process_types ("expression_desc","Pexp_variant") ^(core_type2 "alabel0")^(core_type2 "aoption1"))
DBG12C:| Pexp_variant (emit_core_type_list label0,option1) -> (process_types_expression_desc__Pexp_variant((process_label label0),(process_option option1)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_variant" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_record((alist0,aoption1):(list*option)):string = (process_types ("expression_desc","Pexp_record") ^(core_type2 "alist0")^(core_type2 "aoption1"))
DBG12C:| Pexp_record (emit_core_type_list list0,option1) -> (process_types_expression_desc__Pexp_record((process_list list0),(process_option option1)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_record" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_field((aexpression0,alongident_loc1):(expression*longident_loc)):string = (process_types ("expression_desc","Pexp_field") ^(core_type2 "aexpression0")^(core_type2 "alongident_loc1"))
DBG12C:| Pexp_field (emit_core_type_list expression0,longident_loc1) -> (process_types_expression_desc__Pexp_field((process_expression expression0),(process_longident_loc longident_loc1)))
DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_field" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_setfield((aexpression0,alongident_loc1,aexpression2):(expression*longident_loc*expression)):string = (process_types ("expression_desc","Pexp_setfield") ^(core_type2 "aexpression0")^(core_type2 "alongident_loc1")^(core_type2 "aexpression2"))
DBG12C:| Pexp_setfield (emit_core_type_list expression0,longident_loc1,expression2) -> (process_types_expression_desc__Pexp_setfield((process_expression expression0),(process_longident_loc longident_loc1),(process_expression expression2)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_setfield" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_array((alist0):(list)):string = (process_types ("expression_desc","Pexp_array") ^(core_type2 "alist0"))
DBG12C:| Pexp_array (emit_core_type_list list0) -> (process_types_expression_desc__Pexp_array((process_list list0)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_array" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_ifthenelse((aexpression0,aexpression1,aoption2):(expression*expression*option)):string = (process_types ("expression_desc","Pexp_ifthenelse") ^(core_type2 "aexpression0")^(core_type2 "aexpression1")^(core_type2 "aoption2"))
DBG12C:| Pexp_ifthenelse (emit_core_type_list expression0,expression1,option2) -> (process_types_expression_desc__Pexp_ifthenelse((process_expression expression0),(process_expression expression1),(process_option option2)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_ifthenelse" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_sequence((aexpression0,aexpression1):(expression*expression)):string = (process_types ("expression_desc","Pexp_sequence") ^(core_type2 "aexpression0")^(core_type2 "aexpression1"))
DBG12C:| Pexp_sequence (emit_core_type_list expression0,expression1) -> (process_types_expression_desc__Pexp_sequence((process_expression expression0),(process_expression expression1)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_sequence" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_while((aexpression0,aexpression1):(expression*expression)):string = (process_types ("expression_desc","Pexp_while") ^(core_type2 "aexpression0")^(core_type2 "aexpression1"))
DBG12C:| Pexp_while (emit_core_type_list expression0,expression1) -> (process_types_expression_desc__Pexp_while((process_expression expression0),(process_expression expression1)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_while" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_for((apattern0,aexpression1,aexpression2,adirection_flag3,aexpression4):(pattern*expression*expression*direction_flag*expression)):string = (process_types ("expression_desc","Pexp_for") ^(core_type2 "apattern0")^(core_type2 "aexpression1")^(core_type2 "aexpression2")^(core_type2 "adirection_flag3")^(core_type2 "aexpression4"))
DBG12C:| Pexp_for (emit_core_type_list pattern0,expression1,expression2,direction_flag3,expression4) -> (process_types_expression_desc__Pexp_for((process_pattern pattern0),(process_expression expression1),(process_expression expression2),(process_direction_flag direction_flag3),(process_expression expression4)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'direction_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'pattern' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_for" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"direction_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12A:let process_core_type x : core_type= x
DBG12A:let process_core_type x : core_type= x
DBG12B:let process_types_expression_desc__Pexp_constraint((aexpression0,acore_type1):(expression*core_type)):string = (process_types ("expression_desc","Pexp_constraint") ^(core_type2 "aexpression0")^(core_type2 "acore_type1"))
DBG12C:| Pexp_constraint (emit_core_type_list expression0,core_type1) -> (process_types_expression_desc__Pexp_constraint((process_expression expression0),(process_core_type core_type1)))
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_constraint" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12A:let process_core_type x : core_type= x
DBG12A:let process_core_type x : core_type= x
DBG12B:let process_types_expression_desc__Pexp_coerce((aexpression0,aoption1,acore_type2):(expression*option*core_type)):string = (process_types ("expression_desc","Pexp_coerce") ^(core_type2 "aexpression0")^(core_type2 "aoption1")^(core_type2 "acore_type2"))
DBG12C:| Pexp_coerce (emit_core_type_list expression0,option1,core_type2) -> (process_types_expression_desc__Pexp_coerce((process_expression expression0),(process_option option1),(process_core_type core_type2)))
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_coerce" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_send((aexpression0,aloc1):(expression*loc)):string = (process_types ("expression_desc","Pexp_send") ^(core_type2 "aexpression0")^(core_type2 "aloc1"))
DBG12C:| Pexp_send (emit_core_type_list expression0,loc1) -> (process_types_expression_desc__Pexp_send((process_expression expression0),(process_loc loc1)))
DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_send" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_new((alongident_loc0):(longident_loc)):string = (process_types ("expression_desc","Pexp_new") ^(core_type2 "alongident_loc0"))
DBG12C:| Pexp_new (emit_core_type_list longident_loc0) -> (process_types_expression_desc__Pexp_new((process_longident_loc longident_loc0)))
DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_new" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_setinstvar((aloc0,aexpression1):(loc*expression)):string = (process_types ("expression_desc","Pexp_setinstvar") ^(core_type2 "aloc0")^(core_type2 "aexpression1"))
DBG12C:| Pexp_setinstvar (emit_core_type_list loc0,expression1) -> (process_types_expression_desc__Pexp_setinstvar((process_loc loc0),(process_expression expression1)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_setinstvar" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_override((alist0):(list)):string = (process_types ("expression_desc","Pexp_override") ^(core_type2 "alist0"))
DBG12C:| Pexp_override (emit_core_type_list list0) -> (process_types_expression_desc__Pexp_override((process_list list0)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_override" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_letmodule((aloc0,amodule_expr1,aexpression2):(loc*module_expr*expression)):string = (process_types ("expression_desc","Pexp_letmodule") ^(core_type2 "aloc0")^(core_type2 "amodule_expr1")^(core_type2 "aexpression2"))
DBG12C:| Pexp_letmodule (emit_core_type_list loc0,module_expr1,expression2) -> (process_types_expression_desc__Pexp_letmodule((process_loc loc0),(process_module_expr module_expr1),(process_expression expression2)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'module_expr' my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_letmodule" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"module_expr|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_letexception((aextension_constructor0,aexpression1):(extension_constructor*expression)):string = (process_types ("expression_desc","Pexp_letexception") ^(core_type2 "aextension_constructor0")^(core_type2 "aexpression1"))
DBG12C:| Pexp_letexception (emit_core_type_list extension_constructor0,expression1) -> (process_types_expression_desc__Pexp_letexception((process_extension_constructor extension_constructor0),(process_expression expression1)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'extension_constructor' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_letexception" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"extension_constructor|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_assert((aexpression0):(expression)):string = (process_types ("expression_desc","Pexp_assert") ^(core_type2 "aexpression0"))
DBG12C:| Pexp_assert (emit_core_type_list expression0) -> (process_types_expression_desc__Pexp_assert((process_expression expression0)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_assert" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_lazy((aexpression0):(expression)):string = (process_types ("expression_desc","Pexp_lazy") ^(core_type2 "aexpression0"))
DBG12C:| Pexp_lazy (emit_core_type_list expression0) -> (process_types_expression_desc__Pexp_lazy((process_expression expression0)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_lazy" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_poly((aexpression0,aoption1):(expression*option)):string = (process_types ("expression_desc","Pexp_poly") ^(core_type2 "aexpression0")^(core_type2 "aoption1"))
DBG12C:| Pexp_poly (emit_core_type_list expression0,option1) -> (process_types_expression_desc__Pexp_poly((process_expression expression0),(process_option option1)))
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_poly" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_object((aclass_structure0):(class_structure)):string = (process_types ("expression_desc","Pexp_object") ^(core_type2 "aclass_structure0"))
DBG12C:| Pexp_object (emit_core_type_list class_structure0) -> (process_types_expression_desc__Pexp_object((process_class_structure class_structure0)))
DBG1:Ptyp_constr1 'class_structure' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_object" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"class_structure|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_newtype((aloc0,aexpression1):(loc*expression)):string = (process_types ("expression_desc","Pexp_newtype") ^(core_type2 "aloc0")^(core_type2 "aexpression1"))
DBG12C:| Pexp_newtype (emit_core_type_list loc0,expression1) -> (process_types_expression_desc__Pexp_newtype((process_loc loc0),(process_expression expression1)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_newtype" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_pack((amodule_expr0):(module_expr)):string = (process_types ("expression_desc","Pexp_pack") ^(core_type2 "amodule_expr0"))
DBG12C:| Pexp_pack (emit_core_type_list module_expr0) -> (process_types_expression_desc__Pexp_pack((process_module_expr module_expr0)))
DBG1:Ptyp_constr1 'module_expr' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_pack" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"module_expr|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_open((aopen_declaration0,aexpression1):(open_declaration*expression)):string = (process_types ("expression_desc","Pexp_open") ^(core_type2 "aopen_declaration0")^(core_type2 "aexpression1"))
DBG12C:| Pexp_open (emit_core_type_list open_declaration0,expression1) -> (process_types_expression_desc__Pexp_open((process_open_declaration open_declaration0),(process_expression expression1)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'open_declaration' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_open" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"open_declaration|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_letop((aletop0):(letop)):string = (process_types ("expression_desc","Pexp_letop") ^(core_type2 "aletop0"))
DBG12C:| Pexp_letop (emit_core_type_list letop0) -> (process_types_expression_desc__Pexp_letop((process_letop letop0)))
DBG1:Ptyp_constr1 'letop' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_letop" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"letop|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_expression_desc__Pexp_extension((aextension0):(extension)):string = (process_types ("expression_desc","Pexp_extension") ^(core_type2 "aextension0"))
DBG12C:| Pexp_extension (emit_core_type_list extension0) -> (process_types_expression_desc__Pexp_extension((process_extension extension0)))
DBG1:Ptyp_constr1 'extension' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pexp_extension" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"extension|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12C:| Pexp_unreachable (emit_core_type_list ) -> (process_types_expression_desc__Pexp_unreachable())
DBG1:constructor_declaration_new: (constructor "Pexp_unreachable" {Pcstr_tuple:my_process_core_type_list:})
DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'location_stack' my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'expression_desc' my_process_core_type_list:DBG12C: let process_pattern_desc__Ppat_any x :string =match x with 
DBG12C:| Ppat_any (emit_core_type_list ) -> (process_types_pattern_desc__Ppat_any())
DBG1:constructor_declaration_new: (constructor "Ppat_any" {Pcstr_tuple:my_process_core_type_list:})
DBG12B:let process_types_pattern_desc__Ppat_var((aloc0):(loc)):string = (process_types ("pattern_desc","Ppat_var") ^(core_type2 "aloc0"))
DBG12C:| Ppat_var (emit_core_type_list loc0) -> (process_types_pattern_desc__Ppat_var((process_loc loc0)))
DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ppat_var" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_pattern_desc__Ppat_alias((apattern0,aloc1):(pattern*loc)):string = (process_types ("pattern_desc","Ppat_alias") ^(core_type2 "apattern0")^(core_type2 "aloc1"))
DBG12C:| Ppat_alias (emit_core_type_list pattern0,loc1) -> (process_types_pattern_desc__Ppat_alias((process_pattern pattern0),(process_loc loc1)))
DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'pattern' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ppat_alias" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_pattern_desc__Ppat_constant((aconstant0):(constant)):string = (process_types ("pattern_desc","Ppat_constant") ^(core_type2 "aconstant0"))
DBG12C:| Ppat_constant (emit_core_type_list constant0) -> (process_types_pattern_desc__Ppat_constant((process_constant constant0)))
DBG1:Ptyp_constr1 'constant' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ppat_constant" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"constant|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_pattern_desc__Ppat_interval((aconstant0,aconstant1):(constant*constant)):string = (process_types ("pattern_desc","Ppat_interval") ^(core_type2 "aconstant0")^(core_type2 "aconstant1"))
DBG12C:| Ppat_interval (emit_core_type_list constant0,constant1) -> (process_types_pattern_desc__Ppat_interval((process_constant constant0),(process_constant constant1)))
DBG1:Ptyp_constr1 'constant' my_process_core_type_list:DBG1:Ptyp_constr1 'constant' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ppat_interval" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"constant|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"constant|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_pattern_desc__Ppat_tuple((alist0):(list)):string = (process_types ("pattern_desc","Ppat_tuple") ^(core_type2 "alist0"))
DBG12C:| Ppat_tuple (emit_core_type_list list0) -> (process_types_pattern_desc__Ppat_tuple((process_list list0)))
DBG1:Ptyp_constr1 'pattern' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ppat_tuple" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_pattern_desc__Ppat_construct((alongident_loc0,aoption1):(longident_loc*option)):string = (process_types ("pattern_desc","Ppat_construct") ^(core_type2 "alongident_loc0")^(core_type2 "aoption1"))
DBG12C:| Ppat_construct (emit_core_type_list longident_loc0,option1) -> (process_types_pattern_desc__Ppat_construct((process_longident_loc longident_loc0),(process_option option1)))
DBG1:Ptyp_constr1 'pattern' my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ppat_construct" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_pattern_desc__Ppat_variant((alabel0,aoption1):(label*option)):string = (process_types ("pattern_desc","Ppat_variant") ^(core_type2 "alabel0")^(core_type2 "aoption1"))
DBG12C:| Ppat_variant (emit_core_type_list label0,option1) -> (process_types_pattern_desc__Ppat_variant((process_label label0),(process_option option1)))
DBG1:Ptyp_constr1 'pattern' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ppat_variant" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_pattern_desc__Ppat_record((alist0,aclosed_flag1):(list*closed_flag)):string = (process_types ("pattern_desc","Ppat_record") ^(core_type2 "alist0")^(core_type2 "aclosed_flag1"))
DBG12C:| Ppat_record (emit_core_type_list list0,closed_flag1) -> (process_types_pattern_desc__Ppat_record((process_list list0),(process_closed_flag closed_flag1)))
DBG1:Ptyp_constr1 'closed_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'pattern' my_process_core_type_list:DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ppat_record" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"closed_flag|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_pattern_desc__Ppat_array((alist0):(list)):string = (process_types ("pattern_desc","Ppat_array") ^(core_type2 "alist0"))
DBG12C:| Ppat_array (emit_core_type_list list0) -> (process_types_pattern_desc__Ppat_array((process_list list0)))
DBG1:Ptyp_constr1 'pattern' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ppat_array" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_pattern_desc__Ppat_or((apattern0,apattern1):(pattern*pattern)):string = (process_types ("pattern_desc","Ppat_or") ^(core_type2 "apattern0")^(core_type2 "apattern1"))
DBG12C:| Ppat_or (emit_core_type_list pattern0,pattern1) -> (process_types_pattern_desc__Ppat_or((process_pattern pattern0),(process_pattern pattern1)))
DBG1:Ptyp_constr1 'pattern' my_process_core_type_list:DBG1:Ptyp_constr1 'pattern' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ppat_or" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12A:let process_core_type x : core_type= x
DBG12A:let process_core_type x : core_type= x
DBG12B:let process_types_pattern_desc__Ppat_constraint((apattern0,acore_type1):(pattern*core_type)):string = (process_types ("pattern_desc","Ppat_constraint") ^(core_type2 "apattern0")^(core_type2 "acore_type1"))
DBG12C:| Ppat_constraint (emit_core_type_list pattern0,core_type1) -> (process_types_pattern_desc__Ppat_constraint((process_pattern pattern0),(process_core_type core_type1)))
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'pattern' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ppat_constraint" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_pattern_desc__Ppat_type((alongident_loc0):(longident_loc)):string = (process_types ("pattern_desc","Ppat_type") ^(core_type2 "alongident_loc0"))
DBG12C:| Ppat_type (emit_core_type_list longident_loc0) -> (process_types_pattern_desc__Ppat_type((process_longident_loc longident_loc0)))
DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ppat_type" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_pattern_desc__Ppat_lazy((apattern0):(pattern)):string = (process_types ("pattern_desc","Ppat_lazy") ^(core_type2 "apattern0"))
DBG12C:| Ppat_lazy (emit_core_type_list pattern0) -> (process_types_pattern_desc__Ppat_lazy((process_pattern pattern0)))
DBG1:Ptyp_constr1 'pattern' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ppat_lazy" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_pattern_desc__Ppat_unpack((aloc0):(loc)):string = (process_types ("pattern_desc","Ppat_unpack") ^(core_type2 "aloc0"))
DBG12C:| Ppat_unpack (emit_core_type_list loc0) -> (process_types_pattern_desc__Ppat_unpack((process_loc loc0)))
DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ppat_unpack" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_pattern_desc__Ppat_exception((apattern0):(pattern)):string = (process_types ("pattern_desc","Ppat_exception") ^(core_type2 "apattern0"))
DBG12C:| Ppat_exception (emit_core_type_list pattern0) -> (process_types_pattern_desc__Ppat_exception((process_pattern pattern0)))
DBG1:Ptyp_constr1 'pattern' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ppat_exception" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_pattern_desc__Ppat_extension((aextension0):(extension)):string = (process_types ("pattern_desc","Ppat_extension") ^(core_type2 "aextension0"))
DBG12C:| Ppat_extension (emit_core_type_list extension0) -> (process_types_pattern_desc__Ppat_extension((process_extension extension0)))
DBG1:Ptyp_constr1 'extension' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ppat_extension" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"extension|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_pattern_desc__Ppat_open((alongident_loc0,apattern1):(longident_loc*pattern)):string = (process_types ("pattern_desc","Ppat_open") ^(core_type2 "alongident_loc0")^(core_type2 "apattern1"))
DBG12C:| Ppat_open (emit_core_type_list longident_loc0,pattern1) -> (process_types_pattern_desc__Ppat_open((process_longident_loc longident_loc0),(process_pattern pattern1)))
DBG1:Ptyp_constr1 'pattern' my_process_core_type_list:DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ppat_open" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'location_stack' my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'pattern_desc' my_process_core_type_list:DBG12C: let process_object_field_desc__Otag x :string =match x with 
DBG12A:let process_core_type x : core_type= x
DBG12A:let process_core_type x : core_type= x
DBG12B:let process_types_object_field_desc__Otag((aloc0,acore_type1):(loc*core_type)):string = (process_types ("object_field_desc","Otag") ^(core_type2 "aloc0")^(core_type2 "acore_type1"))
DBG12C:| Otag (emit_core_type_list loc0,core_type1) -> (process_types_object_field_desc__Otag((process_loc loc0),(process_core_type core_type1)))
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Otag" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12A:let process_core_type x : core_type= x
DBG12A:let process_core_type x : core_type= x
DBG12B:let process_types_object_field_desc__Oinherit((acore_type0):(core_type)):string = (process_types ("object_field_desc","Oinherit") ^(core_type2 "acore_type0"))
DBG12C:| Oinherit (emit_core_type_list core_type0) -> (process_types_object_field_desc__Oinherit((process_core_type core_type0)))
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Oinherit" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'object_field_desc' my_process_core_type_list:DBG12C: let process_row_field_desc__Rtag x :string =match x with 
DBG12B:let process_types_row_field_desc__Rtag((aloc0,abool1,alist2):(loc*bool*list)):string = (process_types ("row_field_desc","Rtag") ^(core_type2 "aloc0")^(core_type2 "abool1")^(core_type2 "alist2"))
DBG12C:| Rtag (emit_core_type_list loc0,bool1,list2) -> (process_types_row_field_desc__Rtag((process_loc loc0),(process_bool bool1),(process_list list2)))
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'bool' my_process_core_type_list:DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Rtag" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"bool|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12A:let process_core_type x : core_type= x
DBG12A:let process_core_type x : core_type= x
DBG12B:let process_types_row_field_desc__Rinherit((acore_type0):(core_type)):string = (process_types ("row_field_desc","Rinherit") ^(core_type2 "acore_type0"))
DBG12C:| Rinherit (emit_core_type_list core_type0) -> (process_types_row_field_desc__Rinherit((process_core_type core_type0)))
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Rinherit" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'row_field_desc' my_process_core_type_list:DBG12C: let process_core_type_desc__Ptyp_any x :string =match x with 
DBG12B:let process_types_core_type_desc__Ptyp_any(():()):string = (process_types ("core_type_desc","Ptyp_any") ^)
DBG12C:| Ptyp_any (emit_core_type_list ) -> (process_types_core_type_desc__Ptyp_any())
DBG1:constructor_declaration_new: (constructor "Ptyp_any" {Pcstr_tuple:my_process_core_type_list:})
DBG12C: let process_core_type_desc__Ptyp_var x :string =match x with 
DBG12B:let process_types_core_type_desc__Ptyp_var((astring0):(string)):string = (process_types ("core_type_desc","Ptyp_var") ^(core_type2 "astring0"))
DBG12C:| Ptyp_var (emit_core_type_list string0) -> (process_types_core_type_desc__Ptyp_var((process_string string0)))
DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ptyp_var" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12C: let process_core_type_desc__Ptyp_arrow x :string =match x with 
DBG12A:let process_core_type x : core_type= x
DBG12A:let process_core_type x : core_type= x
DBG12A:let process_core_type x : core_type= x
DBG12A:let process_core_type x : core_type= x
DBG12B:let process_types_core_type_desc__Ptyp_arrow((aarg_label0,acore_type1,acore_type2):(arg_label*core_type*core_type)):string = (process_types ("core_type_desc","Ptyp_arrow") ^(core_type2 "aarg_label0")^(core_type2 "acore_type1")^(core_type2 "acore_type2"))
DBG12C:| Ptyp_arrow (emit_core_type_list arg_label0,core_type1,core_type2) -> (process_types_core_type_desc__Ptyp_arrow((process_arg_label arg_label0),(process_core_type core_type1),(process_core_type core_type2)))
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'arg_label' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ptyp_arrow" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"arg_label|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12C: let process_core_type_desc__Ptyp_tuple x :string =match x with 
DBG12B:let process_types_core_type_desc__Ptyp_tuple((alist0):(list)):string = (process_types ("core_type_desc","Ptyp_tuple") ^(core_type2 "alist0"))
DBG12C:| Ptyp_tuple (emit_core_type_list list0) -> (process_types_core_type_desc__Ptyp_tuple((process_list list0)))
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ptyp_tuple" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12C: let process_core_type_desc__Ptyp_constr x :string =match x with 
DBG12B:let process_types_core_type_desc__Ptyp_constr((alongident_loc0,alist1):(longident_loc*list)):string = (process_types ("core_type_desc","Ptyp_constr") ^(core_type2 "alongident_loc0")^(core_type2 "alist1"))
DBG12C:| Ptyp_constr (emit_core_type_list longident_loc0,list1) -> (process_types_core_type_desc__Ptyp_constr((process_longident_loc longident_loc0),(process_list list1)))
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ptyp_constr" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12C: let process_core_type_desc__Ptyp_object x :string =match x with 
DBG12B:let process_types_core_type_desc__Ptyp_object((alist0,aclosed_flag1):(list*closed_flag)):string = (process_types ("core_type_desc","Ptyp_object") ^(core_type2 "alist0")^(core_type2 "aclosed_flag1"))
DBG12C:| Ptyp_object (emit_core_type_list list0,closed_flag1) -> (process_types_core_type_desc__Ptyp_object((process_list list0),(process_closed_flag closed_flag1)))
DBG1:Ptyp_constr1 'closed_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'object_field' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"object_field|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ptyp_object" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"object_field|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"closed_flag|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12C: let process_core_type_desc__Ptyp_class x :string =match x with 
DBG12B:let process_types_core_type_desc__Ptyp_class((alongident_loc0,alist1):(longident_loc*list)):string = (process_types ("core_type_desc","Ptyp_class") ^(core_type2 "alongident_loc0")^(core_type2 "alist1"))
DBG12C:| Ptyp_class (emit_core_type_list longident_loc0,list1) -> (process_types_core_type_desc__Ptyp_class((process_longident_loc longident_loc0),(process_list list1)))
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'longident_loc' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ptyp_class" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12C: let process_core_type_desc__Ptyp_alias x :string =match x with 
DBG12A:let process_core_type x : core_type= x
DBG12A:let process_core_type x : core_type= x
DBG12B:let process_types_core_type_desc__Ptyp_alias((acore_type0,astring1):(core_type*string)):string = (process_types ("core_type_desc","Ptyp_alias") ^(core_type2 "acore_type0")^(core_type2 "astring1"))
DBG12C:| Ptyp_alias (emit_core_type_list core_type0,string1) -> (process_types_core_type_desc__Ptyp_alias((process_core_type core_type0),(process_string string1)))
DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ptyp_alias" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12C: let process_core_type_desc__Ptyp_variant x :string =match x with 
DBG12B:let process_types_core_type_desc__Ptyp_variant((alist0,aclosed_flag1,aoption2):(list*closed_flag*option)):string = (process_types ("core_type_desc","Ptyp_variant") ^(core_type2 "alist0")^(core_type2 "aclosed_flag1")^(core_type2 "aoption2"))
DBG12C:| Ptyp_variant (emit_core_type_list list0,closed_flag1,option2) -> (process_types_core_type_desc__Ptyp_variant((process_list list0),(process_closed_flag closed_flag1),(process_option option2)))
DBG1:Ptyp_constr1 'label' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'closed_flag' my_process_core_type_list:DBG1:Ptyp_constr1 'row_field' my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"row_field|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ptyp_variant" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"row_field|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"closed_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12C: let process_core_type_desc__Ptyp_poly x :string =match x with 
DBG12A:let process_core_type x : core_type= x
DBG12A:let process_core_type x : core_type= x
DBG12B:let process_types_core_type_desc__Ptyp_poly((alist0,acore_type1):(list*core_type)):string = (process_types ("core_type_desc","Ptyp_poly") ^(core_type2 "alist0")^(core_type2 "acore_type1"))
DBG12C:| Ptyp_poly (emit_core_type_list list0,core_type1) -> (process_types_core_type_desc__Ptyp_poly((process_list list0),(process_core_type core_type1)))
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'list' ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ptyp_poly" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12C: let process_core_type_desc__Ptyp_package x :string =match x with 
DBG12B:let process_types_core_type_desc__Ptyp_package((apackage_type0):(package_type)):string = (process_types ("core_type_desc","Ptyp_package") ^(core_type2 "apackage_type0"))
DBG12C:| Ptyp_package (emit_core_type_list package_type0) -> (process_types_core_type_desc__Ptyp_package((process_package_type package_type0)))
DBG1:Ptyp_constr1 'package_type' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ptyp_package" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"package_type|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12C: let process_core_type_desc__Ptyp_extension x :string =match x with 
DBG12B:let process_types_core_type_desc__Ptyp_extension((aextension0):(extension)):string = (process_types ("core_type_desc","Ptyp_extension") ^(core_type2 "aextension0"))
DBG12C:| Ptyp_extension (emit_core_type_list extension0) -> (process_types_core_type_desc__Ptyp_extension((process_extension extension0)))
DBG1:Ptyp_constr1 'extension' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ptyp_extension" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"extension|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'attributes' my_process_core_type_list:DBG1:Ptyp_constr1 'location_stack' my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'core_type_desc' my_process_core_type_list:DBG12C: let process_payload__PStr x :string =match x with 
DBG12B:let process_types_payload__PStr((astructure0):(structure)):string = (process_types ("payload","PStr") ^(core_type2 "astructure0"))
DBG12C:| PStr (emit_core_type_list structure0) -> (process_types_payload__PStr((process_structure structure0)))
DBG1:Ptyp_constr1 'structure' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "PStr" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"structure|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_payload__PSig((asignature0):(signature)):string = (process_types ("payload","PSig") ^(core_type2 "asignature0"))
DBG12C:| PSig (emit_core_type_list signature0) -> (process_types_payload__PSig((process_signature signature0)))
DBG1:Ptyp_constr1 'signature' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "PSig" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"signature|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12A:let process_core_type x : core_type= x
DBG12A:let process_core_type x : core_type= x
DBG12B:let process_types_payload__PTyp((acore_type0):(core_type)):string = (process_types ("payload","PTyp") ^(core_type2 "acore_type0"))
DBG12C:| PTyp (emit_core_type_list core_type0) -> (process_types_payload__PTyp((process_core_type core_type0)))
DBG1:Ptyp_constr1 'core_type' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "PTyp" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_payload__PPat((apattern0,aoption1):(pattern*option)):string = (process_types ("payload","PPat") ^(core_type2 "apattern0")^(core_type2 "aoption1"))
DBG12C:| PPat (emit_core_type_list pattern0,option1) -> (process_types_payload__PPat((process_pattern pattern0),(process_option option1)))
DBG1:Ptyp_constr1 'expression' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'pattern' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "PPat" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'payload' my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'loc' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG12C: let process_constant__Pconst_integer x :string =match x with 
DBG12B:let process_types_constant__Pconst_integer((astring0,aoption1):(string*option)):string = (process_types ("constant","Pconst_integer") ^(core_type2 "astring0")^(core_type2 "aoption1"))
DBG12C:| Pconst_integer (emit_core_type_list string0,option1) -> (process_types_constant__Pconst_integer((process_string string0),(process_option option1)))
DBG1:Ptyp_constr1 'char' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"char|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pconst_integer" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"char|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_constant__Pconst_char((achar0):(char)):string = (process_types ("constant","Pconst_char") ^(core_type2 "achar0"))
DBG12C:| Pconst_char (emit_core_type_list char0) -> (process_types_constant__Pconst_char((process_char char0)))
DBG1:Ptyp_constr1 'char' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pconst_char" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"char|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_constant__Pconst_string((astring0,alocation1,aoption2):(string*location*option)):string = (process_types ("constant","Pconst_string") ^(core_type2 "astring0")^(core_type2 "alocation1")^(core_type2 "aoption2"))
DBG12C:| Pconst_string (emit_core_type_list string0,location1,option2) -> (process_types_constant__Pconst_string((process_string string0),(process_location location1),(process_option option2)))
DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pconst_string" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_constant__Pconst_float((astring0,aoption1):(string*option)):string = (process_types ("constant","Pconst_float") ^(core_type2 "astring0")^(core_type2 "aoption1"))
DBG12C:| Pconst_float (emit_core_type_list string0,option1) -> (process_types_constant__Pconst_float((process_string string0),(process_option option1)))
DBG1:Ptyp_constr1 'char' my_process_core_type_list:DBG1:Ptyp_constr1 'option' ptyp_desc:(Ptyp_constr:"char|") ->my_process_core_type_list:,my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Pconst_float" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"char|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
DBG12C:| Injective (emit_core_type_list ) -> (process_types_injectivity__Injective())
DBG1:constructor_declaration_new: (constructor "Injective" {Pcstr_tuple:my_process_core_type_list:})
DBG12C:| NoInjectivity (emit_core_type_list ) -> (process_types_injectivity__NoInjectivity())
DBG1:constructor_declaration_new: (constructor "NoInjectivity" {Pcstr_tuple:my_process_core_type_list:})
DBG12C:| Covariant (emit_core_type_list ) -> (process_types_variance__Covariant())
DBG1:constructor_declaration_new: (constructor "Covariant" {Pcstr_tuple:my_process_core_type_list:})
DBG12C:| Contravariant (emit_core_type_list ) -> (process_types_variance__Contravariant())
DBG1:constructor_declaration_new: (constructor "Contravariant" {Pcstr_tuple:my_process_core_type_list:})
DBG12C:| NoVariance (emit_core_type_list ) -> (process_types_variance__NoVariance())
DBG1:constructor_declaration_new: (constructor "NoVariance" {Pcstr_tuple:my_process_core_type_list:})
DBG12C:| Nolabel (emit_core_type_list ) -> (process_types_arg_label__Nolabel())
DBG1:constructor_declaration_new: (constructor "Nolabel" {Pcstr_tuple:my_process_core_type_list:})
DBG12B:let process_types_arg_label__Labelled((astring0):(string)):string = (process_types ("arg_label","Labelled") ^(core_type2 "astring0"))
DBG12C:| Labelled (emit_core_type_list string0) -> (process_types_arg_label__Labelled((process_string string0)))
DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Labelled" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_arg_label__Optional((astring0):(string)):string = (process_types ("arg_label","Optional") ^(core_type2 "astring0"))
DBG12C:| Optional (emit_core_type_list string0) -> (process_types_arg_label__Optional((process_string string0)))
DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Optional" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12C:| Closed (emit_core_type_list ) -> (process_types_closed_flag__Closed())
DBG1:constructor_declaration_new: (constructor "Closed" {Pcstr_tuple:my_process_core_type_list:})
DBG12C:| Open (emit_core_type_list ) -> (process_types_closed_flag__Open())
DBG1:constructor_declaration_new: (constructor "Open" {Pcstr_tuple:my_process_core_type_list:})
DBG12C:| Override (emit_core_type_list ) -> (process_types_override_flag__Override())
DBG1:constructor_declaration_new: (constructor "Override" {Pcstr_tuple:my_process_core_type_list:})
DBG12C:| Fresh (emit_core_type_list ) -> (process_types_override_flag__Fresh())
DBG1:constructor_declaration_new: (constructor "Fresh" {Pcstr_tuple:my_process_core_type_list:})
DBG12C:| Virtual (emit_core_type_list ) -> (process_types_virtual_flag__Virtual())
DBG1:constructor_declaration_new: (constructor "Virtual" {Pcstr_tuple:my_process_core_type_list:})
DBG12C:| Concrete (emit_core_type_list ) -> (process_types_virtual_flag__Concrete())
DBG1:constructor_declaration_new: (constructor "Concrete" {Pcstr_tuple:my_process_core_type_list:})
DBG12C:| Immutable (emit_core_type_list ) -> (process_types_mutable_flag__Immutable())
DBG1:constructor_declaration_new: (constructor "Immutable" {Pcstr_tuple:my_process_core_type_list:})
DBG12C:| Mutable (emit_core_type_list ) -> (process_types_mutable_flag__Mutable())
DBG1:constructor_declaration_new: (constructor "Mutable" {Pcstr_tuple:my_process_core_type_list:})
DBG12C:| Private (emit_core_type_list ) -> (process_types_private_flag__Private())
DBG1:constructor_declaration_new: (constructor "Private" {Pcstr_tuple:my_process_core_type_list:})
DBG12C:| Public (emit_core_type_list ) -> (process_types_private_flag__Public())
DBG1:constructor_declaration_new: (constructor "Public" {Pcstr_tuple:my_process_core_type_list:})
DBG12C:| Upto (emit_core_type_list ) -> (process_types_direction_flag__Upto())
DBG1:constructor_declaration_new: (constructor "Upto" {Pcstr_tuple:my_process_core_type_list:})
DBG12C:| Downto (emit_core_type_list ) -> (process_types_direction_flag__Downto())
DBG1:constructor_declaration_new: (constructor "Downto" {Pcstr_tuple:my_process_core_type_list:})
DBG12C:| Nonrecursive (emit_core_type_list ) -> (process_types_rec_flag__Nonrecursive())
DBG1:constructor_declaration_new: (constructor "Nonrecursive" {Pcstr_tuple:my_process_core_type_list:})
DBG12C:| Recursive (emit_core_type_list ) -> (process_types_rec_flag__Recursive())
DBG1:constructor_declaration_new: (constructor "Recursive" {Pcstr_tuple:my_process_core_type_list:})
DBG12B:let process_types_longident__Lident((astring0):(string)):string = (process_types ("longident","Lident") ^(core_type2 "astring0"))
DBG12C:| Lident (emit_core_type_list string0) -> (process_types_longident__Lident((process_string string0)))
DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Lident" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_longident__Ldot((alongident0,astring1):(longident*string)):string = (process_types ("longident","Ldot") ^(core_type2 "alongident0")^(core_type2 "astring1"))
DBG12C:| Ldot (emit_core_type_list longident0,string1) -> (process_types_longident__Ldot((process_longident longident0),(process_string string1)))
DBG1:Ptyp_constr1 'string' my_process_core_type_list:DBG1:Ptyp_constr1 'longident' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Ldot" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG12B:let process_types_longident__Lapply((alongident0,alongident1):(longident*longident)):string = (process_types ("longident","Lapply") ^(core_type2 "alongident0")^(core_type2 "alongident1"))
DBG12C:| Lapply (emit_core_type_list longident0,longident1) -> (process_types_longident__Lapply((process_longident longident0),(process_longident longident1)))
DBG1:Ptyp_constr1 'longident' my_process_core_type_list:DBG1:Ptyp_constr1 'longident' my_process_core_type_list:DBG1:constructor_declaration_new: (constructor "Lapply" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"longident|") ->my_process_core_type_list:,my_process_core_type_list:})
DBG1:Ptyp_constr1 'location' my_process_core_type_list:DBG1:Ptyp_constr1 'bool' my_process_core_type_list:DBG1:Ptyp_constr1 'position' my_process_core_type_list:DBG1:Ptyp_constr1 'position' my_process_core_type_list:DBG1:Ptyp_constr1 'int' my_process_core_type_list:DBG1:Ptyp_constr1 'int' my_process_core_type_list:DBG1:Ptyp_constr1 'int' my_process_core_type_list:DBG1:Ptyp_constr1 'string' my_process_core_type_list:TOPstructure_item_desc:(print_structure_item_desc _attribute)
TOPstructure_item_desc:(print_structure_item_desc (emit_pstr_type)print_type_decl:"position123" = (process_record_kind "pos_fname" (body ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:))/(process_record_kind "pos_lnum" (body ptyp_desc:(Ptyp_constr:"int|") ->my_process_core_type_list:))/(process_record_kind "pos_bol" (body ptyp_desc:(Ptyp_constr:"int|") ->my_process_core_type_list:))/(process_record_kind "pos_cnum" (body ptyp_desc:(Ptyp_constr:"int|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"location123" = (process_record_kind "loc_start" (body ptyp_desc:(Ptyp_constr:"position|") ->my_process_core_type_list:))/(process_record_kind "loc_end" (body ptyp_desc:(Ptyp_constr:"position|") ->my_process_core_type_list:))/(process_record_kind "loc_ghost" (body ptyp_desc:(Ptyp_constr:"bool|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"location" = DBG1:Ptype_abstract;print_type_decl:"position" = DBG1:Ptype_abstract;print_type_decl:"location_stack" = DBG1:Ptype_abstract;print_type_decl:"loc" = (process_record_kind "txt" (body ptyp_desc:var-name))/(process_record_kind "loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"longident" = (Ptype_variant (constructor "Lident" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Ldot" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Lapply" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"longident|") ->my_process_core_type_list:,my_process_core_type_list:})
);print_type_decl:"longident_loc" = DBG1:Ptype_abstract;print_type_decl:"rec_flag" = (Ptype_variant (constructor "Nonrecursive" {Pcstr_tuple:my_process_core_type_list:})(constructor "Recursive" {Pcstr_tuple:my_process_core_type_list:})
);print_type_decl:"direction_flag" = (Ptype_variant (constructor "Upto" {Pcstr_tuple:my_process_core_type_list:})(constructor "Downto" {Pcstr_tuple:my_process_core_type_list:})
);print_type_decl:"private_flag" = (Ptype_variant (constructor "Private" {Pcstr_tuple:my_process_core_type_list:})(constructor "Public" {Pcstr_tuple:my_process_core_type_list:})
);print_type_decl:"mutable_flag" = (Ptype_variant (constructor "Immutable" {Pcstr_tuple:my_process_core_type_list:})(constructor "Mutable" {Pcstr_tuple:my_process_core_type_list:})
);print_type_decl:"virtual_flag" = (Ptype_variant (constructor "Virtual" {Pcstr_tuple:my_process_core_type_list:})(constructor "Concrete" {Pcstr_tuple:my_process_core_type_list:})
);print_type_decl:"override_flag" = (Ptype_variant (constructor "Override" {Pcstr_tuple:my_process_core_type_list:})(constructor "Fresh" {Pcstr_tuple:my_process_core_type_list:})
);print_type_decl:"closed_flag" = (Ptype_variant (constructor "Closed" {Pcstr_tuple:my_process_core_type_list:})(constructor "Open" {Pcstr_tuple:my_process_core_type_list:})
);print_type_decl:"label" = DBG1:Ptype_abstract;print_type_decl:"arg_label" = (Ptype_variant (constructor "Nolabel" {Pcstr_tuple:my_process_core_type_list:})(constructor "Labelled" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Optional" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:})
);print_type_decl:"variance" = (Ptype_variant (constructor "Covariant" {Pcstr_tuple:my_process_core_type_list:})(constructor "Contravariant" {Pcstr_tuple:my_process_core_type_list:})(constructor "NoVariance" {Pcstr_tuple:my_process_core_type_list:})
);print_type_decl:"injectivity" = (Ptype_variant (constructor "Injective" {Pcstr_tuple:my_process_core_type_list:})(constructor "NoInjectivity" {Pcstr_tuple:my_process_core_type_list:})
);print_type_decl:"constant" = (Ptype_variant (constructor "Pconst_integer" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"char|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pconst_char" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"char|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pconst_string" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pconst_float" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"char|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
);print_type_decl:"attribute" = (process_record_kind "attr_name" (body ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "attr_payload" (body ptyp_desc:(Ptyp_constr:"payload|") ->my_process_core_type_list:))/(process_record_kind "attr_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"extension" = DBG1:Ptype_abstract;print_type_decl:"attributes" = DBG1:Ptype_abstract;print_type_decl:"payload" = (Ptype_variant (constructor "PStr" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"structure|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "PSig" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"signature|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "PTyp" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "PPat" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
);print_type_decl:"core_type" = (process_record_kind "ptyp_desc" (body ptyp_desc:(Ptyp_constr:"core_type_desc|") ->my_process_core_type_list:))/(process_record_kind "ptyp_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/(process_record_kind "ptyp_loc_stack" (body ptyp_desc:(Ptyp_constr:"location_stack|") ->my_process_core_type_list:))/(process_record_kind "ptyp_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"core_type_desc" = (Ptype_variant (constructor "Ptyp_any" {Pcstr_tuple:my_process_core_type_list:})(constructor "Ptyp_var" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Ptyp_arrow" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"arg_label|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Ptyp_tuple" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Ptyp_constr" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Ptyp_object" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"object_field|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"closed_flag|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Ptyp_class" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Ptyp_alias" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Ptyp_variant" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"row_field|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"closed_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Ptyp_poly" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Ptyp_package" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"package_type|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Ptyp_extension" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"extension|") ->my_process_core_type_list:,my_process_core_type_list:})
DEBUG3A: let process_variant_core_type_desc(x:core_type_desc)=
);print_type_decl:"package_type" = DBG1:Ptype_abstract;print_type_decl:"row_field" = (process_record_kind "prf_desc" (body ptyp_desc:(Ptyp_constr:"row_field_desc|") ->my_process_core_type_list:))/(process_record_kind "prf_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/(process_record_kind "prf_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"row_field_desc" = (Ptype_variant (constructor "Rtag" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"bool|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Rinherit" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:})
);print_type_decl:"object_field" = (process_record_kind "pof_desc" (body ptyp_desc:(Ptyp_constr:"object_field_desc|") ->my_process_core_type_list:))/(process_record_kind "pof_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/(process_record_kind "pof_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"object_field_desc" = (Ptype_variant (constructor "Otag" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Oinherit" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:})
);print_type_decl:"pattern" = (process_record_kind "ppat_desc" (body ptyp_desc:(Ptyp_constr:"pattern_desc|") ->my_process_core_type_list:))/(process_record_kind "ppat_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/(process_record_kind "ppat_loc_stack" (body ptyp_desc:(Ptyp_constr:"location_stack|") ->my_process_core_type_list:))/(process_record_kind "ppat_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"pattern_desc" = (Ptype_variant (constructor "Ppat_any" {Pcstr_tuple:my_process_core_type_list:})(constructor "Ppat_var" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Ppat_alias" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Ppat_constant" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"constant|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Ppat_interval" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"constant|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"constant|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Ppat_tuple" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Ppat_construct" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Ppat_variant" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Ppat_record" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"closed_flag|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Ppat_array" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Ppat_or" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Ppat_constraint" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Ppat_type" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Ppat_lazy" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Ppat_unpack" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Ppat_exception" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Ppat_extension" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"extension|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Ppat_open" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,my_process_core_type_list:})
);print_type_decl:"expression" = (process_record_kind "pexp_desc" (body ptyp_desc:(Ptyp_constr:"expression_desc|") ->my_process_core_type_list:))/(process_record_kind "pexp_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/(process_record_kind "pexp_loc_stack" (body ptyp_desc:(Ptyp_constr:"location_stack|") ->my_process_core_type_list:))/(process_record_kind "pexp_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"expression_desc" = (Ptype_variant (constructor "Pexp_ident" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_constant" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"constant|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_let" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"rec_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"value_binding|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_function" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"cases|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_fun" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"arg_label|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_apply" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"arg_label|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_match" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"cases|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_try" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"cases|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_tuple" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_construct" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_variant" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_record" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_field" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_setfield" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_array" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_ifthenelse" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_sequence" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_while" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_for" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"direction_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_constraint" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_coerce" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_send" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_new" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_setinstvar" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_override" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_letmodule" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"module_expr|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_letexception" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"extension_constructor|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_assert" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_lazy" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_poly" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_object" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"class_structure|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_newtype" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_pack" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"module_expr|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_open" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"open_declaration|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_letop" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"letop|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_extension" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"extension|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pexp_unreachable" {Pcstr_tuple:my_process_core_type_list:})
);print_type_decl:"case" = (process_record_kind "pc_lhs" (body ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:))/(process_record_kind "pc_guard" (body ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "pc_rhs" (body ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"letop" = (process_record_kind "let_" (body ptyp_desc:(Ptyp_constr:"binding_op|") ->my_process_core_type_list:))/(process_record_kind "ands" (body ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"binding_op|") ->my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "body" (body ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"binding_op" = (process_record_kind "pbop_op" (body ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "pbop_pat" (body ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:))/(process_record_kind "pbop_exp" (body ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:))/(process_record_kind "pbop_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"value_description" = (process_record_kind "pval_name" (body ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "pval_type" (body ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:))/(process_record_kind "pval_prim" (body ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "pval_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/(process_record_kind "pval_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"type_declaration" = (process_record_kind "ptype_name" (body ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "ptype_params" (body ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"variance|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"injectivity|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "ptype_cstrs" (body ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "ptype_kind" (body ptyp_desc:(Ptyp_constr:"type_kind|") ->my_process_core_type_list:))/(process_record_kind "ptype_private" (body ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:))/(process_record_kind "ptype_manifest" (body ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "ptype_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/(process_record_kind "ptype_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"type_kind" = (Ptype_variant (constructor "Ptype_abstract" {Pcstr_tuple:my_process_core_type_list:})(constructor "Ptype_variant" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"constructor_declaration|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Ptype_record" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"label_declaration|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Ptype_open" {Pcstr_tuple:my_process_core_type_list:})
);print_type_decl:"label_declaration" = (process_record_kind "pld_name" (body ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "pld_mutable" (body ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:))/(process_record_kind "pld_type" (body ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:))/(process_record_kind "pld_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/(process_record_kind "pld_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"constructor_declaration" = (process_record_kind "pcd_name" (body ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "pcd_vars" (body ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "pcd_args" (body ptyp_desc:(Ptyp_constr:"constructor_arguments|") ->my_process_core_type_list:))/(process_record_kind "pcd_res" (body ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "pcd_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/(process_record_kind "pcd_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"constructor_arguments" = (Ptype_variant (constructor "Pcstr_tuple" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pcstr_record" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"label_declaration|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})
);print_type_decl:"type_extension" = (process_record_kind "ptyext_path" (body ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:))/(process_record_kind "ptyext_params" (body ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"variance|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"injectivity|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "ptyext_constructors" (body ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"extension_constructor|") ->my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "ptyext_private" (body ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:))/(process_record_kind "ptyext_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/(process_record_kind "ptyext_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"extension_constructor" = (process_record_kind "pext_name" (body ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "pext_kind" (body ptyp_desc:(Ptyp_constr:"extension_constructor_kind|") ->my_process_core_type_list:))/(process_record_kind "pext_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/(process_record_kind "pext_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"type_exception" = (process_record_kind "ptyexn_constructor" (body ptyp_desc:(Ptyp_constr:"extension_constructor|") ->my_process_core_type_list:))/(process_record_kind "ptyexn_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/(process_record_kind "ptyexn_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"extension_constructor_kind" = (Ptype_variant (constructor "Pext_decl" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"constructor_arguments|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pext_rebind" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,my_process_core_type_list:})
);print_type_decl:"class_type" = (process_record_kind "pcty_desc" (body ptyp_desc:(Ptyp_constr:"class_type_desc|") ->my_process_core_type_list:))/(process_record_kind "pcty_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/(process_record_kind "pcty_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"class_type_desc" = (Ptype_variant (constructor "Pcty_constr" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pcty_signature" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"class_signature|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pcty_arrow" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"arg_label|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_type|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pcty_extension" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"extension|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pcty_open" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"open_description|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_type|") ->my_process_core_type_list:,my_process_core_type_list:})
);print_type_decl:"class_signature" = (process_record_kind "pcsig_self" (body ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:))/(process_record_kind "pcsig_fields" (body ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"class_type_field|") ->my_process_core_type_list:,my_process_core_type_list:))/process_record_kind_list;print_type_decl:"class_type_field" = (process_record_kind "pctf_desc" (body ptyp_desc:(Ptyp_constr:"class_type_field_desc|") ->my_process_core_type_list:))/(process_record_kind "pctf_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/(process_record_kind "pctf_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"class_type_field_desc" = (Ptype_variant (constructor "Pctf_inherit" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"class_type|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pctf_val" {Pcstr_tuple:ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pctf_method" {Pcstr_tuple:ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pctf_constraint" {Pcstr_tuple:ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pctf_attribute" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"attribute|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pctf_extension" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"extension|") ->my_process_core_type_list:,my_process_core_type_list:})
);print_type_decl:"class_infos" = (process_record_kind "pci_virt" (body ptyp_desc:(Ptyp_constr:"virtual_flag|") ->my_process_core_type_list:))/(process_record_kind "pci_params" (body ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"variance|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"injectivity|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "pci_name" (body ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "pci_expr" (body ptyp_desc:var-name))/(process_record_kind "pci_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/(process_record_kind "pci_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"class_description" = DBG1:Ptype_abstract;print_type_decl:"class_type_declaration" = DBG1:Ptype_abstract;print_type_decl:"class_expr" = (process_record_kind "pcl_desc" (body ptyp_desc:(Ptyp_constr:"class_expr_desc|") ->my_process_core_type_list:))/(process_record_kind "pcl_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/(process_record_kind "pcl_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"class_expr_desc" = (Ptype_variant (constructor "Pcl_constr" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pcl_structure" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"class_structure|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pcl_fun" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"arg_label|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_expr|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pcl_apply" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"class_expr|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"arg_label|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pcl_let" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"rec_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"value_binding|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_expr|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pcl_constraint" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"class_expr|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_type|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pcl_extension" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"extension|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pcl_open" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"open_description|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_expr|") ->my_process_core_type_list:,my_process_core_type_list:})
);print_type_decl:"class_structure" = (process_record_kind "pcstr_self" (body ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:))/(process_record_kind "pcstr_fields" (body ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"class_field|") ->my_process_core_type_list:,my_process_core_type_list:))/process_record_kind_list;print_type_decl:"class_field" = (process_record_kind "pcf_desc" (body ptyp_desc:(Ptyp_constr:"class_field_desc|") ->my_process_core_type_list:))/(process_record_kind "pcf_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/(process_record_kind "pcf_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"class_field_desc" = (Ptype_variant (constructor "Pcf_inherit" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"override_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_expr|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pcf_val" {Pcstr_tuple:ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"mutable_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_field_kind|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pcf_method" {Pcstr_tuple:ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"label|") ->my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"private_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"class_field_kind|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pcf_constraint" {Pcstr_tuple:ptyp_desc:Ptyp_tupleptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pcf_initializer" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pcf_attribute" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"attribute|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pcf_extension" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"extension|") ->my_process_core_type_list:,my_process_core_type_list:})
);print_type_decl:"class_field_kind" = (Ptype_variant (constructor "Cfk_virtual" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"core_type|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Cfk_concrete" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"override_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})
);print_type_decl:"class_declaration" = DBG1:Ptype_abstract;print_type_decl:"module_type" = (process_record_kind "pmty_desc" (body ptyp_desc:(Ptyp_constr:"module_type_desc|") ->my_process_core_type_list:))/(process_record_kind "pmty_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/(process_record_kind "pmty_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"module_type_desc" = (Ptype_variant (constructor "Pmty_ident" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pmty_signature" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"signature|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pmty_functor" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"functor_parameter|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"module_type|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pmty_with" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"module_type|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"with_constraint|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pmty_typeof" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"module_expr|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pmty_extension" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"extension|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pmty_alias" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,my_process_core_type_list:})
);print_type_decl:"functor_parameter" = (Ptype_variant (constructor "Unit" {Pcstr_tuple:my_process_core_type_list:})(constructor "Named" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"module_type|") ->my_process_core_type_list:,my_process_core_type_list:})
);print_type_decl:"signature" = DBG1:Ptype_abstract;print_type_decl:"signature_item" = (process_record_kind "psig_desc" (body ptyp_desc:(Ptyp_constr:"signature_item_desc|") ->my_process_core_type_list:))/(process_record_kind "psig_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"signature_item_desc" = (Ptype_variant (constructor "Psig_value" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"value_description|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Psig_type" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"rec_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Psig_typesubst" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Psig_typext" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"type_extension|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Psig_exception" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"type_exception|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Psig_module" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"module_declaration|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Psig_modsubst" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"module_substitution|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Psig_recmodule" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"module_declaration|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Psig_modtype" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"module_type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Psig_modtypesubst" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"module_type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Psig_open" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"open_description|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Psig_include" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"include_description|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Psig_class" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"class_description|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Psig_class_type" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"class_type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Psig_attribute" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"attribute|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Psig_extension" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"extension|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:,my_process_core_type_list:})
);print_type_decl:"module_declaration" = (process_record_kind "pmd_name" (body ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "pmd_type" (body ptyp_desc:(Ptyp_constr:"module_type|") ->my_process_core_type_list:))/(process_record_kind "pmd_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/(process_record_kind "pmd_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"module_substitution" = (process_record_kind "pms_name" (body ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "pms_manifest" (body ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:))/(process_record_kind "pms_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/(process_record_kind "pms_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"module_type_declaration" = (process_record_kind "pmtd_name" (body ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "pmtd_type" (body ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"module_type|") ->my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "pmtd_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/(process_record_kind "pmtd_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"open_infos" = (process_record_kind "popen_expr" (body ptyp_desc:var-name))/(process_record_kind "popen_override" (body ptyp_desc:(Ptyp_constr:"override_flag|") ->my_process_core_type_list:))/(process_record_kind "popen_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/(process_record_kind "popen_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"open_description" = DBG1:Ptype_abstract;print_type_decl:"open_declaration" = DBG1:Ptype_abstract;print_type_decl:"include_infos" = (process_record_kind "pincl_mod" (body ptyp_desc:var-name))/(process_record_kind "pincl_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/(process_record_kind "pincl_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"include_description" = DBG1:Ptype_abstract;print_type_decl:"include_declaration" = DBG1:Ptype_abstract;print_type_decl:"with_constraint" = (Ptype_variant (constructor "Pwith_type" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pwith_module" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pwith_modtype" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"module_type|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pwith_modtypesubst" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"module_type|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pwith_typesubst" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pwith_modsubst" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,my_process_core_type_list:})
);print_type_decl:"module_expr" = (process_record_kind "pmod_desc" (body ptyp_desc:(Ptyp_constr:"module_expr_desc|") ->my_process_core_type_list:))/(process_record_kind "pmod_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/(process_record_kind "pmod_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"module_expr_desc" = (Ptype_variant (constructor "Pmod_ident" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident_loc|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pmod_structure" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"structure|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pmod_functor" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"functor_parameter|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"module_expr|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pmod_apply" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"module_expr|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"module_expr|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pmod_constraint" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"module_expr|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"module_type|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pmod_unpack" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pmod_extension" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"extension|") ->my_process_core_type_list:,my_process_core_type_list:})
);print_type_decl:"structure" = DBG1:Ptype_abstract;print_type_decl:"structure_item" = (process_record_kind "pstr_desc" (body ptyp_desc:(Ptyp_constr:"structure_item_desc|") ->my_process_core_type_list:))/(process_record_kind "pstr_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"structure_item_desc" = (Ptype_variant (constructor "Pstr_eval" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pstr_value" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"rec_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"value_binding|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pstr_primitive" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"value_description|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pstr_type" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"rec_flag|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pstr_typext" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"type_extension|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pstr_exception" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"type_exception|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pstr_module" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"module_binding|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pstr_recmodule" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"module_binding|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pstr_modtype" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"module_type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pstr_open" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"open_declaration|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pstr_class" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"class_declaration|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pstr_class_type" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"list|") ->ptyp_desc:(Ptyp_constr:"class_type_declaration|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pstr_include" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"include_declaration|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pstr_attribute" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"attribute|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pstr_extension" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"extension|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:,my_process_core_type_list:})
);print_type_decl:"value_binding" = (process_record_kind "pvb_pat" (body ptyp_desc:(Ptyp_constr:"pattern|") ->my_process_core_type_list:))/(process_record_kind "pvb_expr" (body ptyp_desc:(Ptyp_constr:"expression|") ->my_process_core_type_list:))/(process_record_kind "pvb_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/(process_record_kind "pvb_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"module_binding" = (process_record_kind "pmb_name" (body ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "pmb_expr" (body ptyp_desc:(Ptyp_constr:"module_expr|") ->my_process_core_type_list:))/(process_record_kind "pmb_attributes" (body ptyp_desc:(Ptyp_constr:"attributes|") ->my_process_core_type_list:))/(process_record_kind "pmb_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"toplevel_phrase" = (Ptype_variant (constructor "Ptop_def" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"structure|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Ptop_dir" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"toplevel_directive|") ->my_process_core_type_list:,my_process_core_type_list:})
);print_type_decl:"toplevel_directive" = (process_record_kind "pdir_name" (body ptyp_desc:(Ptyp_constr:"loc|") ->ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "pdir_arg" (body ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"directive_argument|") ->my_process_core_type_list:,my_process_core_type_list:))/(process_record_kind "pdir_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"directive_argument" = (process_record_kind "pdira_desc" (body ptyp_desc:(Ptyp_constr:"directive_argument_desc|") ->my_process_core_type_list:))/(process_record_kind "pdira_loc" (body ptyp_desc:(Ptyp_constr:"location|") ->my_process_core_type_list:))/process_record_kind_list;print_type_decl:"directive_argument_desc" = (Ptype_variant (constructor "Pdir_string" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pdir_int" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"string|") ->my_process_core_type_list:,ptyp_desc:(Ptyp_constr:"option|") ->ptyp_desc:(Ptyp_constr:"char|") ->my_process_core_type_list:,my_process_core_type_list:,my_process_core_type_list:})(constructor "Pdir_ident" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"longident|") ->my_process_core_type_list:,my_process_core_type_list:})(constructor "Pdir_bool" {Pcstr_tuple:ptyp_desc:(Ptyp_constr:"bool|") ->my_process_core_type_list:,my_process_core_type_list:})
  | PTyp of core_type
and core_type = Parsetree.core_type =
  ptyp_desc: core_type_desc ;
and core_type_desc = Parsetree.core_type_desc =
  | Ptyp_arrow of arg_label * core_type * core_type
  | Ptyp_tuple of core_type list
  | Ptyp_constr of longident_loc * core_type list
  | Ptyp_class of longident_loc * core_type list
  | Ptyp_alias of core_type * string [@ocaml.doc " [T as 'a]. "]
  | Ptyp_poly of string loc list * core_type
    " ['a1 ... 'an. T]\n\n          Can only appear in the following context:\n\n          - As the {!core_type} of a {{!pattern_desc.Ppat_constraint}\n            [Ppat_constraint]} node corresponding to a constraint on a\n            let-binding:\n\n          {[\n            let x : 'a1 ... 'an. T = e ...\n          ]}\n          - Under {{!class_field_kind.Cfk_virtual} [Cfk_virtual]} for methods\n            (not values).\n\n          - As the {!core_type} of a {{!class_type_field_desc.Pctf_method}\n            [Pctf_method]} node.\n\n          - As the {!core_type} of a {{!expression_desc.Pexp_poly} [Pexp_poly]}\n            node.\n\n          - As the {{!label_declaration.pld_type} [pld_type]} field of a\n            {!label_declaration}.\n\n          - As a {!core_type} of a {{!core_type_desc.Ptyp_object} [Ptyp_object]}\n            node.\n\n          - As the {{!value_description.pval_type} [pval_type]} field of a\n            {!value_description}. "]
and package_type = (longident_loc * (longident_loc * core_type) list)
  | Rtag of label loc * bool * core_type list
  | Rinherit of core_type [@ocaml.doc " [\\[ | t \\]] "]
  | Otag of label loc * core_type 
  | Oinherit of core_type 
  | Ppat_constraint of pattern * core_type
  | Pexp_constraint of expression * core_type [@ocaml.doc " [(E : T)] "]
  | Pexp_coerce of expression * core_type option * core_type
  | Pexp_poly of expression * core_type option
  pval_type: core_type ;
  ptype_params: (core_type * (variance * injectivity)) list
  ptype_cstrs: (core_type * core_type * location) list
  ptype_manifest: core_type option [@ocaml.doc " represents [= T] "];
  pld_type: core_type ;
  " - [{ ...; l: T; ... }] when {{!label_declaration.pld_mutable} [pld_mutable]}\n      is {{!Asttypes.mutable_flag.Immutable} [Immutable]},\n    - [{ ...; mutable l: T; ... }] when {{!label_declaration.pld_mutable}\n      [pld_mutable]} is {{!Asttypes.mutable_flag.Mutable} [Mutable]}.\n\n    Note: [T] can be a {{!core_type_desc.Ptyp_poly} [Ptyp_poly]}. "]
  pcd_res: core_type option ;
  | Pcstr_tuple of core_type list 
  ptyext_params: (core_type * (variance * injectivity)) list ;
  | Pext_decl of string loc list * constructor_arguments * core_type option
  | Pcty_constr of longident_loc * core_type list
  | Pcty_arrow of arg_label * core_type * class_type
  pcsig_self: core_type ;
                                         " Values of type [class_signature] represents:\n\n    - [object('selfpat) ... end]\n    - [object ... end] when {{!class_signature.pcsig_self} [pcsig_self]} is\n      {{!core_type_desc.Ptyp_any} [Ptyp_any]} "]
  | Pctf_val of (label loc * mutable_flag * virtual_flag * core_type)
  | Pctf_method of (label loc * private_flag * virtual_flag * core_type)
    " [method x: T]\n\n          Note: [T] can be a {{!core_type_desc.Ptyp_poly} [Ptyp_poly]}. "]
  | Pctf_constraint of (core_type * core_type)
  pci_params: (core_type * (variance * injectivity)) list ;
  | Pcl_constr of longident_loc * core_type list
    " - [method x = E] ([E] can be a {{!expression_desc.Pexp_poly}\n            [Pexp_poly]})\n          - [method virtual x: T] ([T] can be a {{!core_type_desc.Ptyp_poly}\n            [Ptyp_poly]}) "]
  | Pcf_constraint of (core_type * core_type)
  | Cfk_virtual of core_type 
        | PTyp a -> let a = self#core_type a in PTyp a
    method core_type : core_type -> core_type=
        let ptyp_desc = self#core_type_desc ptyp_desc in
    method core_type_desc : core_type_desc -> core_type_desc=
            let b = self#core_type b in
            let c = self#core_type c in Ptyp_arrow (a, b, c)
        | Ptyp_tuple a -> let a = self#list self#core_type a in Ptyp_tuple a
            let b = self#list self#core_type b in Ptyp_constr (a, b)
            let b = self#list self#core_type b in Ptyp_class (a, b)
            let a = self#core_type a in
            let b = self#core_type b in Ptyp_poly (a, b)
               let b = self#core_type b in (a, b)) b in
            let c = self#list self#core_type c in Rtag (a, b, c)
        | Rinherit a -> let a = self#core_type a in Rinherit a
            let b = self#core_type b in Otag (a, b)
        | Oinherit a -> let a = self#core_type a in Oinherit a
            let b = self#core_type b in Ppat_constraint (a, b)
            let b = self#core_type b in Pexp_constraint (a, b)
            let b = self#option self#core_type b in
            let c = self#core_type c in Pexp_coerce (a, b, c)
            let b = self#option self#core_type b in Pexp_poly (a, b)
        let pval_type = self#core_type pval_type in
               let a = self#core_type a in
               let a = self#core_type a in
               let b = self#core_type b in
        let ptype_manifest = self#option self#core_type ptype_manifest in
        let pld_type = self#core_type pld_type in
        let pcd_res = self#option self#core_type pcd_res in
            let a = self#list self#core_type a in Pcstr_tuple a
               let a = self#core_type a in
            let c = self#option self#core_type c in Pext_decl (a, b, c)
            let b = self#list self#core_type b in Pcty_constr (a, b)
            let b = self#core_type b in
        let pcsig_self = self#core_type pcsig_self in
                 let d = self#core_type d in (a, b, c, d)) a in
                 let d = self#core_type d in (a, b, c, d)) a in
                 let a = self#core_type a in
                 let b = self#core_type b in (a, b)) a in
                 let a = self#core_type a in
            let b = self#list self#core_type b in Pcl_constr (a, b)
                 let a = self#core_type a in
                 let b = self#core_type b in (a, b)) a in
        | Cfk_virtual a -> let a = self#core_type a in Cfk_virtual a
        | PTyp a -> self#core_type a
    method core_type : core_type -> unit=
        self#core_type_desc ptyp_desc;
    method core_type_desc : core_type_desc -> unit=
            (self#arg_label a; self#core_type b; self#core_type c)
        | Ptyp_tuple a -> self#list self#core_type a
            (self#longident_loc a; self#list self#core_type b)
            (self#longident_loc a; self#list self#core_type b)
        | Ptyp_alias (a, b) -> (self#core_type a; self#string b)
            (self#list (self#loc self#string) a; self#core_type b)
        self#list (fun (a, b) -> self#longident_loc a; self#core_type b) b
            (self#loc self#label a; self#bool b; self#list self#core_type c)
        | Rinherit a -> self#core_type a
        | Otag (a, b) -> (self#loc self#label a; self#core_type b)
        | Oinherit a -> self#core_type a
        | Ppat_constraint (a, b) -> (self#pattern a; self#core_type b)
        | Pexp_constraint (a, b) -> (self#expression a; self#core_type b)
             self#option self#core_type b;
             self#core_type c)
            (self#expression a; self#option self#core_type b)
        self#core_type pval_type;
             self#core_type a;
             self#core_type a; self#core_type b; self#location c) ptype_cstrs;
        self#option self#core_type ptype_manifest;
        self#core_type pld_type;
        self#option self#core_type pcd_res;
        | Pcstr_tuple a -> self#list self#core_type a
             self#core_type a;
             self#option self#core_type c)
            (self#longident_loc a; self#list self#core_type b)
            (self#arg_label a; self#core_type b; self#class_type c)
        self#core_type pcsig_self;
                self#core_type d)) a
                self#core_type d)) a
            ((fun (a, b) -> self#core_type a; self#core_type b)) a
               self#core_type a;
            (self#longident_loc a; self#list self#core_type b)
            ((fun (a, b) -> self#core_type a; self#core_type b)) a
        | Cfk_virtual a -> self#core_type a
          | PTyp a -> self#core_type a acc
    method core_type : core_type -> 'acc -> 'acc=
          let acc = self#core_type_desc ptyp_desc acc in
    method core_type_desc : core_type_desc -> 'acc -> 'acc=
              let acc = self#core_type b acc in
              let acc = self#core_type c acc in acc
          | Ptyp_tuple a -> self#list self#core_type a acc
              let acc = self#list self#core_type b acc in acc
              let acc = self#list self#core_type b acc in acc
              let acc = self#core_type a acc in
              let acc = self#core_type b acc in acc
                   let acc = self#core_type b acc in acc) b acc in
              let acc = self#list self#core_type c acc in acc
          | Rinherit a -> self#core_type a acc
              let acc = self#core_type b acc in acc
          | Oinherit a -> self#core_type a acc
              let acc = self#core_type b acc in acc
              let acc = self#core_type b acc in acc
              let acc = self#option self#core_type b acc in
              let acc = self#core_type c acc in acc
              let acc = self#option self#core_type b acc in acc
          let acc = self#core_type pval_type acc in
                   let acc = self#core_type a acc in
                   let acc = self#core_type a acc in
                   let acc = self#core_type b acc in
          let acc = self#option self#core_type ptype_manifest acc in
          let acc = self#core_type pld_type acc in
          let acc = self#option self#core_type pcd_res acc in
          | Pcstr_tuple a -> self#list self#core_type a acc
                   let acc = self#core_type a acc in
              let acc = self#option self#core_type c acc in acc
              let acc = self#list self#core_type b acc in acc
              let acc = self#core_type b acc in
          let acc = self#core_type pcsig_self acc in
                    let acc = self#core_type d acc in acc)) a acc
                    let acc = self#core_type d acc in acc)) a acc
                    let acc = self#core_type a acc in
                    let acc = self#core_type b acc in acc)) a acc
                     let acc = self#core_type a acc in
              let acc = self#list self#core_type b acc in acc
                    let acc = self#core_type a acc in
                    let acc = self#core_type b acc in acc)) a acc
          | Cfk_virtual a -> self#core_type a acc
          | PTyp a -> let (a, acc) = self#core_type a acc in ((PTyp a), acc)
    method core_type : core_type -> 'acc -> (core_type * 'acc)=
          let (ptyp_desc, acc) = self#core_type_desc ptyp_desc acc in
    method core_type_desc :
      core_type_desc -> 'acc -> (core_type_desc * 'acc)=
              let (b, acc) = self#core_type b acc in
              let (c, acc) = self#core_type c acc in
              let (a, acc) = self#list self#core_type a acc in
              let (b, acc) = self#list self#core_type b acc in
              let (b, acc) = self#list self#core_type b acc in
              let (a, acc) = self#core_type a acc in
              let (b, acc) = self#core_type b acc in
                   let (b, acc) = self#core_type b acc in ((a, b), acc)) b
              let (c, acc) = self#list self#core_type c acc in
              let (a, acc) = self#core_type a acc in ((Rinherit a), acc)
              let (b, acc) = self#core_type b acc in ((Otag (a, b)), acc)
              let (a, acc) = self#core_type a acc in ((Oinherit a), acc)
              let (b, acc) = self#core_type b acc in
              let (b, acc) = self#core_type b acc in
              let (b, acc) = self#option self#core_type b acc in
              let (c, acc) = self#core_type c acc in
              let (b, acc) = self#option self#core_type b acc in
          let (pval_type, acc) = self#core_type pval_type acc in
                   let (a, acc) = self#core_type a acc in
                   let (a, acc) = self#core_type a acc in
                   let (b, acc) = self#core_type b acc in
            self#option self#core_type ptype_manifest acc in
          let (pld_type, acc) = self#core_type pld_type acc in
          let (pcd_res, acc) = self#option self#core_type pcd_res acc in
              let (a, acc) = self#list self#core_type a acc in
                   let (a, acc) = self#core_type a acc in
              let (c, acc) = self#option self#core_type c acc in
              let (b, acc) = self#list self#core_type b acc in
              let (b, acc) = self#core_type b acc in
          let (pcsig_self, acc) = self#core_type pcsig_self acc in
                     let (d, acc) = self#core_type d acc in
                     let (d, acc) = self#core_type d acc in
                     let (a, acc) = self#core_type a acc in
                     let (b, acc) = self#core_type b acc in ((a, b), acc)) a
                     let (a, acc) = self#core_type a acc in
              let (b, acc) = self#list self#core_type b acc in
                     let (a, acc) = self#core_type a acc in
                     let (b, acc) = self#core_type b acc in ((a, b), acc)) a
              let (a, acc) = self#core_type a acc in ((Cfk_virtual a), acc)
          | PTyp a -> let a = self#core_type ctx a in PTyp a
    method core_type : 'ctx -> core_type -> core_type=
          let ptyp_desc = self#core_type_desc ctx ptyp_desc in
    method core_type_desc : 'ctx -> core_type_desc -> core_type_desc=
              let b = self#core_type ctx b in
              let c = self#core_type ctx c in Ptyp_arrow (a, b, c)
              let a = self#list self#core_type ctx a in Ptyp_tuple a
              let b = self#list self#core_type ctx b in Ptyp_constr (a, b)
              let b = self#list self#core_type ctx b in Ptyp_class (a, b)
              let a = self#core_type ctx a in
              let b = self#core_type ctx b in Ptyp_poly (a, b)
                   let b = self#core_type ctx b in (a, b)) ctx b in
              let c = self#list self#core_type ctx c in Rtag (a, b, c)
          | Rinherit a -> let a = self#core_type ctx a in Rinherit a
              let b = self#core_type ctx b in Otag (a, b)
          | Oinherit a -> let a = self#core_type ctx a in Oinherit a
              let b = self#core_type ctx b in Ppat_constraint (a, b)
              let b = self#core_type ctx b in Pexp_constraint (a, b)
              let b = self#option self#core_type ctx b in
              let c = self#core_type ctx c in Pexp_coerce (a, b, c)
              let b = self#option self#core_type ctx b in Pexp_poly (a, b)
          let pval_type = self#core_type ctx pval_type in
                   let a = self#core_type ctx a in
                   let a = self#core_type ctx a in
                   let b = self#core_type ctx b in
          let ptype_manifest = self#option self#core_type ctx ptype_manifest in
          let pld_type = self#core_type ctx pld_type in
          let pcd_res = self#option self#core_type ctx pcd_res in
              let a = self#list self#core_type ctx a in Pcstr_tuple a
                   let a = self#core_type ctx a in
              let c = self#option self#core_type ctx c in Pext_decl (a, b, c)
              let b = self#list self#core_type ctx b in Pcty_constr (a, b)
              let b = self#core_type ctx b in
          let pcsig_self = self#core_type ctx pcsig_self in
                     let d = self#core_type ctx d in (a, b, c, d)) ctx a in
                     let d = self#core_type ctx d in (a, b, c, d)) ctx a in
                     let a = self#core_type ctx a in
                     let b = self#core_type ctx b in (a, b)) ctx a in
                     let a = self#core_type ctx a in
              let b = self#list self#core_type ctx b in Pcl_constr (a, b)
                     let a = self#core_type ctx a in
                     let b = self#core_type ctx b in (a, b)) ctx a in
          | Cfk_virtual a -> let a = self#core_type ctx a in Cfk_virtual a
        | PTyp a -> let a = self#core_type a in self#constr "PTyp" [a]
    method core_type : core_type -> 'res=
        let ptyp_desc = self#core_type_desc ptyp_desc in
    method core_type_desc : core_type_desc -> 'res=
            let b = self#core_type b in
            let c = self#core_type c in self#constr "Ptyp_arrow" [a; b; c]
            let a = self#list self#core_type a in
            let b = self#list self#core_type b in
            let b = self#list self#core_type b in
            let a = self#core_type a in
            let b = self#core_type b in self#constr "Ptyp_poly" [a; b]
               let b = self#core_type b in self#tuple [a; b]) b in
            let c = self#list self#core_type c in
            let a = self#core_type a in self#constr "Rinherit" [a]
            let b = self#core_type b in self#constr "Otag" [a; b]
            let a = self#core_type a in self#constr "Oinherit" [a]
            let b = self#core_type b in self#constr "Ppat_constraint" [a; b]
            let b = self#core_type b in self#constr "Pexp_constraint" [a; b]
            let b = self#option self#core_type b in
            let c = self#core_type c in self#constr "Pexp_coerce" [a; b; c]
            let b = self#option self#core_type b in
        let pval_type = self#core_type pval_type in
               let a = self#core_type a in
               let a = self#core_type a in
               let b = self#core_type b in
        let ptype_manifest = self#option self#core_type ptype_manifest in
        let pld_type = self#core_type pld_type in
        let pcd_res = self#option self#core_type pcd_res in
            let a = self#list self#core_type a in
               let a = self#core_type a in
            let c = self#option self#core_type c in
            let b = self#list self#core_type b in
            let b = self#core_type b in
        let pcsig_self = self#core_type pcsig_self in
                 let d = self#core_type d in self#tuple [a; b; c; d]) a in
                 let d = self#core_type d in self#tuple [a; b; c; d]) a in
                 let a = self#core_type a in
                 let b = self#core_type b in self#tuple [a; b]) a in
                 let a = self#core_type a in
            let b = self#list self#core_type b in
                 let a = self#core_type a in
                 let b = self#core_type b in self#tuple [a; b]) a in
            let a = self#core_type a in self#constr "Cfk_virtual" [a]
              let a = self#core_type ctx a in
    method core_type : 'ctx -> core_type -> (core_type * 'res)=
          let ptyp_desc = self#core_type_desc ctx ptyp_desc in
    method core_type_desc :
      'ctx -> core_type_desc -> (core_type_desc * 'res)=
              let b = self#core_type ctx b in
              let c = self#core_type ctx c in
              let a = self#list self#core_type ctx a in
              let b = self#list self#core_type ctx b in
              let b = self#list self#core_type ctx b in
              let a = self#core_type ctx a in
              let b = self#core_type ctx b in
                   let b = self#core_type ctx b in
              let c = self#list self#core_type ctx c in
              let a = self#core_type ctx a in
              let b = self#core_type ctx b in
              let a = self#core_type ctx a in
              let b = self#core_type ctx b in
              let b = self#core_type ctx b in
              let b = self#option self#core_type ctx b in
              let c = self#core_type ctx c in
              let b = self#option self#core_type ctx b in
          let pval_type = self#core_type ctx pval_type in
                   let a = self#core_type ctx a in
                   let a = self#core_type ctx a in
                   let b = self#core_type ctx b in
          let ptype_manifest = self#option self#core_type ctx ptype_manifest in
          let pld_type = self#core_type ctx pld_type in
          let pcd_res = self#option self#core_type ctx pcd_res in
              let a = self#list self#core_type ctx a in
                   let a = self#core_type ctx a in
              let c = self#option self#core_type ctx c in
              let b = self#list self#core_type ctx b in
              let b = self#core_type ctx b in
          let pcsig_self = self#core_type ctx pcsig_self in
                     let d = self#core_type ctx d in
                     let d = self#core_type ctx d in
                     let a = self#core_type ctx a in
                     let b = self#core_type ctx b in
                     let a = self#core_type ctx a in
              let b = self#list self#core_type ctx b in
                     let a = self#core_type ctx a in
                     let b = self#core_type ctx b in
              let a = self#core_type ctx a in
