core_type.txt:DEBUG2EC:| Nonrecursive () -> (process_types_rec_flag__Nonrecursive(imp_core_type_list (a,s,0)))
core_type.txt:DEBUG2E:constructor_declaration_new: constructor:"Nonrecursive"{| Nonrecursive () -> (process_types_rec_flag__Nonrecursive(imp_core_type_list (a,s,0)))}	|process_type_variant_constructor_declaration_list(p,t,s)
core_type.txt:DEBUG2Erec: let process_type_decl_rec_flag (x:rec_flag):string = match x with {emit_type_decl_kindVARIANT2constructor:"Nonrecursive"{| Nonrecursive () -> (process_types_rec_flag__Nonrecursive(imp_core_type_list (a,s,0)))}	|process_type_variant_constructor_declaration_list(p,t,s)} ->SKIP emit_type_decl
core_type.txt:TOPstructure_item_desc:printdescPstr_type:print_type_decl:"position" = 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:"location" = 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_stack" = DEBUG: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" = type 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:}	|VARIANT(longident):[print_type_decl:"longident_loc" = DEBUG:Ptype_abstract[print_type_decl:"rec_flag" = type variant:constructor:"Nonrecursive"{Pcstr_tuple:my_process_core_type_list:}	|constructor:"Recursive"{Pcstr_tuple:my_process_core_type_list:}	|VARIANT(rec_flag):[print_type_decl:"direction_flag" = type variant:constructor:"Upto"{Pcstr_tuple:my_process_core_type_list:}	|constructor:"Downto"{Pcstr_tuple:my_process_core_type_list:}	|VARIANT(direction_flag):[print_type_decl:"private_flag" = type variant:constructor:"Private"{Pcstr_tuple:my_process_core_type_list:}	|constructor:"Public"{Pcstr_tuple:my_process_core_type_list:}	|VARIANT(private_flag):[print_type_decl:"mutable_flag" = type variant:constructor:"Immutable"{Pcstr_tuple:my_process_core_type_list:}	|constructor:"Mutable"{Pcstr_tuple:my_process_core_type_list:}	|VARIANT(mutable_flag):[print_type_decl:"virtual_flag" = type variant:constructor:"Virtual"{Pcstr_tuple:my_process_core_type_list:}	|constructor:"Concrete"{Pcstr_tuple:my_process_core_type_list:}	|VARIANT(virtual_flag):[print_type_decl:"override_flag" = type variant:constructor:"Override"{Pcstr_tuple:my_process_core_type_list:}	|constructor:"Fresh"{Pcstr_tuple:my_process_core_type_list:}	|VARIANT(override_flag):[print_type_decl:"closed_flag" = type variant:constructor:"Closed"{Pcstr_tuple:my_process_core_type_list:}	|constructor:"Open"{Pcstr_tuple:my_process_core_type_list:}	|VARIANT(closed_flag):[print_type_decl:"label" = DEBUG:Ptype_abstract[print_type_decl:"arg_label" = type 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:}	|VARIANT(arg_label):[print_type_decl:"variance" = type 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:}	|VARIANT(variance):[print_type_decl:"injectivity" = type variant:constructor:"Injective"{Pcstr_tuple:my_process_core_type_list:}	|constructor:"NoInjectivity"{Pcstr_tuple:my_process_core_type_list:}	|VARIANT(injectivity):[print_type_decl:"constant" = type 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:}	|VARIANT(constant):[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" = DEBUG:Ptype_abstract[print_type_decl:"attributes" = DEBUG:Ptype_abstract[print_type_decl:"payload" = type 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:}	|VARIANT(payload):[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" = type 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:}	|VARIANT(core_type_desc):[print_type_decl:"package_type" = DEBUG: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" = type 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:}	|VARIANT(row_field_desc):[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" = type 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:}	|VARIANT(object_field_desc):[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" = type 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:}	|VARIANT(pattern_desc):[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" = type 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:}	|VARIANT(expression_desc):[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" = type 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:}	|VARIANT(type_kind):[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" = type 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:}	|VARIANT(constructor_arguments):[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" = type 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:}	|VARIANT(extension_constructor_kind):[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" = type 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:}	|VARIANT(class_type_desc):[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" = type 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:}	|VARIANT(class_type_field_desc):[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" = DEBUG:Ptype_abstract[print_type_decl:"class_type_declaration" = DEBUG: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" = type 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:}	|VARIANT(class_expr_desc):[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" = type 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:}	|VARIANT(class_field_desc):[print_type_decl:"class_field_kind" = type 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:}	|VARIANT(class_field_kind):[print_type_decl:"class_declaration" = DEBUG: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" = type 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:}	|VARIANT(module_type_desc):[print_type_decl:"functor_parameter" = type 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:}	|VARIANT(functor_parameter):[print_type_decl:"signature" = DEBUG: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" = type 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:}	|VARIANT(signature_item_desc):[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" = DEBUG:Ptype_abstract[print_type_decl:"open_declaration" = DEBUG: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" = DEBUG:Ptype_abstract[print_type_decl:"include_declaration" = DEBUG:Ptype_abstract[print_type_decl:"with_constraint" = type 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:}	|VARIANT(with_constraint):[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" = type 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:}	|VARIANT(module_expr_desc):[print_type_decl:"structure" = DEBUG: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" = type 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:}	|VARIANT(structure_item_desc):[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" = type 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:}	|VARIANT(toplevel_phrase):[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" = type 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:}	|VARIANT(directive_argument_desc):[print_type_decl:"cases" = DEBUG:Ptype_abstract[process_type_decl_list]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
log.txt:DEBUG2EC: let process_rec_flag__Nonrecursive x :string =match x with 
log.txt:DEBUG2EC:| Nonrecursive () -> (process_types_rec_flag__Nonrecursive(imp_core_type_list (a,s,0)))
log.txt:DEBUG2E:constructor_declaration_new: constructor:"Nonrecursive"{| Nonrecursive () -> (process_types_rec_flag__Nonrecursive(imp_core_type_list (a,s,0)))}	|process_type_variant_constructor_declaration_list(p,t,s)
log.txt:DEBUG2Erec: let process_type_decl_rec_flag (x:rec_flag):string = match x with {emit_type_decl_kindVARIANT2constructor:"Nonrecursive"{| Nonrecursive () -> (process_types_rec_flag__Nonrecursive(imp_core_type_list (a,s,0)))}	|process_type_variant_constructor_declaration_list(p,t,s)} ->SKIP emit_type_decl
log.txt:TOPstructure_item_desc:printdescPstr_type:print_type_decl:"position" = 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:"location" = 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_stack" = DEBUG: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" = type 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:}	VARIANT(longident):)))[print_type_decl:"longident_loc" = DEBUG:Ptype_abstract[print_type_decl:"rec_flag" = type variant:(constructor "Nonrecursive" {Pcstr_tuple:my_process_core_type_list:}	(constructor "Recursive" {Pcstr_tuple:my_process_core_type_list:}	VARIANT(rec_flag):))[print_type_decl:"direction_flag" = type variant:(constructor "Upto" {Pcstr_tuple:my_process_core_type_list:}	(constructor "Downto" {Pcstr_tuple:my_process_core_type_list:}	VARIANT(direction_flag):))[print_type_decl:"private_flag" = type variant:(constructor "Private" {Pcstr_tuple:my_process_core_type_list:}	(constructor "Public" {Pcstr_tuple:my_process_core_type_list:}	VARIANT(private_flag):))[print_type_decl:"mutable_flag" = type variant:(constructor "Immutable" {Pcstr_tuple:my_process_core_type_list:}	(constructor "Mutable" {Pcstr_tuple:my_process_core_type_list:}	VARIANT(mutable_flag):))[print_type_decl:"virtual_flag" = type variant:(constructor "Virtual" {Pcstr_tuple:my_process_core_type_list:}	(constructor "Concrete" {Pcstr_tuple:my_process_core_type_list:}	VARIANT(virtual_flag):))[print_type_decl:"override_flag" = type variant:(constructor "Override" {Pcstr_tuple:my_process_core_type_list:}	(constructor "Fresh" {Pcstr_tuple:my_process_core_type_list:}	VARIANT(override_flag):))[print_type_decl:"closed_flag" = type variant:(constructor "Closed" {Pcstr_tuple:my_process_core_type_list:}	(constructor "Open" {Pcstr_tuple:my_process_core_type_list:}	VARIANT(closed_flag):))[print_type_decl:"label" = DEBUG:Ptype_abstract[print_type_decl:"arg_label" = type 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:}	VARIANT(arg_label):)))[print_type_decl:"variance" = type 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:}	VARIANT(variance):)))[print_type_decl:"injectivity" = type variant:(constructor "Injective" {Pcstr_tuple:my_process_core_type_list:}	(constructor "NoInjectivity" {Pcstr_tuple:my_process_core_type_list:}	VARIANT(injectivity):))[print_type_decl:"constant" = type 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:}	VARIANT(constant):))))[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" = DEBUG:Ptype_abstract[print_type_decl:"attributes" = DEBUG:Ptype_abstract[print_type_decl:"payload" = type 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:}	VARIANT(payload):))))[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" = type 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:}	VARIANT(core_type_desc):))))))))))))[print_type_decl:"package_type" = DEBUG: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" = type 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:}	VARIANT(row_field_desc):))[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" = type 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:}	VARIANT(object_field_desc):))[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" = type 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:}	VARIANT(pattern_desc):))))))))))))))))))[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" = type 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:}	VARIANT(expression_desc):)))))))))))))))))))))))))))))))))))))[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" = type 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:}	VARIANT(type_kind):))))[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" = type 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:}	VARIANT(constructor_arguments):))[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" = type 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:}	VARIANT(extension_constructor_kind):))[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" = type 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:}	VARIANT(class_type_desc):)))))[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" = type 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:}	VARIANT(class_type_field_desc):))))))[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" = DEBUG:Ptype_abstract[print_type_decl:"class_type_declaration" = DEBUG: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" = type 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:}	VARIANT(class_expr_desc):))))))))[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" = type 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:}	VARIANT(class_field_desc):)))))))[print_type_decl:"class_field_kind" = type 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:}	VARIANT(class_field_kind):))[print_type_decl:"class_declaration" = DEBUG: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" = type 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:}	VARIANT(module_type_desc):)))))))[print_type_decl:"functor_parameter" = type 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:}	VARIANT(functor_parameter):))[print_type_decl:"signature" = DEBUG: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" = type 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:}	VARIANT(signature_item_desc):))))))))))))))))[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" = DEBUG:Ptype_abstract[print_type_decl:"open_declaration" = DEBUG: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" = DEBUG:Ptype_abstract[print_type_decl:"include_declaration" = DEBUG:Ptype_abstract[print_type_decl:"with_constraint" = type 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:}	VARIANT(with_constraint):))))))[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" = type 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:}	VARIANT(module_expr_desc):)))))))[print_type_decl:"structure" = DEBUG: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" = type 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:}	VARIANT(structure_item_desc):)))))))))))))))[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" = type 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:}	VARIANT(toplevel_phrase):))[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" = type 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:}	VARIANT(directive_argument_desc):))))[print_type_decl:"cases" = DEBUG:Ptype_abstract[process_type_decl_list]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
