// Lean compiler output // Module: init.lean.name_mangling // Imports: init.lean.name init.lean.parser.string_literal #include "runtime/object.h" #include "runtime/apply.h" #include "runtime/io.h" #include "kernel/builtin.h" typedef lean::object obj; typedef lean::usize usize; typedef lean::uint8 uint8; typedef lean::uint16 uint16; typedef lean::uint32 uint32; typedef lean::uint64 uint64; #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" #pragma clang diagnostic ignored "-Wunused-label" #elif defined(__GNUC__) && !defined(__CLANG__) #pragma GCC diagnostic ignored "-Wunused-parameter" #pragma GCC diagnostic ignored "-Wunused-label" #pragma GCC diagnostic ignored "-Wunused-but-set-variable" #endif obj* l___private_2142412293__mk__string__result___rarg(obj*, obj*); obj* l_lean_string_demangle___closed__1; obj* l_nat_digit__char(obj*); obj* l_match__failed___at___private_4217055689__parse__mangled__name__aux___main___spec__19(obj*); obj* l___private_4217055689__parse__mangled__name__aux(obj*, obj*, obj*); obj* l_lean_parser_parsec__t_bind__mk__res___rarg(obj*, obj*); obj* l_lean_name_demangle(obj*, obj*); obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__10(uint32, obj*); obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__6___boxed(obj*, obj*); obj* l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2(obj*); obj* l___private_31565857__take__while__aux___main___at___private_4217055689__parse__mangled__name__aux___main___spec__7(obj*, obj*, obj*); obj* l___private_74862231__parse__mangled__name(obj*, obj*); obj* l_lean_parser_monad__parsec_error___at___private_1496486805__parse__mangled__string__aux___main___spec__3___rarg(obj*, obj*, obj*, obj*, obj*); obj* l___private_31565857__take__while__aux___main___at___private_4217055689__parse__mangled__name__aux___main___spec__17(obj*, obj*, obj*); obj* l___private_1205956357__name_mangle__aux___main(obj*, obj*); obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__10___boxed(obj*, obj*); extern obj* l_mjoin___rarg___closed__1; obj* l___private_3255790009__string_mangle__aux___main___closed__2; extern obj* l_lean_parser_monad__parsec_eoi___rarg___lambda__1___closed__1; uint8 l_char_is__digit(uint32); obj* l_lean_parser_parsec__t_labels__mk__res___rarg(obj*, obj*); obj* l_string_quote(obj*); extern obj* l_lean_parser_monad__parsec_eoi__error___rarg___closed__1; obj* l___private_1205956357__name_mangle__aux(obj*, obj*); obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__14___boxed(obj*, obj*); obj* l_lean_parser_parsec__t_run___at_lean_parser_parsec_parse___spec__1___rarg(obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_digit___at___private_1496486805__parse__mangled__string__aux___main___spec__4(obj*); uint8 l_string_is__empty(obj*); uint8 l_char_is__alpha(uint32); obj* l_lean_parser_monad__parsec_alpha___at___private_1496486805__parse__mangled__string__aux___main___spec__5(obj*); obj* l_function_comp___rarg(obj*, obj*, obj*); obj* l___private_1496486805__parse__mangled__string__aux___main(obj*, obj*, obj*); extern obj* l_lean_parser_parsec_result_mk__eps___rarg___closed__1; obj* l_lean_parser_monad__parsec_eoi___at___private_1496486805__parse__mangled__string__aux___main___spec__6___closed__1; obj* l___private_580269747__str__aux___main(obj*, obj*, obj*); obj* l___private_3255790009__string_mangle__aux___main___closed__1; obj* l_lean_name_mangle(obj*, obj*); obj* l___private_31565857__take__while__aux___main___at___private_4217055689__parse__mangled__name__aux___main___spec__15(obj*, obj*, obj*); obj* l_lean_string_mangle(obj*); obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__14(uint32, obj*); obj* l_option_get__or__else___main___rarg(obj*, obj*); obj* l_string_to__nat(obj*); extern obj* l_char_has__repr___closed__1; obj* l___private_3162311557__parse__mangled__string(obj*); obj* l___private_31565857__take__while__aux___main___at___private_4217055689__parse__mangled__name__aux___main___spec__11(obj*, obj*, obj*); extern obj* l_string_join___closed__1; obj* l_id___rarg(obj*); obj* l_lean_parser_monad__parsec_error___at___private_1496486805__parse__mangled__string__aux___main___spec__3(obj*); obj* l___private_1496486805__parse__mangled__string__aux___main___closed__2; obj* l___private_4217055689__parse__mangled__name__aux___main___closed__1; obj* l___private_4217055689__parse__mangled__name__aux___main(obj*, obj*, obj*); obj* l___private_127590107__take__aux___main___rarg(obj*, obj*, obj*); obj* l___private_31565857__take__while__aux___main___at___private_4217055689__parse__mangled__name__aux___main___spec__5(obj*, obj*, obj*); obj* l___private_1496486805__parse__mangled__string__aux___main___closed__1; obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__4(uint32, obj*); obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__6(uint32, obj*); obj* l_lean_parser_monad__parsec_ch___at___private_4217055689__parse__mangled__name__aux___main___spec__1___boxed(obj*, obj*); obj* l___private_3255790009__string_mangle__aux___main(obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__8(uint32, obj*); obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__8___boxed(obj*, obj*); obj* l_lean_parser_monad__parsec_take___at___private_4217055689__parse__mangled__name__aux___main___spec__18(obj*, obj*); obj* l_lean_parser_monad__parsec_ch___at___private_4217055689__parse__mangled__name__aux___main___spec__1(uint32, obj*); obj* l_lean_parser_monad__parsec_take__while1___at___private_4217055689__parse__mangled__name__aux___main___spec__3(obj*); obj* l_lean_parser_monad__parsec_eoi___at___private_1496486805__parse__mangled__string__aux___main___spec__6(obj*); obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__12(uint32, obj*); obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__4___boxed(obj*, obj*); obj* l___private_31565857__take__while__aux___main___at___private_4217055689__parse__mangled__name__aux___main___spec__9(obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_num___at___private_4217055689__parse__mangled__name__aux___main___spec__2(obj*); obj* l_nat_repr(obj*); extern obj* l_lean_parser_parsec__t_monad__fail___rarg___closed__1; obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__16(obj*, obj*); obj* l___private_1496486805__parse__mangled__string__aux___main___closed__3; obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__12___boxed(obj*, obj*); obj* l___private_1205956357__name_mangle__aux___main___closed__1; obj* l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2___closed__1; obj* l_lean_parser_monad__parsec_str__core___at___private_1496486805__parse__mangled__string__aux___main___spec__1(obj*, obj*, obj*); obj* l___private_3255790009__string_mangle__aux(obj*, obj*, obj*); obj* l_dlist_singleton___rarg(obj*, obj*); obj* l_lean_parser_parsec__t_orelse__mk__res___rarg(obj*, obj*); extern obj* l_match__failed___rarg___closed__1; obj* l_lean_string_demangle(obj*); obj* l___private_31565857__take__while__aux___main___at___private_4217055689__parse__mangled__name__aux___main___spec__13(obj*, obj*, obj*); obj* l___private_1496486805__parse__mangled__string__aux(obj*, obj*, obj*); obj* l___private_3255790009__string_mangle__aux___main___closed__3; obj* l_char_quote__core(uint32); obj* l___private_1205956357__name_mangle__aux___main___closed__2; obj* l___private_3255790009__string_mangle__aux___main(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; uint8 x_4; x_3 = lean::mk_nat_obj(0u); x_4 = lean::nat_dec_eq(x_0, x_3); if (x_4 == 0) { obj* x_5; obj* x_6; uint32 x_9; obj* x_10; obj* x_12; uint8 x_14; x_5 = lean::mk_nat_obj(1u); x_6 = lean::nat_sub(x_0, x_5); lean::dec(x_5); lean::dec(x_0); x_9 = lean::string_iterator_curr(x_1); x_14 = l_char_is__alpha(x_9); if (x_14 == 0) { uint8 x_15; x_15 = l_char_is__digit(x_9); if (x_15 == 0) { obj* x_16; x_16 = lean::box(0); x_12 = x_16; goto lbl_13; } else { obj* x_18; obj* x_19; lean::dec(x_3); x_18 = lean::string_iterator_next(x_1); x_19 = lean::string_push(x_2, x_9); x_0 = x_6; x_1 = x_18; x_2 = x_19; goto _start; } } else { if (x_14 == 0) { obj* x_21; x_21 = lean::box(0); x_12 = x_21; goto lbl_13; } else { obj* x_23; obj* x_24; lean::dec(x_3); x_23 = lean::string_iterator_next(x_1); x_24 = lean::string_push(x_2, x_9); x_0 = x_6; x_1 = x_23; x_2 = x_24; goto _start; } } lbl_11: { obj* x_27; obj* x_28; uint8 x_29; lean::dec(x_10); x_27 = lean::mk_nat_obj(255u); x_28 = lean::box_uint32(x_9); x_29 = lean::nat_dec_lt(x_28, x_27); lean::dec(x_27); if (x_29 == 0) { obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; uint32 x_36; obj* x_38; obj* x_39; obj* x_42; obj* x_43; obj* x_44; uint32 x_45; obj* x_47; obj* x_48; obj* x_51; obj* x_52; obj* x_53; uint32 x_54; obj* x_56; obj* x_57; obj* x_60; uint32 x_61; obj* x_63; obj* x_64; x_31 = l___private_3255790009__string_mangle__aux___main___closed__1; x_32 = lean::string_append(x_2, x_31); x_33 = lean::mk_nat_obj(4096u); x_34 = lean::nat_div(x_28, x_33); x_35 = l_nat_digit__char(x_34); x_36 = lean::unbox_uint32(x_35); lean::dec(x_35); x_38 = lean::string_push(x_32, x_36); x_39 = lean::nat_mod(x_28, x_33); lean::dec(x_33); lean::dec(x_28); x_42 = lean::mk_nat_obj(256u); x_43 = lean::nat_div(x_39, x_42); x_44 = l_nat_digit__char(x_43); x_45 = lean::unbox_uint32(x_44); lean::dec(x_44); x_47 = lean::string_push(x_38, x_45); x_48 = lean::nat_mod(x_39, x_42); lean::dec(x_42); lean::dec(x_39); x_51 = lean::mk_nat_obj(16u); x_52 = lean::nat_div(x_48, x_51); x_53 = l_nat_digit__char(x_52); x_54 = lean::unbox_uint32(x_53); lean::dec(x_53); x_56 = lean::string_push(x_47, x_54); x_57 = lean::nat_mod(x_48, x_51); lean::dec(x_51); lean::dec(x_48); x_60 = l_nat_digit__char(x_57); x_61 = lean::unbox_uint32(x_60); lean::dec(x_60); x_63 = lean::string_push(x_56, x_61); x_64 = lean::string_iterator_next(x_1); x_0 = x_6; x_1 = x_64; x_2 = x_63; goto _start; } else { obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; uint32 x_71; obj* x_73; obj* x_74; obj* x_77; uint32 x_78; obj* x_80; obj* x_81; x_66 = l___private_3255790009__string_mangle__aux___main___closed__2; x_67 = lean::string_append(x_2, x_66); x_68 = lean::mk_nat_obj(16u); x_69 = lean::nat_div(x_28, x_68); x_70 = l_nat_digit__char(x_69); x_71 = lean::unbox_uint32(x_70); lean::dec(x_70); x_73 = lean::string_push(x_67, x_71); x_74 = lean::nat_mod(x_28, x_68); lean::dec(x_68); lean::dec(x_28); x_77 = l_nat_digit__char(x_74); x_78 = lean::unbox_uint32(x_77); lean::dec(x_77); x_80 = lean::string_push(x_73, x_78); x_81 = lean::string_iterator_next(x_1); x_0 = x_6; x_1 = x_81; x_2 = x_80; goto _start; } } lbl_13: { obj* x_84; obj* x_85; uint8 x_86; uint32 x_88; lean::dec(x_12); x_84 = lean::mk_nat_obj(95u); x_85 = lean::mk_nat_obj(55296u); x_86 = lean::nat_dec_lt(x_84, x_85); lean::dec(x_85); if (x_86 == 0) { obj* x_90; uint8 x_91; x_90 = lean::mk_nat_obj(57343u); x_91 = lean::nat_dec_lt(x_90, x_84); lean::dec(x_90); if (x_91 == 0) { uint32 x_94; lean::dec(x_84); x_94 = lean::unbox_uint32(x_3); lean::dec(x_3); x_88 = x_94; goto lbl_89; } else { obj* x_96; uint8 x_97; x_96 = lean::mk_nat_obj(1114112u); x_97 = lean::nat_dec_lt(x_84, x_96); lean::dec(x_96); if (x_97 == 0) { uint32 x_100; lean::dec(x_84); x_100 = lean::unbox_uint32(x_3); lean::dec(x_3); x_88 = x_100; goto lbl_89; } else { uint32 x_103; lean::dec(x_3); x_103 = lean::unbox_uint32(x_84); lean::dec(x_84); x_88 = x_103; goto lbl_89; } } } else { uint32 x_106; lean::dec(x_3); x_106 = lean::unbox_uint32(x_84); lean::dec(x_84); x_88 = x_106; goto lbl_89; } lbl_89: { obj* x_108; obj* x_109; uint8 x_110; x_108 = lean::box_uint32(x_9); x_109 = lean::box_uint32(x_88); x_110 = lean::nat_dec_eq(x_108, x_109); lean::dec(x_109); lean::dec(x_108); if (x_110 == 0) { obj* x_113; x_113 = lean::box(0); x_10 = x_113; goto lbl_11; } else { obj* x_114; obj* x_115; obj* x_116; x_114 = lean::string_iterator_next(x_1); x_115 = l___private_3255790009__string_mangle__aux___main___closed__3; x_116 = lean::string_append(x_2, x_115); x_0 = x_6; x_1 = x_114; x_2 = x_116; goto _start; } } } } else { lean::dec(x_1); lean::dec(x_3); lean::dec(x_0); return x_2; } } } obj* _init_l___private_3255790009__string_mangle__aux___main___closed__1() { _start: { obj* x_0; x_0 = lean::mk_string("_u"); return x_0; } } obj* _init_l___private_3255790009__string_mangle__aux___main___closed__2() { _start: { obj* x_0; x_0 = lean::mk_string("_x"); return x_0; } } obj* _init_l___private_3255790009__string_mangle__aux___main___closed__3() { _start: { obj* x_0; x_0 = lean::mk_string("__"); return x_0; } } obj* l___private_3255790009__string_mangle__aux(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l___private_3255790009__string_mangle__aux___main(x_0, x_1, x_2); return x_3; } } obj* l_lean_string_mangle(obj* x_0) { _start: { obj* x_1; obj* x_2; obj* x_3; obj* x_5; x_1 = lean::string_length(x_0); x_2 = lean::string_mk_iterator(x_0); x_3 = l_string_join___closed__1; lean::inc(x_3); x_5 = l___private_3255790009__string_mangle__aux___main(x_1, x_2, x_3); return x_5; } } obj* l_lean_parser_monad__parsec_str__core___at___private_1496486805__parse__mangled__string__aux___main___spec__1(obj* x_0, obj* x_1, obj* x_2) { _start: { uint8 x_4; lean::inc(x_0); x_4 = l_string_is__empty(x_0); if (x_4 == 0) { obj* x_5; obj* x_7; obj* x_9; x_5 = lean::string_length(x_0); lean::inc(x_0); x_7 = lean::string_mk_iterator(x_0); lean::inc(x_2); x_9 = l___private_580269747__str__aux___main(x_5, x_7, x_2); if (lean::obj_tag(x_9) == 0) { obj* x_12; obj* x_13; obj* x_15; uint8 x_16; obj* x_17; obj* x_18; lean::dec(x_9); lean::dec(x_0); x_12 = lean::box(0); x_13 = l_string_join___closed__1; lean::inc(x_13); x_15 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_15, 0, x_2); lean::cnstr_set(x_15, 1, x_13); lean::cnstr_set(x_15, 2, x_1); lean::cnstr_set(x_15, 3, x_12); x_16 = 0; x_17 = lean::alloc_cnstr(1, 1, 1); lean::cnstr_set(x_17, 0, x_15); lean::cnstr_set_scalar(x_17, sizeof(void*)*1, x_16); x_18 = x_17; return x_18; } else { obj* x_21; obj* x_24; obj* x_25; lean::dec(x_1); lean::dec(x_2); x_21 = lean::cnstr_get(x_9, 0); lean::inc(x_21); lean::dec(x_9); x_24 = lean::box(0); x_25 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_25, 0, x_0); lean::cnstr_set(x_25, 1, x_21); lean::cnstr_set(x_25, 2, x_24); return x_25; } } else { obj* x_28; obj* x_29; obj* x_32; lean::dec(x_1); lean::dec(x_0); x_28 = l_string_join___closed__1; x_29 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_29); lean::inc(x_28); x_32 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_32, 0, x_28); lean::cnstr_set(x_32, 1, x_2); lean::cnstr_set(x_32, 2, x_29); return x_32; } } } obj* l_lean_parser_monad__parsec_error___at___private_1496486805__parse__mangled__string__aux___main___spec__3___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_5; obj* x_6; uint8 x_7; obj* x_8; obj* x_9; x_5 = l_option_get__or__else___main___rarg(x_2, x_4); x_6 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_6, 0, x_5); lean::cnstr_set(x_6, 1, x_0); lean::cnstr_set(x_6, 2, x_1); lean::cnstr_set(x_6, 3, x_3); x_7 = 0; x_8 = lean::alloc_cnstr(1, 1, 1); lean::cnstr_set(x_8, 0, x_6); lean::cnstr_set_scalar(x_8, sizeof(void*)*1, x_7); x_9 = x_8; return x_9; } } obj* l_lean_parser_monad__parsec_error___at___private_1496486805__parse__mangled__string__aux___main___spec__3(obj* x_0) { _start: { obj* x_2; lean::dec(x_0); x_2 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_error___at___private_1496486805__parse__mangled__string__aux___main___spec__3___rarg), 5, 0); return x_2; } } obj* l_lean_parser_monad__parsec_digit___at___private_1496486805__parse__mangled__string__aux___main___spec__4(obj* x_0) { _start: { uint8 x_1; x_1 = lean::string_iterator_has_next(x_0); if (x_1 == 0) { obj* x_2; obj* x_3; obj* x_4; obj* x_8; x_2 = lean::box(0); x_3 = l_lean_parser_monad__parsec_eoi__error___rarg___closed__1; x_4 = l_mjoin___rarg___closed__1; lean::inc(x_2); lean::inc(x_4); lean::inc(x_3); x_8 = l_lean_parser_monad__parsec_error___at___private_1496486805__parse__mangled__string__aux___main___spec__3___rarg(x_3, x_4, x_2, x_2, x_0); if (lean::obj_tag(x_8) == 0) { obj* x_9; obj* x_11; obj* x_13; x_9 = lean::cnstr_get(x_8, 0); lean::inc(x_9); x_11 = lean::cnstr_get(x_8, 1); lean::inc(x_11); x_13 = lean::cnstr_get(x_8, 2); lean::inc(x_13); if (lean::obj_tag(x_13) == 0) { lean::dec(x_13); lean::dec(x_11); lean::dec(x_9); return x_8; } else { obj* x_19; obj* x_21; obj* x_23; obj* x_24; obj* x_25; lean::dec(x_8); x_19 = lean::cnstr_get(x_13, 0); lean::inc(x_19); if (lean::is_shared(x_13)) { lean::dec(x_13); x_21 = lean::box(0); } else { lean::cnstr_release(x_13, 0); x_21 = x_13; } lean::inc(x_4); x_23 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); lean::closure_set(x_23, 0, x_4); lean::closure_set(x_23, 1, x_19); if (lean::is_scalar(x_21)) { x_24 = lean::alloc_cnstr(1, 1, 0); } else { x_24 = x_21; } lean::cnstr_set(x_24, 0, x_23); x_25 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_25, 0, x_9); lean::cnstr_set(x_25, 1, x_11); lean::cnstr_set(x_25, 2, x_24); return x_25; } } else { obj* x_26; uint8 x_28; x_26 = lean::cnstr_get(x_8, 0); lean::inc(x_26); x_28 = lean::cnstr_get_scalar(x_8, sizeof(void*)*1); if (x_28 == 0) { obj* x_30; obj* x_32; obj* x_34; obj* x_37; obj* x_38; obj* x_41; obj* x_42; obj* x_43; lean::dec(x_8); x_30 = lean::cnstr_get(x_26, 0); lean::inc(x_30); x_32 = lean::cnstr_get(x_26, 1); lean::inc(x_32); x_34 = lean::cnstr_get(x_26, 2); lean::inc(x_34); lean::inc(x_4); x_37 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); lean::closure_set(x_37, 0, x_4); lean::closure_set(x_37, 1, x_34); x_38 = lean::cnstr_get(x_26, 3); lean::inc(x_38); lean::dec(x_26); x_41 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_41, 0, x_30); lean::cnstr_set(x_41, 1, x_32); lean::cnstr_set(x_41, 2, x_37); lean::cnstr_set(x_41, 3, x_38); x_42 = lean::alloc_cnstr(1, 1, 1); lean::cnstr_set(x_42, 0, x_41); lean::cnstr_set_scalar(x_42, sizeof(void*)*1, x_28); x_43 = x_42; return x_43; } else { lean::dec(x_26); return x_8; } } } else { uint32 x_45; uint8 x_46; x_45 = lean::string_iterator_curr(x_0); x_46 = l_char_is__digit(x_45); if (x_46 == 0) { obj* x_47; obj* x_48; obj* x_50; obj* x_52; obj* x_53; obj* x_54; obj* x_57; x_47 = l_char_quote__core(x_45); x_48 = l_char_has__repr___closed__1; lean::inc(x_48); x_50 = lean::string_append(x_48, x_47); lean::dec(x_47); x_52 = lean::string_append(x_50, x_48); x_53 = lean::box(0); x_54 = l_mjoin___rarg___closed__1; lean::inc(x_53); lean::inc(x_54); x_57 = l_lean_parser_monad__parsec_error___at___private_1496486805__parse__mangled__string__aux___main___spec__3___rarg(x_52, x_54, x_53, x_53, x_0); if (lean::obj_tag(x_57) == 0) { obj* x_58; obj* x_60; obj* x_62; x_58 = lean::cnstr_get(x_57, 0); lean::inc(x_58); x_60 = lean::cnstr_get(x_57, 1); lean::inc(x_60); x_62 = lean::cnstr_get(x_57, 2); lean::inc(x_62); if (lean::obj_tag(x_62) == 0) { lean::dec(x_58); lean::dec(x_60); lean::dec(x_62); return x_57; } else { obj* x_68; obj* x_70; obj* x_72; obj* x_73; obj* x_74; lean::dec(x_57); x_68 = lean::cnstr_get(x_62, 0); lean::inc(x_68); if (lean::is_shared(x_62)) { lean::dec(x_62); x_70 = lean::box(0); } else { lean::cnstr_release(x_62, 0); x_70 = x_62; } lean::inc(x_54); x_72 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); lean::closure_set(x_72, 0, x_54); lean::closure_set(x_72, 1, x_68); if (lean::is_scalar(x_70)) { x_73 = lean::alloc_cnstr(1, 1, 0); } else { x_73 = x_70; } lean::cnstr_set(x_73, 0, x_72); x_74 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_74, 0, x_58); lean::cnstr_set(x_74, 1, x_60); lean::cnstr_set(x_74, 2, x_73); return x_74; } } else { obj* x_75; uint8 x_77; x_75 = lean::cnstr_get(x_57, 0); lean::inc(x_75); x_77 = lean::cnstr_get_scalar(x_57, sizeof(void*)*1); if (x_77 == 0) { obj* x_79; obj* x_81; obj* x_83; obj* x_86; obj* x_87; obj* x_90; obj* x_91; obj* x_92; lean::dec(x_57); x_79 = lean::cnstr_get(x_75, 0); lean::inc(x_79); x_81 = lean::cnstr_get(x_75, 1); lean::inc(x_81); x_83 = lean::cnstr_get(x_75, 2); lean::inc(x_83); lean::inc(x_54); x_86 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); lean::closure_set(x_86, 0, x_54); lean::closure_set(x_86, 1, x_83); x_87 = lean::cnstr_get(x_75, 3); lean::inc(x_87); lean::dec(x_75); x_90 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_90, 0, x_79); lean::cnstr_set(x_90, 1, x_81); lean::cnstr_set(x_90, 2, x_86); lean::cnstr_set(x_90, 3, x_87); x_91 = lean::alloc_cnstr(1, 1, 1); lean::cnstr_set(x_91, 0, x_90); lean::cnstr_set_scalar(x_91, sizeof(void*)*1, x_77); x_92 = x_91; return x_92; } else { lean::dec(x_75); return x_57; } } } else { obj* x_94; obj* x_95; obj* x_96; obj* x_97; x_94 = lean::string_iterator_next(x_0); x_95 = lean::box(0); x_96 = lean::box_uint32(x_45); x_97 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_97, 0, x_96); lean::cnstr_set(x_97, 1, x_94); lean::cnstr_set(x_97, 2, x_95); return x_97; } } } } obj* l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2(obj* x_0) { _start: { obj* x_1; obj* x_2; uint8 x_3; obj* x_6; lean::inc(x_0); x_6 = l_lean_parser_monad__parsec_digit___at___private_1496486805__parse__mangled__string__aux___main___spec__4(x_0); if (lean::obj_tag(x_6) == 0) { obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; uint8 x_16; x_7 = lean::cnstr_get(x_6, 0); lean::inc(x_7); x_9 = lean::cnstr_get(x_6, 1); lean::inc(x_9); x_11 = lean::cnstr_get(x_6, 2); lean::inc(x_11); if (lean::is_shared(x_6)) { lean::dec(x_6); x_13 = lean::box(0); } else { lean::cnstr_release(x_6, 0); lean::cnstr_release(x_6, 1); lean::cnstr_release(x_6, 2); x_13 = x_6; } x_14 = lean::mk_nat_obj(48u); x_15 = lean::mk_nat_obj(55296u); x_16 = lean::nat_dec_lt(x_14, x_15); lean::dec(x_15); if (x_16 == 0) { obj* x_18; uint8 x_19; x_18 = lean::mk_nat_obj(57343u); x_19 = lean::nat_dec_lt(x_18, x_14); lean::dec(x_18); if (x_19 == 0) { obj* x_22; obj* x_23; obj* x_26; obj* x_28; obj* x_29; lean::dec(x_14); x_22 = lean::mk_nat_obj(0u); x_23 = lean::nat_sub(x_7, x_22); lean::dec(x_22); lean::dec(x_7); x_26 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_26); if (lean::is_scalar(x_13)) { x_28 = lean::alloc_cnstr(0, 3, 0); } else { x_28 = x_13; } lean::cnstr_set(x_28, 0, x_23); lean::cnstr_set(x_28, 1, x_9); lean::cnstr_set(x_28, 2, x_26); x_29 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_11, x_28); if (lean::obj_tag(x_29) == 0) { obj* x_31; obj* x_33; lean::dec(x_0); x_31 = l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2___closed__1; lean::inc(x_31); x_33 = l_lean_parser_parsec__t_labels__mk__res___rarg(x_29, x_31); return x_33; } else { obj* x_34; uint8 x_36; x_34 = lean::cnstr_get(x_29, 0); lean::inc(x_34); x_36 = lean::cnstr_get_scalar(x_29, sizeof(void*)*1); x_1 = x_29; x_2 = x_34; x_3 = x_36; goto lbl_4; } } else { obj* x_37; uint8 x_38; x_37 = lean::mk_nat_obj(1114112u); x_38 = lean::nat_dec_lt(x_14, x_37); lean::dec(x_37); if (x_38 == 0) { obj* x_41; obj* x_42; obj* x_45; obj* x_47; obj* x_48; lean::dec(x_14); x_41 = lean::mk_nat_obj(0u); x_42 = lean::nat_sub(x_7, x_41); lean::dec(x_41); lean::dec(x_7); x_45 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_45); if (lean::is_scalar(x_13)) { x_47 = lean::alloc_cnstr(0, 3, 0); } else { x_47 = x_13; } lean::cnstr_set(x_47, 0, x_42); lean::cnstr_set(x_47, 1, x_9); lean::cnstr_set(x_47, 2, x_45); x_48 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_11, x_47); if (lean::obj_tag(x_48) == 0) { obj* x_50; obj* x_52; lean::dec(x_0); x_50 = l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2___closed__1; lean::inc(x_50); x_52 = l_lean_parser_parsec__t_labels__mk__res___rarg(x_48, x_50); return x_52; } else { obj* x_53; uint8 x_55; x_53 = lean::cnstr_get(x_48, 0); lean::inc(x_53); x_55 = lean::cnstr_get_scalar(x_48, sizeof(void*)*1); x_1 = x_48; x_2 = x_53; x_3 = x_55; goto lbl_4; } } else { obj* x_56; obj* x_59; obj* x_61; obj* x_62; x_56 = lean::nat_sub(x_7, x_14); lean::dec(x_14); lean::dec(x_7); x_59 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_59); if (lean::is_scalar(x_13)) { x_61 = lean::alloc_cnstr(0, 3, 0); } else { x_61 = x_13; } lean::cnstr_set(x_61, 0, x_56); lean::cnstr_set(x_61, 1, x_9); lean::cnstr_set(x_61, 2, x_59); x_62 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_11, x_61); if (lean::obj_tag(x_62) == 0) { obj* x_64; obj* x_66; lean::dec(x_0); x_64 = l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2___closed__1; lean::inc(x_64); x_66 = l_lean_parser_parsec__t_labels__mk__res___rarg(x_62, x_64); return x_66; } else { obj* x_67; uint8 x_69; x_67 = lean::cnstr_get(x_62, 0); lean::inc(x_67); x_69 = lean::cnstr_get_scalar(x_62, sizeof(void*)*1); x_1 = x_62; x_2 = x_67; x_3 = x_69; goto lbl_4; } } } } else { obj* x_70; obj* x_73; obj* x_75; obj* x_76; x_70 = lean::nat_sub(x_7, x_14); lean::dec(x_14); lean::dec(x_7); x_73 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_73); if (lean::is_scalar(x_13)) { x_75 = lean::alloc_cnstr(0, 3, 0); } else { x_75 = x_13; } lean::cnstr_set(x_75, 0, x_70); lean::cnstr_set(x_75, 1, x_9); lean::cnstr_set(x_75, 2, x_73); x_76 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_11, x_75); if (lean::obj_tag(x_76) == 0) { obj* x_78; obj* x_80; lean::dec(x_0); x_78 = l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2___closed__1; lean::inc(x_78); x_80 = l_lean_parser_parsec__t_labels__mk__res___rarg(x_76, x_78); return x_80; } else { obj* x_81; uint8 x_83; x_81 = lean::cnstr_get(x_76, 0); lean::inc(x_81); x_83 = lean::cnstr_get_scalar(x_76, sizeof(void*)*1); x_1 = x_76; x_2 = x_81; x_3 = x_83; goto lbl_4; } } } else { obj* x_84; uint8 x_86; obj* x_87; obj* x_89; obj* x_90; x_84 = lean::cnstr_get(x_6, 0); lean::inc(x_84); x_86 = lean::cnstr_get_scalar(x_6, sizeof(void*)*1); if (lean::is_shared(x_6)) { lean::dec(x_6); x_87 = lean::box(0); } else { lean::cnstr_release(x_6, 0); x_87 = x_6; } lean::inc(x_84); if (lean::is_scalar(x_87)) { x_89 = lean::alloc_cnstr(1, 1, 1); } else { x_89 = x_87; } lean::cnstr_set(x_89, 0, x_84); lean::cnstr_set_scalar(x_89, sizeof(void*)*1, x_86); x_90 = x_89; x_1 = x_90; x_2 = x_84; x_3 = x_86; goto lbl_4; } lbl_4: { obj* x_91; obj* x_92; uint8 x_93; if (x_3 == 0) { obj* x_96; uint8 x_98; lean::dec(x_1); x_98 = lean::string_iterator_has_next(x_0); if (x_98 == 0) { obj* x_99; obj* x_100; obj* x_101; obj* x_106; x_99 = lean::box(0); x_100 = l_lean_parser_monad__parsec_eoi__error___rarg___closed__1; x_101 = l_mjoin___rarg___closed__1; lean::inc(x_0); lean::inc(x_99); lean::inc(x_101); lean::inc(x_100); x_106 = l_lean_parser_monad__parsec_error___at___private_1496486805__parse__mangled__string__aux___main___spec__3___rarg(x_100, x_101, x_99, x_99, x_0); x_96 = x_106; goto lbl_97; } else { uint32 x_107; obj* x_108; obj* x_110; obj* x_112; obj* x_113; uint8 x_114; uint8 x_115; x_107 = lean::string_iterator_curr(x_0); x_112 = lean::mk_nat_obj(97u); x_113 = lean::mk_nat_obj(55296u); x_114 = lean::nat_dec_lt(x_112, x_113); if (x_114 == 0) { obj* x_117; uint8 x_118; x_117 = lean::mk_nat_obj(57343u); x_118 = lean::nat_dec_lt(x_117, x_112); lean::dec(x_117); if (x_118 == 0) { obj* x_121; obj* x_122; uint8 x_123; lean::dec(x_112); x_121 = lean::mk_nat_obj(0u); x_122 = lean::box_uint32(x_107); x_123 = lean::nat_dec_le(x_121, x_122); lean::dec(x_122); lean::dec(x_121); if (x_123 == 0) { obj* x_127; lean::dec(x_113); x_127 = lean::box(0); x_108 = x_127; goto lbl_109; } else { uint8 x_128; x_128 = 1; x_115 = x_128; goto lbl_116; } } else { obj* x_129; uint8 x_130; x_129 = lean::mk_nat_obj(1114112u); x_130 = lean::nat_dec_lt(x_112, x_129); lean::dec(x_129); if (x_130 == 0) { obj* x_133; obj* x_134; uint8 x_135; lean::dec(x_112); x_133 = lean::mk_nat_obj(0u); x_134 = lean::box_uint32(x_107); x_135 = lean::nat_dec_le(x_133, x_134); lean::dec(x_134); lean::dec(x_133); if (x_135 == 0) { obj* x_139; lean::dec(x_113); x_139 = lean::box(0); x_108 = x_139; goto lbl_109; } else { uint8 x_140; x_140 = 1; x_115 = x_140; goto lbl_116; } } else { obj* x_141; uint8 x_142; x_141 = lean::box_uint32(x_107); x_142 = lean::nat_dec_le(x_112, x_141); lean::dec(x_141); lean::dec(x_112); if (x_142 == 0) { obj* x_146; lean::dec(x_113); x_146 = lean::box(0); x_108 = x_146; goto lbl_109; } else { uint8 x_147; x_147 = 1; x_115 = x_147; goto lbl_116; } } } } else { obj* x_148; uint8 x_149; x_148 = lean::box_uint32(x_107); x_149 = lean::nat_dec_le(x_112, x_148); lean::dec(x_148); lean::dec(x_112); if (x_149 == 0) { obj* x_153; lean::dec(x_113); x_153 = lean::box(0); x_108 = x_153; goto lbl_109; } else { uint8 x_154; x_154 = 1; x_115 = x_154; goto lbl_116; } } lbl_109: { obj* x_156; obj* x_157; obj* x_159; obj* x_161; obj* x_162; obj* x_163; obj* x_167; lean::dec(x_108); x_156 = l_char_quote__core(x_107); x_157 = l_char_has__repr___closed__1; lean::inc(x_157); x_159 = lean::string_append(x_157, x_156); lean::dec(x_156); x_161 = lean::string_append(x_159, x_157); x_162 = lean::box(0); x_163 = l_mjoin___rarg___closed__1; lean::inc(x_0); lean::inc(x_162); lean::inc(x_163); x_167 = l_lean_parser_monad__parsec_error___at___private_1496486805__parse__mangled__string__aux___main___spec__3___rarg(x_161, x_163, x_162, x_162, x_0); x_96 = x_167; goto lbl_97; } lbl_111: { obj* x_170; obj* x_171; obj* x_172; obj* x_173; lean::dec(x_110); lean::inc(x_0); x_170 = lean::string_iterator_next(x_0); x_171 = lean::box(0); x_172 = lean::box_uint32(x_107); x_173 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_173, 0, x_172); lean::cnstr_set(x_173, 1, x_170); lean::cnstr_set(x_173, 2, x_171); x_96 = x_173; goto lbl_97; } lbl_116: { obj* x_174; uint8 x_175; x_174 = lean::mk_nat_obj(102u); x_175 = lean::nat_dec_lt(x_174, x_113); lean::dec(x_113); if (x_175 == 0) { obj* x_177; uint8 x_178; x_177 = lean::mk_nat_obj(57343u); x_178 = lean::nat_dec_lt(x_177, x_174); lean::dec(x_177); if (x_178 == 0) { obj* x_181; obj* x_182; uint8 x_183; lean::dec(x_174); x_181 = lean::mk_nat_obj(0u); x_182 = lean::box_uint32(x_107); x_183 = lean::nat_dec_le(x_182, x_181); lean::dec(x_181); lean::dec(x_182); if (x_183 == 0) { obj* x_186; x_186 = lean::box(0); x_108 = x_186; goto lbl_109; } else { if (x_115 == 0) { obj* x_187; x_187 = lean::box(0); x_108 = x_187; goto lbl_109; } else { obj* x_188; x_188 = lean::box(0); x_110 = x_188; goto lbl_111; } } } else { obj* x_189; uint8 x_190; x_189 = lean::mk_nat_obj(1114112u); x_190 = lean::nat_dec_lt(x_174, x_189); lean::dec(x_189); if (x_190 == 0) { obj* x_193; obj* x_194; uint8 x_195; lean::dec(x_174); x_193 = lean::mk_nat_obj(0u); x_194 = lean::box_uint32(x_107); x_195 = lean::nat_dec_le(x_194, x_193); lean::dec(x_193); lean::dec(x_194); if (x_195 == 0) { obj* x_198; x_198 = lean::box(0); x_108 = x_198; goto lbl_109; } else { if (x_115 == 0) { obj* x_199; x_199 = lean::box(0); x_108 = x_199; goto lbl_109; } else { obj* x_200; x_200 = lean::box(0); x_110 = x_200; goto lbl_111; } } } else { obj* x_201; uint8 x_202; x_201 = lean::box_uint32(x_107); x_202 = lean::nat_dec_le(x_201, x_174); lean::dec(x_174); lean::dec(x_201); if (x_202 == 0) { obj* x_205; x_205 = lean::box(0); x_108 = x_205; goto lbl_109; } else { if (x_115 == 0) { obj* x_206; x_206 = lean::box(0); x_108 = x_206; goto lbl_109; } else { obj* x_207; x_207 = lean::box(0); x_110 = x_207; goto lbl_111; } } } } } else { obj* x_208; uint8 x_209; x_208 = lean::box_uint32(x_107); x_209 = lean::nat_dec_le(x_208, x_174); lean::dec(x_174); lean::dec(x_208); if (x_209 == 0) { obj* x_212; x_212 = lean::box(0); x_108 = x_212; goto lbl_109; } else { if (x_115 == 0) { obj* x_213; x_213 = lean::box(0); x_108 = x_213; goto lbl_109; } else { obj* x_214; x_214 = lean::box(0); x_110 = x_214; goto lbl_111; } } } } } lbl_97: { obj* x_215; obj* x_217; x_215 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_215); x_217 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_215, x_96); if (lean::obj_tag(x_217) == 0) { obj* x_218; obj* x_220; obj* x_222; obj* x_224; obj* x_225; obj* x_226; uint8 x_227; x_218 = lean::cnstr_get(x_217, 0); lean::inc(x_218); x_220 = lean::cnstr_get(x_217, 1); lean::inc(x_220); x_222 = lean::cnstr_get(x_217, 2); lean::inc(x_222); if (lean::is_shared(x_217)) { lean::dec(x_217); x_224 = lean::box(0); } else { lean::cnstr_release(x_217, 0); lean::cnstr_release(x_217, 1); lean::cnstr_release(x_217, 2); x_224 = x_217; } x_225 = lean::mk_nat_obj(97u); x_226 = lean::mk_nat_obj(55296u); x_227 = lean::nat_dec_lt(x_225, x_226); lean::dec(x_226); if (x_227 == 0) { obj* x_229; uint8 x_230; x_229 = lean::mk_nat_obj(57343u); x_230 = lean::nat_dec_lt(x_229, x_225); lean::dec(x_229); if (x_230 == 0) { obj* x_233; obj* x_234; obj* x_237; obj* x_238; obj* x_242; obj* x_243; lean::dec(x_225); x_233 = lean::mk_nat_obj(0u); x_234 = lean::nat_sub(x_218, x_233); lean::dec(x_233); lean::dec(x_218); x_237 = lean::mk_nat_obj(10u); x_238 = lean::nat_add(x_237, x_234); lean::dec(x_234); lean::dec(x_237); lean::inc(x_215); if (lean::is_scalar(x_224)) { x_242 = lean::alloc_cnstr(0, 3, 0); } else { x_242 = x_224; } lean::cnstr_set(x_242, 0, x_238); lean::cnstr_set(x_242, 1, x_220); lean::cnstr_set(x_242, 2, x_215); x_243 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_222, x_242); if (lean::obj_tag(x_243) == 0) { obj* x_245; obj* x_246; obj* x_248; lean::dec(x_0); x_245 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_2, x_243); x_246 = l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2___closed__1; lean::inc(x_246); x_248 = l_lean_parser_parsec__t_labels__mk__res___rarg(x_245, x_246); return x_248; } else { obj* x_249; uint8 x_251; x_249 = lean::cnstr_get(x_243, 0); lean::inc(x_249); x_251 = lean::cnstr_get_scalar(x_243, sizeof(void*)*1); x_91 = x_243; x_92 = x_249; x_93 = x_251; goto lbl_94; } } else { obj* x_252; uint8 x_253; x_252 = lean::mk_nat_obj(1114112u); x_253 = lean::nat_dec_lt(x_225, x_252); lean::dec(x_252); if (x_253 == 0) { obj* x_256; obj* x_257; obj* x_260; obj* x_261; obj* x_265; obj* x_266; lean::dec(x_225); x_256 = lean::mk_nat_obj(0u); x_257 = lean::nat_sub(x_218, x_256); lean::dec(x_256); lean::dec(x_218); x_260 = lean::mk_nat_obj(10u); x_261 = lean::nat_add(x_260, x_257); lean::dec(x_257); lean::dec(x_260); lean::inc(x_215); if (lean::is_scalar(x_224)) { x_265 = lean::alloc_cnstr(0, 3, 0); } else { x_265 = x_224; } lean::cnstr_set(x_265, 0, x_261); lean::cnstr_set(x_265, 1, x_220); lean::cnstr_set(x_265, 2, x_215); x_266 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_222, x_265); if (lean::obj_tag(x_266) == 0) { obj* x_268; obj* x_269; obj* x_271; lean::dec(x_0); x_268 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_2, x_266); x_269 = l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2___closed__1; lean::inc(x_269); x_271 = l_lean_parser_parsec__t_labels__mk__res___rarg(x_268, x_269); return x_271; } else { obj* x_272; uint8 x_274; x_272 = lean::cnstr_get(x_266, 0); lean::inc(x_272); x_274 = lean::cnstr_get_scalar(x_266, sizeof(void*)*1); x_91 = x_266; x_92 = x_272; x_93 = x_274; goto lbl_94; } } else { obj* x_275; obj* x_278; obj* x_279; obj* x_283; obj* x_284; x_275 = lean::nat_sub(x_218, x_225); lean::dec(x_225); lean::dec(x_218); x_278 = lean::mk_nat_obj(10u); x_279 = lean::nat_add(x_278, x_275); lean::dec(x_275); lean::dec(x_278); lean::inc(x_215); if (lean::is_scalar(x_224)) { x_283 = lean::alloc_cnstr(0, 3, 0); } else { x_283 = x_224; } lean::cnstr_set(x_283, 0, x_279); lean::cnstr_set(x_283, 1, x_220); lean::cnstr_set(x_283, 2, x_215); x_284 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_222, x_283); if (lean::obj_tag(x_284) == 0) { obj* x_286; obj* x_287; obj* x_289; lean::dec(x_0); x_286 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_2, x_284); x_287 = l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2___closed__1; lean::inc(x_287); x_289 = l_lean_parser_parsec__t_labels__mk__res___rarg(x_286, x_287); return x_289; } else { obj* x_290; uint8 x_292; x_290 = lean::cnstr_get(x_284, 0); lean::inc(x_290); x_292 = lean::cnstr_get_scalar(x_284, sizeof(void*)*1); x_91 = x_284; x_92 = x_290; x_93 = x_292; goto lbl_94; } } } } else { obj* x_293; obj* x_296; obj* x_297; obj* x_301; obj* x_302; x_293 = lean::nat_sub(x_218, x_225); lean::dec(x_225); lean::dec(x_218); x_296 = lean::mk_nat_obj(10u); x_297 = lean::nat_add(x_296, x_293); lean::dec(x_293); lean::dec(x_296); lean::inc(x_215); if (lean::is_scalar(x_224)) { x_301 = lean::alloc_cnstr(0, 3, 0); } else { x_301 = x_224; } lean::cnstr_set(x_301, 0, x_297); lean::cnstr_set(x_301, 1, x_220); lean::cnstr_set(x_301, 2, x_215); x_302 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_222, x_301); if (lean::obj_tag(x_302) == 0) { obj* x_304; obj* x_305; obj* x_307; lean::dec(x_0); x_304 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_2, x_302); x_305 = l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2___closed__1; lean::inc(x_305); x_307 = l_lean_parser_parsec__t_labels__mk__res___rarg(x_304, x_305); return x_307; } else { obj* x_308; uint8 x_310; x_308 = lean::cnstr_get(x_302, 0); lean::inc(x_308); x_310 = lean::cnstr_get_scalar(x_302, sizeof(void*)*1); x_91 = x_302; x_92 = x_308; x_93 = x_310; goto lbl_94; } } } else { obj* x_311; uint8 x_313; obj* x_314; obj* x_316; obj* x_317; x_311 = lean::cnstr_get(x_217, 0); lean::inc(x_311); x_313 = lean::cnstr_get_scalar(x_217, sizeof(void*)*1); if (lean::is_shared(x_217)) { lean::dec(x_217); x_314 = lean::box(0); } else { lean::cnstr_release(x_217, 0); x_314 = x_217; } lean::inc(x_311); if (lean::is_scalar(x_314)) { x_316 = lean::alloc_cnstr(1, 1, 1); } else { x_316 = x_314; } lean::cnstr_set(x_316, 0, x_311); lean::cnstr_set_scalar(x_316, sizeof(void*)*1, x_313); x_317 = x_316; x_91 = x_317; x_92 = x_311; x_93 = x_313; goto lbl_94; } } } else { obj* x_320; obj* x_322; lean::dec(x_0); lean::dec(x_2); x_320 = l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2___closed__1; lean::inc(x_320); x_322 = l_lean_parser_parsec__t_labels__mk__res___rarg(x_1, x_320); return x_322; } lbl_94: { if (x_93 == 0) { obj* x_324; uint8 x_326; lean::dec(x_91); x_326 = lean::string_iterator_has_next(x_0); if (x_326 == 0) { obj* x_327; obj* x_328; obj* x_329; obj* x_333; x_327 = lean::box(0); x_328 = l_lean_parser_monad__parsec_eoi__error___rarg___closed__1; x_329 = l_mjoin___rarg___closed__1; lean::inc(x_327); lean::inc(x_329); lean::inc(x_328); x_333 = l_lean_parser_monad__parsec_error___at___private_1496486805__parse__mangled__string__aux___main___spec__3___rarg(x_328, x_329, x_327, x_327, x_0); x_324 = x_333; goto lbl_325; } else { uint32 x_334; obj* x_335; obj* x_337; obj* x_339; obj* x_340; uint8 x_341; uint8 x_342; x_334 = lean::string_iterator_curr(x_0); x_339 = lean::mk_nat_obj(65u); x_340 = lean::mk_nat_obj(55296u); x_341 = lean::nat_dec_lt(x_339, x_340); if (x_341 == 0) { obj* x_344; uint8 x_345; x_344 = lean::mk_nat_obj(57343u); x_345 = lean::nat_dec_lt(x_344, x_339); lean::dec(x_344); if (x_345 == 0) { obj* x_348; obj* x_349; uint8 x_350; lean::dec(x_339); x_348 = lean::mk_nat_obj(0u); x_349 = lean::box_uint32(x_334); x_350 = lean::nat_dec_le(x_348, x_349); lean::dec(x_349); lean::dec(x_348); if (x_350 == 0) { obj* x_354; lean::dec(x_340); x_354 = lean::box(0); x_335 = x_354; goto lbl_336; } else { uint8 x_355; x_355 = 1; x_342 = x_355; goto lbl_343; } } else { obj* x_356; uint8 x_357; x_356 = lean::mk_nat_obj(1114112u); x_357 = lean::nat_dec_lt(x_339, x_356); lean::dec(x_356); if (x_357 == 0) { obj* x_360; obj* x_361; uint8 x_362; lean::dec(x_339); x_360 = lean::mk_nat_obj(0u); x_361 = lean::box_uint32(x_334); x_362 = lean::nat_dec_le(x_360, x_361); lean::dec(x_361); lean::dec(x_360); if (x_362 == 0) { obj* x_366; lean::dec(x_340); x_366 = lean::box(0); x_335 = x_366; goto lbl_336; } else { uint8 x_367; x_367 = 1; x_342 = x_367; goto lbl_343; } } else { obj* x_368; uint8 x_369; x_368 = lean::box_uint32(x_334); x_369 = lean::nat_dec_le(x_339, x_368); lean::dec(x_368); lean::dec(x_339); if (x_369 == 0) { obj* x_373; lean::dec(x_340); x_373 = lean::box(0); x_335 = x_373; goto lbl_336; } else { uint8 x_374; x_374 = 1; x_342 = x_374; goto lbl_343; } } } } else { obj* x_375; uint8 x_376; x_375 = lean::box_uint32(x_334); x_376 = lean::nat_dec_le(x_339, x_375); lean::dec(x_375); lean::dec(x_339); if (x_376 == 0) { obj* x_380; lean::dec(x_340); x_380 = lean::box(0); x_335 = x_380; goto lbl_336; } else { uint8 x_381; x_381 = 1; x_342 = x_381; goto lbl_343; } } lbl_336: { obj* x_383; obj* x_384; obj* x_386; obj* x_388; obj* x_389; obj* x_390; obj* x_393; lean::dec(x_335); x_383 = l_char_quote__core(x_334); x_384 = l_char_has__repr___closed__1; lean::inc(x_384); x_386 = lean::string_append(x_384, x_383); lean::dec(x_383); x_388 = lean::string_append(x_386, x_384); x_389 = lean::box(0); x_390 = l_mjoin___rarg___closed__1; lean::inc(x_389); lean::inc(x_390); x_393 = l_lean_parser_monad__parsec_error___at___private_1496486805__parse__mangled__string__aux___main___spec__3___rarg(x_388, x_390, x_389, x_389, x_0); x_324 = x_393; goto lbl_325; } lbl_338: { obj* x_395; obj* x_396; obj* x_397; obj* x_398; lean::dec(x_337); x_395 = lean::string_iterator_next(x_0); x_396 = lean::box(0); x_397 = lean::box_uint32(x_334); x_398 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_398, 0, x_397); lean::cnstr_set(x_398, 1, x_395); lean::cnstr_set(x_398, 2, x_396); x_324 = x_398; goto lbl_325; } lbl_343: { obj* x_399; uint8 x_400; x_399 = lean::mk_nat_obj(70u); x_400 = lean::nat_dec_lt(x_399, x_340); lean::dec(x_340); if (x_400 == 0) { obj* x_402; uint8 x_403; x_402 = lean::mk_nat_obj(57343u); x_403 = lean::nat_dec_lt(x_402, x_399); lean::dec(x_402); if (x_403 == 0) { obj* x_406; obj* x_407; uint8 x_408; lean::dec(x_399); x_406 = lean::mk_nat_obj(0u); x_407 = lean::box_uint32(x_334); x_408 = lean::nat_dec_le(x_407, x_406); lean::dec(x_406); lean::dec(x_407); if (x_408 == 0) { obj* x_411; x_411 = lean::box(0); x_335 = x_411; goto lbl_336; } else { if (x_342 == 0) { obj* x_412; x_412 = lean::box(0); x_335 = x_412; goto lbl_336; } else { obj* x_413; x_413 = lean::box(0); x_337 = x_413; goto lbl_338; } } } else { obj* x_414; uint8 x_415; x_414 = lean::mk_nat_obj(1114112u); x_415 = lean::nat_dec_lt(x_399, x_414); lean::dec(x_414); if (x_415 == 0) { obj* x_418; obj* x_419; uint8 x_420; lean::dec(x_399); x_418 = lean::mk_nat_obj(0u); x_419 = lean::box_uint32(x_334); x_420 = lean::nat_dec_le(x_419, x_418); lean::dec(x_418); lean::dec(x_419); if (x_420 == 0) { obj* x_423; x_423 = lean::box(0); x_335 = x_423; goto lbl_336; } else { if (x_342 == 0) { obj* x_424; x_424 = lean::box(0); x_335 = x_424; goto lbl_336; } else { obj* x_425; x_425 = lean::box(0); x_337 = x_425; goto lbl_338; } } } else { obj* x_426; uint8 x_427; x_426 = lean::box_uint32(x_334); x_427 = lean::nat_dec_le(x_426, x_399); lean::dec(x_399); lean::dec(x_426); if (x_427 == 0) { obj* x_430; x_430 = lean::box(0); x_335 = x_430; goto lbl_336; } else { if (x_342 == 0) { obj* x_431; x_431 = lean::box(0); x_335 = x_431; goto lbl_336; } else { obj* x_432; x_432 = lean::box(0); x_337 = x_432; goto lbl_338; } } } } } else { obj* x_433; uint8 x_434; x_433 = lean::box_uint32(x_334); x_434 = lean::nat_dec_le(x_433, x_399); lean::dec(x_399); lean::dec(x_433); if (x_434 == 0) { obj* x_437; x_437 = lean::box(0); x_335 = x_437; goto lbl_336; } else { if (x_342 == 0) { obj* x_438; x_438 = lean::box(0); x_335 = x_438; goto lbl_336; } else { obj* x_439; x_439 = lean::box(0); x_337 = x_439; goto lbl_338; } } } } } lbl_325: { obj* x_440; obj* x_442; x_440 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_440); x_442 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_440, x_324); if (lean::obj_tag(x_442) == 0) { obj* x_443; obj* x_445; obj* x_447; obj* x_449; obj* x_450; obj* x_451; uint8 x_452; x_443 = lean::cnstr_get(x_442, 0); lean::inc(x_443); x_445 = lean::cnstr_get(x_442, 1); lean::inc(x_445); x_447 = lean::cnstr_get(x_442, 2); lean::inc(x_447); if (lean::is_shared(x_442)) { lean::dec(x_442); x_449 = lean::box(0); } else { lean::cnstr_release(x_442, 0); lean::cnstr_release(x_442, 1); lean::cnstr_release(x_442, 2); x_449 = x_442; } x_450 = lean::mk_nat_obj(65u); x_451 = lean::mk_nat_obj(55296u); x_452 = lean::nat_dec_lt(x_450, x_451); lean::dec(x_451); if (x_452 == 0) { obj* x_454; uint8 x_455; x_454 = lean::mk_nat_obj(57343u); x_455 = lean::nat_dec_lt(x_454, x_450); lean::dec(x_454); if (x_455 == 0) { obj* x_458; obj* x_459; obj* x_462; obj* x_463; obj* x_467; obj* x_468; obj* x_469; obj* x_470; obj* x_471; obj* x_473; lean::dec(x_450); x_458 = lean::mk_nat_obj(0u); x_459 = lean::nat_sub(x_443, x_458); lean::dec(x_458); lean::dec(x_443); x_462 = lean::mk_nat_obj(10u); x_463 = lean::nat_add(x_462, x_459); lean::dec(x_459); lean::dec(x_462); lean::inc(x_440); if (lean::is_scalar(x_449)) { x_467 = lean::alloc_cnstr(0, 3, 0); } else { x_467 = x_449; } lean::cnstr_set(x_467, 0, x_463); lean::cnstr_set(x_467, 1, x_445); lean::cnstr_set(x_467, 2, x_440); x_468 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_447, x_467); x_469 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_92, x_468); x_470 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_2, x_469); x_471 = l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2___closed__1; lean::inc(x_471); x_473 = l_lean_parser_parsec__t_labels__mk__res___rarg(x_470, x_471); return x_473; } else { obj* x_474; uint8 x_475; x_474 = lean::mk_nat_obj(1114112u); x_475 = lean::nat_dec_lt(x_450, x_474); lean::dec(x_474); if (x_475 == 0) { obj* x_478; obj* x_479; obj* x_482; obj* x_483; obj* x_487; obj* x_488; obj* x_489; obj* x_490; obj* x_491; obj* x_493; lean::dec(x_450); x_478 = lean::mk_nat_obj(0u); x_479 = lean::nat_sub(x_443, x_478); lean::dec(x_478); lean::dec(x_443); x_482 = lean::mk_nat_obj(10u); x_483 = lean::nat_add(x_482, x_479); lean::dec(x_479); lean::dec(x_482); lean::inc(x_440); if (lean::is_scalar(x_449)) { x_487 = lean::alloc_cnstr(0, 3, 0); } else { x_487 = x_449; } lean::cnstr_set(x_487, 0, x_483); lean::cnstr_set(x_487, 1, x_445); lean::cnstr_set(x_487, 2, x_440); x_488 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_447, x_487); x_489 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_92, x_488); x_490 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_2, x_489); x_491 = l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2___closed__1; lean::inc(x_491); x_493 = l_lean_parser_parsec__t_labels__mk__res___rarg(x_490, x_491); return x_493; } else { obj* x_494; obj* x_497; obj* x_498; obj* x_502; obj* x_503; obj* x_504; obj* x_505; obj* x_506; obj* x_508; x_494 = lean::nat_sub(x_443, x_450); lean::dec(x_450); lean::dec(x_443); x_497 = lean::mk_nat_obj(10u); x_498 = lean::nat_add(x_497, x_494); lean::dec(x_494); lean::dec(x_497); lean::inc(x_440); if (lean::is_scalar(x_449)) { x_502 = lean::alloc_cnstr(0, 3, 0); } else { x_502 = x_449; } lean::cnstr_set(x_502, 0, x_498); lean::cnstr_set(x_502, 1, x_445); lean::cnstr_set(x_502, 2, x_440); x_503 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_447, x_502); x_504 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_92, x_503); x_505 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_2, x_504); x_506 = l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2___closed__1; lean::inc(x_506); x_508 = l_lean_parser_parsec__t_labels__mk__res___rarg(x_505, x_506); return x_508; } } } else { obj* x_509; obj* x_512; obj* x_513; obj* x_517; obj* x_518; obj* x_519; obj* x_520; obj* x_521; obj* x_523; x_509 = lean::nat_sub(x_443, x_450); lean::dec(x_450); lean::dec(x_443); x_512 = lean::mk_nat_obj(10u); x_513 = lean::nat_add(x_512, x_509); lean::dec(x_509); lean::dec(x_512); lean::inc(x_440); if (lean::is_scalar(x_449)) { x_517 = lean::alloc_cnstr(0, 3, 0); } else { x_517 = x_449; } lean::cnstr_set(x_517, 0, x_513); lean::cnstr_set(x_517, 1, x_445); lean::cnstr_set(x_517, 2, x_440); x_518 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_447, x_517); x_519 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_92, x_518); x_520 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_2, x_519); x_521 = l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2___closed__1; lean::inc(x_521); x_523 = l_lean_parser_parsec__t_labels__mk__res___rarg(x_520, x_521); return x_523; } } else { obj* x_524; uint8 x_526; obj* x_527; obj* x_528; obj* x_529; obj* x_530; obj* x_531; obj* x_532; obj* x_534; x_524 = lean::cnstr_get(x_442, 0); lean::inc(x_524); x_526 = lean::cnstr_get_scalar(x_442, sizeof(void*)*1); if (lean::is_shared(x_442)) { lean::dec(x_442); x_527 = lean::box(0); } else { lean::cnstr_release(x_442, 0); x_527 = x_442; } if (lean::is_scalar(x_527)) { x_528 = lean::alloc_cnstr(1, 1, 1); } else { x_528 = x_527; } lean::cnstr_set(x_528, 0, x_524); lean::cnstr_set_scalar(x_528, sizeof(void*)*1, x_526); x_529 = x_528; x_530 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_92, x_529); x_531 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_2, x_530); x_532 = l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2___closed__1; lean::inc(x_532); x_534 = l_lean_parser_parsec__t_labels__mk__res___rarg(x_531, x_532); return x_534; } } } else { obj* x_537; obj* x_538; obj* x_540; lean::dec(x_0); lean::dec(x_92); x_537 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_2, x_91); x_538 = l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2___closed__1; lean::inc(x_538); x_540 = l_lean_parser_parsec__t_labels__mk__res___rarg(x_537, x_538); return x_540; } } } } } obj* _init_l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2___closed__1() { _start: { obj* x_0; obj* x_1; x_0 = lean::mk_string("hexadecimal"); x_1 = lean::alloc_closure(reinterpret_cast(l_dlist_singleton___rarg), 2, 1); lean::closure_set(x_1, 0, x_0); return x_1; } } obj* l_lean_parser_monad__parsec_alpha___at___private_1496486805__parse__mangled__string__aux___main___spec__5(obj* x_0) { _start: { uint8 x_1; x_1 = lean::string_iterator_has_next(x_0); if (x_1 == 0) { obj* x_2; obj* x_3; obj* x_4; obj* x_8; x_2 = lean::box(0); x_3 = l_lean_parser_monad__parsec_eoi__error___rarg___closed__1; x_4 = l_mjoin___rarg___closed__1; lean::inc(x_2); lean::inc(x_4); lean::inc(x_3); x_8 = l_lean_parser_monad__parsec_error___at___private_1496486805__parse__mangled__string__aux___main___spec__3___rarg(x_3, x_4, x_2, x_2, x_0); if (lean::obj_tag(x_8) == 0) { obj* x_9; obj* x_11; obj* x_13; x_9 = lean::cnstr_get(x_8, 0); lean::inc(x_9); x_11 = lean::cnstr_get(x_8, 1); lean::inc(x_11); x_13 = lean::cnstr_get(x_8, 2); lean::inc(x_13); if (lean::obj_tag(x_13) == 0) { lean::dec(x_13); lean::dec(x_11); lean::dec(x_9); return x_8; } else { obj* x_19; obj* x_21; obj* x_23; obj* x_24; obj* x_25; lean::dec(x_8); x_19 = lean::cnstr_get(x_13, 0); lean::inc(x_19); if (lean::is_shared(x_13)) { lean::dec(x_13); x_21 = lean::box(0); } else { lean::cnstr_release(x_13, 0); x_21 = x_13; } lean::inc(x_4); x_23 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); lean::closure_set(x_23, 0, x_4); lean::closure_set(x_23, 1, x_19); if (lean::is_scalar(x_21)) { x_24 = lean::alloc_cnstr(1, 1, 0); } else { x_24 = x_21; } lean::cnstr_set(x_24, 0, x_23); x_25 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_25, 0, x_9); lean::cnstr_set(x_25, 1, x_11); lean::cnstr_set(x_25, 2, x_24); return x_25; } } else { obj* x_26; uint8 x_28; x_26 = lean::cnstr_get(x_8, 0); lean::inc(x_26); x_28 = lean::cnstr_get_scalar(x_8, sizeof(void*)*1); if (x_28 == 0) { obj* x_30; obj* x_32; obj* x_34; obj* x_37; obj* x_38; obj* x_41; obj* x_42; obj* x_43; lean::dec(x_8); x_30 = lean::cnstr_get(x_26, 0); lean::inc(x_30); x_32 = lean::cnstr_get(x_26, 1); lean::inc(x_32); x_34 = lean::cnstr_get(x_26, 2); lean::inc(x_34); lean::inc(x_4); x_37 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); lean::closure_set(x_37, 0, x_4); lean::closure_set(x_37, 1, x_34); x_38 = lean::cnstr_get(x_26, 3); lean::inc(x_38); lean::dec(x_26); x_41 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_41, 0, x_30); lean::cnstr_set(x_41, 1, x_32); lean::cnstr_set(x_41, 2, x_37); lean::cnstr_set(x_41, 3, x_38); x_42 = lean::alloc_cnstr(1, 1, 1); lean::cnstr_set(x_42, 0, x_41); lean::cnstr_set_scalar(x_42, sizeof(void*)*1, x_28); x_43 = x_42; return x_43; } else { lean::dec(x_26); return x_8; } } } else { uint32 x_45; uint8 x_46; x_45 = lean::string_iterator_curr(x_0); x_46 = l_char_is__alpha(x_45); if (x_46 == 0) { obj* x_47; obj* x_48; obj* x_50; obj* x_52; obj* x_53; obj* x_54; obj* x_57; x_47 = l_char_quote__core(x_45); x_48 = l_char_has__repr___closed__1; lean::inc(x_48); x_50 = lean::string_append(x_48, x_47); lean::dec(x_47); x_52 = lean::string_append(x_50, x_48); x_53 = lean::box(0); x_54 = l_mjoin___rarg___closed__1; lean::inc(x_53); lean::inc(x_54); x_57 = l_lean_parser_monad__parsec_error___at___private_1496486805__parse__mangled__string__aux___main___spec__3___rarg(x_52, x_54, x_53, x_53, x_0); if (lean::obj_tag(x_57) == 0) { obj* x_58; obj* x_60; obj* x_62; x_58 = lean::cnstr_get(x_57, 0); lean::inc(x_58); x_60 = lean::cnstr_get(x_57, 1); lean::inc(x_60); x_62 = lean::cnstr_get(x_57, 2); lean::inc(x_62); if (lean::obj_tag(x_62) == 0) { lean::dec(x_58); lean::dec(x_60); lean::dec(x_62); return x_57; } else { obj* x_68; obj* x_70; obj* x_72; obj* x_73; obj* x_74; lean::dec(x_57); x_68 = lean::cnstr_get(x_62, 0); lean::inc(x_68); if (lean::is_shared(x_62)) { lean::dec(x_62); x_70 = lean::box(0); } else { lean::cnstr_release(x_62, 0); x_70 = x_62; } lean::inc(x_54); x_72 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); lean::closure_set(x_72, 0, x_54); lean::closure_set(x_72, 1, x_68); if (lean::is_scalar(x_70)) { x_73 = lean::alloc_cnstr(1, 1, 0); } else { x_73 = x_70; } lean::cnstr_set(x_73, 0, x_72); x_74 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_74, 0, x_58); lean::cnstr_set(x_74, 1, x_60); lean::cnstr_set(x_74, 2, x_73); return x_74; } } else { obj* x_75; uint8 x_77; x_75 = lean::cnstr_get(x_57, 0); lean::inc(x_75); x_77 = lean::cnstr_get_scalar(x_57, sizeof(void*)*1); if (x_77 == 0) { obj* x_79; obj* x_81; obj* x_83; obj* x_86; obj* x_87; obj* x_90; obj* x_91; obj* x_92; lean::dec(x_57); x_79 = lean::cnstr_get(x_75, 0); lean::inc(x_79); x_81 = lean::cnstr_get(x_75, 1); lean::inc(x_81); x_83 = lean::cnstr_get(x_75, 2); lean::inc(x_83); lean::inc(x_54); x_86 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); lean::closure_set(x_86, 0, x_54); lean::closure_set(x_86, 1, x_83); x_87 = lean::cnstr_get(x_75, 3); lean::inc(x_87); lean::dec(x_75); x_90 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_90, 0, x_79); lean::cnstr_set(x_90, 1, x_81); lean::cnstr_set(x_90, 2, x_86); lean::cnstr_set(x_90, 3, x_87); x_91 = lean::alloc_cnstr(1, 1, 1); lean::cnstr_set(x_91, 0, x_90); lean::cnstr_set_scalar(x_91, sizeof(void*)*1, x_77); x_92 = x_91; return x_92; } else { lean::dec(x_75); return x_57; } } } else { obj* x_94; obj* x_95; obj* x_96; obj* x_97; x_94 = lean::string_iterator_next(x_0); x_95 = lean::box(0); x_96 = lean::box_uint32(x_45); x_97 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_97, 0, x_96); lean::cnstr_set(x_97, 1, x_94); lean::cnstr_set(x_97, 2, x_95); return x_97; } } } } obj* l_lean_parser_monad__parsec_eoi___at___private_1496486805__parse__mangled__string__aux___main___spec__6(obj* x_0) { _start: { obj* x_1; obj* x_2; uint8 x_3; x_1 = lean::string_iterator_remaining(x_0); x_2 = lean::mk_nat_obj(0u); x_3 = lean::nat_dec_eq(x_1, x_2); lean::dec(x_2); lean::dec(x_1); if (x_3 == 0) { uint32 x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_12; obj* x_13; obj* x_14; obj* x_17; x_6 = lean::string_iterator_curr(x_0); x_7 = l_char_quote__core(x_6); x_8 = l_char_has__repr___closed__1; lean::inc(x_8); x_10 = lean::string_append(x_8, x_7); lean::dec(x_7); x_12 = lean::string_append(x_10, x_8); x_13 = lean::box(0); x_14 = l_lean_parser_monad__parsec_eoi___rarg___lambda__1___closed__1; lean::inc(x_13); lean::inc(x_14); x_17 = l_lean_parser_monad__parsec_error___at___private_1496486805__parse__mangled__string__aux___main___spec__3___rarg(x_12, x_14, x_13, x_13, x_0); if (lean::obj_tag(x_17) == 0) { obj* x_18; obj* x_20; obj* x_22; x_18 = lean::cnstr_get(x_17, 0); lean::inc(x_18); x_20 = lean::cnstr_get(x_17, 1); lean::inc(x_20); x_22 = lean::cnstr_get(x_17, 2); lean::inc(x_22); if (lean::obj_tag(x_22) == 0) { lean::dec(x_22); lean::dec(x_18); lean::dec(x_20); return x_17; } else { obj* x_28; obj* x_30; obj* x_31; obj* x_33; obj* x_34; obj* x_35; lean::dec(x_17); x_28 = lean::cnstr_get(x_22, 0); lean::inc(x_28); if (lean::is_shared(x_22)) { lean::dec(x_22); x_30 = lean::box(0); } else { lean::cnstr_release(x_22, 0); x_30 = x_22; } x_31 = l_mjoin___rarg___closed__1; lean::inc(x_31); x_33 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); lean::closure_set(x_33, 0, x_31); lean::closure_set(x_33, 1, x_28); if (lean::is_scalar(x_30)) { x_34 = lean::alloc_cnstr(1, 1, 0); } else { x_34 = x_30; } lean::cnstr_set(x_34, 0, x_33); x_35 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_35, 0, x_18); lean::cnstr_set(x_35, 1, x_20); lean::cnstr_set(x_35, 2, x_34); return x_35; } } else { obj* x_36; uint8 x_38; x_36 = lean::cnstr_get(x_17, 0); lean::inc(x_36); x_38 = lean::cnstr_get_scalar(x_17, sizeof(void*)*1); if (x_38 == 0) { obj* x_40; obj* x_42; obj* x_44; obj* x_46; obj* x_48; obj* x_49; obj* x_52; obj* x_53; obj* x_54; lean::dec(x_17); x_40 = lean::cnstr_get(x_36, 0); lean::inc(x_40); x_42 = lean::cnstr_get(x_36, 1); lean::inc(x_42); x_44 = lean::cnstr_get(x_36, 2); lean::inc(x_44); x_46 = l_mjoin___rarg___closed__1; lean::inc(x_46); x_48 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); lean::closure_set(x_48, 0, x_46); lean::closure_set(x_48, 1, x_44); x_49 = lean::cnstr_get(x_36, 3); lean::inc(x_49); lean::dec(x_36); x_52 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_52, 0, x_40); lean::cnstr_set(x_52, 1, x_42); lean::cnstr_set(x_52, 2, x_48); lean::cnstr_set(x_52, 3, x_49); x_53 = lean::alloc_cnstr(1, 1, 1); lean::cnstr_set(x_53, 0, x_52); lean::cnstr_set_scalar(x_53, sizeof(void*)*1, x_38); x_54 = x_53; return x_54; } else { lean::dec(x_36); return x_17; } } } else { obj* x_56; obj* x_57; obj* x_59; x_56 = lean::box(0); x_57 = l_lean_parser_monad__parsec_eoi___at___private_1496486805__parse__mangled__string__aux___main___spec__6___closed__1; lean::inc(x_57); x_59 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_59, 0, x_56); lean::cnstr_set(x_59, 1, x_0); lean::cnstr_set(x_59, 2, x_57); return x_59; } } } obj* _init_l_lean_parser_monad__parsec_eoi___at___private_1496486805__parse__mangled__string__aux___main___spec__6___closed__1() { _start: { obj* x_0; obj* x_2; obj* x_3; x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg), 1, 0); lean::inc(x_0); x_2 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); lean::closure_set(x_2, 0, x_0); lean::closure_set(x_2, 1, x_0); x_3 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_3, 0, x_2); return x_3; } } obj* l___private_1496486805__parse__mangled__string__aux___main(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; uint8 x_4; x_3 = lean::mk_nat_obj(0u); x_4 = lean::nat_dec_eq(x_0, x_3); if (x_4 == 0) { obj* x_5; obj* x_6; obj* x_9; obj* x_12; x_5 = lean::mk_nat_obj(1u); x_6 = lean::nat_sub(x_0, x_5); lean::dec(x_5); lean::dec(x_0); lean::inc(x_2); x_12 = l_lean_parser_monad__parsec_eoi___at___private_1496486805__parse__mangled__string__aux___main___spec__6(x_2); if (lean::obj_tag(x_12) == 0) { obj* x_13; obj* x_15; obj* x_17; obj* x_18; obj* x_21; obj* x_22; x_13 = lean::cnstr_get(x_12, 1); lean::inc(x_13); x_15 = lean::cnstr_get(x_12, 2); lean::inc(x_15); if (lean::is_shared(x_12)) { lean::dec(x_12); x_17 = lean::box(0); } else { lean::cnstr_release(x_12, 0); lean::cnstr_release(x_12, 1); lean::cnstr_release(x_12, 2); x_17 = x_12; } x_18 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_18); lean::inc(x_1); if (lean::is_scalar(x_17)) { x_21 = lean::alloc_cnstr(0, 3, 0); } else { x_21 = x_17; } lean::cnstr_set(x_21, 0, x_1); lean::cnstr_set(x_21, 1, x_13); lean::cnstr_set(x_21, 2, x_18); x_22 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_15, x_21); x_9 = x_22; goto lbl_10; } else { obj* x_23; uint8 x_25; obj* x_26; obj* x_27; obj* x_28; x_23 = lean::cnstr_get(x_12, 0); lean::inc(x_23); x_25 = lean::cnstr_get_scalar(x_12, sizeof(void*)*1); if (lean::is_shared(x_12)) { lean::dec(x_12); x_26 = lean::box(0); } else { lean::cnstr_release(x_12, 0); x_26 = x_12; } if (lean::is_scalar(x_26)) { x_27 = lean::alloc_cnstr(1, 1, 1); } else { x_27 = x_26; } lean::cnstr_set(x_27, 0, x_23); lean::cnstr_set_scalar(x_27, sizeof(void*)*1, x_25); x_28 = x_27; x_9 = x_28; goto lbl_10; } lbl_10: { if (lean::obj_tag(x_9) == 0) { lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); lean::dec(x_2); return x_9; } else { obj* x_33; uint8 x_35; obj* x_36; obj* x_37; uint8 x_38; x_33 = lean::cnstr_get(x_9, 0); lean::inc(x_33); x_35 = lean::cnstr_get_scalar(x_9, sizeof(void*)*1); if (x_35 == 0) { obj* x_42; lean::dec(x_9); lean::inc(x_2); x_42 = l_lean_parser_monad__parsec_alpha___at___private_1496486805__parse__mangled__string__aux___main___spec__5(x_2); if (lean::obj_tag(x_42) == 0) { obj* x_43; obj* x_45; obj* x_47; uint32 x_50; obj* x_53; obj* x_55; obj* x_56; x_43 = lean::cnstr_get(x_42, 0); lean::inc(x_43); x_45 = lean::cnstr_get(x_42, 1); lean::inc(x_45); x_47 = lean::cnstr_get(x_42, 2); lean::inc(x_47); lean::dec(x_42); x_50 = lean::unbox_uint32(x_43); lean::dec(x_43); lean::inc(x_1); x_53 = lean::string_push(x_1, x_50); lean::inc(x_6); x_55 = l___private_1496486805__parse__mangled__string__aux___main(x_6, x_53, x_45); x_56 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_47, x_55); if (lean::obj_tag(x_56) == 0) { obj* x_61; lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); lean::dec(x_2); x_61 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_56); return x_61; } else { obj* x_62; uint8 x_64; x_62 = lean::cnstr_get(x_56, 0); lean::inc(x_62); x_64 = lean::cnstr_get_scalar(x_56, sizeof(void*)*1); x_36 = x_56; x_37 = x_62; x_38 = x_64; goto lbl_39; } } else { obj* x_65; uint8 x_67; obj* x_68; obj* x_70; obj* x_71; x_65 = lean::cnstr_get(x_42, 0); lean::inc(x_65); x_67 = lean::cnstr_get_scalar(x_42, sizeof(void*)*1); if (lean::is_shared(x_42)) { lean::dec(x_42); x_68 = lean::box(0); } else { lean::cnstr_release(x_42, 0); x_68 = x_42; } lean::inc(x_65); if (lean::is_scalar(x_68)) { x_70 = lean::alloc_cnstr(1, 1, 1); } else { x_70 = x_68; } lean::cnstr_set(x_70, 0, x_65); lean::cnstr_set_scalar(x_70, sizeof(void*)*1, x_67); x_71 = x_70; x_36 = x_71; x_37 = x_65; x_38 = x_67; goto lbl_39; } } else { lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); lean::dec(x_2); lean::dec(x_33); return x_9; } lbl_39: { obj* x_77; obj* x_78; uint8 x_79; if (x_38 == 0) { obj* x_83; lean::dec(x_36); lean::inc(x_2); x_83 = l_lean_parser_monad__parsec_digit___at___private_1496486805__parse__mangled__string__aux___main___spec__4(x_2); if (lean::obj_tag(x_83) == 0) { obj* x_84; obj* x_86; obj* x_88; uint32 x_91; obj* x_94; obj* x_96; obj* x_97; x_84 = lean::cnstr_get(x_83, 0); lean::inc(x_84); x_86 = lean::cnstr_get(x_83, 1); lean::inc(x_86); x_88 = lean::cnstr_get(x_83, 2); lean::inc(x_88); lean::dec(x_83); x_91 = lean::unbox_uint32(x_84); lean::dec(x_84); lean::inc(x_1); x_94 = lean::string_push(x_1, x_91); lean::inc(x_6); x_96 = l___private_1496486805__parse__mangled__string__aux___main(x_6, x_94, x_86); x_97 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_88, x_96); if (lean::obj_tag(x_97) == 0) { obj* x_102; obj* x_103; lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); lean::dec(x_2); x_102 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_97); x_103 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_102); return x_103; } else { obj* x_104; uint8 x_106; x_104 = lean::cnstr_get(x_97, 0); lean::inc(x_104); x_106 = lean::cnstr_get_scalar(x_97, sizeof(void*)*1); x_77 = x_97; x_78 = x_104; x_79 = x_106; goto lbl_80; } } else { obj* x_107; uint8 x_109; obj* x_110; obj* x_112; obj* x_113; x_107 = lean::cnstr_get(x_83, 0); lean::inc(x_107); x_109 = lean::cnstr_get_scalar(x_83, sizeof(void*)*1); if (lean::is_shared(x_83)) { lean::dec(x_83); x_110 = lean::box(0); } else { lean::cnstr_release(x_83, 0); x_110 = x_83; } lean::inc(x_107); if (lean::is_scalar(x_110)) { x_112 = lean::alloc_cnstr(1, 1, 1); } else { x_112 = x_110; } lean::cnstr_set(x_112, 0, x_107); lean::cnstr_set_scalar(x_112, sizeof(void*)*1, x_109); x_113 = x_112; x_77 = x_113; x_78 = x_107; x_79 = x_109; goto lbl_80; } } else { obj* x_119; lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); lean::dec(x_2); lean::dec(x_37); x_119 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_36); return x_119; } lbl_80: { obj* x_120; obj* x_121; uint8 x_122; if (x_79 == 0) { obj* x_125; obj* x_126; obj* x_130; lean::dec(x_77); x_125 = l___private_3255790009__string_mangle__aux___main___closed__3; x_126 = l___private_1496486805__parse__mangled__string__aux___main___closed__3; lean::inc(x_2); lean::inc(x_126); lean::inc(x_125); x_130 = l_lean_parser_monad__parsec_str__core___at___private_1496486805__parse__mangled__string__aux___main___spec__1(x_125, x_126, x_2); if (lean::obj_tag(x_130) == 0) { obj* x_131; obj* x_133; obj* x_136; obj* x_137; uint8 x_138; x_131 = lean::cnstr_get(x_130, 1); lean::inc(x_131); x_133 = lean::cnstr_get(x_130, 2); lean::inc(x_133); lean::dec(x_130); x_136 = lean::mk_nat_obj(95u); x_137 = lean::mk_nat_obj(55296u); x_138 = lean::nat_dec_lt(x_136, x_137); lean::dec(x_137); if (x_138 == 0) { obj* x_140; uint8 x_141; x_140 = lean::mk_nat_obj(57343u); x_141 = lean::nat_dec_lt(x_140, x_136); lean::dec(x_140); if (x_141 == 0) { uint32 x_144; obj* x_146; obj* x_148; obj* x_149; lean::dec(x_136); x_144 = lean::unbox_uint32(x_3); lean::inc(x_1); x_146 = lean::string_push(x_1, x_144); lean::inc(x_6); x_148 = l___private_1496486805__parse__mangled__string__aux___main(x_6, x_146, x_131); x_149 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_133, x_148); if (lean::obj_tag(x_149) == 0) { obj* x_154; obj* x_155; obj* x_156; lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); lean::dec(x_2); x_154 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_78, x_149); x_155 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_154); x_156 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_155); return x_156; } else { obj* x_157; uint8 x_159; x_157 = lean::cnstr_get(x_149, 0); lean::inc(x_157); x_159 = lean::cnstr_get_scalar(x_149, sizeof(void*)*1); x_120 = x_149; x_121 = x_157; x_122 = x_159; goto lbl_123; } } else { obj* x_160; uint8 x_161; x_160 = lean::mk_nat_obj(1114112u); x_161 = lean::nat_dec_lt(x_136, x_160); lean::dec(x_160); if (x_161 == 0) { uint32 x_164; obj* x_166; obj* x_168; obj* x_169; lean::dec(x_136); x_164 = lean::unbox_uint32(x_3); lean::inc(x_1); x_166 = lean::string_push(x_1, x_164); lean::inc(x_6); x_168 = l___private_1496486805__parse__mangled__string__aux___main(x_6, x_166, x_131); x_169 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_133, x_168); if (lean::obj_tag(x_169) == 0) { obj* x_174; obj* x_175; obj* x_176; lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); lean::dec(x_2); x_174 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_78, x_169); x_175 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_174); x_176 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_175); return x_176; } else { obj* x_177; uint8 x_179; x_177 = lean::cnstr_get(x_169, 0); lean::inc(x_177); x_179 = lean::cnstr_get_scalar(x_169, sizeof(void*)*1); x_120 = x_169; x_121 = x_177; x_122 = x_179; goto lbl_123; } } else { uint32 x_180; obj* x_183; obj* x_185; obj* x_186; x_180 = lean::unbox_uint32(x_136); lean::dec(x_136); lean::inc(x_1); x_183 = lean::string_push(x_1, x_180); lean::inc(x_6); x_185 = l___private_1496486805__parse__mangled__string__aux___main(x_6, x_183, x_131); x_186 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_133, x_185); if (lean::obj_tag(x_186) == 0) { obj* x_191; obj* x_192; obj* x_193; lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); lean::dec(x_2); x_191 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_78, x_186); x_192 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_191); x_193 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_192); return x_193; } else { obj* x_194; uint8 x_196; x_194 = lean::cnstr_get(x_186, 0); lean::inc(x_194); x_196 = lean::cnstr_get_scalar(x_186, sizeof(void*)*1); x_120 = x_186; x_121 = x_194; x_122 = x_196; goto lbl_123; } } } } else { uint32 x_197; obj* x_200; obj* x_202; obj* x_203; x_197 = lean::unbox_uint32(x_136); lean::dec(x_136); lean::inc(x_1); x_200 = lean::string_push(x_1, x_197); lean::inc(x_6); x_202 = l___private_1496486805__parse__mangled__string__aux___main(x_6, x_200, x_131); x_203 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_133, x_202); if (lean::obj_tag(x_203) == 0) { obj* x_208; obj* x_209; obj* x_210; lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); lean::dec(x_2); x_208 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_78, x_203); x_209 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_208); x_210 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_209); return x_210; } else { obj* x_211; uint8 x_213; x_211 = lean::cnstr_get(x_203, 0); lean::inc(x_211); x_213 = lean::cnstr_get_scalar(x_203, sizeof(void*)*1); x_120 = x_203; x_121 = x_211; x_122 = x_213; goto lbl_123; } } } else { obj* x_214; uint8 x_216; obj* x_217; obj* x_219; obj* x_220; x_214 = lean::cnstr_get(x_130, 0); lean::inc(x_214); x_216 = lean::cnstr_get_scalar(x_130, sizeof(void*)*1); if (lean::is_shared(x_130)) { lean::dec(x_130); x_217 = lean::box(0); } else { lean::cnstr_release(x_130, 0); x_217 = x_130; } lean::inc(x_214); if (lean::is_scalar(x_217)) { x_219 = lean::alloc_cnstr(1, 1, 1); } else { x_219 = x_217; } lean::cnstr_set(x_219, 0, x_214); lean::cnstr_set_scalar(x_219, sizeof(void*)*1, x_216); x_220 = x_219; x_120 = x_220; x_121 = x_214; x_122 = x_216; goto lbl_123; } } else { obj* x_226; obj* x_227; lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); lean::dec(x_2); lean::dec(x_78); x_226 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_77); x_227 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_226); return x_227; } lbl_123: { obj* x_228; obj* x_229; uint8 x_230; if (x_122 == 0) { obj* x_233; obj* x_234; obj* x_238; lean::dec(x_120); x_233 = l___private_3255790009__string_mangle__aux___main___closed__2; x_234 = l___private_1496486805__parse__mangled__string__aux___main___closed__2; lean::inc(x_2); lean::inc(x_234); lean::inc(x_233); x_238 = l_lean_parser_monad__parsec_str__core___at___private_1496486805__parse__mangled__string__aux___main___spec__1(x_233, x_234, x_2); if (lean::obj_tag(x_238) == 0) { obj* x_239; obj* x_241; obj* x_244; x_239 = lean::cnstr_get(x_238, 1); lean::inc(x_239); x_241 = lean::cnstr_get(x_238, 2); lean::inc(x_241); lean::dec(x_238); x_244 = l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2(x_239); if (lean::obj_tag(x_244) == 0) { obj* x_245; obj* x_247; obj* x_249; obj* x_252; x_245 = lean::cnstr_get(x_244, 0); lean::inc(x_245); x_247 = lean::cnstr_get(x_244, 1); lean::inc(x_247); x_249 = lean::cnstr_get(x_244, 2); lean::inc(x_249); lean::dec(x_244); x_252 = l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2(x_247); if (lean::obj_tag(x_252) == 0) { obj* x_253; obj* x_255; obj* x_257; obj* x_260; obj* x_261; obj* x_264; obj* x_267; uint8 x_268; x_253 = lean::cnstr_get(x_252, 0); lean::inc(x_253); x_255 = lean::cnstr_get(x_252, 1); lean::inc(x_255); x_257 = lean::cnstr_get(x_252, 2); lean::inc(x_257); lean::dec(x_252); x_260 = lean::mk_nat_obj(16u); x_261 = lean::nat_mul(x_245, x_260); lean::dec(x_260); lean::dec(x_245); x_264 = lean::nat_add(x_261, x_253); lean::dec(x_253); lean::dec(x_261); x_267 = lean::mk_nat_obj(55296u); x_268 = lean::nat_dec_lt(x_264, x_267); lean::dec(x_267); if (x_268 == 0) { obj* x_270; uint8 x_271; x_270 = lean::mk_nat_obj(57343u); x_271 = lean::nat_dec_lt(x_270, x_264); lean::dec(x_270); if (x_271 == 0) { uint32 x_274; obj* x_276; obj* x_278; obj* x_279; obj* x_280; obj* x_281; lean::dec(x_264); x_274 = lean::unbox_uint32(x_3); lean::inc(x_1); x_276 = lean::string_push(x_1, x_274); lean::inc(x_6); x_278 = l___private_1496486805__parse__mangled__string__aux___main(x_6, x_276, x_255); x_279 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_257, x_278); x_280 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_249, x_279); x_281 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_241, x_280); if (lean::obj_tag(x_281) == 0) { obj* x_286; obj* x_287; obj* x_288; obj* x_289; lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); lean::dec(x_2); x_286 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_121, x_281); x_287 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_78, x_286); x_288 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_287); x_289 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_288); return x_289; } else { obj* x_290; uint8 x_292; x_290 = lean::cnstr_get(x_281, 0); lean::inc(x_290); x_292 = lean::cnstr_get_scalar(x_281, sizeof(void*)*1); x_228 = x_281; x_229 = x_290; x_230 = x_292; goto lbl_231; } } else { obj* x_293; uint8 x_294; x_293 = lean::mk_nat_obj(1114112u); x_294 = lean::nat_dec_lt(x_264, x_293); lean::dec(x_293); if (x_294 == 0) { uint32 x_297; obj* x_299; obj* x_301; obj* x_302; obj* x_303; obj* x_304; lean::dec(x_264); x_297 = lean::unbox_uint32(x_3); lean::inc(x_1); x_299 = lean::string_push(x_1, x_297); lean::inc(x_6); x_301 = l___private_1496486805__parse__mangled__string__aux___main(x_6, x_299, x_255); x_302 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_257, x_301); x_303 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_249, x_302); x_304 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_241, x_303); if (lean::obj_tag(x_304) == 0) { obj* x_309; obj* x_310; obj* x_311; obj* x_312; lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); lean::dec(x_2); x_309 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_121, x_304); x_310 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_78, x_309); x_311 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_310); x_312 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_311); return x_312; } else { obj* x_313; uint8 x_315; x_313 = lean::cnstr_get(x_304, 0); lean::inc(x_313); x_315 = lean::cnstr_get_scalar(x_304, sizeof(void*)*1); x_228 = x_304; x_229 = x_313; x_230 = x_315; goto lbl_231; } } else { uint32 x_316; obj* x_319; obj* x_321; obj* x_322; obj* x_323; obj* x_324; x_316 = lean::unbox_uint32(x_264); lean::dec(x_264); lean::inc(x_1); x_319 = lean::string_push(x_1, x_316); lean::inc(x_6); x_321 = l___private_1496486805__parse__mangled__string__aux___main(x_6, x_319, x_255); x_322 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_257, x_321); x_323 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_249, x_322); x_324 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_241, x_323); if (lean::obj_tag(x_324) == 0) { obj* x_329; obj* x_330; obj* x_331; obj* x_332; lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); lean::dec(x_2); x_329 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_121, x_324); x_330 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_78, x_329); x_331 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_330); x_332 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_331); return x_332; } else { obj* x_333; uint8 x_335; x_333 = lean::cnstr_get(x_324, 0); lean::inc(x_333); x_335 = lean::cnstr_get_scalar(x_324, sizeof(void*)*1); x_228 = x_324; x_229 = x_333; x_230 = x_335; goto lbl_231; } } } } else { uint32 x_336; obj* x_339; obj* x_341; obj* x_342; obj* x_343; obj* x_344; x_336 = lean::unbox_uint32(x_264); lean::dec(x_264); lean::inc(x_1); x_339 = lean::string_push(x_1, x_336); lean::inc(x_6); x_341 = l___private_1496486805__parse__mangled__string__aux___main(x_6, x_339, x_255); x_342 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_257, x_341); x_343 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_249, x_342); x_344 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_241, x_343); if (lean::obj_tag(x_344) == 0) { obj* x_349; obj* x_350; obj* x_351; obj* x_352; lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); lean::dec(x_2); x_349 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_121, x_344); x_350 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_78, x_349); x_351 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_350); x_352 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_351); return x_352; } else { obj* x_353; uint8 x_355; x_353 = lean::cnstr_get(x_344, 0); lean::inc(x_353); x_355 = lean::cnstr_get_scalar(x_344, sizeof(void*)*1); x_228 = x_344; x_229 = x_353; x_230 = x_355; goto lbl_231; } } } else { obj* x_357; uint8 x_359; obj* x_360; obj* x_361; obj* x_362; obj* x_363; obj* x_364; lean::dec(x_245); x_357 = lean::cnstr_get(x_252, 0); lean::inc(x_357); x_359 = lean::cnstr_get_scalar(x_252, sizeof(void*)*1); if (lean::is_shared(x_252)) { lean::dec(x_252); x_360 = lean::box(0); } else { lean::cnstr_release(x_252, 0); x_360 = x_252; } if (lean::is_scalar(x_360)) { x_361 = lean::alloc_cnstr(1, 1, 1); } else { x_361 = x_360; } lean::cnstr_set(x_361, 0, x_357); lean::cnstr_set_scalar(x_361, sizeof(void*)*1, x_359); x_362 = x_361; x_363 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_249, x_362); x_364 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_241, x_363); if (lean::obj_tag(x_364) == 0) { obj* x_369; obj* x_370; obj* x_371; obj* x_372; lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); lean::dec(x_2); x_369 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_121, x_364); x_370 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_78, x_369); x_371 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_370); x_372 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_371); return x_372; } else { obj* x_373; uint8 x_375; x_373 = lean::cnstr_get(x_364, 0); lean::inc(x_373); x_375 = lean::cnstr_get_scalar(x_364, sizeof(void*)*1); x_228 = x_364; x_229 = x_373; x_230 = x_375; goto lbl_231; } } } else { obj* x_376; uint8 x_378; obj* x_379; obj* x_380; obj* x_381; obj* x_382; x_376 = lean::cnstr_get(x_244, 0); lean::inc(x_376); x_378 = lean::cnstr_get_scalar(x_244, sizeof(void*)*1); if (lean::is_shared(x_244)) { lean::dec(x_244); x_379 = lean::box(0); } else { lean::cnstr_release(x_244, 0); x_379 = x_244; } if (lean::is_scalar(x_379)) { x_380 = lean::alloc_cnstr(1, 1, 1); } else { x_380 = x_379; } lean::cnstr_set(x_380, 0, x_376); lean::cnstr_set_scalar(x_380, sizeof(void*)*1, x_378); x_381 = x_380; x_382 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_241, x_381); if (lean::obj_tag(x_382) == 0) { obj* x_387; obj* x_388; obj* x_389; obj* x_390; lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); lean::dec(x_2); x_387 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_121, x_382); x_388 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_78, x_387); x_389 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_388); x_390 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_389); return x_390; } else { obj* x_391; uint8 x_393; x_391 = lean::cnstr_get(x_382, 0); lean::inc(x_391); x_393 = lean::cnstr_get_scalar(x_382, sizeof(void*)*1); x_228 = x_382; x_229 = x_391; x_230 = x_393; goto lbl_231; } } } else { obj* x_394; uint8 x_396; obj* x_397; obj* x_399; obj* x_400; x_394 = lean::cnstr_get(x_238, 0); lean::inc(x_394); x_396 = lean::cnstr_get_scalar(x_238, sizeof(void*)*1); if (lean::is_shared(x_238)) { lean::dec(x_238); x_397 = lean::box(0); } else { lean::cnstr_release(x_238, 0); x_397 = x_238; } lean::inc(x_394); if (lean::is_scalar(x_397)) { x_399 = lean::alloc_cnstr(1, 1, 1); } else { x_399 = x_397; } lean::cnstr_set(x_399, 0, x_394); lean::cnstr_set_scalar(x_399, sizeof(void*)*1, x_396); x_400 = x_399; x_228 = x_400; x_229 = x_394; x_230 = x_396; goto lbl_231; } } else { obj* x_406; obj* x_407; obj* x_408; lean::dec(x_121); lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); lean::dec(x_2); x_406 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_78, x_120); x_407 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_406); x_408 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_407); return x_408; } lbl_231: { if (x_230 == 0) { obj* x_410; obj* x_411; obj* x_414; lean::dec(x_228); x_410 = l___private_3255790009__string_mangle__aux___main___closed__1; x_411 = l___private_1496486805__parse__mangled__string__aux___main___closed__1; lean::inc(x_411); lean::inc(x_410); x_414 = l_lean_parser_monad__parsec_str__core___at___private_1496486805__parse__mangled__string__aux___main___spec__1(x_410, x_411, x_2); if (lean::obj_tag(x_414) == 0) { obj* x_415; obj* x_417; obj* x_420; x_415 = lean::cnstr_get(x_414, 1); lean::inc(x_415); x_417 = lean::cnstr_get(x_414, 2); lean::inc(x_417); lean::dec(x_414); x_420 = l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2(x_415); if (lean::obj_tag(x_420) == 0) { obj* x_421; obj* x_423; obj* x_425; obj* x_428; x_421 = lean::cnstr_get(x_420, 0); lean::inc(x_421); x_423 = lean::cnstr_get(x_420, 1); lean::inc(x_423); x_425 = lean::cnstr_get(x_420, 2); lean::inc(x_425); lean::dec(x_420); x_428 = l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2(x_423); if (lean::obj_tag(x_428) == 0) { obj* x_429; obj* x_431; obj* x_433; obj* x_436; x_429 = lean::cnstr_get(x_428, 0); lean::inc(x_429); x_431 = lean::cnstr_get(x_428, 1); lean::inc(x_431); x_433 = lean::cnstr_get(x_428, 2); lean::inc(x_433); lean::dec(x_428); x_436 = l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2(x_431); if (lean::obj_tag(x_436) == 0) { obj* x_437; obj* x_439; obj* x_441; obj* x_444; x_437 = lean::cnstr_get(x_436, 0); lean::inc(x_437); x_439 = lean::cnstr_get(x_436, 1); lean::inc(x_439); x_441 = lean::cnstr_get(x_436, 2); lean::inc(x_441); lean::dec(x_436); x_444 = l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2(x_439); if (lean::obj_tag(x_444) == 0) { obj* x_445; obj* x_447; obj* x_449; obj* x_452; obj* x_453; obj* x_456; obj* x_457; obj* x_460; obj* x_463; obj* x_464; obj* x_467; obj* x_470; obj* x_473; uint8 x_474; x_445 = lean::cnstr_get(x_444, 0); lean::inc(x_445); x_447 = lean::cnstr_get(x_444, 1); lean::inc(x_447); x_449 = lean::cnstr_get(x_444, 2); lean::inc(x_449); lean::dec(x_444); x_452 = lean::mk_nat_obj(4096u); x_453 = lean::nat_mul(x_421, x_452); lean::dec(x_452); lean::dec(x_421); x_456 = lean::mk_nat_obj(256u); x_457 = lean::nat_mul(x_429, x_456); lean::dec(x_456); lean::dec(x_429); x_460 = lean::nat_add(x_453, x_457); lean::dec(x_457); lean::dec(x_453); x_463 = lean::mk_nat_obj(16u); x_464 = lean::nat_mul(x_437, x_463); lean::dec(x_463); lean::dec(x_437); x_467 = lean::nat_add(x_460, x_464); lean::dec(x_464); lean::dec(x_460); x_470 = lean::nat_add(x_467, x_445); lean::dec(x_445); lean::dec(x_467); x_473 = lean::mk_nat_obj(55296u); x_474 = lean::nat_dec_lt(x_470, x_473); lean::dec(x_473); if (x_474 == 0) { obj* x_476; uint8 x_477; x_476 = lean::mk_nat_obj(57343u); x_477 = lean::nat_dec_lt(x_476, x_470); lean::dec(x_476); if (x_477 == 0) { uint32 x_480; obj* x_482; obj* x_483; obj* x_484; obj* x_485; obj* x_486; obj* x_487; obj* x_488; obj* x_489; obj* x_490; obj* x_491; obj* x_492; obj* x_493; lean::dec(x_470); x_480 = lean::unbox_uint32(x_3); lean::dec(x_3); x_482 = lean::string_push(x_1, x_480); x_483 = l___private_1496486805__parse__mangled__string__aux___main(x_6, x_482, x_447); x_484 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_449, x_483); x_485 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_441, x_484); x_486 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_433, x_485); x_487 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_425, x_486); x_488 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_417, x_487); x_489 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_229, x_488); x_490 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_121, x_489); x_491 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_78, x_490); x_492 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_491); x_493 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_492); return x_493; } else { obj* x_494; uint8 x_495; x_494 = lean::mk_nat_obj(1114112u); x_495 = lean::nat_dec_lt(x_470, x_494); lean::dec(x_494); if (x_495 == 0) { uint32 x_498; obj* x_500; obj* x_501; obj* x_502; obj* x_503; obj* x_504; obj* x_505; obj* x_506; obj* x_507; obj* x_508; obj* x_509; obj* x_510; obj* x_511; lean::dec(x_470); x_498 = lean::unbox_uint32(x_3); lean::dec(x_3); x_500 = lean::string_push(x_1, x_498); x_501 = l___private_1496486805__parse__mangled__string__aux___main(x_6, x_500, x_447); x_502 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_449, x_501); x_503 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_441, x_502); x_504 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_433, x_503); x_505 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_425, x_504); x_506 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_417, x_505); x_507 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_229, x_506); x_508 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_121, x_507); x_509 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_78, x_508); x_510 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_509); x_511 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_510); return x_511; } else { uint32 x_513; obj* x_515; obj* x_516; obj* x_517; obj* x_518; obj* x_519; obj* x_520; obj* x_521; obj* x_522; obj* x_523; obj* x_524; obj* x_525; obj* x_526; lean::dec(x_3); x_513 = lean::unbox_uint32(x_470); lean::dec(x_470); x_515 = lean::string_push(x_1, x_513); x_516 = l___private_1496486805__parse__mangled__string__aux___main(x_6, x_515, x_447); x_517 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_449, x_516); x_518 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_441, x_517); x_519 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_433, x_518); x_520 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_425, x_519); x_521 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_417, x_520); x_522 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_229, x_521); x_523 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_121, x_522); x_524 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_78, x_523); x_525 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_524); x_526 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_525); return x_526; } } } else { uint32 x_528; obj* x_530; obj* x_531; obj* x_532; obj* x_533; obj* x_534; obj* x_535; obj* x_536; obj* x_537; obj* x_538; obj* x_539; obj* x_540; obj* x_541; lean::dec(x_3); x_528 = lean::unbox_uint32(x_470); lean::dec(x_470); x_530 = lean::string_push(x_1, x_528); x_531 = l___private_1496486805__parse__mangled__string__aux___main(x_6, x_530, x_447); x_532 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_449, x_531); x_533 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_441, x_532); x_534 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_433, x_533); x_535 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_425, x_534); x_536 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_417, x_535); x_537 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_229, x_536); x_538 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_121, x_537); x_539 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_78, x_538); x_540 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_539); x_541 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_540); return x_541; } } else { obj* x_548; uint8 x_550; obj* x_551; obj* x_552; obj* x_553; obj* x_554; obj* x_555; obj* x_556; obj* x_557; obj* x_558; obj* x_559; obj* x_560; obj* x_561; obj* x_562; lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); lean::dec(x_429); lean::dec(x_421); lean::dec(x_437); x_548 = lean::cnstr_get(x_444, 0); lean::inc(x_548); x_550 = lean::cnstr_get_scalar(x_444, sizeof(void*)*1); if (lean::is_shared(x_444)) { lean::dec(x_444); x_551 = lean::box(0); } else { lean::cnstr_release(x_444, 0); x_551 = x_444; } if (lean::is_scalar(x_551)) { x_552 = lean::alloc_cnstr(1, 1, 1); } else { x_552 = x_551; } lean::cnstr_set(x_552, 0, x_548); lean::cnstr_set_scalar(x_552, sizeof(void*)*1, x_550); x_553 = x_552; x_554 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_441, x_553); x_555 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_433, x_554); x_556 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_425, x_555); x_557 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_417, x_556); x_558 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_229, x_557); x_559 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_121, x_558); x_560 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_78, x_559); x_561 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_560); x_562 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_561); return x_562; } } else { obj* x_568; uint8 x_570; obj* x_571; obj* x_572; obj* x_573; obj* x_574; obj* x_575; obj* x_576; obj* x_577; obj* x_578; obj* x_579; obj* x_580; obj* x_581; lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); lean::dec(x_429); lean::dec(x_421); x_568 = lean::cnstr_get(x_436, 0); lean::inc(x_568); x_570 = lean::cnstr_get_scalar(x_436, sizeof(void*)*1); if (lean::is_shared(x_436)) { lean::dec(x_436); x_571 = lean::box(0); } else { lean::cnstr_release(x_436, 0); x_571 = x_436; } if (lean::is_scalar(x_571)) { x_572 = lean::alloc_cnstr(1, 1, 1); } else { x_572 = x_571; } lean::cnstr_set(x_572, 0, x_568); lean::cnstr_set_scalar(x_572, sizeof(void*)*1, x_570); x_573 = x_572; x_574 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_433, x_573); x_575 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_425, x_574); x_576 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_417, x_575); x_577 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_229, x_576); x_578 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_121, x_577); x_579 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_78, x_578); x_580 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_579); x_581 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_580); return x_581; } } else { obj* x_586; uint8 x_588; obj* x_589; obj* x_590; obj* x_591; obj* x_592; obj* x_593; obj* x_594; obj* x_595; obj* x_596; obj* x_597; obj* x_598; lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); lean::dec(x_421); x_586 = lean::cnstr_get(x_428, 0); lean::inc(x_586); x_588 = lean::cnstr_get_scalar(x_428, sizeof(void*)*1); if (lean::is_shared(x_428)) { lean::dec(x_428); x_589 = lean::box(0); } else { lean::cnstr_release(x_428, 0); x_589 = x_428; } if (lean::is_scalar(x_589)) { x_590 = lean::alloc_cnstr(1, 1, 1); } else { x_590 = x_589; } lean::cnstr_set(x_590, 0, x_586); lean::cnstr_set_scalar(x_590, sizeof(void*)*1, x_588); x_591 = x_590; x_592 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_425, x_591); x_593 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_417, x_592); x_594 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_229, x_593); x_595 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_121, x_594); x_596 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_78, x_595); x_597 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_596); x_598 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_597); return x_598; } } else { obj* x_602; uint8 x_604; obj* x_605; obj* x_606; obj* x_607; obj* x_608; obj* x_609; obj* x_610; obj* x_611; obj* x_612; obj* x_613; lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); x_602 = lean::cnstr_get(x_420, 0); lean::inc(x_602); x_604 = lean::cnstr_get_scalar(x_420, sizeof(void*)*1); if (lean::is_shared(x_420)) { lean::dec(x_420); x_605 = lean::box(0); } else { lean::cnstr_release(x_420, 0); x_605 = x_420; } if (lean::is_scalar(x_605)) { x_606 = lean::alloc_cnstr(1, 1, 1); } else { x_606 = x_605; } lean::cnstr_set(x_606, 0, x_602); lean::cnstr_set_scalar(x_606, sizeof(void*)*1, x_604); x_607 = x_606; x_608 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_417, x_607); x_609 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_229, x_608); x_610 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_121, x_609); x_611 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_78, x_610); x_612 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_611); x_613 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_612); return x_613; } } else { obj* x_617; uint8 x_619; obj* x_620; obj* x_621; obj* x_622; obj* x_623; obj* x_624; obj* x_625; obj* x_626; obj* x_627; lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); x_617 = lean::cnstr_get(x_414, 0); lean::inc(x_617); x_619 = lean::cnstr_get_scalar(x_414, sizeof(void*)*1); if (lean::is_shared(x_414)) { lean::dec(x_414); x_620 = lean::box(0); } else { lean::cnstr_release(x_414, 0); x_620 = x_414; } if (lean::is_scalar(x_620)) { x_621 = lean::alloc_cnstr(1, 1, 1); } else { x_621 = x_620; } lean::cnstr_set(x_621, 0, x_617); lean::cnstr_set_scalar(x_621, sizeof(void*)*1, x_619); x_622 = x_621; x_623 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_229, x_622); x_624 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_121, x_623); x_625 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_78, x_624); x_626 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_625); x_627 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_626); return x_627; } } else { obj* x_633; obj* x_634; obj* x_635; obj* x_636; lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); lean::dec(x_2); lean::dec(x_229); x_633 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_121, x_228); x_634 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_78, x_633); x_635 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_634); x_636 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_635); return x_636; } } } } } } } } else { obj* x_639; obj* x_641; lean::dec(x_3); lean::dec(x_0); x_639 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_639); x_641 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_641, 0, x_1); lean::cnstr_set(x_641, 1, x_2); lean::cnstr_set(x_641, 2, x_639); return x_641; } } } obj* _init_l___private_1496486805__parse__mangled__string__aux___main___closed__1() { _start: { obj* x_0; obj* x_1; obj* x_2; x_0 = lean::mk_string("_u"); x_1 = l_string_quote(x_0); x_2 = lean::alloc_closure(reinterpret_cast(l_dlist_singleton___rarg), 2, 1); lean::closure_set(x_2, 0, x_1); return x_2; } } obj* _init_l___private_1496486805__parse__mangled__string__aux___main___closed__2() { _start: { obj* x_0; obj* x_1; obj* x_2; x_0 = lean::mk_string("_x"); x_1 = l_string_quote(x_0); x_2 = lean::alloc_closure(reinterpret_cast(l_dlist_singleton___rarg), 2, 1); lean::closure_set(x_2, 0, x_1); return x_2; } } obj* _init_l___private_1496486805__parse__mangled__string__aux___main___closed__3() { _start: { obj* x_0; obj* x_1; obj* x_2; x_0 = lean::mk_string("__"); x_1 = l_string_quote(x_0); x_2 = lean::alloc_closure(reinterpret_cast(l_dlist_singleton___rarg), 2, 1); lean::closure_set(x_2, 0, x_1); return x_2; } } obj* l___private_1496486805__parse__mangled__string__aux(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l___private_1496486805__parse__mangled__string__aux___main(x_0, x_1, x_2); return x_3; } } obj* l___private_3162311557__parse__mangled__string(obj* x_0) { _start: { obj* x_1; obj* x_2; obj* x_4; obj* x_5; obj* x_7; x_1 = lean::string_iterator_remaining(x_0); x_2 = l_string_join___closed__1; lean::inc(x_2); x_4 = l___private_1496486805__parse__mangled__string__aux___main(x_1, x_2, x_0); x_5 = l_lean_parser_monad__parsec_eoi___at___private_1496486805__parse__mangled__string__aux___main___spec__6___closed__1; lean::inc(x_5); x_7 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_5, x_4); return x_7; } } obj* l_lean_string_demangle(obj* x_0) { _start: { obj* x_1; obj* x_2; obj* x_5; x_1 = l_lean_string_demangle___closed__1; x_2 = l_string_join___closed__1; lean::inc(x_2); lean::inc(x_1); x_5 = l_lean_parser_parsec__t_run___at_lean_parser_parsec_parse___spec__1___rarg(x_1, x_0, x_2); if (lean::obj_tag(x_5) == 0) { obj* x_7; lean::dec(x_5); x_7 = lean::box(0); return x_7; } else { obj* x_8; obj* x_11; x_8 = lean::cnstr_get(x_5, 0); lean::inc(x_8); lean::dec(x_5); x_11 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_11, 0, x_8); return x_11; } } } obj* _init_l_lean_string_demangle___closed__1() { _start: { obj* x_0; x_0 = lean::alloc_closure(reinterpret_cast(l___private_3162311557__parse__mangled__string), 1, 0); return x_0; } } obj* l___private_1205956357__name_mangle__aux___main(obj* x_0, obj* x_1) { _start: { switch (lean::obj_tag(x_1)) { case 0: { lean::dec(x_1); return x_0; } case 1: { obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_16; obj* x_17; obj* x_18; x_3 = lean::cnstr_get(x_1, 0); lean::inc(x_3); x_5 = lean::cnstr_get(x_1, 1); lean::inc(x_5); lean::dec(x_1); x_8 = l___private_1205956357__name_mangle__aux___main(x_0, x_3); x_9 = l_lean_string_mangle(x_5); x_10 = l___private_1205956357__name_mangle__aux___main___closed__1; x_11 = lean::string_append(x_8, x_10); x_12 = lean::string_length(x_9); x_13 = l_nat_repr(x_12); x_14 = lean::string_append(x_11, x_13); lean::dec(x_13); x_16 = l___private_1205956357__name_mangle__aux___main___closed__2; x_17 = lean::string_append(x_14, x_16); x_18 = lean::string_append(x_17, x_9); lean::dec(x_9); return x_18; } default: { obj* x_20; obj* x_22; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; x_20 = lean::cnstr_get(x_1, 0); lean::inc(x_20); x_22 = lean::cnstr_get(x_1, 1); lean::inc(x_22); lean::dec(x_1); x_25 = l___private_1205956357__name_mangle__aux___main(x_0, x_20); x_26 = l___private_1205956357__name_mangle__aux___main___closed__2; x_27 = lean::string_append(x_25, x_26); x_28 = l_nat_repr(x_22); x_29 = lean::string_append(x_27, x_28); lean::dec(x_28); x_31 = lean::string_append(x_29, x_26); return x_31; } } } } obj* _init_l___private_1205956357__name_mangle__aux___main___closed__1() { _start: { obj* x_0; x_0 = lean::mk_string("_s"); return x_0; } } obj* _init_l___private_1205956357__name_mangle__aux___main___closed__2() { _start: { obj* x_0; x_0 = lean::mk_string("_"); return x_0; } } obj* l___private_1205956357__name_mangle__aux(obj* x_0, obj* x_1) { _start: { obj* x_2; x_2 = l___private_1205956357__name_mangle__aux___main(x_0, x_1); return x_2; } } obj* l_lean_name_mangle(obj* x_0, obj* x_1) { _start: { obj* x_2; x_2 = l___private_1205956357__name_mangle__aux___main(x_1, x_0); return x_2; } } obj* l_lean_parser_monad__parsec_ch___at___private_4217055689__parse__mangled__name__aux___main___spec__1(uint32 x_0, obj* x_1) { _start: { uint8 x_2; x_2 = lean::string_iterator_has_next(x_1); if (x_2 == 0) { obj* x_3; obj* x_4; obj* x_5; obj* x_9; x_3 = lean::box(0); x_4 = l_lean_parser_monad__parsec_eoi__error___rarg___closed__1; x_5 = l_mjoin___rarg___closed__1; lean::inc(x_3); lean::inc(x_5); lean::inc(x_4); x_9 = l_lean_parser_monad__parsec_error___at___private_1496486805__parse__mangled__string__aux___main___spec__3___rarg(x_4, x_5, x_3, x_3, x_1); if (lean::obj_tag(x_9) == 0) { obj* x_10; obj* x_12; obj* x_14; x_10 = lean::cnstr_get(x_9, 0); lean::inc(x_10); x_12 = lean::cnstr_get(x_9, 1); lean::inc(x_12); x_14 = lean::cnstr_get(x_9, 2); lean::inc(x_14); if (lean::obj_tag(x_14) == 0) { lean::dec(x_14); lean::dec(x_12); lean::dec(x_10); return x_9; } else { obj* x_20; obj* x_22; obj* x_24; obj* x_25; obj* x_26; lean::dec(x_9); x_20 = lean::cnstr_get(x_14, 0); lean::inc(x_20); if (lean::is_shared(x_14)) { lean::dec(x_14); x_22 = lean::box(0); } else { lean::cnstr_release(x_14, 0); x_22 = x_14; } lean::inc(x_5); x_24 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); lean::closure_set(x_24, 0, x_5); lean::closure_set(x_24, 1, x_20); if (lean::is_scalar(x_22)) { x_25 = lean::alloc_cnstr(1, 1, 0); } else { x_25 = x_22; } lean::cnstr_set(x_25, 0, x_24); x_26 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_26, 0, x_10); lean::cnstr_set(x_26, 1, x_12); lean::cnstr_set(x_26, 2, x_25); return x_26; } } else { obj* x_27; uint8 x_29; x_27 = lean::cnstr_get(x_9, 0); lean::inc(x_27); x_29 = lean::cnstr_get_scalar(x_9, sizeof(void*)*1); if (x_29 == 0) { obj* x_31; obj* x_33; obj* x_35; obj* x_38; obj* x_39; obj* x_42; obj* x_43; obj* x_44; lean::dec(x_9); x_31 = lean::cnstr_get(x_27, 0); lean::inc(x_31); x_33 = lean::cnstr_get(x_27, 1); lean::inc(x_33); x_35 = lean::cnstr_get(x_27, 2); lean::inc(x_35); lean::inc(x_5); x_38 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); lean::closure_set(x_38, 0, x_5); lean::closure_set(x_38, 1, x_35); x_39 = lean::cnstr_get(x_27, 3); lean::inc(x_39); lean::dec(x_27); x_42 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_42, 0, x_31); lean::cnstr_set(x_42, 1, x_33); lean::cnstr_set(x_42, 2, x_38); lean::cnstr_set(x_42, 3, x_39); x_43 = lean::alloc_cnstr(1, 1, 1); lean::cnstr_set(x_43, 0, x_42); lean::cnstr_set_scalar(x_43, sizeof(void*)*1, x_29); x_44 = x_43; return x_44; } else { lean::dec(x_27); return x_9; } } } else { uint32 x_46; obj* x_47; obj* x_48; uint8 x_49; x_46 = lean::string_iterator_curr(x_1); x_47 = lean::box_uint32(x_46); x_48 = lean::box_uint32(x_0); x_49 = lean::nat_dec_eq(x_47, x_48); lean::dec(x_48); if (x_49 == 0) { obj* x_52; obj* x_53; obj* x_55; obj* x_57; obj* x_58; obj* x_59; obj* x_62; lean::dec(x_47); x_52 = l_char_quote__core(x_46); x_53 = l_char_has__repr___closed__1; lean::inc(x_53); x_55 = lean::string_append(x_53, x_52); lean::dec(x_52); x_57 = lean::string_append(x_55, x_53); x_58 = lean::box(0); x_59 = l_mjoin___rarg___closed__1; lean::inc(x_58); lean::inc(x_59); x_62 = l_lean_parser_monad__parsec_error___at___private_1496486805__parse__mangled__string__aux___main___spec__3___rarg(x_57, x_59, x_58, x_58, x_1); if (lean::obj_tag(x_62) == 0) { obj* x_63; obj* x_65; obj* x_67; x_63 = lean::cnstr_get(x_62, 0); lean::inc(x_63); x_65 = lean::cnstr_get(x_62, 1); lean::inc(x_65); x_67 = lean::cnstr_get(x_62, 2); lean::inc(x_67); if (lean::obj_tag(x_67) == 0) { lean::dec(x_65); lean::dec(x_63); lean::dec(x_67); return x_62; } else { obj* x_73; obj* x_75; obj* x_77; obj* x_78; obj* x_79; lean::dec(x_62); x_73 = lean::cnstr_get(x_67, 0); lean::inc(x_73); if (lean::is_shared(x_67)) { lean::dec(x_67); x_75 = lean::box(0); } else { lean::cnstr_release(x_67, 0); x_75 = x_67; } lean::inc(x_59); x_77 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); lean::closure_set(x_77, 0, x_59); lean::closure_set(x_77, 1, x_73); if (lean::is_scalar(x_75)) { x_78 = lean::alloc_cnstr(1, 1, 0); } else { x_78 = x_75; } lean::cnstr_set(x_78, 0, x_77); x_79 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_79, 0, x_63); lean::cnstr_set(x_79, 1, x_65); lean::cnstr_set(x_79, 2, x_78); return x_79; } } else { obj* x_80; uint8 x_82; x_80 = lean::cnstr_get(x_62, 0); lean::inc(x_80); x_82 = lean::cnstr_get_scalar(x_62, sizeof(void*)*1); if (x_82 == 0) { obj* x_84; obj* x_86; obj* x_88; obj* x_91; obj* x_92; obj* x_95; obj* x_96; obj* x_97; lean::dec(x_62); x_84 = lean::cnstr_get(x_80, 0); lean::inc(x_84); x_86 = lean::cnstr_get(x_80, 1); lean::inc(x_86); x_88 = lean::cnstr_get(x_80, 2); lean::inc(x_88); lean::inc(x_59); x_91 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); lean::closure_set(x_91, 0, x_59); lean::closure_set(x_91, 1, x_88); x_92 = lean::cnstr_get(x_80, 3); lean::inc(x_92); lean::dec(x_80); x_95 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_95, 0, x_84); lean::cnstr_set(x_95, 1, x_86); lean::cnstr_set(x_95, 2, x_91); lean::cnstr_set(x_95, 3, x_92); x_96 = lean::alloc_cnstr(1, 1, 1); lean::cnstr_set(x_96, 0, x_95); lean::cnstr_set_scalar(x_96, sizeof(void*)*1, x_82); x_97 = x_96; return x_97; } else { lean::dec(x_80); return x_62; } } } else { obj* x_99; obj* x_100; obj* x_101; x_99 = lean::string_iterator_next(x_1); x_100 = lean::box(0); x_101 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_101, 0, x_47); lean::cnstr_set(x_101, 1, x_99); lean::cnstr_set(x_101, 2, x_100); return x_101; } } } } obj* l___private_31565857__take__while__aux___main___at___private_4217055689__parse__mangled__name__aux___main___spec__5(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; uint8 x_4; x_3 = lean::mk_nat_obj(0u); x_4 = lean::nat_dec_eq(x_0, x_3); lean::dec(x_3); if (x_4 == 0) { uint8 x_6; x_6 = lean::string_iterator_has_next(x_2); if (x_6 == 0) { obj* x_8; lean::dec(x_0); x_8 = l___private_2142412293__mk__string__result___rarg(x_1, x_2); return x_8; } else { uint32 x_9; uint8 x_10; x_9 = lean::string_iterator_curr(x_2); x_10 = l_char_is__digit(x_9); if (x_10 == 0) { obj* x_12; lean::dec(x_0); x_12 = l___private_2142412293__mk__string__result___rarg(x_1, x_2); return x_12; } else { obj* x_13; obj* x_14; obj* x_17; obj* x_18; x_13 = lean::mk_nat_obj(1u); x_14 = lean::nat_sub(x_0, x_13); lean::dec(x_13); lean::dec(x_0); x_17 = lean::string_push(x_1, x_9); x_18 = lean::string_iterator_next(x_2); x_0 = x_14; x_1 = x_17; x_2 = x_18; goto _start; } } } else { obj* x_21; lean::dec(x_0); x_21 = l___private_2142412293__mk__string__result___rarg(x_1, x_2); return x_21; } } } obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__4(uint32 x_0, obj* x_1) { _start: { obj* x_2; obj* x_4; obj* x_5; obj* x_6; x_2 = l_string_join___closed__1; lean::inc(x_2); x_4 = lean::string_push(x_2, x_0); x_5 = lean::string_iterator_remaining(x_1); x_6 = l___private_31565857__take__while__aux___main___at___private_4217055689__parse__mangled__name__aux___main___spec__5(x_5, x_4, x_1); return x_6; } } obj* l___private_31565857__take__while__aux___main___at___private_4217055689__parse__mangled__name__aux___main___spec__7(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; uint8 x_4; x_3 = lean::mk_nat_obj(0u); x_4 = lean::nat_dec_eq(x_0, x_3); lean::dec(x_3); if (x_4 == 0) { uint8 x_6; x_6 = lean::string_iterator_has_next(x_2); if (x_6 == 0) { obj* x_8; lean::dec(x_0); x_8 = l___private_2142412293__mk__string__result___rarg(x_1, x_2); return x_8; } else { uint32 x_9; uint8 x_10; x_9 = lean::string_iterator_curr(x_2); x_10 = l_char_is__digit(x_9); if (x_10 == 0) { obj* x_12; lean::dec(x_0); x_12 = l___private_2142412293__mk__string__result___rarg(x_1, x_2); return x_12; } else { obj* x_13; obj* x_14; obj* x_17; obj* x_18; x_13 = lean::mk_nat_obj(1u); x_14 = lean::nat_sub(x_0, x_13); lean::dec(x_13); lean::dec(x_0); x_17 = lean::string_push(x_1, x_9); x_18 = lean::string_iterator_next(x_2); x_0 = x_14; x_1 = x_17; x_2 = x_18; goto _start; } } } else { obj* x_21; lean::dec(x_0); x_21 = l___private_2142412293__mk__string__result___rarg(x_1, x_2); return x_21; } } } obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__6(uint32 x_0, obj* x_1) { _start: { obj* x_2; obj* x_4; obj* x_5; obj* x_6; x_2 = l_string_join___closed__1; lean::inc(x_2); x_4 = lean::string_push(x_2, x_0); x_5 = lean::string_iterator_remaining(x_1); x_6 = l___private_31565857__take__while__aux___main___at___private_4217055689__parse__mangled__name__aux___main___spec__7(x_5, x_4, x_1); return x_6; } } obj* l___private_31565857__take__while__aux___main___at___private_4217055689__parse__mangled__name__aux___main___spec__9(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; uint8 x_4; x_3 = lean::mk_nat_obj(0u); x_4 = lean::nat_dec_eq(x_0, x_3); lean::dec(x_3); if (x_4 == 0) { uint8 x_6; x_6 = lean::string_iterator_has_next(x_2); if (x_6 == 0) { obj* x_8; lean::dec(x_0); x_8 = l___private_2142412293__mk__string__result___rarg(x_1, x_2); return x_8; } else { uint32 x_9; uint8 x_10; x_9 = lean::string_iterator_curr(x_2); x_10 = l_char_is__digit(x_9); if (x_10 == 0) { obj* x_12; lean::dec(x_0); x_12 = l___private_2142412293__mk__string__result___rarg(x_1, x_2); return x_12; } else { obj* x_13; obj* x_14; obj* x_17; obj* x_18; x_13 = lean::mk_nat_obj(1u); x_14 = lean::nat_sub(x_0, x_13); lean::dec(x_13); lean::dec(x_0); x_17 = lean::string_push(x_1, x_9); x_18 = lean::string_iterator_next(x_2); x_0 = x_14; x_1 = x_17; x_2 = x_18; goto _start; } } } else { obj* x_21; lean::dec(x_0); x_21 = l___private_2142412293__mk__string__result___rarg(x_1, x_2); return x_21; } } } obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__8(uint32 x_0, obj* x_1) { _start: { obj* x_2; obj* x_4; obj* x_5; obj* x_6; x_2 = l_string_join___closed__1; lean::inc(x_2); x_4 = lean::string_push(x_2, x_0); x_5 = lean::string_iterator_remaining(x_1); x_6 = l___private_31565857__take__while__aux___main___at___private_4217055689__parse__mangled__name__aux___main___spec__9(x_5, x_4, x_1); return x_6; } } obj* l___private_31565857__take__while__aux___main___at___private_4217055689__parse__mangled__name__aux___main___spec__11(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; uint8 x_4; x_3 = lean::mk_nat_obj(0u); x_4 = lean::nat_dec_eq(x_0, x_3); lean::dec(x_3); if (x_4 == 0) { uint8 x_6; x_6 = lean::string_iterator_has_next(x_2); if (x_6 == 0) { obj* x_8; lean::dec(x_0); x_8 = l___private_2142412293__mk__string__result___rarg(x_1, x_2); return x_8; } else { uint32 x_9; uint8 x_10; x_9 = lean::string_iterator_curr(x_2); x_10 = l_char_is__digit(x_9); if (x_10 == 0) { obj* x_12; lean::dec(x_0); x_12 = l___private_2142412293__mk__string__result___rarg(x_1, x_2); return x_12; } else { obj* x_13; obj* x_14; obj* x_17; obj* x_18; x_13 = lean::mk_nat_obj(1u); x_14 = lean::nat_sub(x_0, x_13); lean::dec(x_13); lean::dec(x_0); x_17 = lean::string_push(x_1, x_9); x_18 = lean::string_iterator_next(x_2); x_0 = x_14; x_1 = x_17; x_2 = x_18; goto _start; } } } else { obj* x_21; lean::dec(x_0); x_21 = l___private_2142412293__mk__string__result___rarg(x_1, x_2); return x_21; } } } obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__10(uint32 x_0, obj* x_1) { _start: { obj* x_2; obj* x_4; obj* x_5; obj* x_6; x_2 = l_string_join___closed__1; lean::inc(x_2); x_4 = lean::string_push(x_2, x_0); x_5 = lean::string_iterator_remaining(x_1); x_6 = l___private_31565857__take__while__aux___main___at___private_4217055689__parse__mangled__name__aux___main___spec__11(x_5, x_4, x_1); return x_6; } } obj* l___private_31565857__take__while__aux___main___at___private_4217055689__parse__mangled__name__aux___main___spec__13(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; uint8 x_4; x_3 = lean::mk_nat_obj(0u); x_4 = lean::nat_dec_eq(x_0, x_3); lean::dec(x_3); if (x_4 == 0) { uint8 x_6; x_6 = lean::string_iterator_has_next(x_2); if (x_6 == 0) { obj* x_8; lean::dec(x_0); x_8 = l___private_2142412293__mk__string__result___rarg(x_1, x_2); return x_8; } else { uint32 x_9; uint8 x_10; x_9 = lean::string_iterator_curr(x_2); x_10 = l_char_is__digit(x_9); if (x_10 == 0) { obj* x_12; lean::dec(x_0); x_12 = l___private_2142412293__mk__string__result___rarg(x_1, x_2); return x_12; } else { obj* x_13; obj* x_14; obj* x_17; obj* x_18; x_13 = lean::mk_nat_obj(1u); x_14 = lean::nat_sub(x_0, x_13); lean::dec(x_13); lean::dec(x_0); x_17 = lean::string_push(x_1, x_9); x_18 = lean::string_iterator_next(x_2); x_0 = x_14; x_1 = x_17; x_2 = x_18; goto _start; } } } else { obj* x_21; lean::dec(x_0); x_21 = l___private_2142412293__mk__string__result___rarg(x_1, x_2); return x_21; } } } obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__12(uint32 x_0, obj* x_1) { _start: { obj* x_2; obj* x_4; obj* x_5; obj* x_6; x_2 = l_string_join___closed__1; lean::inc(x_2); x_4 = lean::string_push(x_2, x_0); x_5 = lean::string_iterator_remaining(x_1); x_6 = l___private_31565857__take__while__aux___main___at___private_4217055689__parse__mangled__name__aux___main___spec__13(x_5, x_4, x_1); return x_6; } } obj* l___private_31565857__take__while__aux___main___at___private_4217055689__parse__mangled__name__aux___main___spec__15(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; uint8 x_4; x_3 = lean::mk_nat_obj(0u); x_4 = lean::nat_dec_eq(x_0, x_3); lean::dec(x_3); if (x_4 == 0) { uint8 x_6; x_6 = lean::string_iterator_has_next(x_2); if (x_6 == 0) { obj* x_8; lean::dec(x_0); x_8 = l___private_2142412293__mk__string__result___rarg(x_1, x_2); return x_8; } else { uint32 x_9; uint8 x_10; x_9 = lean::string_iterator_curr(x_2); x_10 = l_char_is__digit(x_9); if (x_10 == 0) { obj* x_12; lean::dec(x_0); x_12 = l___private_2142412293__mk__string__result___rarg(x_1, x_2); return x_12; } else { obj* x_13; obj* x_14; obj* x_17; obj* x_18; x_13 = lean::mk_nat_obj(1u); x_14 = lean::nat_sub(x_0, x_13); lean::dec(x_13); lean::dec(x_0); x_17 = lean::string_push(x_1, x_9); x_18 = lean::string_iterator_next(x_2); x_0 = x_14; x_1 = x_17; x_2 = x_18; goto _start; } } } else { obj* x_21; lean::dec(x_0); x_21 = l___private_2142412293__mk__string__result___rarg(x_1, x_2); return x_21; } } } obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__14(uint32 x_0, obj* x_1) { _start: { obj* x_2; obj* x_4; obj* x_5; obj* x_6; x_2 = l_string_join___closed__1; lean::inc(x_2); x_4 = lean::string_push(x_2, x_0); x_5 = lean::string_iterator_remaining(x_1); x_6 = l___private_31565857__take__while__aux___main___at___private_4217055689__parse__mangled__name__aux___main___spec__15(x_5, x_4, x_1); return x_6; } } obj* l___private_31565857__take__while__aux___main___at___private_4217055689__parse__mangled__name__aux___main___spec__17(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; uint8 x_4; x_3 = lean::mk_nat_obj(0u); x_4 = lean::nat_dec_eq(x_0, x_3); lean::dec(x_3); if (x_4 == 0) { uint8 x_6; x_6 = lean::string_iterator_has_next(x_2); if (x_6 == 0) { obj* x_8; lean::dec(x_0); x_8 = l___private_2142412293__mk__string__result___rarg(x_1, x_2); return x_8; } else { uint32 x_9; uint8 x_10; x_9 = lean::string_iterator_curr(x_2); x_10 = l_char_is__digit(x_9); if (x_10 == 0) { obj* x_12; lean::dec(x_0); x_12 = l___private_2142412293__mk__string__result___rarg(x_1, x_2); return x_12; } else { obj* x_13; obj* x_14; obj* x_17; obj* x_18; x_13 = lean::mk_nat_obj(1u); x_14 = lean::nat_sub(x_0, x_13); lean::dec(x_13); lean::dec(x_0); x_17 = lean::string_push(x_1, x_9); x_18 = lean::string_iterator_next(x_2); x_0 = x_14; x_1 = x_17; x_2 = x_18; goto _start; } } } else { obj* x_21; lean::dec(x_0); x_21 = l___private_2142412293__mk__string__result___rarg(x_1, x_2); return x_21; } } } obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__16(obj* x_0, obj* x_1) { _start: { uint32 x_2; obj* x_4; obj* x_6; obj* x_7; obj* x_8; x_2 = lean::string_iterator_curr(x_0); lean::dec(x_0); x_4 = l_string_join___closed__1; lean::inc(x_4); x_6 = lean::string_push(x_4, x_2); x_7 = lean::string_iterator_remaining(x_1); x_8 = l___private_31565857__take__while__aux___main___at___private_4217055689__parse__mangled__name__aux___main___spec__17(x_7, x_6, x_1); return x_8; } } obj* l_lean_parser_monad__parsec_take__while1___at___private_4217055689__parse__mangled__name__aux___main___spec__3(obj* x_0) { _start: { uint8 x_1; x_1 = lean::string_iterator_has_next(x_0); if (x_1 == 0) { obj* x_2; obj* x_3; obj* x_4; obj* x_8; x_2 = lean::box(0); x_3 = l_lean_parser_monad__parsec_eoi__error___rarg___closed__1; x_4 = l_mjoin___rarg___closed__1; lean::inc(x_2); lean::inc(x_4); lean::inc(x_3); x_8 = l_lean_parser_monad__parsec_error___at___private_1496486805__parse__mangled__string__aux___main___spec__3___rarg(x_3, x_4, x_2, x_2, x_0); if (lean::obj_tag(x_8) == 0) { obj* x_9; obj* x_11; obj* x_13; x_9 = lean::cnstr_get(x_8, 0); lean::inc(x_9); x_11 = lean::cnstr_get(x_8, 1); lean::inc(x_11); x_13 = lean::cnstr_get(x_8, 2); lean::inc(x_13); if (lean::obj_tag(x_13) == 0) { if (lean::obj_tag(x_8) == 0) { uint32 x_16; obj* x_18; obj* x_19; lean::dec(x_8); x_16 = lean::unbox_uint32(x_9); lean::dec(x_9); x_18 = l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__4(x_16, x_11); x_19 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_13, x_18); return x_19; } else { uint8 x_22; obj* x_23; obj* x_24; obj* x_25; lean::dec(x_13); lean::dec(x_11); x_22 = lean::cnstr_get_scalar(x_8, sizeof(void*)*1); if (lean::is_shared(x_8)) { lean::dec(x_8); x_23 = lean::box(0); } else { lean::cnstr_release(x_8, 0); x_23 = x_8; } if (lean::is_scalar(x_23)) { x_24 = lean::alloc_cnstr(1, 1, 1); } else { x_24 = x_23; } lean::cnstr_set(x_24, 0, x_9); lean::cnstr_set_scalar(x_24, sizeof(void*)*1, x_22); x_25 = x_24; return x_25; } } else { obj* x_27; obj* x_29; obj* x_31; obj* x_32; uint32 x_33; obj* x_35; obj* x_36; lean::dec(x_8); x_27 = lean::cnstr_get(x_13, 0); lean::inc(x_27); if (lean::is_shared(x_13)) { lean::dec(x_13); x_29 = lean::box(0); } else { lean::cnstr_release(x_13, 0); x_29 = x_13; } lean::inc(x_4); x_31 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); lean::closure_set(x_31, 0, x_4); lean::closure_set(x_31, 1, x_27); if (lean::is_scalar(x_29)) { x_32 = lean::alloc_cnstr(1, 1, 0); } else { x_32 = x_29; } lean::cnstr_set(x_32, 0, x_31); x_33 = lean::unbox_uint32(x_9); lean::dec(x_9); x_35 = l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__6(x_33, x_11); x_36 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_32, x_35); return x_36; } } else { obj* x_37; uint8 x_39; x_37 = lean::cnstr_get(x_8, 0); lean::inc(x_37); x_39 = lean::cnstr_get_scalar(x_8, sizeof(void*)*1); if (x_39 == 0) { obj* x_41; obj* x_43; obj* x_45; obj* x_48; obj* x_49; obj* x_52; obj* x_53; obj* x_54; lean::dec(x_8); x_41 = lean::cnstr_get(x_37, 0); lean::inc(x_41); x_43 = lean::cnstr_get(x_37, 1); lean::inc(x_43); x_45 = lean::cnstr_get(x_37, 2); lean::inc(x_45); lean::inc(x_4); x_48 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); lean::closure_set(x_48, 0, x_4); lean::closure_set(x_48, 1, x_45); x_49 = lean::cnstr_get(x_37, 3); lean::inc(x_49); lean::dec(x_37); x_52 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_52, 0, x_41); lean::cnstr_set(x_52, 1, x_43); lean::cnstr_set(x_52, 2, x_48); lean::cnstr_set(x_52, 3, x_49); x_53 = lean::alloc_cnstr(1, 1, 1); lean::cnstr_set(x_53, 0, x_52); lean::cnstr_set_scalar(x_53, sizeof(void*)*1, x_39); x_54 = x_53; return x_54; } else { if (lean::obj_tag(x_8) == 0) { obj* x_55; obj* x_57; uint32 x_60; obj* x_62; obj* x_63; x_55 = lean::cnstr_get(x_8, 1); lean::inc(x_55); x_57 = lean::cnstr_get(x_8, 2); lean::inc(x_57); lean::dec(x_8); x_60 = lean::unbox_uint32(x_37); lean::dec(x_37); x_62 = l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__8(x_60, x_55); x_63 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_57, x_62); return x_63; } else { obj* x_64; obj* x_65; obj* x_66; if (lean::is_shared(x_8)) { lean::dec(x_8); x_64 = lean::box(0); } else { lean::cnstr_release(x_8, 0); x_64 = x_8; } if (lean::is_scalar(x_64)) { x_65 = lean::alloc_cnstr(1, 1, 1); } else { x_65 = x_64; } lean::cnstr_set(x_65, 0, x_37); lean::cnstr_set_scalar(x_65, sizeof(void*)*1, x_39); x_66 = x_65; return x_66; } } } } else { uint32 x_67; uint8 x_68; x_67 = lean::string_iterator_curr(x_0); x_68 = l_char_is__digit(x_67); if (x_68 == 0) { obj* x_69; obj* x_70; obj* x_72; obj* x_74; obj* x_75; obj* x_76; obj* x_79; x_69 = l_char_quote__core(x_67); x_70 = l_char_has__repr___closed__1; lean::inc(x_70); x_72 = lean::string_append(x_70, x_69); lean::dec(x_69); x_74 = lean::string_append(x_72, x_70); x_75 = lean::box(0); x_76 = l_mjoin___rarg___closed__1; lean::inc(x_75); lean::inc(x_76); x_79 = l_lean_parser_monad__parsec_error___at___private_1496486805__parse__mangled__string__aux___main___spec__3___rarg(x_74, x_76, x_75, x_75, x_0); if (lean::obj_tag(x_79) == 0) { obj* x_80; obj* x_82; obj* x_84; x_80 = lean::cnstr_get(x_79, 0); lean::inc(x_80); x_82 = lean::cnstr_get(x_79, 1); lean::inc(x_82); x_84 = lean::cnstr_get(x_79, 2); lean::inc(x_84); if (lean::obj_tag(x_84) == 0) { if (lean::obj_tag(x_79) == 0) { uint32 x_87; obj* x_89; obj* x_90; lean::dec(x_79); x_87 = lean::unbox_uint32(x_80); lean::dec(x_80); x_89 = l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__10(x_87, x_82); x_90 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_84, x_89); return x_90; } else { uint8 x_93; obj* x_94; obj* x_95; obj* x_96; lean::dec(x_82); lean::dec(x_84); x_93 = lean::cnstr_get_scalar(x_79, sizeof(void*)*1); if (lean::is_shared(x_79)) { lean::dec(x_79); x_94 = lean::box(0); } else { lean::cnstr_release(x_79, 0); x_94 = x_79; } if (lean::is_scalar(x_94)) { x_95 = lean::alloc_cnstr(1, 1, 1); } else { x_95 = x_94; } lean::cnstr_set(x_95, 0, x_80); lean::cnstr_set_scalar(x_95, sizeof(void*)*1, x_93); x_96 = x_95; return x_96; } } else { obj* x_98; obj* x_100; obj* x_102; obj* x_103; uint32 x_104; obj* x_106; obj* x_107; lean::dec(x_79); x_98 = lean::cnstr_get(x_84, 0); lean::inc(x_98); if (lean::is_shared(x_84)) { lean::dec(x_84); x_100 = lean::box(0); } else { lean::cnstr_release(x_84, 0); x_100 = x_84; } lean::inc(x_76); x_102 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); lean::closure_set(x_102, 0, x_76); lean::closure_set(x_102, 1, x_98); if (lean::is_scalar(x_100)) { x_103 = lean::alloc_cnstr(1, 1, 0); } else { x_103 = x_100; } lean::cnstr_set(x_103, 0, x_102); x_104 = lean::unbox_uint32(x_80); lean::dec(x_80); x_106 = l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__12(x_104, x_82); x_107 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_103, x_106); return x_107; } } else { obj* x_108; uint8 x_110; x_108 = lean::cnstr_get(x_79, 0); lean::inc(x_108); x_110 = lean::cnstr_get_scalar(x_79, sizeof(void*)*1); if (x_110 == 0) { obj* x_112; obj* x_114; obj* x_116; obj* x_119; obj* x_120; obj* x_123; obj* x_124; obj* x_125; lean::dec(x_79); x_112 = lean::cnstr_get(x_108, 0); lean::inc(x_112); x_114 = lean::cnstr_get(x_108, 1); lean::inc(x_114); x_116 = lean::cnstr_get(x_108, 2); lean::inc(x_116); lean::inc(x_76); x_119 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); lean::closure_set(x_119, 0, x_76); lean::closure_set(x_119, 1, x_116); x_120 = lean::cnstr_get(x_108, 3); lean::inc(x_120); lean::dec(x_108); x_123 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_123, 0, x_112); lean::cnstr_set(x_123, 1, x_114); lean::cnstr_set(x_123, 2, x_119); lean::cnstr_set(x_123, 3, x_120); x_124 = lean::alloc_cnstr(1, 1, 1); lean::cnstr_set(x_124, 0, x_123); lean::cnstr_set_scalar(x_124, sizeof(void*)*1, x_110); x_125 = x_124; return x_125; } else { if (lean::obj_tag(x_79) == 0) { obj* x_126; obj* x_128; uint32 x_131; obj* x_133; obj* x_134; x_126 = lean::cnstr_get(x_79, 1); lean::inc(x_126); x_128 = lean::cnstr_get(x_79, 2); lean::inc(x_128); lean::dec(x_79); x_131 = lean::unbox_uint32(x_108); lean::dec(x_108); x_133 = l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__14(x_131, x_126); x_134 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_128, x_133); return x_134; } else { obj* x_135; obj* x_136; obj* x_137; if (lean::is_shared(x_79)) { lean::dec(x_79); x_135 = lean::box(0); } else { lean::cnstr_release(x_79, 0); x_135 = x_79; } if (lean::is_scalar(x_135)) { x_136 = lean::alloc_cnstr(1, 1, 1); } else { x_136 = x_135; } lean::cnstr_set(x_136, 0, x_108); lean::cnstr_set_scalar(x_136, sizeof(void*)*1, x_110); x_137 = x_136; return x_137; } } } } else { obj* x_139; obj* x_140; obj* x_141; obj* x_142; lean::inc(x_0); x_139 = lean::string_iterator_next(x_0); x_140 = lean::box(0); x_141 = l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__16(x_0, x_139); x_142 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_140, x_141); return x_142; } } } } obj* l_lean_parser_monad__parsec_num___at___private_4217055689__parse__mangled__name__aux___main___spec__2(obj* x_0) { _start: { obj* x_1; x_1 = l_lean_parser_monad__parsec_take__while1___at___private_4217055689__parse__mangled__name__aux___main___spec__3(x_0); if (lean::obj_tag(x_1) == 0) { obj* x_2; obj* x_4; obj* x_6; obj* x_8; obj* x_9; obj* x_10; obj* x_12; obj* x_13; x_2 = lean::cnstr_get(x_1, 0); lean::inc(x_2); x_4 = lean::cnstr_get(x_1, 1); lean::inc(x_4); x_6 = lean::cnstr_get(x_1, 2); lean::inc(x_6); if (lean::is_shared(x_1)) { lean::dec(x_1); x_8 = lean::box(0); } else { lean::cnstr_release(x_1, 0); lean::cnstr_release(x_1, 1); lean::cnstr_release(x_1, 2); x_8 = x_1; } x_9 = l_string_to__nat(x_2); x_10 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_10); if (lean::is_scalar(x_8)) { x_12 = lean::alloc_cnstr(0, 3, 0); } else { x_12 = x_8; } lean::cnstr_set(x_12, 0, x_9); lean::cnstr_set(x_12, 1, x_4); lean::cnstr_set(x_12, 2, x_10); x_13 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_6, x_12); return x_13; } else { obj* x_14; uint8 x_16; obj* x_17; obj* x_18; obj* x_19; x_14 = lean::cnstr_get(x_1, 0); lean::inc(x_14); x_16 = lean::cnstr_get_scalar(x_1, sizeof(void*)*1); if (lean::is_shared(x_1)) { lean::dec(x_1); x_17 = lean::box(0); } else { lean::cnstr_release(x_1, 0); x_17 = x_1; } if (lean::is_scalar(x_17)) { x_18 = lean::alloc_cnstr(1, 1, 1); } else { x_18 = x_17; } lean::cnstr_set(x_18, 0, x_14); lean::cnstr_set_scalar(x_18, sizeof(void*)*1, x_16); x_19 = x_18; return x_19; } } } obj* l_lean_parser_monad__parsec_take___at___private_4217055689__parse__mangled__name__aux___main___spec__18(obj* x_0, obj* x_1) { _start: { obj* x_2; uint8 x_3; x_2 = lean::mk_nat_obj(0u); x_3 = lean::nat_dec_eq(x_0, x_2); lean::dec(x_2); if (x_3 == 0) { obj* x_5; obj* x_7; x_5 = l_string_join___closed__1; lean::inc(x_5); x_7 = l___private_127590107__take__aux___main___rarg(x_0, x_5, x_1); return x_7; } else { obj* x_9; obj* x_10; obj* x_13; lean::dec(x_0); x_9 = l_string_join___closed__1; x_10 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_10); lean::inc(x_9); x_13 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_13, 0, x_9); lean::cnstr_set(x_13, 1, x_1); lean::cnstr_set(x_13, 2, x_10); return x_13; } } } obj* l_match__failed___at___private_4217055689__parse__mangled__name__aux___main___spec__19(obj* x_0) { _start: { obj* x_1; obj* x_2; obj* x_3; obj* x_7; uint8 x_8; obj* x_9; obj* x_10; x_1 = l_match__failed___rarg___closed__1; x_2 = l_mjoin___rarg___closed__1; x_3 = l_lean_parser_parsec__t_monad__fail___rarg___closed__1; lean::inc(x_3); lean::inc(x_2); lean::inc(x_1); x_7 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_7, 0, x_0); lean::cnstr_set(x_7, 1, x_1); lean::cnstr_set(x_7, 2, x_2); lean::cnstr_set(x_7, 3, x_3); x_8 = 0; x_9 = lean::alloc_cnstr(1, 1, 1); lean::cnstr_set(x_9, 0, x_7); lean::cnstr_set_scalar(x_9, sizeof(void*)*1, x_8); x_10 = x_9; return x_10; } } obj* l___private_4217055689__parse__mangled__name__aux___main(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; uint8 x_4; x_3 = lean::mk_nat_obj(0u); x_4 = lean::nat_dec_eq(x_0, x_3); if (x_4 == 0) { obj* x_5; obj* x_6; obj* x_9; obj* x_10; uint8 x_11; obj* x_14; uint32 x_15; x_5 = lean::mk_nat_obj(1u); x_6 = lean::nat_sub(x_0, x_5); lean::dec(x_5); lean::dec(x_0); x_9 = lean::mk_nat_obj(95u); x_10 = lean::mk_nat_obj(55296u); x_11 = lean::nat_dec_lt(x_9, x_10); lean::dec(x_10); lean::inc(x_2); x_14 = l_lean_parser_monad__parsec_eoi___at___private_1496486805__parse__mangled__string__aux___main___spec__6(x_2); if (x_11 == 0) { obj* x_17; uint8 x_18; x_17 = lean::mk_nat_obj(57343u); x_18 = lean::nat_dec_lt(x_17, x_9); lean::dec(x_17); if (x_18 == 0) { uint32 x_20; x_20 = lean::unbox_uint32(x_3); x_15 = x_20; goto lbl_16; } else { obj* x_21; uint8 x_22; x_21 = lean::mk_nat_obj(1114112u); x_22 = lean::nat_dec_lt(x_9, x_21); lean::dec(x_21); if (x_22 == 0) { uint32 x_24; x_24 = lean::unbox_uint32(x_3); x_15 = x_24; goto lbl_16; } else { uint32 x_25; x_25 = lean::unbox_uint32(x_9); x_15 = x_25; goto lbl_16; } } } else { uint32 x_26; x_26 = lean::unbox_uint32(x_9); x_15 = x_26; goto lbl_16; } lbl_16: { obj* x_27; if (lean::obj_tag(x_14) == 0) { obj* x_29; obj* x_31; obj* x_33; obj* x_34; obj* x_37; obj* x_38; x_29 = lean::cnstr_get(x_14, 1); lean::inc(x_29); x_31 = lean::cnstr_get(x_14, 2); lean::inc(x_31); if (lean::is_shared(x_14)) { lean::dec(x_14); x_33 = lean::box(0); } else { lean::cnstr_release(x_14, 0); lean::cnstr_release(x_14, 1); lean::cnstr_release(x_14, 2); x_33 = x_14; } x_34 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_34); lean::inc(x_1); if (lean::is_scalar(x_33)) { x_37 = lean::alloc_cnstr(0, 3, 0); } else { x_37 = x_33; } lean::cnstr_set(x_37, 0, x_1); lean::cnstr_set(x_37, 1, x_29); lean::cnstr_set(x_37, 2, x_34); x_38 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_31, x_37); x_27 = x_38; goto lbl_28; } else { obj* x_39; uint8 x_41; obj* x_42; obj* x_43; obj* x_44; x_39 = lean::cnstr_get(x_14, 0); lean::inc(x_39); x_41 = lean::cnstr_get_scalar(x_14, sizeof(void*)*1); if (lean::is_shared(x_14)) { lean::dec(x_14); x_42 = lean::box(0); } else { lean::cnstr_release(x_14, 0); x_42 = x_14; } if (lean::is_scalar(x_42)) { x_43 = lean::alloc_cnstr(1, 1, 1); } else { x_43 = x_42; } lean::cnstr_set(x_43, 0, x_39); lean::cnstr_set_scalar(x_43, sizeof(void*)*1, x_41); x_44 = x_43; x_27 = x_44; goto lbl_28; } lbl_28: { if (lean::obj_tag(x_27) == 0) { lean::dec(x_9); lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); lean::dec(x_2); return x_27; } else { obj* x_50; uint8 x_52; obj* x_53; obj* x_54; uint8 x_55; x_50 = lean::cnstr_get(x_27, 0); lean::inc(x_50); x_52 = lean::cnstr_get_scalar(x_27, sizeof(void*)*1); if (x_52 == 0) { obj* x_58; obj* x_59; obj* x_63; lean::dec(x_27); x_58 = l___private_1205956357__name_mangle__aux___main___closed__1; x_59 = l___private_4217055689__parse__mangled__name__aux___main___closed__1; lean::inc(x_2); lean::inc(x_59); lean::inc(x_58); x_63 = l_lean_parser_monad__parsec_str__core___at___private_1496486805__parse__mangled__string__aux___main___spec__1(x_58, x_59, x_2); if (lean::obj_tag(x_63) == 0) { obj* x_64; obj* x_66; obj* x_68; obj* x_69; x_64 = lean::cnstr_get(x_63, 1); lean::inc(x_64); x_66 = lean::cnstr_get(x_63, 2); lean::inc(x_66); if (lean::is_shared(x_63)) { lean::dec(x_63); x_68 = lean::box(0); } else { lean::cnstr_release(x_63, 0); lean::cnstr_release(x_63, 1); lean::cnstr_release(x_63, 2); x_68 = x_63; } x_69 = l_lean_parser_monad__parsec_num___at___private_4217055689__parse__mangled__name__aux___main___spec__2(x_64); if (lean::obj_tag(x_69) == 0) { obj* x_70; obj* x_72; obj* x_74; uint32 x_77; x_70 = lean::cnstr_get(x_69, 0); lean::inc(x_70); x_72 = lean::cnstr_get(x_69, 1); lean::inc(x_72); x_74 = lean::cnstr_get(x_69, 2); lean::inc(x_74); lean::dec(x_69); if (x_11 == 0) { obj* x_79; uint8 x_80; x_79 = lean::mk_nat_obj(57343u); x_80 = lean::nat_dec_lt(x_79, x_9); lean::dec(x_79); if (x_80 == 0) { uint32 x_83; lean::dec(x_9); x_83 = lean::unbox_uint32(x_3); lean::dec(x_3); x_77 = x_83; goto lbl_78; } else { obj* x_85; uint8 x_86; x_85 = lean::mk_nat_obj(1114112u); x_86 = lean::nat_dec_lt(x_9, x_85); lean::dec(x_85); if (x_86 == 0) { uint32 x_89; lean::dec(x_9); x_89 = lean::unbox_uint32(x_3); lean::dec(x_3); x_77 = x_89; goto lbl_78; } else { uint32 x_92; lean::dec(x_3); x_92 = lean::unbox_uint32(x_9); lean::dec(x_9); x_77 = x_92; goto lbl_78; } } } else { uint32 x_95; lean::dec(x_3); x_95 = lean::unbox_uint32(x_9); lean::dec(x_9); x_77 = x_95; goto lbl_78; } lbl_78: { obj* x_97; x_97 = l_lean_parser_monad__parsec_ch___at___private_4217055689__parse__mangled__name__aux___main___spec__1(x_77, x_72); if (lean::obj_tag(x_97) == 0) { obj* x_98; obj* x_100; obj* x_103; x_98 = lean::cnstr_get(x_97, 1); lean::inc(x_98); x_100 = lean::cnstr_get(x_97, 2); lean::inc(x_100); lean::dec(x_97); x_103 = l_lean_parser_monad__parsec_take___at___private_4217055689__parse__mangled__name__aux___main___spec__18(x_70, x_98); if (lean::obj_tag(x_103) == 0) { obj* x_104; obj* x_106; obj* x_108; obj* x_111; obj* x_112; obj* x_114; obj* x_115; x_104 = lean::cnstr_get(x_103, 0); lean::inc(x_104); x_106 = lean::cnstr_get(x_103, 1); lean::inc(x_106); x_108 = lean::cnstr_get(x_103, 2); lean::inc(x_108); lean::dec(x_103); x_111 = l_lean_string_demangle(x_104); x_112 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_112); if (lean::is_scalar(x_68)) { x_114 = lean::alloc_cnstr(0, 3, 0); } else { x_114 = x_68; } lean::cnstr_set(x_114, 0, x_111); lean::cnstr_set(x_114, 1, x_106); lean::cnstr_set(x_114, 2, x_112); x_115 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_108, x_114); if (lean::obj_tag(x_115) == 0) { obj* x_116; obj* x_118; obj* x_120; x_116 = lean::cnstr_get(x_115, 0); lean::inc(x_116); x_118 = lean::cnstr_get(x_115, 1); lean::inc(x_118); x_120 = lean::cnstr_get(x_115, 2); lean::inc(x_120); lean::dec(x_115); if (lean::obj_tag(x_116) == 0) { obj* x_124; obj* x_125; obj* x_126; obj* x_127; obj* x_128; lean::dec(x_116); x_124 = l_match__failed___at___private_4217055689__parse__mangled__name__aux___main___spec__19(x_118); x_125 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_120, x_124); x_126 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_100, x_125); x_127 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_74, x_126); x_128 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_66, x_127); if (lean::obj_tag(x_128) == 0) { obj* x_132; lean::dec(x_1); lean::dec(x_6); lean::dec(x_2); x_132 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_50, x_128); return x_132; } else { obj* x_133; uint8 x_135; x_133 = lean::cnstr_get(x_128, 0); lean::inc(x_133); x_135 = lean::cnstr_get_scalar(x_128, sizeof(void*)*1); x_53 = x_128; x_54 = x_133; x_55 = x_135; goto lbl_56; } } else { obj* x_136; obj* x_140; obj* x_142; obj* x_143; obj* x_144; obj* x_145; obj* x_146; x_136 = lean::cnstr_get(x_116, 0); lean::inc(x_136); lean::dec(x_116); lean::inc(x_1); x_140 = lean::name_mk_string(x_1, x_136); lean::inc(x_6); x_142 = l___private_4217055689__parse__mangled__name__aux___main(x_6, x_140, x_118); x_143 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_120, x_142); x_144 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_100, x_143); x_145 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_74, x_144); x_146 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_66, x_145); if (lean::obj_tag(x_146) == 0) { obj* x_150; lean::dec(x_1); lean::dec(x_6); lean::dec(x_2); x_150 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_50, x_146); return x_150; } else { obj* x_151; uint8 x_153; x_151 = lean::cnstr_get(x_146, 0); lean::inc(x_151); x_153 = lean::cnstr_get_scalar(x_146, sizeof(void*)*1); x_53 = x_146; x_54 = x_151; x_55 = x_153; goto lbl_56; } } } else { obj* x_154; uint8 x_156; obj* x_157; obj* x_158; obj* x_159; obj* x_160; obj* x_161; obj* x_162; x_154 = lean::cnstr_get(x_115, 0); lean::inc(x_154); x_156 = lean::cnstr_get_scalar(x_115, sizeof(void*)*1); if (lean::is_shared(x_115)) { lean::dec(x_115); x_157 = lean::box(0); } else { lean::cnstr_release(x_115, 0); x_157 = x_115; } if (lean::is_scalar(x_157)) { x_158 = lean::alloc_cnstr(1, 1, 1); } else { x_158 = x_157; } lean::cnstr_set(x_158, 0, x_154); lean::cnstr_set_scalar(x_158, sizeof(void*)*1, x_156); x_159 = x_158; x_160 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_100, x_159); x_161 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_74, x_160); x_162 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_66, x_161); if (lean::obj_tag(x_162) == 0) { obj* x_166; lean::dec(x_1); lean::dec(x_6); lean::dec(x_2); x_166 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_50, x_162); return x_166; } else { obj* x_167; uint8 x_169; x_167 = lean::cnstr_get(x_162, 0); lean::inc(x_167); x_169 = lean::cnstr_get_scalar(x_162, sizeof(void*)*1); x_53 = x_162; x_54 = x_167; x_55 = x_169; goto lbl_56; } } } else { obj* x_171; uint8 x_173; obj* x_174; obj* x_175; obj* x_176; obj* x_177; obj* x_178; obj* x_179; lean::dec(x_68); x_171 = lean::cnstr_get(x_103, 0); lean::inc(x_171); x_173 = lean::cnstr_get_scalar(x_103, sizeof(void*)*1); if (lean::is_shared(x_103)) { lean::dec(x_103); x_174 = lean::box(0); } else { lean::cnstr_release(x_103, 0); x_174 = x_103; } if (lean::is_scalar(x_174)) { x_175 = lean::alloc_cnstr(1, 1, 1); } else { x_175 = x_174; } lean::cnstr_set(x_175, 0, x_171); lean::cnstr_set_scalar(x_175, sizeof(void*)*1, x_173); x_176 = x_175; x_177 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_100, x_176); x_178 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_74, x_177); x_179 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_66, x_178); if (lean::obj_tag(x_179) == 0) { obj* x_183; lean::dec(x_1); lean::dec(x_6); lean::dec(x_2); x_183 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_50, x_179); return x_183; } else { obj* x_184; uint8 x_186; x_184 = lean::cnstr_get(x_179, 0); lean::inc(x_184); x_186 = lean::cnstr_get_scalar(x_179, sizeof(void*)*1); x_53 = x_179; x_54 = x_184; x_55 = x_186; goto lbl_56; } } } else { obj* x_189; uint8 x_191; obj* x_192; obj* x_193; obj* x_194; obj* x_195; obj* x_196; lean::dec(x_68); lean::dec(x_70); x_189 = lean::cnstr_get(x_97, 0); lean::inc(x_189); x_191 = lean::cnstr_get_scalar(x_97, sizeof(void*)*1); if (lean::is_shared(x_97)) { lean::dec(x_97); x_192 = lean::box(0); } else { lean::cnstr_release(x_97, 0); x_192 = x_97; } if (lean::is_scalar(x_192)) { x_193 = lean::alloc_cnstr(1, 1, 1); } else { x_193 = x_192; } lean::cnstr_set(x_193, 0, x_189); lean::cnstr_set_scalar(x_193, sizeof(void*)*1, x_191); x_194 = x_193; x_195 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_74, x_194); x_196 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_66, x_195); if (lean::obj_tag(x_196) == 0) { obj* x_200; lean::dec(x_1); lean::dec(x_6); lean::dec(x_2); x_200 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_50, x_196); return x_200; } else { obj* x_201; uint8 x_203; x_201 = lean::cnstr_get(x_196, 0); lean::inc(x_201); x_203 = lean::cnstr_get_scalar(x_196, sizeof(void*)*1); x_53 = x_196; x_54 = x_201; x_55 = x_203; goto lbl_56; } } } } else { obj* x_207; uint8 x_209; obj* x_210; obj* x_211; obj* x_212; obj* x_213; lean::dec(x_9); lean::dec(x_3); lean::dec(x_68); x_207 = lean::cnstr_get(x_69, 0); lean::inc(x_207); x_209 = lean::cnstr_get_scalar(x_69, sizeof(void*)*1); if (lean::is_shared(x_69)) { lean::dec(x_69); x_210 = lean::box(0); } else { lean::cnstr_release(x_69, 0); x_210 = x_69; } if (lean::is_scalar(x_210)) { x_211 = lean::alloc_cnstr(1, 1, 1); } else { x_211 = x_210; } lean::cnstr_set(x_211, 0, x_207); lean::cnstr_set_scalar(x_211, sizeof(void*)*1, x_209); x_212 = x_211; x_213 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_66, x_212); if (lean::obj_tag(x_213) == 0) { obj* x_217; lean::dec(x_1); lean::dec(x_6); lean::dec(x_2); x_217 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_50, x_213); return x_217; } else { obj* x_218; uint8 x_220; x_218 = lean::cnstr_get(x_213, 0); lean::inc(x_218); x_220 = lean::cnstr_get_scalar(x_213, sizeof(void*)*1); x_53 = x_213; x_54 = x_218; x_55 = x_220; goto lbl_56; } } } else { obj* x_223; uint8 x_225; obj* x_226; obj* x_228; obj* x_229; lean::dec(x_9); lean::dec(x_3); x_223 = lean::cnstr_get(x_63, 0); lean::inc(x_223); x_225 = lean::cnstr_get_scalar(x_63, sizeof(void*)*1); if (lean::is_shared(x_63)) { lean::dec(x_63); x_226 = lean::box(0); } else { lean::cnstr_release(x_63, 0); x_226 = x_63; } lean::inc(x_223); if (lean::is_scalar(x_226)) { x_228 = lean::alloc_cnstr(1, 1, 1); } else { x_228 = x_226; } lean::cnstr_set(x_228, 0, x_223); lean::cnstr_set_scalar(x_228, sizeof(void*)*1, x_225); x_229 = x_228; x_53 = x_229; x_54 = x_223; x_55 = x_225; goto lbl_56; } } else { lean::dec(x_9); lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); lean::dec(x_2); lean::dec(x_50); return x_27; } lbl_56: { if (x_55 == 0) { obj* x_237; lean::dec(x_53); x_237 = l_lean_parser_monad__parsec_ch___at___private_4217055689__parse__mangled__name__aux___main___spec__1(x_15, x_2); if (lean::obj_tag(x_237) == 0) { obj* x_238; obj* x_240; obj* x_243; x_238 = lean::cnstr_get(x_237, 1); lean::inc(x_238); x_240 = lean::cnstr_get(x_237, 2); lean::inc(x_240); lean::dec(x_237); x_243 = l_lean_parser_monad__parsec_num___at___private_4217055689__parse__mangled__name__aux___main___spec__2(x_238); if (lean::obj_tag(x_243) == 0) { obj* x_244; obj* x_246; obj* x_248; obj* x_251; x_244 = lean::cnstr_get(x_243, 0); lean::inc(x_244); x_246 = lean::cnstr_get(x_243, 1); lean::inc(x_246); x_248 = lean::cnstr_get(x_243, 2); lean::inc(x_248); lean::dec(x_243); x_251 = l_lean_parser_monad__parsec_ch___at___private_4217055689__parse__mangled__name__aux___main___spec__1(x_15, x_246); if (lean::obj_tag(x_251) == 0) { obj* x_252; obj* x_254; obj* x_257; obj* x_258; obj* x_259; obj* x_260; obj* x_261; obj* x_262; obj* x_263; x_252 = lean::cnstr_get(x_251, 1); lean::inc(x_252); x_254 = lean::cnstr_get(x_251, 2); lean::inc(x_254); lean::dec(x_251); x_257 = lean::name_mk_numeral(x_1, x_244); x_258 = l___private_4217055689__parse__mangled__name__aux___main(x_6, x_257, x_252); x_259 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_254, x_258); x_260 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_248, x_259); x_261 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_240, x_260); x_262 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_54, x_261); x_263 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_50, x_262); return x_263; } else { obj* x_267; uint8 x_269; obj* x_270; obj* x_271; obj* x_272; obj* x_273; obj* x_274; obj* x_275; obj* x_276; lean::dec(x_244); lean::dec(x_1); lean::dec(x_6); x_267 = lean::cnstr_get(x_251, 0); lean::inc(x_267); x_269 = lean::cnstr_get_scalar(x_251, sizeof(void*)*1); if (lean::is_shared(x_251)) { lean::dec(x_251); x_270 = lean::box(0); } else { lean::cnstr_release(x_251, 0); x_270 = x_251; } if (lean::is_scalar(x_270)) { x_271 = lean::alloc_cnstr(1, 1, 1); } else { x_271 = x_270; } lean::cnstr_set(x_271, 0, x_267); lean::cnstr_set_scalar(x_271, sizeof(void*)*1, x_269); x_272 = x_271; x_273 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_248, x_272); x_274 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_240, x_273); x_275 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_54, x_274); x_276 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_50, x_275); return x_276; } } else { obj* x_279; uint8 x_281; obj* x_282; obj* x_283; obj* x_284; obj* x_285; obj* x_286; obj* x_287; lean::dec(x_1); lean::dec(x_6); x_279 = lean::cnstr_get(x_243, 0); lean::inc(x_279); x_281 = lean::cnstr_get_scalar(x_243, sizeof(void*)*1); if (lean::is_shared(x_243)) { lean::dec(x_243); x_282 = lean::box(0); } else { lean::cnstr_release(x_243, 0); x_282 = x_243; } if (lean::is_scalar(x_282)) { x_283 = lean::alloc_cnstr(1, 1, 1); } else { x_283 = x_282; } lean::cnstr_set(x_283, 0, x_279); lean::cnstr_set_scalar(x_283, sizeof(void*)*1, x_281); x_284 = x_283; x_285 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_240, x_284); x_286 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_54, x_285); x_287 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_50, x_286); return x_287; } } else { obj* x_290; uint8 x_292; obj* x_293; obj* x_294; obj* x_295; obj* x_296; obj* x_297; lean::dec(x_1); lean::dec(x_6); x_290 = lean::cnstr_get(x_237, 0); lean::inc(x_290); x_292 = lean::cnstr_get_scalar(x_237, sizeof(void*)*1); if (lean::is_shared(x_237)) { lean::dec(x_237); x_293 = lean::box(0); } else { lean::cnstr_release(x_237, 0); x_293 = x_237; } if (lean::is_scalar(x_293)) { x_294 = lean::alloc_cnstr(1, 1, 1); } else { x_294 = x_293; } lean::cnstr_set(x_294, 0, x_290); lean::cnstr_set_scalar(x_294, sizeof(void*)*1, x_292); x_295 = x_294; x_296 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_54, x_295); x_297 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_50, x_296); return x_297; } } else { obj* x_302; lean::dec(x_54); lean::dec(x_1); lean::dec(x_6); lean::dec(x_2); x_302 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_50, x_53); return x_302; } } } } } } else { obj* x_305; obj* x_307; lean::dec(x_3); lean::dec(x_0); x_305 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_305); x_307 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_307, 0, x_1); lean::cnstr_set(x_307, 1, x_2); lean::cnstr_set(x_307, 2, x_305); return x_307; } } } obj* _init_l___private_4217055689__parse__mangled__name__aux___main___closed__1() { _start: { obj* x_0; obj* x_1; obj* x_2; x_0 = lean::mk_string("_s"); x_1 = l_string_quote(x_0); x_2 = lean::alloc_closure(reinterpret_cast(l_dlist_singleton___rarg), 2, 1); lean::closure_set(x_2, 0, x_1); return x_2; } } obj* l_lean_parser_monad__parsec_ch___at___private_4217055689__parse__mangled__name__aux___main___spec__1___boxed(obj* x_0, obj* x_1) { _start: { uint32 x_2; obj* x_3; x_2 = lean::unbox_uint32(x_0); x_3 = l_lean_parser_monad__parsec_ch___at___private_4217055689__parse__mangled__name__aux___main___spec__1(x_2, x_1); return x_3; } } obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__4___boxed(obj* x_0, obj* x_1) { _start: { uint32 x_2; obj* x_3; x_2 = lean::unbox_uint32(x_0); x_3 = l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__4(x_2, x_1); return x_3; } } obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__6___boxed(obj* x_0, obj* x_1) { _start: { uint32 x_2; obj* x_3; x_2 = lean::unbox_uint32(x_0); x_3 = l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__6(x_2, x_1); return x_3; } } obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__8___boxed(obj* x_0, obj* x_1) { _start: { uint32 x_2; obj* x_3; x_2 = lean::unbox_uint32(x_0); x_3 = l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__8(x_2, x_1); return x_3; } } obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__10___boxed(obj* x_0, obj* x_1) { _start: { uint32 x_2; obj* x_3; x_2 = lean::unbox_uint32(x_0); x_3 = l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__10(x_2, x_1); return x_3; } } obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__12___boxed(obj* x_0, obj* x_1) { _start: { uint32 x_2; obj* x_3; x_2 = lean::unbox_uint32(x_0); x_3 = l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__12(x_2, x_1); return x_3; } } obj* l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__14___boxed(obj* x_0, obj* x_1) { _start: { uint32 x_2; obj* x_3; x_2 = lean::unbox_uint32(x_0); x_3 = l_lean_parser_monad__parsec_take__while__cont___at___private_4217055689__parse__mangled__name__aux___main___spec__14(x_2, x_1); return x_3; } } obj* l___private_4217055689__parse__mangled__name__aux(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l___private_4217055689__parse__mangled__name__aux___main(x_0, x_1, x_2); return x_3; } } obj* l___private_74862231__parse__mangled__name(obj* x_0, obj* x_1) { _start: { obj* x_3; obj* x_4; obj* x_5; lean::inc(x_0); x_3 = l_string_quote(x_0); x_4 = lean::alloc_closure(reinterpret_cast(l_dlist_singleton___rarg), 2, 1); lean::closure_set(x_4, 0, x_3); x_5 = l_lean_parser_monad__parsec_str__core___at___private_1496486805__parse__mangled__string__aux___main___spec__1(x_0, x_4, x_1); if (lean::obj_tag(x_5) == 0) { obj* x_6; obj* x_8; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_16; obj* x_17; x_6 = lean::cnstr_get(x_5, 1); lean::inc(x_6); x_8 = lean::cnstr_get(x_5, 2); lean::inc(x_8); lean::dec(x_5); x_11 = lean::string_iterator_remaining(x_6); x_12 = lean::box(0); x_13 = l___private_4217055689__parse__mangled__name__aux___main(x_11, x_12, x_6); x_14 = l_lean_parser_monad__parsec_eoi___at___private_1496486805__parse__mangled__string__aux___main___spec__6___closed__1; lean::inc(x_14); x_16 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_13); x_17 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_8, x_16); return x_17; } else { obj* x_18; uint8 x_20; obj* x_21; obj* x_22; obj* x_23; x_18 = lean::cnstr_get(x_5, 0); lean::inc(x_18); x_20 = lean::cnstr_get_scalar(x_5, sizeof(void*)*1); if (lean::is_shared(x_5)) { lean::dec(x_5); x_21 = lean::box(0); } else { lean::cnstr_release(x_5, 0); x_21 = x_5; } if (lean::is_scalar(x_21)) { x_22 = lean::alloc_cnstr(1, 1, 1); } else { x_22 = x_21; } lean::cnstr_set(x_22, 0, x_18); lean::cnstr_set_scalar(x_22, sizeof(void*)*1, x_20); x_23 = x_22; return x_23; } } } obj* l_lean_name_demangle(obj* x_0, obj* x_1) { _start: { obj* x_2; obj* x_3; obj* x_5; x_2 = lean::alloc_closure(reinterpret_cast(l___private_74862231__parse__mangled__name), 2, 1); lean::closure_set(x_2, 0, x_1); x_3 = l_string_join___closed__1; lean::inc(x_3); x_5 = l_lean_parser_parsec__t_run___at_lean_parser_parsec_parse___spec__1___rarg(x_2, x_0, x_3); if (lean::obj_tag(x_5) == 0) { obj* x_7; lean::dec(x_5); x_7 = lean::box(0); return x_7; } else { obj* x_8; obj* x_11; x_8 = lean::cnstr_get(x_5, 0); lean::inc(x_8); lean::dec(x_5); x_11 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_11, 0, x_8); return x_11; } } } void initialize_init_lean_name(); void initialize_init_lean_parser_string__literal(); static bool _G_initialized = false; void initialize_init_lean_name__mangling() { if (_G_initialized) return; _G_initialized = true; initialize_init_lean_name(); initialize_init_lean_parser_string__literal(); l___private_3255790009__string_mangle__aux___main___closed__1 = _init_l___private_3255790009__string_mangle__aux___main___closed__1(); l___private_3255790009__string_mangle__aux___main___closed__2 = _init_l___private_3255790009__string_mangle__aux___main___closed__2(); l___private_3255790009__string_mangle__aux___main___closed__3 = _init_l___private_3255790009__string_mangle__aux___main___closed__3(); l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2___closed__1 = _init_l_lean_parser_parse__hex__digit___at___private_1496486805__parse__mangled__string__aux___main___spec__2___closed__1(); l_lean_parser_monad__parsec_eoi___at___private_1496486805__parse__mangled__string__aux___main___spec__6___closed__1 = _init_l_lean_parser_monad__parsec_eoi___at___private_1496486805__parse__mangled__string__aux___main___spec__6___closed__1(); l___private_1496486805__parse__mangled__string__aux___main___closed__1 = _init_l___private_1496486805__parse__mangled__string__aux___main___closed__1(); l___private_1496486805__parse__mangled__string__aux___main___closed__2 = _init_l___private_1496486805__parse__mangled__string__aux___main___closed__2(); l___private_1496486805__parse__mangled__string__aux___main___closed__3 = _init_l___private_1496486805__parse__mangled__string__aux___main___closed__3(); l_lean_string_demangle___closed__1 = _init_l_lean_string_demangle___closed__1(); l___private_1205956357__name_mangle__aux___main___closed__1 = _init_l___private_1205956357__name_mangle__aux___main___closed__1(); l___private_1205956357__name_mangle__aux___main___closed__2 = _init_l___private_1205956357__name_mangle__aux___main___closed__2(); l___private_4217055689__parse__mangled__name__aux___main___closed__1 = _init_l___private_4217055689__parse__mangled__name__aux___main___closed__1(); }