Skip to content

Instantly share code, notes, and snippets.

@simmsb
Last active October 13, 2022 23:46
Show Gist options
  • Save simmsb/17fee0f4b71c394a6e7291d04454e9bc to your computer and use it in GitHub Desktop.
Save simmsb/17fee0f4b71c394a6e7291d04454e9bc to your computer and use it in GitHub Desktop.
#include <stdlib.h>
#include <string.h>
#include "base.h"
#include "builtin.h"
struct env_45 {struct obj *v_k_205;struct obj *v_while_202;struct obj *v_for_204;};
void lambda_45(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_47 {struct obj *v_k_201;struct obj *v_rv_282;};
void lambda_47(struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_12 {struct obj *v_inner_232;struct obj *v_k_244;struct obj *v_it_241;struct obj *v_body_230;};
void lambda_12(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_16 {struct obj *v_it_234;struct obj *v_incr_228;struct obj *v_body_230;struct obj *v_k_238;struct obj *v_test_226;struct obj *v_inner_232;};
void lambda_16(struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_10 {struct obj *v_it_241;struct obj *v_inner_232;struct obj *v_k_247;};
void lambda_10(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_0 {struct obj *v_k_220;struct obj *v_f_208;struct obj *v_rv_221;};
void lambda_0(struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_38 {struct obj *v_rv_272;struct obj *v_k_262;};
void lambda_38(struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_43 {struct obj *v_while_202;struct obj *v_k_253;struct obj *v_for_204;};
void lambda_43(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_8 {struct obj *v_f_208;struct obj *v_while_202;struct obj *v_c_206;struct obj *v_k_209;};
void lambda_8(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_26 {struct obj *v_k_223;struct obj *v_for_204;};
void lambda_26(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_39 {struct obj *v_rv_267;struct obj *v_k_262;};
void lambda_39(struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_14 {struct obj *v_body_230;struct obj *v_inner_232;struct obj *v_rv_240;struct obj *v_k_238;};
void lambda_14(struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_41 {struct obj *v_for_204;struct obj *v_k_260;};
void lambda_41(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_15 {struct obj *v_k_238;struct obj *v_rv_239;struct obj *v_it_234;struct obj *v_incr_228;struct obj *v_body_230;struct obj *v_inner_232;};
void lambda_15(struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_19 {struct obj *v_inner_232;struct obj *v_rv_250;struct obj *v_k_249;};
void lambda_19(struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_23 {struct obj *v_incr_228;struct obj *v_test_226;struct obj *v_k_229;struct obj *v_init_224;};
void lambda_23(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_28 {struct obj *v_k_255;};
void lambda_28(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_21 {struct obj *v_inner_232;struct obj *v_init_224;struct obj *v_k_233;struct obj *v_body_230;struct obj *v_test_226;struct obj *v_incr_228;};
void lambda_21(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_25 {struct obj *v_k_225;struct obj *v_init_224;};
void lambda_25(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_7 {struct obj *v_f_208;struct obj *v_c_206;struct obj *v_while_202;struct obj *v_k_211;};
void lambda_7(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_13 {struct obj *v_body_230;struct obj *v_it_241;struct obj *v_k_242;struct obj *v_inner_232;};
void lambda_13(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_31 {struct obj *v_k_271;};
void lambda_31(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_33 {struct obj *v_x_273;struct obj *v_k_276;};
void lambda_33(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_34 {struct obj *v_x_273;struct obj *v_k_274;};
void lambda_34(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_35 {struct obj *v_k_281;};
void lambda_35(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_22 {struct obj *v_incr_228;struct obj *v_init_224;struct obj *v_k_231;struct obj *v_body_230;struct obj *v_test_226;};
void lambda_22(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_37 {struct obj *v_rv_277;struct obj *v_k_262;};
void lambda_37(struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_1 {struct obj *v_while_202;struct obj *v_k_220;struct obj *v_f_208;struct obj *v_c_206;};
void lambda_1(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_30 {struct obj *v_k_264;};
void lambda_30(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_24 {struct obj *v_test_226;struct obj *v_init_224;struct obj *v_k_227;};
void lambda_24(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_20 {struct obj *v_init_224;struct obj *v_inner_232;struct obj *v_k_249;};
void lambda_20(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_3 {struct obj *v_while_202;struct obj *v_f_208;struct obj *v_c_206;struct obj *v_k_217;};
void lambda_3(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_29 {struct obj *v_k_266;};
void lambda_29(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_27 {struct obj *v_k_257;};
void lambda_27(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_18 {struct obj *v_body_230;struct obj *v_inner_232;struct obj *v_incr_228;struct obj *v_it_234;struct obj *v_k_235;struct obj *v_test_226;};
void lambda_18(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_9 {struct obj *v_k_207;struct obj *v_c_206;struct obj *v_while_202;};
void lambda_9(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_17 {struct obj *v_it_234;struct obj *v_incr_228;struct obj *v_test_226;struct obj *v_body_230;struct obj *v_inner_232;struct obj *v_k_237;};
void lambda_17(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_46 {struct obj *v_k_203;struct obj *v_while_202;};
void lambda_46(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_44 {struct obj *v_while_202;struct obj *v_rv_251;struct obj *v_k_205;struct obj *v_for_204;};
void lambda_44(struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_2 {struct obj *v_c_206;struct obj *v_k_217;struct obj *v_rv_218;struct obj *v_while_202;struct obj *v_f_208;};
void lambda_2(struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_48 {struct obj *v_k_201;};
void lambda_48(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_4 {struct obj *v_c_206;struct obj *v_f_208;struct obj *v_while_202;struct obj *v_k_215;};
void lambda_4(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_32 {struct obj *v_k_269;};
void lambda_32(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_36 {struct obj *v_k_279;};
void lambda_36(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_40 {struct obj *v_for_204;struct obj *v_k_262;};
void lambda_40(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_5 {struct obj *v_rv_213;struct obj *v_f_208;struct obj *v_c_206;struct obj *v_k_212;struct obj *v_while_202;};
void lambda_5(struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_6 {struct obj *v_f_208;struct obj *v_k_212;struct obj *v_c_206;struct obj *v_while_202;};
void lambda_6(struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_11 {struct obj *v_inner_232;struct obj *v_rv_245;struct obj *v_k_244;struct obj *v_it_241;};
void lambda_11(struct obj *, struct env_obj *)__attribute__((noreturn)) ;
struct env_42 {struct obj *v_rv_258;struct obj *v_for_204;struct obj *v_k_253;};
void lambda_42(struct obj *, struct env_obj *)__attribute__((noreturn)) ;
void lambda_45(struct obj *var_0, struct obj *var_1, struct env_obj *env_in){struct env_45 *env = (struct env_45 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_2,var_0);((env)->v_for_204)=(var_2);OBJECT_CELL_OBJ_NEW(var_3,var_1);((env)->v_k_205)=(var_3);OBJECT_ENV_OBJ_NEW(var_4,struct env_9 );(((struct env_9 *)(&((var_4)->env)))->v_while_202)=((env)->v_while_202);OBJECT_CLOSURE_TWO_NEW(var_5,lambda_9,var_4);(((struct cell_obj *)((env)->v_while_202))->val)=(var_5);OBJECT_ENV_OBJ_NEW(var_6,struct env_26 );(((struct env_26 *)(&((var_6)->env)))->v_for_204)=((env)->v_for_204);OBJECT_CLOSURE_TWO_NEW(var_7,lambda_26,var_6);OBJECT_ENV_OBJ_NEW(var_8,struct env_44 );(((struct env_44 *)(&((var_8)->env)))->v_while_202)=((env)->v_while_202);(((struct env_44 *)(&((var_8)->env)))->v_k_205)=((env)->v_k_205);(((struct env_44 *)(&((var_8)->env)))->v_for_204)=((env)->v_for_204);OBJECT_CLOSURE_ONE_NEW(var_9,lambda_44,var_8);call_closure_two(var_7,NULL,var_9);__builtin_unreachable();}
void lambda_47(struct obj *var_10, struct env_obj *env_in){struct env_47 *env = (struct env_47 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_11,var_10);((env)->v_rv_282)=(var_11);call_closure_two(((struct cell_obj *)((env)->v_rv_282))->val,NULL,((struct cell_obj *)((env)->v_k_201))->val);__builtin_unreachable();}
void lambda_12(struct obj *var_12, struct obj *var_13, struct env_obj *env_in){struct env_12 *env = (struct env_12 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_14,var_13);((env)->v_k_244)=(var_14);OBJECT_ENV_OBJ_NEW(var_15,struct env_11 );(((struct env_11 *)(&((var_15)->env)))->v_inner_232)=((env)->v_inner_232);(((struct env_11 *)(&((var_15)->env)))->v_k_244)=((env)->v_k_244);(((struct env_11 *)(&((var_15)->env)))->v_it_241)=((env)->v_it_241);OBJECT_CLOSURE_ONE_NEW(var_16,lambda_11,var_15);call_closure_two(((struct cell_obj *)((env)->v_body_230))->val,NULL,var_16);__builtin_unreachable();}
void lambda_16(struct obj *var_17, struct env_obj *env_in){struct env_16 *env = (struct env_16 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_18,var_17);((env)->v_k_238)=(var_18);OBJECT_ENV_OBJ_NEW(var_19,struct env_15 );(((struct env_15 *)(&((var_19)->env)))->v_k_238)=((env)->v_k_238);(((struct env_15 *)(&((var_19)->env)))->v_it_234)=((env)->v_it_234);(((struct env_15 *)(&((var_19)->env)))->v_incr_228)=((env)->v_incr_228);(((struct env_15 *)(&((var_19)->env)))->v_body_230)=((env)->v_body_230);(((struct env_15 *)(&((var_19)->env)))->v_inner_232)=((env)->v_inner_232);OBJECT_CLOSURE_ONE_NEW(var_20,lambda_15,var_19);call_closure_two(((struct cell_obj *)((env)->v_test_226))->val,((struct cell_obj *)((env)->v_it_234))->val,var_20);__builtin_unreachable();}
void lambda_10(struct obj *var_21, struct obj *var_22, struct env_obj *env_in){struct env_10 *env = (struct env_10 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_23,var_22);((env)->v_k_247)=(var_23);call_closure_two(((struct cell_obj *)((env)->v_inner_232))->val,((struct cell_obj *)((env)->v_it_241))->val,((struct cell_obj *)((env)->v_k_247))->val);__builtin_unreachable();}
void lambda_0(struct obj *var_24, struct env_obj *env_in){struct env_0 *env = (struct env_0 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_25,var_24);((env)->v_rv_221)=(var_25);call_closure_two(((struct cell_obj *)((env)->v_rv_221))->val,((struct cell_obj *)((env)->v_f_208))->val,((struct cell_obj *)((env)->v_k_220))->val);__builtin_unreachable();}
void lambda_38(struct obj *var_26, struct env_obj *env_in){struct env_38 *env = (struct env_38 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_27,var_26);((env)->v_rv_272)=(var_27);OBJECT_ENV_OBJ_NEW(var_28,struct env_34 );OBJECT_CLOSURE_TWO_NEW(var_29,lambda_34,var_28);OBJECT_ENV_OBJ_NEW(var_30,struct env_37 );(((struct env_37 *)(&((var_30)->env)))->v_k_262)=((env)->v_k_262);OBJECT_CLOSURE_ONE_NEW(var_31,lambda_37,var_30);call_closure_two(((struct cell_obj *)((env)->v_rv_272))->val,var_29,var_31);__builtin_unreachable();}
void lambda_43(struct obj *var_32, struct obj *var_33, struct env_obj *env_in){struct env_43 *env = (struct env_43 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_34,var_33);((env)->v_k_253)=(var_34);OBJECT_ENV_OBJ_NEW(var_35,struct env_28 );OBJECT_CLOSURE_TWO_NEW(var_36,lambda_28,var_35);OBJECT_ENV_OBJ_NEW(var_37,struct env_42 );(((struct env_42 *)(&((var_37)->env)))->v_for_204)=((env)->v_for_204);(((struct env_42 *)(&((var_37)->env)))->v_k_253)=((env)->v_k_253);OBJECT_CLOSURE_ONE_NEW(var_38,lambda_42,var_37);call_closure_two(((struct cell_obj *)((env)->v_while_202))->val,var_36,var_38);__builtin_unreachable();}
void lambda_8(struct obj *var_39, struct obj *var_40, struct env_obj *env_in){struct env_8 *env = (struct env_8 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_41,var_39);((env)->v_f_208)=(var_41);OBJECT_CELL_OBJ_NEW(var_42,var_40);((env)->v_k_209)=(var_42);OBJECT_ENV_OBJ_NEW(var_43,struct env_7 );(((struct env_7 *)(&((var_43)->env)))->v_f_208)=((env)->v_f_208);(((struct env_7 *)(&((var_43)->env)))->v_c_206)=((env)->v_c_206);(((struct env_7 *)(&((var_43)->env)))->v_while_202)=((env)->v_while_202);OBJECT_CLOSURE_TWO_NEW(var_44,lambda_7,var_43);call_closure_two(var_44,NULL,((struct cell_obj *)((env)->v_k_209))->val);__builtin_unreachable();}
void lambda_26(struct obj *var_45, struct obj *var_46, struct env_obj *env_in){struct env_26 *env = (struct env_26 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_47,var_46);((env)->v_k_223)=(var_47);OBJECT_ENV_OBJ_NEW(var_48,struct env_25 );OBJECT_CLOSURE_TWO_NEW(var_49,lambda_25,var_48);(((struct cell_obj *)((env)->v_for_204))->val)=(var_49);call_closure_one(((struct cell_obj *)((env)->v_k_223))->val,NULL);__builtin_unreachable();}
void lambda_39(struct obj *var_50, struct env_obj *env_in){struct env_39 *env = (struct env_39 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_51,var_50);((env)->v_rv_267)=(var_51);OBJECT_ENV_OBJ_NEW(var_52,struct env_32 );OBJECT_CLOSURE_TWO_NEW(var_53,lambda_32,var_52);OBJECT_ENV_OBJ_NEW(var_54,struct env_38 );(((struct env_38 *)(&((var_54)->env)))->v_k_262)=((env)->v_k_262);OBJECT_CLOSURE_ONE_NEW(var_55,lambda_38,var_54);call_closure_two(((struct cell_obj *)((env)->v_rv_267))->val,var_53,var_55);__builtin_unreachable();}
void lambda_14(struct obj *var_56, struct env_obj *env_in){struct env_14 *env = (struct env_14 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_57,var_56);((env)->v_rv_240)=(var_57);OBJECT_ENV_OBJ_NEW(var_58,struct env_13 );(((struct env_13 *)(&((var_58)->env)))->v_body_230)=((env)->v_body_230);(((struct env_13 *)(&((var_58)->env)))->v_inner_232)=((env)->v_inner_232);OBJECT_CLOSURE_TWO_NEW(var_59,lambda_13,var_58);call_closure_two(var_59,((struct cell_obj *)((env)->v_rv_240))->val,((struct cell_obj *)((env)->v_k_238))->val);__builtin_unreachable();}
void lambda_41(struct obj *var_60, struct obj *var_61, struct env_obj *env_in){struct env_41 *env = (struct env_41 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_62,var_61);((env)->v_k_260)=(var_62);OBJECT_ENV_OBJ_NEW(var_63,struct env_40 );(((struct env_40 *)(&((var_63)->env)))->v_for_204)=((env)->v_for_204);OBJECT_CLOSURE_TWO_NEW(var_64,lambda_40,var_63);call_closure_two(var_64,NULL,((struct cell_obj *)((env)->v_k_260))->val);__builtin_unreachable();}
void lambda_15(struct obj *var_65, struct env_obj *env_in){struct env_15 *env = (struct env_15 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_66,var_65);((env)->v_rv_239)=(var_66);if (obj_is_truthy(((struct cell_obj *)((env)->v_rv_239))->val)){OBJECT_ENV_OBJ_NEW(var_67,struct env_14 );(((struct env_14 *)(&((var_67)->env)))->v_body_230)=((env)->v_body_230);(((struct env_14 *)(&((var_67)->env)))->v_inner_232)=((env)->v_inner_232);(((struct env_14 *)(&((var_67)->env)))->v_k_238)=((env)->v_k_238);OBJECT_CLOSURE_ONE_NEW(var_68,lambda_14,var_67);call_closure_two(((struct cell_obj *)((env)->v_incr_228))->val,((struct cell_obj *)((env)->v_it_234))->val,var_68);} else {call_closure_one(((struct cell_obj *)((env)->v_k_238))->val,NULL);}0;__builtin_unreachable();}
void lambda_19(struct obj *var_69, struct env_obj *env_in){struct env_19 *env = (struct env_19 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_70,var_69);((env)->v_rv_250)=(var_70);call_closure_two(((struct cell_obj *)((env)->v_inner_232))->val,((struct cell_obj *)((env)->v_rv_250))->val,((struct cell_obj *)((env)->v_k_249))->val);__builtin_unreachable();}
void lambda_23(struct obj *var_71, struct obj *var_72, struct env_obj *env_in){struct env_23 *env = (struct env_23 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_73,var_71);((env)->v_incr_228)=(var_73);OBJECT_CELL_OBJ_NEW(var_74,var_72);((env)->v_k_229)=(var_74);OBJECT_ENV_OBJ_NEW(var_75,struct env_22 );(((struct env_22 *)(&((var_75)->env)))->v_incr_228)=((env)->v_incr_228);(((struct env_22 *)(&((var_75)->env)))->v_init_224)=((env)->v_init_224);(((struct env_22 *)(&((var_75)->env)))->v_test_226)=((env)->v_test_226);OBJECT_CLOSURE_TWO_NEW(var_76,lambda_22,var_75);call_closure_one(((struct cell_obj *)((env)->v_k_229))->val,var_76);__builtin_unreachable();}
void lambda_28(struct obj *var_77, struct obj *var_78, struct env_obj *env_in){struct env_28 *env = (struct env_28 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_79,var_78);((env)->v_k_255)=(var_79);OBJECT_ENV_OBJ_NEW(var_80,struct env_27 );OBJECT_CLOSURE_TWO_NEW(var_81,lambda_27,var_80);call_closure_two(var_81,NULL,((struct cell_obj *)((env)->v_k_255))->val);__builtin_unreachable();}
void lambda_21(struct obj *var_82, struct obj *var_83, struct env_obj *env_in){struct env_21 *env = (struct env_21 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_84,var_82);((env)->v_inner_232)=(var_84);OBJECT_CELL_OBJ_NEW(var_85,var_83);((env)->v_k_233)=(var_85);OBJECT_ENV_OBJ_NEW(var_86,struct env_18 );(((struct env_18 *)(&((var_86)->env)))->v_body_230)=((env)->v_body_230);(((struct env_18 *)(&((var_86)->env)))->v_inner_232)=((env)->v_inner_232);(((struct env_18 *)(&((var_86)->env)))->v_incr_228)=((env)->v_incr_228);(((struct env_18 *)(&((var_86)->env)))->v_test_226)=((env)->v_test_226);OBJECT_CLOSURE_TWO_NEW(var_87,lambda_18,var_86);(((struct cell_obj *)((env)->v_inner_232))->val)=(var_87);OBJECT_ENV_OBJ_NEW(var_88,struct env_20 );(((struct env_20 *)(&((var_88)->env)))->v_init_224)=((env)->v_init_224);(((struct env_20 *)(&((var_88)->env)))->v_inner_232)=((env)->v_inner_232);OBJECT_CLOSURE_TWO_NEW(var_89,lambda_20,var_88);call_closure_two(var_89,NULL,((struct cell_obj *)((env)->v_k_233))->val);__builtin_unreachable();}
void lambda_25(struct obj *var_90, struct obj *var_91, struct env_obj *env_in){struct env_25 *env = (struct env_25 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_92,var_90);((env)->v_init_224)=(var_92);OBJECT_CELL_OBJ_NEW(var_93,var_91);((env)->v_k_225)=(var_93);OBJECT_ENV_OBJ_NEW(var_94,struct env_24 );(((struct env_24 *)(&((var_94)->env)))->v_init_224)=((env)->v_init_224);OBJECT_CLOSURE_TWO_NEW(var_95,lambda_24,var_94);call_closure_one(((struct cell_obj *)((env)->v_k_225))->val,var_95);__builtin_unreachable();}
void lambda_7(struct obj *var_96, struct obj *var_97, struct env_obj *env_in){struct env_7 *env = (struct env_7 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_98,var_97);((env)->v_k_211)=(var_98);OBJECT_ENV_OBJ_NEW(var_99,struct env_6 );(((struct env_6 *)(&((var_99)->env)))->v_f_208)=((env)->v_f_208);(((struct env_6 *)(&((var_99)->env)))->v_c_206)=((env)->v_c_206);(((struct env_6 *)(&((var_99)->env)))->v_while_202)=((env)->v_while_202);OBJECT_CLOSURE_ONE_NEW(var_100,lambda_6,var_99);call_closure_one(var_100,((struct cell_obj *)((env)->v_k_211))->val);__builtin_unreachable();}
void lambda_13(struct obj *var_101, struct obj *var_102, struct env_obj *env_in){struct env_13 *env = (struct env_13 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_103,var_101);((env)->v_it_241)=(var_103);OBJECT_CELL_OBJ_NEW(var_104,var_102);((env)->v_k_242)=(var_104);OBJECT_ENV_OBJ_NEW(var_105,struct env_12 );(((struct env_12 *)(&((var_105)->env)))->v_inner_232)=((env)->v_inner_232);(((struct env_12 *)(&((var_105)->env)))->v_it_241)=((env)->v_it_241);(((struct env_12 *)(&((var_105)->env)))->v_body_230)=((env)->v_body_230);OBJECT_CLOSURE_TWO_NEW(var_106,lambda_12,var_105);call_closure_two(var_106,NULL,((struct cell_obj *)((env)->v_k_242))->val);__builtin_unreachable();}
void lambda_31(struct obj *var_107, struct obj *var_108, struct env_obj *env_in){struct env_31 *env = (struct env_31 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_109,var_108);((env)->v_k_271)=(var_109);OBJECT_INT_OBJ_NEW(var_110,1);call_closure_one(((struct cell_obj *)((env)->v_k_271))->val,var_110);__builtin_unreachable();}
void lambda_33(struct obj *var_111, struct obj *var_112, struct env_obj *env_in){struct env_33 *env = (struct env_33 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_113,var_112);((env)->v_k_276)=(var_113);call_closure_one(((struct cell_obj *)((env)->v_k_276))->val,((struct cell_obj *)((env)->v_x_273))->val);__builtin_unreachable();}
void lambda_34(struct obj *var_114, struct obj *var_115, struct env_obj *env_in){struct env_34 *env = (struct env_34 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_116,var_114);((env)->v_x_273)=(var_116);OBJECT_CELL_OBJ_NEW(var_117,var_115);((env)->v_k_274)=(var_117);OBJECT_ENV_OBJ_NEW(var_118,struct env_33 );(((struct env_33 *)(&((var_118)->env)))->v_x_273)=((env)->v_x_273);OBJECT_CLOSURE_TWO_NEW(var_119,lambda_33,var_118);call_closure_two(var_119,NULL,((struct cell_obj *)((env)->v_k_274))->val);__builtin_unreachable();}
void lambda_35(struct obj *var_120, struct obj *var_121, struct env_obj *env_in){struct env_35 *env = (struct env_35 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_122,var_121);((env)->v_k_281)=(var_122);OBJECT_CLOSURE_TWO_NEW(var_123,display_k,NULL);OBJECT_STRING_OBJ_NEW(var_124,"return 0;");call_closure_two(var_123,var_124,((struct cell_obj *)((env)->v_k_281))->val);__builtin_unreachable();}
void lambda_22(struct obj *var_125, struct obj *var_126, struct env_obj *env_in){struct env_22 *env = (struct env_22 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_127,var_125);((env)->v_body_230)=(var_127);OBJECT_CELL_OBJ_NEW(var_128,var_126);((env)->v_k_231)=(var_128);OBJECT_ENV_OBJ_NEW(var_129,struct env_21 );(((struct env_21 *)(&((var_129)->env)))->v_init_224)=((env)->v_init_224);(((struct env_21 *)(&((var_129)->env)))->v_body_230)=((env)->v_body_230);(((struct env_21 *)(&((var_129)->env)))->v_test_226)=((env)->v_test_226);(((struct env_21 *)(&((var_129)->env)))->v_incr_228)=((env)->v_incr_228);OBJECT_CLOSURE_TWO_NEW(var_130,lambda_21,var_129);call_closure_two(var_130,NULL,((struct cell_obj *)((env)->v_k_231))->val);__builtin_unreachable();}
void lambda_37(struct obj *var_131, struct env_obj *env_in){struct env_37 *env = (struct env_37 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_132,var_131);((env)->v_rv_277)=(var_132);OBJECT_ENV_OBJ_NEW(var_133,struct env_36 );OBJECT_CLOSURE_TWO_NEW(var_134,lambda_36,var_133);call_closure_two(((struct cell_obj *)((env)->v_rv_277))->val,var_134,((struct cell_obj *)((env)->v_k_262))->val);__builtin_unreachable();}
void lambda_1(struct obj *var_135, struct obj *var_136, struct env_obj *env_in){struct env_1 *env = (struct env_1 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_137,var_136);((env)->v_k_220)=(var_137);OBJECT_ENV_OBJ_NEW(var_138,struct env_0 );(((struct env_0 *)(&((var_138)->env)))->v_k_220)=((env)->v_k_220);(((struct env_0 *)(&((var_138)->env)))->v_f_208)=((env)->v_f_208);OBJECT_CLOSURE_ONE_NEW(var_139,lambda_0,var_138);call_closure_two(((struct cell_obj *)((env)->v_while_202))->val,((struct cell_obj *)((env)->v_c_206))->val,var_139);__builtin_unreachable();}
void lambda_30(struct obj *var_140, struct obj *var_141, struct env_obj *env_in){struct env_30 *env = (struct env_30 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_142,var_141);((env)->v_k_264)=(var_142);OBJECT_ENV_OBJ_NEW(var_143,struct env_29 );OBJECT_CLOSURE_TWO_NEW(var_144,lambda_29,var_143);call_closure_two(var_144,NULL,((struct cell_obj *)((env)->v_k_264))->val);__builtin_unreachable();}
void lambda_24(struct obj *var_145, struct obj *var_146, struct env_obj *env_in){struct env_24 *env = (struct env_24 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_147,var_145);((env)->v_test_226)=(var_147);OBJECT_CELL_OBJ_NEW(var_148,var_146);((env)->v_k_227)=(var_148);OBJECT_ENV_OBJ_NEW(var_149,struct env_23 );(((struct env_23 *)(&((var_149)->env)))->v_test_226)=((env)->v_test_226);(((struct env_23 *)(&((var_149)->env)))->v_init_224)=((env)->v_init_224);OBJECT_CLOSURE_TWO_NEW(var_150,lambda_23,var_149);call_closure_one(((struct cell_obj *)((env)->v_k_227))->val,var_150);__builtin_unreachable();}
void lambda_20(struct obj *var_151, struct obj *var_152, struct env_obj *env_in){struct env_20 *env = (struct env_20 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_153,var_152);((env)->v_k_249)=(var_153);OBJECT_ENV_OBJ_NEW(var_154,struct env_19 );(((struct env_19 *)(&((var_154)->env)))->v_inner_232)=((env)->v_inner_232);(((struct env_19 *)(&((var_154)->env)))->v_k_249)=((env)->v_k_249);OBJECT_CLOSURE_ONE_NEW(var_155,lambda_19,var_154);call_closure_two(((struct cell_obj *)((env)->v_init_224))->val,NULL,var_155);__builtin_unreachable();}
void lambda_3(struct obj *var_156, struct obj *var_157, struct env_obj *env_in){struct env_3 *env = (struct env_3 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_158,var_157);((env)->v_k_217)=(var_158);OBJECT_ENV_OBJ_NEW(var_159,struct env_2 );(((struct env_2 *)(&((var_159)->env)))->v_c_206)=((env)->v_c_206);(((struct env_2 *)(&((var_159)->env)))->v_k_217)=((env)->v_k_217);(((struct env_2 *)(&((var_159)->env)))->v_while_202)=((env)->v_while_202);(((struct env_2 *)(&((var_159)->env)))->v_f_208)=((env)->v_f_208);OBJECT_CLOSURE_ONE_NEW(var_160,lambda_2,var_159);call_closure_two(((struct cell_obj *)((env)->v_f_208))->val,NULL,var_160);__builtin_unreachable();}
void lambda_29(struct obj *var_161, struct obj *var_162, struct env_obj *env_in){struct env_29 *env = (struct env_29 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_163,var_162);((env)->v_k_266)=(var_163);call_closure_one(((struct cell_obj *)((env)->v_k_266))->val,NULL);__builtin_unreachable();}
void lambda_27(struct obj *var_164, struct obj *var_165, struct env_obj *env_in){struct env_27 *env = (struct env_27 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_166,var_165);((env)->v_k_257)=(var_166);OBJECT_INT_OBJ_NEW(var_167,1);call_closure_one(((struct cell_obj *)((env)->v_k_257))->val,var_167);__builtin_unreachable();}
void lambda_18(struct obj *var_168, struct obj *var_169, struct env_obj *env_in){struct env_18 *env = (struct env_18 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_170,var_168);((env)->v_it_234)=(var_170);OBJECT_CELL_OBJ_NEW(var_171,var_169);((env)->v_k_235)=(var_171);OBJECT_ENV_OBJ_NEW(var_172,struct env_17 );(((struct env_17 *)(&((var_172)->env)))->v_it_234)=((env)->v_it_234);(((struct env_17 *)(&((var_172)->env)))->v_incr_228)=((env)->v_incr_228);(((struct env_17 *)(&((var_172)->env)))->v_test_226)=((env)->v_test_226);(((struct env_17 *)(&((var_172)->env)))->v_body_230)=((env)->v_body_230);(((struct env_17 *)(&((var_172)->env)))->v_inner_232)=((env)->v_inner_232);OBJECT_CLOSURE_TWO_NEW(var_173,lambda_17,var_172);call_closure_two(var_173,NULL,((struct cell_obj *)((env)->v_k_235))->val);__builtin_unreachable();}
void lambda_9(struct obj *var_174, struct obj *var_175, struct env_obj *env_in){struct env_9 *env = (struct env_9 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_176,var_174);((env)->v_c_206)=(var_176);OBJECT_CELL_OBJ_NEW(var_177,var_175);((env)->v_k_207)=(var_177);OBJECT_ENV_OBJ_NEW(var_178,struct env_8 );(((struct env_8 *)(&((var_178)->env)))->v_while_202)=((env)->v_while_202);(((struct env_8 *)(&((var_178)->env)))->v_c_206)=((env)->v_c_206);OBJECT_CLOSURE_TWO_NEW(var_179,lambda_8,var_178);call_closure_one(((struct cell_obj *)((env)->v_k_207))->val,var_179);__builtin_unreachable();}
void lambda_17(struct obj *var_180, struct obj *var_181, struct env_obj *env_in){struct env_17 *env = (struct env_17 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_182,var_181);((env)->v_k_237)=(var_182);OBJECT_ENV_OBJ_NEW(var_183,struct env_16 );(((struct env_16 *)(&((var_183)->env)))->v_it_234)=((env)->v_it_234);(((struct env_16 *)(&((var_183)->env)))->v_incr_228)=((env)->v_incr_228);(((struct env_16 *)(&((var_183)->env)))->v_body_230)=((env)->v_body_230);(((struct env_16 *)(&((var_183)->env)))->v_test_226)=((env)->v_test_226);(((struct env_16 *)(&((var_183)->env)))->v_inner_232)=((env)->v_inner_232);OBJECT_CLOSURE_ONE_NEW(var_184,lambda_16,var_183);call_closure_one(var_184,((struct cell_obj *)((env)->v_k_237))->val);__builtin_unreachable();}
void lambda_46(struct obj *var_185, struct obj *var_186, struct env_obj *env_in){struct env_46 *env = (struct env_46 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_187,var_185);((env)->v_while_202)=(var_187);OBJECT_CELL_OBJ_NEW(var_188,var_186);((env)->v_k_203)=(var_188);OBJECT_ENV_OBJ_NEW(var_189,struct env_45 );(((struct env_45 *)(&((var_189)->env)))->v_while_202)=((env)->v_while_202);OBJECT_CLOSURE_TWO_NEW(var_190,lambda_45,var_189);call_closure_one(((struct cell_obj *)((env)->v_k_203))->val,var_190);__builtin_unreachable();}
void lambda_44(struct obj *var_191, struct env_obj *env_in){struct env_44 *env = (struct env_44 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_192,var_191);((env)->v_rv_251)=(var_192);OBJECT_ENV_OBJ_NEW(var_193,struct env_43 );(((struct env_43 *)(&((var_193)->env)))->v_while_202)=((env)->v_while_202);(((struct env_43 *)(&((var_193)->env)))->v_for_204)=((env)->v_for_204);OBJECT_CLOSURE_TWO_NEW(var_194,lambda_43,var_193);call_closure_two(var_194,((struct cell_obj *)((env)->v_rv_251))->val,((struct cell_obj *)((env)->v_k_205))->val);__builtin_unreachable();}
void lambda_2(struct obj *var_195, struct env_obj *env_in){struct env_2 *env = (struct env_2 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_196,var_195);((env)->v_rv_218)=(var_196);OBJECT_ENV_OBJ_NEW(var_197,struct env_1 );(((struct env_1 *)(&((var_197)->env)))->v_while_202)=((env)->v_while_202);(((struct env_1 *)(&((var_197)->env)))->v_f_208)=((env)->v_f_208);(((struct env_1 *)(&((var_197)->env)))->v_c_206)=((env)->v_c_206);OBJECT_CLOSURE_TWO_NEW(var_198,lambda_1,var_197);call_closure_two(var_198,((struct cell_obj *)((env)->v_rv_218))->val,((struct cell_obj *)((env)->v_k_217))->val);__builtin_unreachable();}
void lambda_48(struct obj *var_199, struct obj *var_200, struct env_obj *env_in){struct env_48 *env = (struct env_48 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_201,var_200);((env)->v_k_201)=(var_201);OBJECT_ENV_OBJ_NEW(var_202,struct env_46 );OBJECT_CLOSURE_TWO_NEW(var_203,lambda_46,var_202);OBJECT_ENV_OBJ_NEW(var_204,struct env_47 );(((struct env_47 *)(&((var_204)->env)))->v_k_201)=((env)->v_k_201);OBJECT_CLOSURE_ONE_NEW(var_205,lambda_47,var_204);call_closure_two(var_203,NULL,var_205);__builtin_unreachable();}
void lambda_4(struct obj *var_206, struct obj *var_207, struct env_obj *env_in){struct env_4 *env = (struct env_4 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_208,var_207);((env)->v_k_215)=(var_208);OBJECT_ENV_OBJ_NEW(var_209,struct env_3 );(((struct env_3 *)(&((var_209)->env)))->v_while_202)=((env)->v_while_202);(((struct env_3 *)(&((var_209)->env)))->v_f_208)=((env)->v_f_208);(((struct env_3 *)(&((var_209)->env)))->v_c_206)=((env)->v_c_206);OBJECT_CLOSURE_TWO_NEW(var_210,lambda_3,var_209);call_closure_two(var_210,NULL,((struct cell_obj *)((env)->v_k_215))->val);__builtin_unreachable();}
void lambda_32(struct obj *var_211, struct obj *var_212, struct env_obj *env_in){struct env_32 *env = (struct env_32 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_213,var_212);((env)->v_k_269)=(var_213);OBJECT_ENV_OBJ_NEW(var_214,struct env_31 );OBJECT_CLOSURE_TWO_NEW(var_215,lambda_31,var_214);call_closure_two(var_215,NULL,((struct cell_obj *)((env)->v_k_269))->val);__builtin_unreachable();}
void lambda_36(struct obj *var_216, struct obj *var_217, struct env_obj *env_in){struct env_36 *env = (struct env_36 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_218,var_217);((env)->v_k_279)=(var_218);OBJECT_ENV_OBJ_NEW(var_219,struct env_35 );OBJECT_CLOSURE_TWO_NEW(var_220,lambda_35,var_219);call_closure_two(var_220,NULL,((struct cell_obj *)((env)->v_k_279))->val);__builtin_unreachable();}
void lambda_40(struct obj *var_221, struct obj *var_222, struct env_obj *env_in){struct env_40 *env = (struct env_40 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_223,var_222);((env)->v_k_262)=(var_223);OBJECT_ENV_OBJ_NEW(var_224,struct env_30 );OBJECT_CLOSURE_TWO_NEW(var_225,lambda_30,var_224);OBJECT_ENV_OBJ_NEW(var_226,struct env_39 );(((struct env_39 *)(&((var_226)->env)))->v_k_262)=((env)->v_k_262);OBJECT_CLOSURE_ONE_NEW(var_227,lambda_39,var_226);call_closure_two(((struct cell_obj *)((env)->v_for_204))->val,var_225,var_227);__builtin_unreachable();}
void lambda_5(struct obj *var_228, struct env_obj *env_in){struct env_5 *env = (struct env_5 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_229,var_228);((env)->v_rv_213)=(var_229);if (obj_is_truthy(((struct cell_obj *)((env)->v_rv_213))->val)){OBJECT_ENV_OBJ_NEW(var_230,struct env_4 );(((struct env_4 *)(&((var_230)->env)))->v_c_206)=((env)->v_c_206);(((struct env_4 *)(&((var_230)->env)))->v_f_208)=((env)->v_f_208);(((struct env_4 *)(&((var_230)->env)))->v_while_202)=((env)->v_while_202);OBJECT_CLOSURE_TWO_NEW(var_231,lambda_4,var_230);call_closure_two(var_231,NULL,((struct cell_obj *)((env)->v_k_212))->val);} else {call_closure_one(((struct cell_obj *)((env)->v_k_212))->val,NULL);}0;__builtin_unreachable();}
void lambda_6(struct obj *var_232, struct env_obj *env_in){struct env_6 *env = (struct env_6 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_233,var_232);((env)->v_k_212)=(var_233);OBJECT_ENV_OBJ_NEW(var_234,struct env_5 );(((struct env_5 *)(&((var_234)->env)))->v_f_208)=((env)->v_f_208);(((struct env_5 *)(&((var_234)->env)))->v_c_206)=((env)->v_c_206);(((struct env_5 *)(&((var_234)->env)))->v_k_212)=((env)->v_k_212);(((struct env_5 *)(&((var_234)->env)))->v_while_202)=((env)->v_while_202);OBJECT_CLOSURE_ONE_NEW(var_235,lambda_5,var_234);call_closure_two(((struct cell_obj *)((env)->v_c_206))->val,NULL,var_235);__builtin_unreachable();}
void lambda_11(struct obj *var_236, struct env_obj *env_in){struct env_11 *env = (struct env_11 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_237,var_236);((env)->v_rv_245)=(var_237);OBJECT_ENV_OBJ_NEW(var_238,struct env_10 );(((struct env_10 *)(&((var_238)->env)))->v_it_241)=((env)->v_it_241);(((struct env_10 *)(&((var_238)->env)))->v_inner_232)=((env)->v_inner_232);OBJECT_CLOSURE_TWO_NEW(var_239,lambda_10,var_238);call_closure_two(var_239,((struct cell_obj *)((env)->v_rv_245))->val,((struct cell_obj *)((env)->v_k_244))->val);__builtin_unreachable();}
void lambda_42(struct obj *var_240, struct env_obj *env_in){struct env_42 *env = (struct env_42 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_241,var_240);((env)->v_rv_258)=(var_241);OBJECT_ENV_OBJ_NEW(var_242,struct env_41 );(((struct env_41 *)(&((var_242)->env)))->v_for_204)=((env)->v_for_204);OBJECT_CLOSURE_TWO_NEW(var_243,lambda_41,var_242);call_closure_two(((struct cell_obj *)((env)->v_rv_258))->val,var_243,((struct cell_obj *)((env)->v_k_253))->val);__builtin_unreachable();}
void main_lambda(struct obj *input_obj, struct env_obj *input_env){OBJECT_ENV_OBJ_NEW(var_244,struct env_48 );OBJECT_CLOSURE_TWO_NEW(var_245,lambda_48,var_244);OBJECT_CLOSURE_ONE_NEW(var_246,exit_k,NULL);call_closure_two(var_245,NULL,var_246);__builtin_unreachable();}
int main() {
struct closure_obj initial_closure = object_closure_one_new(main_lambda, NULL);
struct thunk initial_thunk = {
.closr = &initial_closure,
.one = {NULL},
};
struct thunk *thnk_heap = malloc(sizeof(struct thunk));
memcpy(thnk_heap, &initial_thunk, sizeof(struct thunk));
scheme_start(thnk_heap);
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment