cyclone/tests/experimental/diviter.c

/**
 ** This file was automatically generated by the Cyclone scheme compiler
 ** http://justinethier.github.io/cyclone/
 **
 ** (c) 2014-2018 Justin Ethier
 ** Version 0.9.4 
 **
 **/

#define closcall1(td, clo,a1) \
if (type_is_pair_prim(clo)) { \
   Cyc_apply(td, 0, (closure)(a1), clo); \
} else { \
   ((clo)->fn)(td, 1, clo,a1);\
}
#define return_closcall1(td, clo,a1) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[1]; buf[0] = a1;\
     GC(td, clo, buf, 1); \
     return; \
 } else {\
     closcall1(td, (closure) (clo),a1); \
     return;\
 } \
}

#define return_direct1(td, _fn,a1) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[1]; buf[0] = a1; \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 1); \
     return; \
 } else { \
     (_fn)(td, 1, (closure)_fn,a1); \
 }}

#define return_direct_with_clo1(td, clo, _fn,a1) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[1]; buf[0] = a1;\
     GC(td, clo, buf, 1); \
     return; \
 } else { \
     (_fn)(td, 1, (closure)(clo),a1); \
 }}

#define closcall2(td, clo,a1,a2) \
if (type_is_pair_prim(clo)) { \
   Cyc_apply(td, 1, (closure)(a1), clo,a2); \
} else { \
   ((clo)->fn)(td, 2, clo,a1,a2);\
}
#define return_closcall2(td, clo,a1,a2) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[2]; buf[0] = a1;buf[1] = a2;\
     GC(td, clo, buf, 2); \
     return; \
 } else {\
     closcall2(td, (closure) (clo),a1,a2); \
     return;\
 } \
}

#define return_direct2(td, _fn,a1,a2) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[2]; buf[0] = a1;buf[1] = a2; \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 2); \
     return; \
 } else { \
     (_fn)(td, 2, (closure)_fn,a1,a2); \
 }}

#define return_direct_with_clo2(td, clo, _fn,a1,a2) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[2]; buf[0] = a1;buf[1] = a2;\
     GC(td, clo, buf, 2); \
     return; \
 } else { \
     (_fn)(td, 2, (closure)(clo),a1,a2); \
 }}

#define closcall3(td, clo,a1,a2,a3) \
if (type_is_pair_prim(clo)) { \
   Cyc_apply(td, 2, (closure)(a1), clo,a2,a3); \
} else { \
   ((clo)->fn)(td, 3, clo,a1,a2,a3);\
}
#define return_closcall3(td, clo,a1,a2,a3) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\
     GC(td, clo, buf, 3); \
     return; \
 } else {\
     closcall3(td, (closure) (clo),a1,a2,a3); \
     return;\
 } \
}

#define return_direct3(td, _fn,a1,a2,a3) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3; \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 3); \
     return; \
 } else { \
     (_fn)(td, 3, (closure)_fn,a1,a2,a3); \
 }}

#define return_direct_with_clo3(td, clo, _fn,a1,a2,a3) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\
     GC(td, clo, buf, 3); \
     return; \
 } else { \
     (_fn)(td, 3, (closure)(clo),a1,a2,a3); \
 }}

#define closcall5(td, clo,a1,a2,a3,a4,a5) \
if (type_is_pair_prim(clo)) { \
   Cyc_apply(td, 4, (closure)(a1), clo,a2,a3,a4,a5); \
} else { \
   ((clo)->fn)(td, 5, clo,a1,a2,a3,a4,a5);\
}
#define return_closcall5(td, clo,a1,a2,a3,a4,a5) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;\
     GC(td, clo, buf, 5); \
     return; \
 } else {\
     closcall5(td, (closure) (clo),a1,a2,a3,a4,a5); \
     return;\
 } \
}

#define return_direct5(td, _fn,a1,a2,a3,a4,a5) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5; \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 5); \
     return; \
 } else { \
     (_fn)(td, 5, (closure)_fn,a1,a2,a3,a4,a5); \
 }}

#define return_direct_with_clo5(td, clo, _fn,a1,a2,a3,a4,a5) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;\
     GC(td, clo, buf, 5); \
     return; \
 } else { \
     (_fn)(td, 5, (closure)(clo),a1,a2,a3,a4,a5); \
 }}

#include "cyclone/types.h"
object __glo_this_91scheme_91implementation_91name = NULL;
object __glo_run_91r7rs_91benchmark = NULL;
object __glo_hide = NULL;
object __glo_main = NULL;
object __glo_iterative_91div2 = NULL;
object __glo_create_91n = NULL;
extern object __glo_member_scheme_base;
extern object __glo_assoc_scheme_base;
extern object __glo_cons_91source_scheme_base;
extern object __glo_syntax_91rules_scheme_base;
extern object __glo_letrec_85_scheme_base;
extern object __glo_guard_scheme_base;
extern object __glo_guard_91aux_scheme_base;
extern object __glo_define_91record_91type_scheme_base;
extern object __glo_record_127_scheme_base;
extern object __glo_is_91a_127_scheme_base;
extern object __glo_register_91simple_91type_scheme_base;
extern object __glo_make_91type_91predicate_scheme_base;
extern object __glo_make_91constructor_scheme_base;
extern object __glo_make_91getter_scheme_base;
extern object __glo_make_91setter_scheme_base;
extern object __glo_slot_91ref_scheme_base;
extern object __glo_slot_91set_67_scheme_base;
extern object __glo_type_91slot_91offset_scheme_base;
extern object __glo_receive_scheme_base;
extern object __glo_abs_scheme_base;
extern object __glo_max_scheme_base;
extern object __glo_min_scheme_base;
extern object __glo_modulo_scheme_base;
extern object __glo_floor_91remainder_scheme_base;
extern object __glo_even_127_scheme_base;
extern object __glo_exact_91integer_127_scheme_base;
extern object __glo_exact_91integer_91sqrt_scheme_base;
extern object __glo_exact_127_scheme_base;
extern object __glo_inexact_127_scheme_base;
extern object __glo_odd_127_scheme_base;
extern object __glo_complex_127_scheme_base;
extern object __glo_rational_127_scheme_base;
extern object __glo_bignum_127_scheme_base;
extern object __glo_gcd_scheme_base;
extern object __glo_lcm_scheme_base;
extern object __glo_quotient_scheme_base;
extern object __glo_remainder_scheme_base;
extern object __glo_truncate_91quotient_scheme_base;
extern object __glo_truncate_91remainder_scheme_base;
extern object __glo_truncate_95_scheme_base;
extern object __glo_floor_91quotient_scheme_base;
extern object __glo_floor_91remainder_scheme_base;
extern object __glo_floor_95_scheme_base;
extern object __glo_square_scheme_base;
extern object __glo_expt_scheme_base;
extern object __glo_call_91with_91current_91continuation_scheme_base;
extern object __glo_call_95cc_scheme_base;
extern object __glo_call_91with_91values_scheme_base;
extern object __glo_dynamic_91wind_scheme_base;
extern object __glo_values_scheme_base;
extern object __glo_char_123_127_scheme_base;
extern object __glo_char_121_127_scheme_base;
extern object __glo_char_125_127_scheme_base;
extern object __glo_char_121_123_127_scheme_base;
extern object __glo_char_125_123_127_scheme_base;
extern object __glo_string_123_127_scheme_base;
extern object __glo_string_121_127_scheme_base;
extern object __glo_string_121_123_127_scheme_base;
extern object __glo_string_125_127_scheme_base;
extern object __glo_string_125_123_127_scheme_base;
extern object __glo_foldl_scheme_base;
extern object __glo_foldr_scheme_base;
extern object __glo_not_scheme_base;
extern object __glo_list_127_scheme_base;
extern object __glo_zero_127_scheme_base;
extern object __glo_positive_127_scheme_base;
extern object __glo_negative_127_scheme_base;
extern object __glo_append_scheme_base;
extern object __glo__list_scheme_base;
extern object __glo_make_91list_scheme_base;
extern object __glo_list_91copy_scheme_base;
extern object __glo_map_scheme_base;
extern object __glo_Cyc_91map_91loop_911_scheme_base;
extern object __glo_Cyc_91for_91each_91loop_911_scheme_base;
extern object __glo_for_91each_scheme_base;
extern object __glo_list_91tail_scheme_base;
extern object __glo_list_91ref_scheme_base;
extern object __glo_list_91set_67_scheme_base;
extern object __glo_reverse_scheme_base;
extern object __glo_boolean_123_127_scheme_base;
extern object __glo_symbol_123_127_scheme_base;
extern object __glo_Cyc_91obj_123_127_scheme_base;
extern object __glo_vector_scheme_base;
extern object __glo_vector_91append_scheme_base;
extern object __glo_vector_91copy_scheme_base;
extern object __glo_vector_91copy_67_scheme_base;
extern object __glo_vector_91fill_67_scheme_base;
extern object __glo_vector_91_125list_scheme_base;
extern object __glo_vector_91_125string_scheme_base;
extern object __glo_vector_91map_scheme_base;
extern object __glo_vector_91for_91each_scheme_base;
extern object __glo_make_91string_scheme_base;
extern object __glo_string_scheme_base;
extern object __glo_string_91copy_scheme_base;
extern object __glo_string_91copy_67_scheme_base;
extern object __glo_string_91fill_67_scheme_base;
extern object __glo_string_91_125list_scheme_base;
extern object __glo_string_91_125vector_scheme_base;
extern object __glo_string_91map_scheme_base;
extern object __glo_string_91for_91each_scheme_base;
extern object __glo_make_91parameter_scheme_base;
extern object __glo_current_91output_91port_scheme_base;
extern object __glo_current_91input_91port_scheme_base;
extern object __glo_current_91error_91port_scheme_base;
extern object __glo_call_91with_91port_scheme_base;
extern object __glo_error_91object_127_scheme_base;
extern object __glo_error_91object_91message_scheme_base;
extern object __glo_error_91object_91irritants_scheme_base;
extern object __glo_error_scheme_base;
extern object __glo_raise_scheme_base;
extern object __glo_raise_91continuable_scheme_base;
extern object __glo_with_91handler_scheme_base;
extern object __glo_with_91exception_91handler_scheme_base;
extern object __glo_Cyc_91add_91exception_91handler_scheme_base;
extern object __glo_Cyc_91remove_91exception_91handler_scheme_base;
extern object __glo_newline_scheme_base;
extern object __glo_write_91char_scheme_base;
extern object __glo_write_91string_scheme_base;
extern object __glo_flush_91output_91port_scheme_base;
extern object __glo_peek_91char_scheme_base;
extern object __glo_read_91char_scheme_base;
extern object __glo_read_91line_scheme_base;
extern object __glo_read_91string_scheme_base;
extern object __glo_input_91port_127_scheme_base;
extern object __glo_output_91port_127_scheme_base;
extern object __glo_input_91port_91open_127_scheme_base;
extern object __glo_output_91port_91open_127_scheme_base;
extern object __glo_get_91output_91string_scheme_base;
extern object __glo_open_91output_91string_scheme_base;
extern object __glo_open_91input_91string_scheme_base;
extern object __glo_get_91output_91bytevector_scheme_base;
extern object __glo_open_91input_91bytevector_scheme_base;
extern object __glo_open_91output_91bytevector_scheme_base;
extern object __glo_features_scheme_base;
extern object __glo_Cyc_91version_scheme_base;
extern object __glo_any_scheme_base;
extern object __glo_every_scheme_base;
extern object __glo_and_scheme_base;
extern object __glo_or_scheme_base;
extern object __glo_let_scheme_base;
extern object __glo_let_85_scheme_base;
extern object __glo_letrec_scheme_base;
extern object __glo_let_85_91values_scheme_base;
extern object __glo_let_91values_scheme_base;
extern object __glo_begin_scheme_base;
extern object __glo__case_scheme_base;
extern object __glo_cond_scheme_base;
extern object __glo_cond_91expand_scheme_base;
extern object __glo__do_scheme_base;
extern object __glo_when_scheme_base;
extern object __glo_unless_scheme_base;
extern object __glo_quasiquote_scheme_base;
extern object __glo_floor_scheme_base;
extern object __glo_ceiling_scheme_base;
extern object __glo_truncate_scheme_base;
extern object __glo_round_scheme_base;
extern object __glo_exact_scheme_base;
extern object __glo_inexact_scheme_base;
extern object __glo_eof_91object_scheme_base;
extern object __glo_syntax_91error_scheme_base;
extern object __glo_bytevector_91copy_scheme_base;
extern object __glo_bytevector_91copy_67_scheme_base;
extern object __glo_utf8_91_125string_scheme_base;
extern object __glo_string_91_125utf8_scheme_base;
extern object __glo_denominator_scheme_base;
extern object __glo_numerator_scheme_base;
extern object __glo_parameterize_scheme_base;
extern object __glo_peek_91u8_scheme_base;
extern object __glo_read_91u8_scheme_base;
extern object __glo_write_91u8_scheme_base;
extern object __glo_read_scheme_read;
extern object __glo_read_91all_scheme_read;
extern object __glo_include_scheme_read;
extern object __glo_include_91ci_scheme_read;
extern object __glo_display_scheme_write;
extern object __glo_write_scheme_write;
extern object __glo_write_91shared_scheme_write;
extern object __glo_write_91simple_scheme_write;
extern object __glo_current_91second_scheme_time;
extern object __glo_current_91jiffy_scheme_time;
extern object __glo_jiffies_91per_91second_scheme_time;
#include "cyclone/runtime.h"
#include "cyclone/runtime-main.h"
static void __lambda_73(void *data, int argc, closure _,object k_73243) ;
static void __lambda_74(void *data, int argc, object self_73317, object r_73244) ;
static void __lambda_29(void *data, int argc, closure _,object k_73191, object name_7347_73116, object count_7348_73117, object thunk_7349_73118, object ok_127_7350_73119) ;
static void __lambda_30(void *data, int argc, object self_73272, object rounded_73121) ;
static void __lambda_78(void *data, int argc, object self_73273, object rounded_73121) ;
static void __lambda_71(void *data, int argc, object self_73274, object k_73238, object x_7351_73123) ;
static void __lambda_72(void *data, int argc, object self_73275, object r_73239) ;
static void __lambda_31(void *data, int argc, object self_73276, object r_73192) ;
static void __lambda_32(void *data, int argc, object self_73277, object r_73193) ;
static void __lambda_33(void *data, int argc, object self_73278, object r_73194) ;
static void __lambda_34(void *data, int argc, object self_73279, object r_73195) ;
static void __lambda_35(void *data, int argc, object self_73280, object r_73236) ;
static void __lambda_36(void *data, int argc, object self_73281, object r_73196) ;
static void __lambda_37(void *data, int argc, object self_73282, object j_95s_7354_73124) ;
static void __lambda_38(void *data, int argc, object self_73283, object t0_7357_73125) ;
static void __lambda_39(void *data, int argc, object self_73284, object j0_7360_73126) ;
static void __lambda_40(void *data, int argc, object self_73285, object loop_7365_73129) ;
static void __lambda_77(void *data, int argc, object self_73286, object loop_7365_73129) ;
static void __lambda_42(void *data, int argc, object self_73287, object k_73202, object i_7366_73130, object result_7367_73131) ;
static void __lambda_44(void *data, int argc, object self_73289, object r_73206) ;
static void __lambda_66(void *data, int argc, object self_73311, object r_73231) ;
static void __lambda_67(void *data, int argc, object self_73312, object r_73232) ;
static void __lambda_68(void *data, int argc, object self_73313, object r_73233) ;
static void __lambda_69(void *data, int argc, object self_73314, object r_73235) ;
static void __lambda_70(void *data, int argc, object self_73315, object r_73234) ;
static void __lambda_45(void *data, int argc, object self_73290, object j1_7376_73132) ;
static void __lambda_46(void *data, int argc, object self_73291, object t1_7379_73133) ;
static void __lambda_47(void *data, int argc, object self_73292, object secs_7385_73135) ;
static void __lambda_48(void *data, int argc, object self_73293, object secs2_7388_73136) ;
static void __lambda_49(void *data, int argc, object self_73294, object r_73213) ;
static void __lambda_50(void *data, int argc, object self_73295, object r_73214) ;
static void __lambda_51(void *data, int argc, object self_73296, object r_73215) ;
static void __lambda_52(void *data, int argc, object self_73297, object r_73216) ;
static void __lambda_53(void *data, int argc, object self_73298, object r_73217) ;
static void __lambda_54(void *data, int argc, object self_73299, object r_73218) ;
static void __lambda_55(void *data, int argc, object self_73300, object r_73219) ;
static void __lambda_56(void *data, int argc, object self_73301, object r_73220) ;
static void __lambda_57(void *data, int argc, object self_73302, object r_73228) ;
static void __lambda_58(void *data, int argc, object self_73303, object r_73221) ;
static void __lambda_59(void *data, int argc, object self_73304, object r_73222) ;
static void __lambda_60(void *data, int argc, object self_73305, object r_73223) ;
static void __lambda_61(void *data, int argc, object self_73306, object r_73224) ;
static void __lambda_62(void *data, int argc, object self_73307, object r_73225) ;
static void __lambda_63(void *data, int argc, object self_73308, object r_73226) ;
static void __lambda_64(void *data, int argc, object self_73309, object r_73227) ;
static void __lambda_65(void *data, int argc, object self_73310, object r_73207) ;
static void __lambda_43(void *data, int argc, object self_73288, object r_73205) ;
static void __lambda_41(void *data, int argc, object self_73316, object r_73200) ;
static void __lambda_22(void *data, int argc, closure _,object k_73177, object r_7342_73111, object x_7343_73112) ;
static void __lambda_28(void *data, int argc, object self_73271, object k_73180, object v_7345_73114, object i_7346_73115) ;
static void __lambda_23(void *data, int argc, object self_73266, object k_73182) ;
static void __lambda_27(void *data, int argc, object self_73270, object k_73188, object x_7344_73113) ;
static void __lambda_24(void *data, int argc, object self_73267, object r_73183) ;
static void __lambda_26(void *data, int argc, object self_73268, object r_73184) ;
static void __lambda_25(void *data, int argc, object self_73269, object k_73185) ;
static void __lambda_11(void *data, int argc, closure _,object k_73161) ;
static void __lambda_12(void *data, int argc, object self_73256, object count_7321_73103) ;
static void __lambda_13(void *data, int argc, object self_73257, object input1_7324_73104) ;
static void __lambda_14(void *data, int argc, object self_73258, object output_7327_73105) ;
static void __lambda_15(void *data, int argc, object self_73259, object s2_7330_73106) ;
static void __lambda_16(void *data, int argc, object self_73260, object s1_7333_73107) ;
static void __lambda_17(void *data, int argc, object self_73261, object r_73174) ;
static void __lambda_18(void *data, int argc, object self_73262, object ll_7336_73108) ;
static void __lambda_19(void *data, int argc, object self_73263, object r_73168) ;
static void __lambda_21(void *data, int argc, object self_73265, object k_73171, object result_7341_73110) ;
static void __lambda_20(void *data, int argc, object self_73264, object k_73173) ;
static void __lambda_6(void *data, int argc, closure _,object k_73150, object l_7310_7397) ;
static void __lambda_7(void *data, int argc, object self_73251, object l_7314_7398, object a_7315_7399) ;
static void __lambda_8(void *data, int argc, object self_73252, object lp_7311_7316_73100) ;
static void __lambda_76(void *data, int argc, object self_73253, object lp_7311_7316_73100) ;
static void __lambda_10(void *data, int argc, object self_73254, object k_73154, object l_7317_73101, object a_7318_73102) ;
static void __lambda_9(void *data, int argc, object self_73255, object r_73152) ;
static void __lambda_1(void *data, int argc, closure _,object k_73139, object n_731_7391) ;
static void __lambda_2(void *data, int argc, object self_73246, object n_735_7392, object a_736_7393) ;
static void __lambda_3(void *data, int argc, object self_73247, object lp_732_737_7394) ;
static void __lambda_75(void *data, int argc, object self_73248, object lp_732_737_7394) ;
static void __lambda_5(void *data, int argc, object self_73249, object k_73143, object n_738_7395, object a_739_7396) ;
static void __lambda_4(void *data, int argc, object self_73250, object r_73141) ;

static void __lambda_73(void *data, int argc, closure _,object k_73243) {
  Cyc_st_add(data, "diviter.scm:this-scheme-implementation-name");

closureN_type c_73636;
c_73636.hdr.mark = gc_color_red;
 c_73636.hdr.grayed = 0;
c_73636.tag = closureN_tag;
 c_73636.fn = (function_type)__lambda_74;
c_73636.pc = 0;
c_73636.num_args = 1;
c_73636.num_elements = 1;
c_73636.elements = (object *)alloca(sizeof(object) * 1);
c_73636.elements[0] = k_73243;

return_closcall1(data,  __glo_Cyc_91version_scheme_base,  &c_73636);; 
}

static void __lambda_74(void *data, int argc, object self_73317, object r_73244) {
  
make_utf8_string_with_len(c_73642, "cyclone-", 8, 8);

object c_73641 = Cyc_string_append(data,  ((closureN)self_73317)->elements[0],2,&c_73642, r_73244);
return_closcall1(data,  ((closureN)self_73317)->elements[0],  c_73641);; 
}

static void __lambda_29(void *data, int argc, closure _,object k_73191, object name_7347_73116, object count_7348_73117, object thunk_7349_73118, object ok_127_7350_73119) {
  Cyc_st_add(data, "diviter.scm:run-r7rs-benchmark");

closureN_type c_73465;
c_73465.hdr.mark = gc_color_red;
 c_73465.hdr.grayed = 0;
c_73465.tag = closureN_tag;
 c_73465.fn = (function_type)__lambda_30;
c_73465.pc = 0;
c_73465.num_args = 1;
c_73465.num_elements = 5;
c_73465.elements = (object *)alloca(sizeof(object) * 5);
c_73465.elements[0] = count_7348_73117;
c_73465.elements[1] = k_73191;
c_73465.elements[2] = name_7347_73116;
c_73465.elements[3] = ok_127_7350_73119;
c_73465.elements[4] = thunk_7349_73118;

return_direct_with_clo1(data,(closure)&c_73465,__lambda_30,  boolean_f);; 
}

static void __lambda_30(void *data, int argc, object self_73272, object rounded_73121) {
  
closureN_type c_73467;
c_73467.hdr.mark = gc_color_red;
 c_73467.hdr.grayed = 0;
c_73467.tag = closureN_tag;
 c_73467.fn = (function_type)__lambda_78;
c_73467.pc = 0;
c_73467.num_args = 1;
c_73467.num_elements = 5;
c_73467.elements = (object *)alloca(sizeof(object) * 5);
c_73467.elements[0] = ((closureN)self_73272)->elements[0];
c_73467.elements[1] = ((closureN)self_73272)->elements[1];
c_73467.elements[2] = ((closureN)self_73272)->elements[2];
c_73467.elements[3] = ((closureN)self_73272)->elements[3];
c_73467.elements[4] = ((closureN)self_73272)->elements[4];


make_cell(c_73633,rounded_73121);
return_direct_with_clo1(data,(closure)&c_73467,__lambda_78,  &c_73633);; 
}

static void __lambda_78(void *data, int argc, object self_73273, object rounded_73121) {
  
closureN_type c_73469;
c_73469.hdr.mark = gc_color_red;
 c_73469.hdr.grayed = 0;
c_73469.tag = closureN_tag;
 c_73469.fn = (function_type)__lambda_31;
c_73469.pc = 0;
c_73469.num_args = 1;
c_73469.num_elements = 6;
c_73469.elements = (object *)alloca(sizeof(object) * 6);
c_73469.elements[0] = ((closureN)self_73273)->elements[0];
c_73469.elements[1] = ((closureN)self_73273)->elements[1];
c_73469.elements[2] = ((closureN)self_73273)->elements[2];
c_73469.elements[3] = ((closureN)self_73273)->elements[3];
c_73469.elements[4] = rounded_73121;
c_73469.elements[5] = ((closureN)self_73273)->elements[4];


mclosure0(c_73618, (function_type)__lambda_71);c_73618.num_args = 1;
return_direct_with_clo1(data,(closure)&c_73469,__lambda_31,  Cyc_set_cell(data, rounded_73121, &c_73618));; 
}

static void __lambda_71(void *data, int argc, object self_73274, object k_73238, object x_7351_73123) {
  
closureN_type c_73620;
c_73620.hdr.mark = gc_color_red;
 c_73620.hdr.grayed = 0;
c_73620.tag = closureN_tag;
 c_73620.fn = (function_type)__lambda_72;
c_73620.pc = 0;
c_73620.num_args = 1;
c_73620.num_elements = 1;
c_73620.elements = (object *)alloca(sizeof(object) * 1);
c_73620.elements[0] = k_73238;


complex_num_type local_73629; object c_73630 = Cyc_fast_mul(data,&local_73629,obj_int2obj(1000), x_7351_73123);
return_closcall2(data,  __glo_round_scheme_base,  &c_73620, c_73630);; 
}

static void __lambda_72(void *data, int argc, object self_73275, object r_73239) {
  
complex_num_type local_73625; object c_73626 = Cyc_fast_div(data,&local_73625,r_73239, obj_int2obj(1000));
return_closcall1(data,  ((closureN)self_73275)->elements[0],  c_73626);; 
}

static void __lambda_31(void *data, int argc, object self_73276, object r_73192) {
  
closureN_type c_73471;
c_73471.hdr.mark = gc_color_red;
 c_73471.hdr.grayed = 0;
c_73471.tag = closureN_tag;
 c_73471.fn = (function_type)__lambda_32;
c_73471.pc = 0;
c_73471.num_args = 1;
c_73471.num_elements = 6;
c_73471.elements = (object *)alloca(sizeof(object) * 6);
c_73471.elements[0] = ((closureN)self_73276)->elements[0];
c_73471.elements[1] = ((closureN)self_73276)->elements[1];
c_73471.elements[2] = ((closureN)self_73276)->elements[2];
c_73471.elements[3] = ((closureN)self_73276)->elements[3];
c_73471.elements[4] = ((closureN)self_73276)->elements[4];
c_73471.elements[5] = ((closureN)self_73276)->elements[5];


make_utf8_string_with_len(c_73615, "Running ", 8, 8);
return_closcall2(data,  __glo_display_scheme_write,  &c_73471, &c_73615);; 
}

static void __lambda_32(void *data, int argc, object self_73277, object r_73193) {
  
closureN_type c_73473;
c_73473.hdr.mark = gc_color_red;
 c_73473.hdr.grayed = 0;
c_73473.tag = closureN_tag;
 c_73473.fn = (function_type)__lambda_33;
c_73473.pc = 0;
c_73473.num_args = 1;
c_73473.num_elements = 6;
c_73473.elements = (object *)alloca(sizeof(object) * 6);
c_73473.elements[0] = ((closureN)self_73277)->elements[0];
c_73473.elements[1] = ((closureN)self_73277)->elements[1];
c_73473.elements[2] = ((closureN)self_73277)->elements[2];
c_73473.elements[3] = ((closureN)self_73277)->elements[3];
c_73473.elements[4] = ((closureN)self_73277)->elements[4];
c_73473.elements[5] = ((closureN)self_73277)->elements[5];

return_closcall2(data,  __glo_display_scheme_write,  &c_73473, ((closureN)self_73277)->elements[2]);; 
}

static void __lambda_33(void *data, int argc, object self_73278, object r_73194) {
  
closureN_type c_73475;
c_73475.hdr.mark = gc_color_red;
 c_73475.hdr.grayed = 0;
c_73475.tag = closureN_tag;
 c_73475.fn = (function_type)__lambda_34;
c_73475.pc = 0;
c_73475.num_args = 1;
c_73475.num_elements = 6;
c_73475.elements = (object *)alloca(sizeof(object) * 6);
c_73475.elements[0] = ((closureN)self_73278)->elements[0];
c_73475.elements[1] = ((closureN)self_73278)->elements[1];
c_73475.elements[2] = ((closureN)self_73278)->elements[2];
c_73475.elements[3] = ((closureN)self_73278)->elements[3];
c_73475.elements[4] = ((closureN)self_73278)->elements[4];
c_73475.elements[5] = ((closureN)self_73278)->elements[5];

return_closcall1(data,  __glo_newline_scheme_base,  &c_73475);; 
}

static void __lambda_34(void *data, int argc, object self_73279, object r_73195) {
  
closureN_type c_73477;
c_73477.hdr.mark = gc_color_red;
 c_73477.hdr.grayed = 0;
c_73477.tag = closureN_tag;
 c_73477.fn = (function_type)__lambda_35;
c_73477.pc = 0;
c_73477.num_args = 1;
c_73477.num_elements = 6;
c_73477.elements = (object *)alloca(sizeof(object) * 6);
c_73477.elements[0] = ((closureN)self_73279)->elements[0];
c_73477.elements[1] = ((closureN)self_73279)->elements[1];
c_73477.elements[2] = ((closureN)self_73279)->elements[2];
c_73477.elements[3] = ((closureN)self_73279)->elements[3];
c_73477.elements[4] = ((closureN)self_73279)->elements[4];
c_73477.elements[5] = ((closureN)self_73279)->elements[5];

return_closcall1(data,  __glo_current_91output_91port_scheme_base,  &c_73477);; 
}

static void __lambda_35(void *data, int argc, object self_73280, object r_73236) {
  
closureN_type c_73479;
c_73479.hdr.mark = gc_color_red;
 c_73479.hdr.grayed = 0;
c_73479.tag = closureN_tag;
 c_73479.fn = (function_type)__lambda_36;
c_73479.pc = 0;
c_73479.num_args = 1;
c_73479.num_elements = 6;
c_73479.elements = (object *)alloca(sizeof(object) * 6);
c_73479.elements[0] = ((closureN)self_73280)->elements[0];
c_73479.elements[1] = ((closureN)self_73280)->elements[1];
c_73479.elements[2] = ((closureN)self_73280)->elements[2];
c_73479.elements[3] = ((closureN)self_73280)->elements[3];
c_73479.elements[4] = ((closureN)self_73280)->elements[4];
c_73479.elements[5] = ((closureN)self_73280)->elements[5];

return_closcall2(data,  __glo_flush_91output_91port_scheme_base,  &c_73479, r_73236);; 
}

static void __lambda_36(void *data, int argc, object self_73281, object r_73196) {
  
closureN_type c_73481;
c_73481.hdr.mark = gc_color_red;
 c_73481.hdr.grayed = 0;
c_73481.tag = closureN_tag;
 c_73481.fn = (function_type)__lambda_37;
c_73481.pc = 0;
c_73481.num_args = 1;
c_73481.num_elements = 6;
c_73481.elements = (object *)alloca(sizeof(object) * 6);
c_73481.elements[0] = ((closureN)self_73281)->elements[0];
c_73481.elements[1] = ((closureN)self_73281)->elements[1];
c_73481.elements[2] = ((closureN)self_73281)->elements[2];
c_73481.elements[3] = ((closureN)self_73281)->elements[3];
c_73481.elements[4] = ((closureN)self_73281)->elements[4];
c_73481.elements[5] = ((closureN)self_73281)->elements[5];

return_closcall1(data,  __glo_jiffies_91per_91second_scheme_time,  &c_73481);; 
}

static void __lambda_37(void *data, int argc, object self_73282, object j_95s_7354_73124) {
  
closureN_type c_73483;
c_73483.hdr.mark = gc_color_red;
 c_73483.hdr.grayed = 0;
c_73483.tag = closureN_tag;
 c_73483.fn = (function_type)__lambda_38;
c_73483.pc = 0;
c_73483.num_args = 1;
c_73483.num_elements = 7;
c_73483.elements = (object *)alloca(sizeof(object) * 7);
c_73483.elements[0] = ((closureN)self_73282)->elements[0];
c_73483.elements[1] = j_95s_7354_73124;
c_73483.elements[2] = ((closureN)self_73282)->elements[1];
c_73483.elements[3] = ((closureN)self_73282)->elements[2];
c_73483.elements[4] = ((closureN)self_73282)->elements[3];
c_73483.elements[5] = ((closureN)self_73282)->elements[4];
c_73483.elements[6] = ((closureN)self_73282)->elements[5];

return_closcall1(data,  __glo_current_91second_scheme_time,  &c_73483);; 
}

static void __lambda_38(void *data, int argc, object self_73283, object t0_7357_73125) {
  
closureN_type c_73485;
c_73485.hdr.mark = gc_color_red;
 c_73485.hdr.grayed = 0;
c_73485.tag = closureN_tag;
 c_73485.fn = (function_type)__lambda_39;
c_73485.pc = 0;
c_73485.num_args = 1;
c_73485.num_elements = 8;
c_73485.elements = (object *)alloca(sizeof(object) * 8);
c_73485.elements[0] = ((closureN)self_73283)->elements[0];
c_73485.elements[1] = ((closureN)self_73283)->elements[1];
c_73485.elements[2] = ((closureN)self_73283)->elements[2];
c_73485.elements[3] = ((closureN)self_73283)->elements[3];
c_73485.elements[4] = ((closureN)self_73283)->elements[4];
c_73485.elements[5] = ((closureN)self_73283)->elements[5];
c_73485.elements[6] = t0_7357_73125;
c_73485.elements[7] = ((closureN)self_73283)->elements[6];

return_closcall1(data,  __glo_current_91jiffy_scheme_time,  &c_73485);; 
}

static void __lambda_39(void *data, int argc, object self_73284, object j0_7360_73126) {
  
closureN_type c_73487;
c_73487.hdr.mark = gc_color_red;
 c_73487.hdr.grayed = 0;
c_73487.tag = closureN_tag;
 c_73487.fn = (function_type)__lambda_40;
c_73487.pc = 0;
c_73487.num_args = 1;
c_73487.num_elements = 9;
c_73487.elements = (object *)alloca(sizeof(object) * 9);
c_73487.elements[0] = ((closureN)self_73284)->elements[0];
c_73487.elements[1] = ((closureN)self_73284)->elements[1];
c_73487.elements[2] = j0_7360_73126;
c_73487.elements[3] = ((closureN)self_73284)->elements[2];
c_73487.elements[4] = ((closureN)self_73284)->elements[3];
c_73487.elements[5] = ((closureN)self_73284)->elements[4];
c_73487.elements[6] = ((closureN)self_73284)->elements[5];
c_73487.elements[7] = ((closureN)self_73284)->elements[6];
c_73487.elements[8] = ((closureN)self_73284)->elements[7];

return_direct_with_clo1(data,(closure)&c_73487,__lambda_40,  boolean_f);; 
}

static void __lambda_40(void *data, int argc, object self_73285, object loop_7365_73129) {
  
closureN_type c_73489;
c_73489.hdr.mark = gc_color_red;
 c_73489.hdr.grayed = 0;
c_73489.tag = closureN_tag;
 c_73489.fn = (function_type)__lambda_77;
c_73489.pc = 0;
c_73489.num_args = 1;
c_73489.num_elements = 9;
c_73489.elements = (object *)alloca(sizeof(object) * 9);
c_73489.elements[0] = ((closureN)self_73285)->elements[0];
c_73489.elements[1] = ((closureN)self_73285)->elements[1];
c_73489.elements[2] = ((closureN)self_73285)->elements[2];
c_73489.elements[3] = ((closureN)self_73285)->elements[3];
c_73489.elements[4] = ((closureN)self_73285)->elements[4];
c_73489.elements[5] = ((closureN)self_73285)->elements[5];
c_73489.elements[6] = ((closureN)self_73285)->elements[6];
c_73489.elements[7] = ((closureN)self_73285)->elements[7];
c_73489.elements[8] = ((closureN)self_73285)->elements[8];


make_cell(c_73613,loop_7365_73129);
return_direct_with_clo1(data,(closure)&c_73489,__lambda_77,  &c_73613);; 
}

static void __lambda_77(void *data, int argc, object self_73286, object loop_7365_73129) {
  
closureN_type c_73491;
c_73491.hdr.mark = gc_color_red;
 c_73491.hdr.grayed = 0;
c_73491.tag = closureN_tag;
 c_73491.fn = (function_type)__lambda_41;
c_73491.pc = 0;
c_73491.num_args = 1;
c_73491.num_elements = 2;
c_73491.elements = (object *)alloca(sizeof(object) * 2);
c_73491.elements[0] = ((closureN)self_73286)->elements[3];
c_73491.elements[1] = loop_7365_73129;


closureN_type c_73499;
c_73499.hdr.mark = gc_color_red;
 c_73499.hdr.grayed = 0;
c_73499.tag = closureN_tag;
 c_73499.fn = (function_type)__lambda_42;
c_73499.pc = 0;
c_73499.num_args = 2;
c_73499.num_elements = 9;
c_73499.elements = (object *)alloca(sizeof(object) * 9);
c_73499.elements[0] = ((closureN)self_73286)->elements[0];
c_73499.elements[1] = ((closureN)self_73286)->elements[1];
c_73499.elements[2] = ((closureN)self_73286)->elements[2];
c_73499.elements[3] = loop_7365_73129;
c_73499.elements[4] = ((closureN)self_73286)->elements[4];
c_73499.elements[5] = ((closureN)self_73286)->elements[5];
c_73499.elements[6] = ((closureN)self_73286)->elements[6];
c_73499.elements[7] = ((closureN)self_73286)->elements[7];
c_73499.elements[8] = ((closureN)self_73286)->elements[8];

return_direct_with_clo1(data,(closure)&c_73491,__lambda_41,  Cyc_set_cell(data, loop_7365_73129, &c_73499));; 
}

static void __lambda_42(void *data, int argc, object self_73287, object k_73202, object i_7366_73130, object result_7367_73131) {
    object c_73502 = Cyc_num_fast_lt_op(data,i_7366_73130, ((closureN)self_73287)->elements[0]);
if( (boolean_f != c_73502) ){ 
  
closureN_type c_73506;
c_73506.hdr.mark = gc_color_red;
 c_73506.hdr.grayed = 0;
c_73506.tag = closureN_tag;
 c_73506.fn = (function_type)__lambda_43;
c_73506.pc = 0;
c_73506.num_args = 1;
c_73506.num_elements = 3;
c_73506.elements = (object *)alloca(sizeof(object) * 3);
c_73506.elements[0] = i_7366_73130;
c_73506.elements[1] = k_73202;
c_73506.elements[2] = ((closureN)self_73287)->elements[3];

return_closcall1(data,  ((closureN)self_73287)->elements[8],  &c_73506);
} else { 
  
closureN_type c_73519;
c_73519.hdr.mark = gc_color_red;
 c_73519.hdr.grayed = 0;
c_73519.tag = closureN_tag;
 c_73519.fn = (function_type)__lambda_44;
c_73519.pc = 0;
c_73519.num_args = 1;
c_73519.num_elements = 7;
c_73519.elements = (object *)alloca(sizeof(object) * 7);
c_73519.elements[0] = ((closureN)self_73287)->elements[1];
c_73519.elements[1] = ((closureN)self_73287)->elements[2];
c_73519.elements[2] = k_73202;
c_73519.elements[3] = ((closureN)self_73287)->elements[4];
c_73519.elements[4] = result_7367_73131;
c_73519.elements[5] = ((closureN)self_73287)->elements[6];
c_73519.elements[6] = ((closureN)self_73287)->elements[7];

return_closcall2(data,  ((closureN)self_73287)->elements[5],  &c_73519, result_7367_73131);}
; 
}

static void __lambda_44(void *data, int argc, object self_73289, object r_73206) {
  if( (boolean_f != r_73206) ){ 
  
closureN_type c_73521;
c_73521.hdr.mark = gc_color_red;
 c_73521.hdr.grayed = 0;
c_73521.tag = closureN_tag;
 c_73521.fn = (function_type)__lambda_45;
c_73521.pc = 0;
c_73521.num_args = 1;
c_73521.num_elements = 7;
c_73521.elements = (object *)alloca(sizeof(object) * 7);
c_73521.elements[0] = ((closureN)self_73289)->elements[0];
c_73521.elements[1] = ((closureN)self_73289)->elements[1];
c_73521.elements[2] = ((closureN)self_73289)->elements[2];
c_73521.elements[3] = ((closureN)self_73289)->elements[3];
c_73521.elements[4] = ((closureN)self_73289)->elements[4];
c_73521.elements[5] = ((closureN)self_73289)->elements[5];
c_73521.elements[6] = ((closureN)self_73289)->elements[6];

return_closcall1(data,  __glo_current_91jiffy_scheme_time,  &c_73521);
} else { 
  
closureN_type c_73597;
c_73597.hdr.mark = gc_color_red;
 c_73597.hdr.grayed = 0;
c_73597.tag = closureN_tag;
 c_73597.fn = (function_type)__lambda_66;
c_73597.pc = 0;
c_73597.num_args = 1;
c_73597.num_elements = 2;
c_73597.elements = (object *)alloca(sizeof(object) * 2);
c_73597.elements[0] = ((closureN)self_73289)->elements[2];
c_73597.elements[1] = ((closureN)self_73289)->elements[4];


make_utf8_string_with_len(c_73610, "ERROR: returned incorrect result: ", 34, 34);
return_closcall2(data,  __glo_display_scheme_write,  &c_73597, &c_73610);}
; 
}

static void __lambda_66(void *data, int argc, object self_73311, object r_73231) {
  
closureN_type c_73599;
c_73599.hdr.mark = gc_color_red;
 c_73599.hdr.grayed = 0;
c_73599.tag = closureN_tag;
 c_73599.fn = (function_type)__lambda_67;
c_73599.pc = 0;
c_73599.num_args = 1;
c_73599.num_elements = 2;
c_73599.elements = (object *)alloca(sizeof(object) * 2);
c_73599.elements[0] = ((closureN)self_73311)->elements[0];
c_73599.elements[1] = ((closureN)self_73311)->elements[1];

return_closcall2(data,  __glo_write_scheme_write,  &c_73599, ((closureN)self_73311)->elements[1]);; 
}

static void __lambda_67(void *data, int argc, object self_73312, object r_73232) {
  
closureN_type c_73601;
c_73601.hdr.mark = gc_color_red;
 c_73601.hdr.grayed = 0;
c_73601.tag = closureN_tag;
 c_73601.fn = (function_type)__lambda_68;
c_73601.pc = 0;
c_73601.num_args = 1;
c_73601.num_elements = 2;
c_73601.elements = (object *)alloca(sizeof(object) * 2);
c_73601.elements[0] = ((closureN)self_73312)->elements[0];
c_73601.elements[1] = ((closureN)self_73312)->elements[1];

return_closcall1(data,  __glo_newline_scheme_base,  &c_73601);; 
}

static void __lambda_68(void *data, int argc, object self_73313, object r_73233) {
  
closureN_type c_73603;
c_73603.hdr.mark = gc_color_red;
 c_73603.hdr.grayed = 0;
c_73603.tag = closureN_tag;
 c_73603.fn = (function_type)__lambda_69;
c_73603.pc = 0;
c_73603.num_args = 1;
c_73603.num_elements = 2;
c_73603.elements = (object *)alloca(sizeof(object) * 2);
c_73603.elements[0] = ((closureN)self_73313)->elements[0];
c_73603.elements[1] = ((closureN)self_73313)->elements[1];

return_closcall1(data,  __glo_current_91output_91port_scheme_base,  &c_73603);; 
}

static void __lambda_69(void *data, int argc, object self_73314, object r_73235) {
  
closureN_type c_73605;
c_73605.hdr.mark = gc_color_red;
 c_73605.hdr.grayed = 0;
c_73605.tag = closureN_tag;
 c_73605.fn = (function_type)__lambda_70;
c_73605.pc = 0;
c_73605.num_args = 1;
c_73605.num_elements = 2;
c_73605.elements = (object *)alloca(sizeof(object) * 2);
c_73605.elements[0] = ((closureN)self_73314)->elements[0];
c_73605.elements[1] = ((closureN)self_73314)->elements[1];

return_closcall2(data,  __glo_flush_91output_91port_scheme_base,  &c_73605, r_73235);; 
}

static void __lambda_70(void *data, int argc, object self_73315, object r_73234) {
  return_closcall1(data,  ((closureN)self_73315)->elements[0],  ((closureN)self_73315)->elements[1]);; 
}

static void __lambda_45(void *data, int argc, object self_73290, object j1_7376_73132) {
  
closureN_type c_73523;
c_73523.hdr.mark = gc_color_red;
 c_73523.hdr.grayed = 0;
c_73523.tag = closureN_tag;
 c_73523.fn = (function_type)__lambda_46;
c_73523.pc = 0;
c_73523.num_args = 1;
c_73523.num_elements = 8;
c_73523.elements = (object *)alloca(sizeof(object) * 8);
c_73523.elements[0] = ((closureN)self_73290)->elements[0];
c_73523.elements[1] = ((closureN)self_73290)->elements[1];
c_73523.elements[2] = j1_7376_73132;
c_73523.elements[3] = ((closureN)self_73290)->elements[2];
c_73523.elements[4] = ((closureN)self_73290)->elements[3];
c_73523.elements[5] = ((closureN)self_73290)->elements[4];
c_73523.elements[6] = ((closureN)self_73290)->elements[5];
c_73523.elements[7] = ((closureN)self_73290)->elements[6];

return_closcall1(data,  __glo_current_91second_scheme_time,  &c_73523);; 
}

static void __lambda_46(void *data, int argc, object self_73291, object t1_7379_73133) {
  
closureN_type c_73525;
c_73525.hdr.mark = gc_color_red;
 c_73525.hdr.grayed = 0;
c_73525.tag = closureN_tag;
 c_73525.fn = (function_type)__lambda_47;
c_73525.pc = 0;
c_73525.num_args = 1;
c_73525.num_elements = 6;
c_73525.elements = (object *)alloca(sizeof(object) * 6);
c_73525.elements[0] = ((closureN)self_73291)->elements[3];
c_73525.elements[1] = ((closureN)self_73291)->elements[4];
c_73525.elements[2] = ((closureN)self_73291)->elements[5];
c_73525.elements[3] = ((closureN)self_73291)->elements[6];
c_73525.elements[4] = ((closureN)self_73291)->elements[7];
c_73525.elements[5] = t1_7379_73133;


complex_num_type local_73591; object c_73592 = Cyc_fast_sub(data,&local_73591,((closureN)self_73291)->elements[2], ((closureN)self_73291)->elements[1]);

complex_num_type local_73587; object c_73588 = Cyc_fast_div(data,&local_73587,c_73592, ((closureN)self_73291)->elements[0]);
return_closcall2(data,  __glo_inexact_scheme_base,  &c_73525, c_73588);; 
}

static void __lambda_47(void *data, int argc, object self_73292, object secs_7385_73135) {
  
closureN_type c_73530;
c_73530.hdr.mark = gc_color_red;
 c_73530.hdr.grayed = 0;
c_73530.tag = closureN_tag;
 c_73530.fn = (function_type)__lambda_48;
c_73530.pc = 0;
c_73530.num_args = 1;
c_73530.num_elements = 4;
c_73530.elements = (object *)alloca(sizeof(object) * 4);
c_73530.elements[0] = ((closureN)self_73292)->elements[0];
c_73530.elements[1] = ((closureN)self_73292)->elements[1];
c_73530.elements[2] = ((closureN)self_73292)->elements[2];
c_73530.elements[3] = secs_7385_73135;


complex_num_type local_73581; object c_73582 = Cyc_fast_sub(data,&local_73581,((closureN)self_73292)->elements[5], ((closureN)self_73292)->elements[4]);
return_closcall2(data,  car(((closureN)self_73292)->elements[3]),  &c_73530, c_73582);; 
}

static void __lambda_48(void *data, int argc, object self_73293, object secs2_7388_73136) {
  
closureN_type c_73532;
c_73532.hdr.mark = gc_color_red;
 c_73532.hdr.grayed = 0;
c_73532.tag = closureN_tag;
 c_73532.fn = (function_type)__lambda_49;
c_73532.pc = 0;
c_73532.num_args = 1;
c_73532.num_elements = 5;
c_73532.elements = (object *)alloca(sizeof(object) * 5);
c_73532.elements[0] = ((closureN)self_73293)->elements[0];
c_73532.elements[1] = ((closureN)self_73293)->elements[1];
c_73532.elements[2] = ((closureN)self_73293)->elements[2];
c_73532.elements[3] = ((closureN)self_73293)->elements[3];
c_73532.elements[4] = secs2_7388_73136;


make_utf8_string_with_len(c_73578, "Elapsed time: ", 14, 14);
return_closcall2(data,  __glo_display_scheme_write,  &c_73532, &c_73578);; 
}

static void __lambda_49(void *data, int argc, object self_73294, object r_73213) {
  
closureN_type c_73534;
c_73534.hdr.mark = gc_color_red;
 c_73534.hdr.grayed = 0;
c_73534.tag = closureN_tag;
 c_73534.fn = (function_type)__lambda_50;
c_73534.pc = 0;
c_73534.num_args = 1;
c_73534.num_elements = 5;
c_73534.elements = (object *)alloca(sizeof(object) * 5);
c_73534.elements[0] = ((closureN)self_73294)->elements[0];
c_73534.elements[1] = ((closureN)self_73294)->elements[1];
c_73534.elements[2] = ((closureN)self_73294)->elements[2];
c_73534.elements[3] = ((closureN)self_73294)->elements[3];
c_73534.elements[4] = ((closureN)self_73294)->elements[4];

return_closcall2(data,  __glo_write_scheme_write,  &c_73534, ((closureN)self_73294)->elements[3]);; 
}

static void __lambda_50(void *data, int argc, object self_73295, object r_73214) {
  
closureN_type c_73536;
c_73536.hdr.mark = gc_color_red;
 c_73536.hdr.grayed = 0;
c_73536.tag = closureN_tag;
 c_73536.fn = (function_type)__lambda_51;
c_73536.pc = 0;
c_73536.num_args = 1;
c_73536.num_elements = 5;
c_73536.elements = (object *)alloca(sizeof(object) * 5);
c_73536.elements[0] = ((closureN)self_73295)->elements[0];
c_73536.elements[1] = ((closureN)self_73295)->elements[1];
c_73536.elements[2] = ((closureN)self_73295)->elements[2];
c_73536.elements[3] = ((closureN)self_73295)->elements[3];
c_73536.elements[4] = ((closureN)self_73295)->elements[4];


make_utf8_string_with_len(c_73576, " seconds (", 10, 10);
return_closcall2(data,  __glo_display_scheme_write,  &c_73536, &c_73576);; 
}

static void __lambda_51(void *data, int argc, object self_73296, object r_73215) {
  
closureN_type c_73538;
c_73538.hdr.mark = gc_color_red;
 c_73538.hdr.grayed = 0;
c_73538.tag = closureN_tag;
 c_73538.fn = (function_type)__lambda_52;
c_73538.pc = 0;
c_73538.num_args = 1;
c_73538.num_elements = 4;
c_73538.elements = (object *)alloca(sizeof(object) * 4);
c_73538.elements[0] = ((closureN)self_73296)->elements[0];
c_73538.elements[1] = ((closureN)self_73296)->elements[1];
c_73538.elements[2] = ((closureN)self_73296)->elements[2];
c_73538.elements[3] = ((closureN)self_73296)->elements[3];

return_closcall2(data,  __glo_write_scheme_write,  &c_73538, ((closureN)self_73296)->elements[4]);; 
}

static void __lambda_52(void *data, int argc, object self_73297, object r_73216) {
  
closureN_type c_73540;
c_73540.hdr.mark = gc_color_red;
 c_73540.hdr.grayed = 0;
c_73540.tag = closureN_tag;
 c_73540.fn = (function_type)__lambda_53;
c_73540.pc = 0;
c_73540.num_args = 1;
c_73540.num_elements = 4;
c_73540.elements = (object *)alloca(sizeof(object) * 4);
c_73540.elements[0] = ((closureN)self_73297)->elements[0];
c_73540.elements[1] = ((closureN)self_73297)->elements[1];
c_73540.elements[2] = ((closureN)self_73297)->elements[2];
c_73540.elements[3] = ((closureN)self_73297)->elements[3];


make_utf8_string_with_len(c_73574, ") for ", 6, 6);
return_closcall2(data,  __glo_display_scheme_write,  &c_73540, &c_73574);; 
}

static void __lambda_53(void *data, int argc, object self_73298, object r_73217) {
  
closureN_type c_73542;
c_73542.hdr.mark = gc_color_red;
 c_73542.hdr.grayed = 0;
c_73542.tag = closureN_tag;
 c_73542.fn = (function_type)__lambda_54;
c_73542.pc = 0;
c_73542.num_args = 1;
c_73542.num_elements = 4;
c_73542.elements = (object *)alloca(sizeof(object) * 4);
c_73542.elements[0] = ((closureN)self_73298)->elements[0];
c_73542.elements[1] = ((closureN)self_73298)->elements[1];
c_73542.elements[2] = ((closureN)self_73298)->elements[2];
c_73542.elements[3] = ((closureN)self_73298)->elements[3];

return_closcall2(data,  __glo_display_scheme_write,  &c_73542, ((closureN)self_73298)->elements[1]);; 
}

static void __lambda_54(void *data, int argc, object self_73299, object r_73218) {
  
closureN_type c_73544;
c_73544.hdr.mark = gc_color_red;
 c_73544.hdr.grayed = 0;
c_73544.tag = closureN_tag;
 c_73544.fn = (function_type)__lambda_55;
c_73544.pc = 0;
c_73544.num_args = 1;
c_73544.num_elements = 4;
c_73544.elements = (object *)alloca(sizeof(object) * 4);
c_73544.elements[0] = ((closureN)self_73299)->elements[0];
c_73544.elements[1] = ((closureN)self_73299)->elements[1];
c_73544.elements[2] = ((closureN)self_73299)->elements[2];
c_73544.elements[3] = ((closureN)self_73299)->elements[3];

return_closcall1(data,  __glo_newline_scheme_base,  &c_73544);; 
}

static void __lambda_55(void *data, int argc, object self_73300, object r_73219) {
  
closureN_type c_73546;
c_73546.hdr.mark = gc_color_red;
 c_73546.hdr.grayed = 0;
c_73546.tag = closureN_tag;
 c_73546.fn = (function_type)__lambda_56;
c_73546.pc = 0;
c_73546.num_args = 1;
c_73546.num_elements = 4;
c_73546.elements = (object *)alloca(sizeof(object) * 4);
c_73546.elements[0] = ((closureN)self_73300)->elements[0];
c_73546.elements[1] = ((closureN)self_73300)->elements[1];
c_73546.elements[2] = ((closureN)self_73300)->elements[2];
c_73546.elements[3] = ((closureN)self_73300)->elements[3];


make_utf8_string_with_len(c_73572, "+!CSVLINE!+", 11, 11);
return_closcall2(data,  __glo_display_scheme_write,  &c_73546, &c_73572);; 
}

static void __lambda_56(void *data, int argc, object self_73301, object r_73220) {
  
closureN_type c_73548;
c_73548.hdr.mark = gc_color_red;
 c_73548.hdr.grayed = 0;
c_73548.tag = closureN_tag;
 c_73548.fn = (function_type)__lambda_57;
c_73548.pc = 0;
c_73548.num_args = 1;
c_73548.num_elements = 4;
c_73548.elements = (object *)alloca(sizeof(object) * 4);
c_73548.elements[0] = ((closureN)self_73301)->elements[0];
c_73548.elements[1] = ((closureN)self_73301)->elements[1];
c_73548.elements[2] = ((closureN)self_73301)->elements[2];
c_73548.elements[3] = ((closureN)self_73301)->elements[3];

return_closcall1(data,  __glo_this_91scheme_91implementation_91name,  &c_73548);; 
}

static void __lambda_57(void *data, int argc, object self_73302, object r_73228) {
  
closureN_type c_73550;
c_73550.hdr.mark = gc_color_red;
 c_73550.hdr.grayed = 0;
c_73550.tag = closureN_tag;
 c_73550.fn = (function_type)__lambda_58;
c_73550.pc = 0;
c_73550.num_args = 1;
c_73550.num_elements = 4;
c_73550.elements = (object *)alloca(sizeof(object) * 4);
c_73550.elements[0] = ((closureN)self_73302)->elements[0];
c_73550.elements[1] = ((closureN)self_73302)->elements[1];
c_73550.elements[2] = ((closureN)self_73302)->elements[2];
c_73550.elements[3] = ((closureN)self_73302)->elements[3];

return_closcall2(data,  __glo_display_scheme_write,  &c_73550, r_73228);; 
}

static void __lambda_58(void *data, int argc, object self_73303, object r_73221) {
  
closureN_type c_73552;
c_73552.hdr.mark = gc_color_red;
 c_73552.hdr.grayed = 0;
c_73552.tag = closureN_tag;
 c_73552.fn = (function_type)__lambda_59;
c_73552.pc = 0;
c_73552.num_args = 1;
c_73552.num_elements = 4;
c_73552.elements = (object *)alloca(sizeof(object) * 4);
c_73552.elements[0] = ((closureN)self_73303)->elements[0];
c_73552.elements[1] = ((closureN)self_73303)->elements[1];
c_73552.elements[2] = ((closureN)self_73303)->elements[2];
c_73552.elements[3] = ((closureN)self_73303)->elements[3];


make_utf8_string_with_len(c_73571, ",", 1, 1);
return_closcall2(data,  __glo_display_scheme_write,  &c_73552, &c_73571);; 
}

static void __lambda_59(void *data, int argc, object self_73304, object r_73222) {
  
closureN_type c_73554;
c_73554.hdr.mark = gc_color_red;
 c_73554.hdr.grayed = 0;
c_73554.tag = closureN_tag;
 c_73554.fn = (function_type)__lambda_60;
c_73554.pc = 0;
c_73554.num_args = 1;
c_73554.num_elements = 3;
c_73554.elements = (object *)alloca(sizeof(object) * 3);
c_73554.elements[0] = ((closureN)self_73304)->elements[0];
c_73554.elements[1] = ((closureN)self_73304)->elements[2];
c_73554.elements[2] = ((closureN)self_73304)->elements[3];

return_closcall2(data,  __glo_display_scheme_write,  &c_73554, ((closureN)self_73304)->elements[1]);; 
}

static void __lambda_60(void *data, int argc, object self_73305, object r_73223) {
  
closureN_type c_73556;
c_73556.hdr.mark = gc_color_red;
 c_73556.hdr.grayed = 0;
c_73556.tag = closureN_tag;
 c_73556.fn = (function_type)__lambda_61;
c_73556.pc = 0;
c_73556.num_args = 1;
c_73556.num_elements = 3;
c_73556.elements = (object *)alloca(sizeof(object) * 3);
c_73556.elements[0] = ((closureN)self_73305)->elements[0];
c_73556.elements[1] = ((closureN)self_73305)->elements[1];
c_73556.elements[2] = ((closureN)self_73305)->elements[2];


make_utf8_string_with_len(c_73569, ",", 1, 1);
return_closcall2(data,  __glo_display_scheme_write,  &c_73556, &c_73569);; 
}

static void __lambda_61(void *data, int argc, object self_73306, object r_73224) {
  
closureN_type c_73558;
c_73558.hdr.mark = gc_color_red;
 c_73558.hdr.grayed = 0;
c_73558.tag = closureN_tag;
 c_73558.fn = (function_type)__lambda_62;
c_73558.pc = 0;
c_73558.num_args = 1;
c_73558.num_elements = 2;
c_73558.elements = (object *)alloca(sizeof(object) * 2);
c_73558.elements[0] = ((closureN)self_73306)->elements[0];
c_73558.elements[1] = ((closureN)self_73306)->elements[1];

return_closcall2(data,  __glo_display_scheme_write,  &c_73558, ((closureN)self_73306)->elements[2]);; 
}

static void __lambda_62(void *data, int argc, object self_73307, object r_73225) {
  
closureN_type c_73560;
c_73560.hdr.mark = gc_color_red;
 c_73560.hdr.grayed = 0;
c_73560.tag = closureN_tag;
 c_73560.fn = (function_type)__lambda_63;
c_73560.pc = 0;
c_73560.num_args = 1;
c_73560.num_elements = 2;
c_73560.elements = (object *)alloca(sizeof(object) * 2);
c_73560.elements[0] = ((closureN)self_73307)->elements[0];
c_73560.elements[1] = ((closureN)self_73307)->elements[1];

return_closcall1(data,  __glo_newline_scheme_base,  &c_73560);; 
}

static void __lambda_63(void *data, int argc, object self_73308, object r_73226) {
  
closureN_type c_73562;
c_73562.hdr.mark = gc_color_red;
 c_73562.hdr.grayed = 0;
c_73562.tag = closureN_tag;
 c_73562.fn = (function_type)__lambda_64;
c_73562.pc = 0;
c_73562.num_args = 1;
c_73562.num_elements = 2;
c_73562.elements = (object *)alloca(sizeof(object) * 2);
c_73562.elements[0] = ((closureN)self_73308)->elements[0];
c_73562.elements[1] = ((closureN)self_73308)->elements[1];

return_closcall1(data,  __glo_current_91output_91port_scheme_base,  &c_73562);; 
}

static void __lambda_64(void *data, int argc, object self_73309, object r_73227) {
  
closureN_type c_73564;
c_73564.hdr.mark = gc_color_red;
 c_73564.hdr.grayed = 0;
c_73564.tag = closureN_tag;
 c_73564.fn = (function_type)__lambda_65;
c_73564.pc = 0;
c_73564.num_args = 1;
c_73564.num_elements = 2;
c_73564.elements = (object *)alloca(sizeof(object) * 2);
c_73564.elements[0] = ((closureN)self_73309)->elements[0];
c_73564.elements[1] = ((closureN)self_73309)->elements[1];

return_closcall2(data,  __glo_flush_91output_91port_scheme_base,  &c_73564, r_73227);; 
}

static void __lambda_65(void *data, int argc, object self_73310, object r_73207) {
  return_closcall1(data,  ((closureN)self_73310)->elements[0],  ((closureN)self_73310)->elements[1]);; 
}

static void __lambda_43(void *data, int argc, object self_73288, object r_73205) {
  
complex_num_type local_73514; object c_73515 = Cyc_fast_sum(data,&local_73514,((closureN)self_73288)->elements[0], obj_int2obj(1));
return_closcall3(data,  car(((closureN)self_73288)->elements[2]),  ((closureN)self_73288)->elements[1], c_73515, r_73205);; 
}

static void __lambda_41(void *data, int argc, object self_73316, object r_73200) {
  return_closcall3(data,  car(((closureN)self_73316)->elements[1]),  ((closureN)self_73316)->elements[0], obj_int2obj(0), boolean_f);; 
}

static void __lambda_22(void *data, int argc, closure _,object k_73177, object r_7342_73111, object x_7343_73112) {
  Cyc_st_add(data, "diviter.scm:hide");

closureN_type c_73441;
c_73441.hdr.mark = gc_color_red;
 c_73441.hdr.grayed = 0;
c_73441.tag = closureN_tag;
 c_73441.fn = (function_type)__lambda_23;
c_73441.pc = 0;
c_73441.num_args = 0;
c_73441.num_elements = 1;
c_73441.elements = (object *)alloca(sizeof(object) * 1);
c_73441.elements[0] = r_7342_73111;


closureN_type c_73458;
c_73458.hdr.mark = gc_color_red;
 c_73458.hdr.grayed = 0;
c_73458.tag = closureN_tag;
 c_73458.fn = (function_type)__lambda_28;
c_73458.pc = 0;
c_73458.num_args = 2;
c_73458.num_elements = 1;
c_73458.elements = (object *)alloca(sizeof(object) * 1);
c_73458.elements[0] = x_7343_73112;

return_closcall3(data,  __glo_call_91with_91values_scheme_base,  k_73177, &c_73441, &c_73458);; 
}

static void __lambda_28(void *data, int argc, object self_73271, object k_73180, object v_7345_73114, object i_7346_73115) {
  return_closcall2(data,  Cyc_vector_ref(data, v_7345_73114, i_7346_73115),  k_73180, ((closureN)self_73271)->elements[0]);; 
}

static void __lambda_23(void *data, int argc, object self_73266, object k_73182) {
  
closureN_type c_73443;
c_73443.hdr.mark = gc_color_red;
 c_73443.hdr.grayed = 0;
c_73443.tag = closureN_tag;
 c_73443.fn = (function_type)__lambda_24;
c_73443.pc = 0;
c_73443.num_args = 1;
c_73443.num_elements = 2;
c_73443.elements = (object *)alloca(sizeof(object) * 2);
c_73443.elements[0] = k_73182;
c_73443.elements[1] = ((closureN)self_73266)->elements[0];


mclosure0(c_73456, (function_type)__lambda_27);c_73456.num_args = 1;
return_closcall3(data,  __glo_vector_scheme_base,  &c_73443, __glo_values_scheme_base, &c_73456);; 
}

static void __lambda_27(void *data, int argc, object self_73270, object k_73188, object x_7344_73113) {
  return_closcall1(data,  k_73188,  x_7344_73113);; 
}

static void __lambda_24(void *data, int argc, object self_73267, object r_73183) {
  
closureN_type c_73445;
c_73445.hdr.mark = gc_color_red;
 c_73445.hdr.grayed = 0;
c_73445.tag = closureN_tag;
 c_73445.fn = (function_type)__lambda_25;
c_73445.pc = 0;
c_73445.num_args = 0;
c_73445.num_elements = 1;
c_73445.elements = (object *)alloca(sizeof(object) * 1);
c_73445.elements[0] = ((closureN)self_73267)->elements[1];


closureN_type c_73452;
c_73452.hdr.mark = gc_color_red;
 c_73452.hdr.grayed = 0;
c_73452.tag = closureN_tag;
 c_73452.fn = (function_type)__lambda_26;
c_73452.pc = 0;
c_73452.num_args = 1;
c_73452.num_elements = 2;
c_73452.elements = (object *)alloca(sizeof(object) * 2);
c_73452.elements[0] = ((closureN)self_73267)->elements[0];
c_73452.elements[1] = r_73183;

return_direct_with_clo1(data,(closure)&c_73445,__lambda_25,  &c_73452);; 
}

static void __lambda_26(void *data, int argc, object self_73268, object r_73184) {
  return_closcall3(data,  __glo_values_scheme_base,  ((closureN)self_73268)->elements[0], ((closureN)self_73268)->elements[1], r_73184);; 
}

static void __lambda_25(void *data, int argc, object self_73269, object k_73185) {
    object c_73448 = Cyc_num_fast_lt_op(data,((closureN)self_73269)->elements[0], obj_int2obj(100));
if( (boolean_f != c_73448) ){ 
  return_direct_with_clo1(data,  k_73185,__lambda_26,  obj_int2obj(0));
} else { 
  return_direct_with_clo1(data,  k_73185,__lambda_26,  obj_int2obj(1));}
; 
}

static void __lambda_11(void *data, int argc, closure _,object k_73161) {
  Cyc_st_add(data, "diviter.scm:main");

closureN_type c_73393;
c_73393.hdr.mark = gc_color_red;
 c_73393.hdr.grayed = 0;
c_73393.tag = closureN_tag;
 c_73393.fn = (function_type)__lambda_12;
c_73393.pc = 0;
c_73393.num_args = 1;
c_73393.num_elements = 1;
c_73393.elements = (object *)alloca(sizeof(object) * 1);
c_73393.elements[0] = k_73161;

return_closcall1(data,  __glo_read_scheme_read,  &c_73393);; 
}

static void __lambda_12(void *data, int argc, object self_73256, object count_7321_73103) {
  
closureN_type c_73395;
c_73395.hdr.mark = gc_color_red;
 c_73395.hdr.grayed = 0;
c_73395.tag = closureN_tag;
 c_73395.fn = (function_type)__lambda_13;
c_73395.pc = 0;
c_73395.num_args = 1;
c_73395.num_elements = 2;
c_73395.elements = (object *)alloca(sizeof(object) * 2);
c_73395.elements[0] = count_7321_73103;
c_73395.elements[1] = ((closureN)self_73256)->elements[0];

return_closcall1(data,  __glo_read_scheme_read,  &c_73395);; 
}

static void __lambda_13(void *data, int argc, object self_73257, object input1_7324_73104) {
  
closureN_type c_73397;
c_73397.hdr.mark = gc_color_red;
 c_73397.hdr.grayed = 0;
c_73397.tag = closureN_tag;
 c_73397.fn = (function_type)__lambda_14;
c_73397.pc = 0;
c_73397.num_args = 1;
c_73397.num_elements = 3;
c_73397.elements = (object *)alloca(sizeof(object) * 3);
c_73397.elements[0] = ((closureN)self_73257)->elements[0];
c_73397.elements[1] = input1_7324_73104;
c_73397.elements[2] = ((closureN)self_73257)->elements[1];

return_closcall1(data,  __glo_read_scheme_read,  &c_73397);; 
}

static void __lambda_14(void *data, int argc, object self_73258, object output_7327_73105) {
  
closureN_type c_73399;
c_73399.hdr.mark = gc_color_red;
 c_73399.hdr.grayed = 0;
c_73399.tag = closureN_tag;
 c_73399.fn = (function_type)__lambda_15;
c_73399.pc = 0;
c_73399.num_args = 1;
c_73399.num_elements = 4;
c_73399.elements = (object *)alloca(sizeof(object) * 4);
c_73399.elements[0] = ((closureN)self_73258)->elements[0];
c_73399.elements[1] = ((closureN)self_73258)->elements[1];
c_73399.elements[2] = ((closureN)self_73258)->elements[2];
c_73399.elements[3] = output_7327_73105;


object c_73437 = Cyc_number2string2(data,(closure)&c_73399,1,((closureN)self_73258)->elements[0]);
return_closcall1(data,(closure)&c_73399,  c_73437);; 
}

static void __lambda_15(void *data, int argc, object self_73259, object s2_7330_73106) {
  
closureN_type c_73401;
c_73401.hdr.mark = gc_color_red;
 c_73401.hdr.grayed = 0;
c_73401.tag = closureN_tag;
 c_73401.fn = (function_type)__lambda_16;
c_73401.pc = 0;
c_73401.num_args = 1;
c_73401.num_elements = 5;
c_73401.elements = (object *)alloca(sizeof(object) * 5);
c_73401.elements[0] = ((closureN)self_73259)->elements[0];
c_73401.elements[1] = ((closureN)self_73259)->elements[1];
c_73401.elements[2] = ((closureN)self_73259)->elements[2];
c_73401.elements[3] = ((closureN)self_73259)->elements[3];
c_73401.elements[4] = s2_7330_73106;


object c_73433 = Cyc_number2string2(data,(closure)&c_73401,1,((closureN)self_73259)->elements[1]);
return_closcall1(data,(closure)&c_73401,  c_73433);; 
}

static void __lambda_16(void *data, int argc, object self_73260, object s1_7333_73107) {
  
closureN_type c_73403;
c_73403.hdr.mark = gc_color_red;
 c_73403.hdr.grayed = 0;
c_73403.tag = closureN_tag;
 c_73403.fn = (function_type)__lambda_17;
c_73403.pc = 0;
c_73403.num_args = 1;
c_73403.num_elements = 5;
c_73403.elements = (object *)alloca(sizeof(object) * 5);
c_73403.elements[0] = ((closureN)self_73260)->elements[0];
c_73403.elements[1] = ((closureN)self_73260)->elements[2];
c_73403.elements[2] = ((closureN)self_73260)->elements[3];
c_73403.elements[3] = s1_7333_73107;
c_73403.elements[4] = ((closureN)self_73260)->elements[4];

return_closcall3(data,  __glo_hide,  &c_73403, ((closureN)self_73260)->elements[0], ((closureN)self_73260)->elements[1]);; 
}

static void __lambda_17(void *data, int argc, object self_73261, object r_73174) {
  
closureN_type c_73405;
c_73405.hdr.mark = gc_color_red;
 c_73405.hdr.grayed = 0;
c_73405.tag = closureN_tag;
 c_73405.fn = (function_type)__lambda_18;
c_73405.pc = 0;
c_73405.num_args = 1;
c_73405.num_elements = 5;
c_73405.elements = (object *)alloca(sizeof(object) * 5);
c_73405.elements[0] = ((closureN)self_73261)->elements[0];
c_73405.elements[1] = ((closureN)self_73261)->elements[1];
c_73405.elements[2] = ((closureN)self_73261)->elements[2];
c_73405.elements[3] = ((closureN)self_73261)->elements[3];
c_73405.elements[4] = ((closureN)self_73261)->elements[4];

return_closcall2(data,  __glo_create_91n,  &c_73405, r_73174);; 
}

static void __lambda_18(void *data, int argc, object self_73262, object ll_7336_73108) {
  
closureN_type c_73407;
c_73407.hdr.mark = gc_color_red;
 c_73407.hdr.grayed = 0;
c_73407.tag = closureN_tag;
 c_73407.fn = (function_type)__lambda_19;
c_73407.pc = 0;
c_73407.num_args = 1;
c_73407.num_elements = 4;
c_73407.elements = (object *)alloca(sizeof(object) * 4);
c_73407.elements[0] = ((closureN)self_73262)->elements[0];
c_73407.elements[1] = ((closureN)self_73262)->elements[1];
c_73407.elements[2] = ll_7336_73108;
c_73407.elements[3] = ((closureN)self_73262)->elements[2];


make_utf8_string_with_len(c_73424, "diviter", 7, 7);

make_utf8_string_with_len(c_73425, ":", 1, 1);

make_utf8_string_with_len(c_73427, ":", 1, 1);

object c_73423 = Cyc_string_append(data,(closure)&c_73407,5,&c_73424, &c_73425, ((closureN)self_73262)->elements[3], &c_73427, ((closureN)self_73262)->elements[4]);
return_closcall1(data,(closure)&c_73407,  c_73423);; 
}

static void __lambda_19(void *data, int argc, object self_73263, object r_73168) {
  
closureN_type c_73411;
c_73411.hdr.mark = gc_color_red;
 c_73411.hdr.grayed = 0;
c_73411.tag = closureN_tag;
 c_73411.fn = (function_type)__lambda_20;
c_73411.pc = 0;
c_73411.num_args = 0;
c_73411.num_elements = 1;
c_73411.elements = (object *)alloca(sizeof(object) * 1);
c_73411.elements[0] = ((closureN)self_73263)->elements[2];


closureN_type c_73414;
c_73414.hdr.mark = gc_color_red;
 c_73414.hdr.grayed = 0;
c_73414.tag = closureN_tag;
 c_73414.fn = (function_type)__lambda_21;
c_73414.pc = 0;
c_73414.num_args = 1;
c_73414.num_elements = 1;
c_73414.elements = (object *)alloca(sizeof(object) * 1);
c_73414.elements[0] = ((closureN)self_73263)->elements[3];

return_closcall5(data,  __glo_run_91r7rs_91benchmark,  ((closureN)self_73263)->elements[1], r_73168, ((closureN)self_73263)->elements[0], &c_73411, &c_73414);; 
}

static void __lambda_21(void *data, int argc, object self_73265, object k_73171, object result_7341_73110) {
  return_closcall1(data,  k_73171,  equalp(Cyc_length(data, result_7341_73110), ((closureN)self_73265)->elements[0]));; 
}

static void __lambda_20(void *data, int argc, object self_73264, object k_73173) {
  return_closcall2(data,  __glo_iterative_91div2,  k_73173, ((closureN)self_73264)->elements[0]);; 
}

static void __host_lambda_1(void *data, int argc, closure self);
static void __host_lambda_1(void *data, int argc, closure self){
 while(1) {
  object *stack = ((gc_thread_data *)data)->args; // TODO: do it inline for benchmarks/production code
  object top = alloca(sizeof(object)); // TODO: is there a more efficient way?
  if (stack_overflow(top, (((gc_thread_data *)data)->stack_limit))) { 
     GC(data, self, ((gc_thread_data *)data)->args, argc); 
     return;
  }

  switch(((gc_thread_data *)data)->pc) {
//static void __lambda_6(void *data, int argc, closure _,object k_73150, object l_7310_7397) {
  case 6: {
  Cyc_st_add(data, "diviter.scm:iterative-div2");

object c_73357 = alloca(closureN_type);
c_73357->hdr.mark = gc_color_red;
 c_73357->hdr.grayed = 0;
c_73357->tag = closureN_tag;
 c_73357->fn = (function_type)__host_lambda_1; //__lambda_7;
c_73357->pc = 7;
c_73357->num_args = 2;
c_73357->num_elements = 1;
c_73357->elements = (object *)alloca(sizeof(object) * 1);
c_73357->elements[0] = stack[0]; //k_73150;

//return_direct_with_clo2(data,(closure)c_73357,__lambda_7,  l_7310_7397, NULL);; 

((gc_thread_data *)data)->args = alloca(sizeof(object) * 2);
((gc_thread_data *)data)->args[0] = stack[1];
((gc_thread_data *)data)->args[1] = NULL;
((gc_thread_data *)data)->pc = 7;
self = c_73357;
argc = 2;
continue;
}

//static void __lambda_7(void *data, int argc, object self_73251, object l_7314_7398, object a_7315_7399) {
case 7: {  
object c_73359 = alloca(sizeof(closureN_type));
c_73359->hdr.mark = gc_color_red;
 c_73359->hdr.grayed = 0;
c_73359->tag = closureN_tag;
 c_73359->fn = (function_type)__host_lambda_1; //__lambda_8;
c_73359->pc = 8;
c_73359->num_args = 1;
c_73359->num_elements = 3;
c_73359->elements = (object *)alloca(sizeof(object) * 3);
c_73359->elements[0] = stack[1]; //a_7315_7399;
c_73359->elements[1] = ((closureN)self /*_73251*/)->elements[0];
c_73359->elements[2] = stack[0]; //l_7314_7398;

//return_direct_with_clo1(data,(closure)&c_73359,__lambda_8,  boolean_f);; 
((gc_thread_data *)data)->args = alloca(sizeof(object) * 1);
((gc_thread_data *)data)->args[0] = boolean_f;
((gc_thread_data *)data)->pc = 8;
self = c_73359;
argc = 1;
continue;
}

//static void __lambda_8(void *data, int argc, object self_73252, object lp_7311_7316_73100) {
  case 8: {
object c_73361 = alloca(sizeof(closureN_type));
c_73361->hdr.mark = gc_color_red;
 c_73361->hdr.grayed = 0;
c_73361->tag = closureN_tag;
 c_73361->fn = (function_type)__host_lambda_1; //__lambda_76;
c_73361->pc = 76;
c_73361->num_args = 1;
c_73361->num_elements = 3;
c_73361->elements = (object *)alloca(sizeof(object) * 3);
c_73361->elements[0] = ((closureN)self /*_73252*/)->elements[0];
c_73361->elements[1] = ((closureN)self /*_73252*/)->elements[1];
c_73361->elements[2] = ((closureN)self /*_73252*/)->elements[2];


make_cell(c_73390,lp_7311_7316_73100);
//return_direct_with_clo1(data,(closure)&c_73361,__lambda_76,  &c_73390);; 
((gc_thread_data *)data)->args = alloca(sizeof(object) * 1);
((gc_thread_data *)data)->args[0] = boolean_f;
((gc_thread_data *)data)->pc = 8;
self = c_73359;
argc = 1;
continue;
}

TODO: continue conversion
static void __lambda_76(void *data, int argc, object self_73253, object lp_7311_7316_73100) {
  
closureN_type c_73363;
c_73363.hdr.mark = gc_color_red;
 c_73363.hdr.grayed = 0;
c_73363.tag = closureN_tag;
 c_73363.fn = (function_type)__lambda_9;
c_73363.pc = 0;
c_73363.num_args = 1;
c_73363.num_elements = 4;
c_73363.elements = (object *)alloca(sizeof(object) * 4);
c_73363.elements[0] = ((closureN)self_73253)->elements[0];
c_73363.elements[1] = ((closureN)self_73253)->elements[1];
c_73363.elements[2] = ((closureN)self_73253)->elements[2];
c_73363.elements[3] = lp_7311_7316_73100;


closureN_type c_73373;
c_73373.hdr.mark = gc_color_red;
 c_73373.hdr.grayed = 0;
c_73373.tag = closureN_tag;
 c_73373.fn = (function_type)__lambda_10;
c_73373.pc = 0;
c_73373.num_args = 2;
c_73373.num_elements = 1;
c_73373.elements = (object *)alloca(sizeof(object) * 1);
c_73373.elements[0] = lp_7311_7316_73100;

return_direct_with_clo1(data,(closure)&c_73363,__lambda_9,  Cyc_set_cell(data, lp_7311_7316_73100, &c_73373));; 
}

static void __lambda_10(void *data, int argc, object self_73254, object k_73154, object l_7317_73101, object a_7318_73102) {
  if( (boolean_f != Cyc_is_null(l_7317_73101)) ){ 
  return_closcall1(data,  k_73154,  a_7318_73102);
} else { 
  
make_pair(c_73385,Cyc_car(data, l_7317_73101), a_7318_73102);
return_closcall3(data,  car(((closureN)self_73254)->elements[0]),  k_73154, Cyc_cddr(data, l_7317_73101), &c_73385);}
; 
}

static void __lambda_9(void *data, int argc, object self_73255, object r_73152) {
  return_closcall3(data,  car(((closureN)self_73255)->elements[3]),  ((closureN)self_73255)->elements[1], ((closureN)self_73255)->elements[2], ((closureN)self_73255)->elements[0]);; 
}

static void __lambda_1(void *data, int argc, closure _,object k_73139, object n_731_7391) {
  Cyc_st_add(data, "diviter.scm:create-n");

closureN_type c_73320;
c_73320.hdr.mark = gc_color_red;
 c_73320.hdr.grayed = 0;
c_73320.tag = closureN_tag;
 c_73320.fn = (function_type)__lambda_2;
c_73320.pc = 0;
c_73320.num_args = 2;
c_73320.num_elements = 1;
c_73320.elements = (object *)alloca(sizeof(object) * 1);
c_73320.elements[0] = k_73139;

return_direct_with_clo2(data,(closure)&c_73320,__lambda_2,  n_731_7391, NULL);; 
}

static void __lambda_2(void *data, int argc, object self_73246, object n_735_7392, object a_736_7393) {
  
closureN_type c_73322;
c_73322.hdr.mark = gc_color_red;
 c_73322.hdr.grayed = 0;
c_73322.tag = closureN_tag;
 c_73322.fn = (function_type)__lambda_3;
c_73322.pc = 0;
c_73322.num_args = 1;
c_73322.num_elements = 3;
c_73322.elements = (object *)alloca(sizeof(object) * 3);
c_73322.elements[0] = a_736_7393;
c_73322.elements[1] = ((closureN)self_73246)->elements[0];
c_73322.elements[2] = n_735_7392;

return_direct_with_clo1(data,(closure)&c_73322,__lambda_3,  boolean_f);; 
}

static void __lambda_3(void *data, int argc, object self_73247, object lp_732_737_7394) {
  
closureN_type c_73324;
c_73324.hdr.mark = gc_color_red;
 c_73324.hdr.grayed = 0;
c_73324.tag = closureN_tag;
 c_73324.fn = (function_type)__lambda_75;
c_73324.pc = 0;
c_73324.num_args = 1;
c_73324.num_elements = 3;
c_73324.elements = (object *)alloca(sizeof(object) * 3);
c_73324.elements[0] = ((closureN)self_73247)->elements[0];
c_73324.elements[1] = ((closureN)self_73247)->elements[1];
c_73324.elements[2] = ((closureN)self_73247)->elements[2];


make_cell(c_73354,lp_732_737_7394);
return_direct_with_clo1(data,(closure)&c_73324,__lambda_75,  &c_73354);; 
}

static void __lambda_75(void *data, int argc, object self_73248, object lp_732_737_7394) {
  
closureN_type c_73326;
c_73326.hdr.mark = gc_color_red;
 c_73326.hdr.grayed = 0;
c_73326.tag = closureN_tag;
 c_73326.fn = (function_type)__lambda_4;
c_73326.pc = 0;
c_73326.num_args = 1;
c_73326.num_elements = 4;
c_73326.elements = (object *)alloca(sizeof(object) * 4);
c_73326.elements[0] = ((closureN)self_73248)->elements[0];
c_73326.elements[1] = ((closureN)self_73248)->elements[1];
c_73326.elements[2] = lp_732_737_7394;
c_73326.elements[3] = ((closureN)self_73248)->elements[2];


closureN_type c_73336;
c_73336.hdr.mark = gc_color_red;
 c_73336.hdr.grayed = 0;
c_73336.tag = closureN_tag;
 c_73336.fn = (function_type)__lambda_5;
c_73336.pc = 0;
c_73336.num_args = 2;
c_73336.num_elements = 1;
c_73336.elements = (object *)alloca(sizeof(object) * 1);
c_73336.elements[0] = lp_732_737_7394;

return_direct_with_clo1(data,(closure)&c_73326,__lambda_4,  Cyc_set_cell(data, lp_732_737_7394, &c_73336));; 
}

static void __lambda_5(void *data, int argc, object self_73249, object k_73143, object n_738_7395, object a_739_7396) {
    object c_73339 = Cyc_num_fast_eq_op(data,n_738_7395, obj_int2obj(0));
if( (boolean_f != c_73339) ){ 
  return_closcall1(data,  k_73143,  a_739_7396);
} else { 
  
complex_num_type local_73347; object c_73348 = Cyc_fast_sub(data,&local_73347,n_738_7395, obj_int2obj(1));

make_pair(c_73351,NULL, a_739_7396);
return_closcall3(data,  car(((closureN)self_73249)->elements[0]),  k_73143, c_73348, &c_73351);}
; 
}

static void __lambda_4(void *data, int argc, object self_73250, object r_73141) {
  return_closcall3(data,  car(((closureN)self_73250)->elements[2]),  ((closureN)self_73250)->elements[1], ((closureN)self_73250)->elements[3], ((closureN)self_73250)->elements[0]);; 
}

static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value);
extern void c_schemecyclonecommon_entry_pt(void *data, int argc, closure cont, object value);
extern void c_schemebase_entry_pt(void *data, int argc, closure cont, object value);
extern void c_schemetime_entry_pt(void *data, int argc, closure cont, object value);
extern void c_schemewrite_entry_pt(void *data, int argc, closure cont, object value);
extern void c_scheme_char_entry_pt(void *data, int argc, closure cont, object value);
extern void c_schemeread_entry_pt(void *data, int argc, closure cont, object value);
static void c_entry_pt(data, argc, env,cont) void *data; int argc; closure env,cont; { 
Cyc_set_globals_changed((gc_thread_data *)data);

  add_global((object *) &__glo_this_91scheme_91implementation_91name);
  add_global((object *) &__glo_run_91r7rs_91benchmark);
  add_global((object *) &__glo_hide);
  add_global((object *) &__glo_main);
  add_global((object *) &__glo_iterative_91div2);
  add_global((object *) &__glo_create_91n);
  mclosure0(c_73634, (function_type)__lambda_73);c_73634.num_args = 0; 
  __glo_this_91scheme_91implementation_91name = &c_73634; 
  mclosure0(c_73463, (function_type)__lambda_29);c_73463.num_args = 4; 
  __glo_run_91r7rs_91benchmark = &c_73463; 
  mclosure0(c_73439, (function_type)__lambda_22);c_73439.num_args = 2; 
  __glo_hide = &c_73439; 
  mclosure0(c_73391, (function_type)__lambda_11);c_73391.num_args = 0; 
  __glo_main = &c_73391; 
  mclosure0(c_73355, (function_type)__host_lambda_1 /*__lambda_6*/);c_73355.num_args = 1; c_73355.pc = 6;
  __glo_iterative_91div2 = &c_73355; 
  mclosure0(c_73318, (function_type)__host_lambda_1 /*__lambda_1*/);c_73318.num_args = 1; c_73318.pc = 1;
  __glo_create_91n = &c_73318; 

  make_cvar(cvar_73644, (object *)&__glo_this_91scheme_91implementation_91name);make_pair(pair_73645, find_or_add_symbol("this-scheme-implementation-name"), &cvar_73644);
  make_cvar(cvar_73646, (object *)&__glo_run_91r7rs_91benchmark);make_pair(pair_73647, find_or_add_symbol("run-r7rs-benchmark"), &cvar_73646);
  make_cvar(cvar_73648, (object *)&__glo_hide);make_pair(pair_73649, find_or_add_symbol("hide"), &cvar_73648);
  make_cvar(cvar_73650, (object *)&__glo_main);make_pair(pair_73651, find_or_add_symbol("main"), &cvar_73650);
  make_cvar(cvar_73652, (object *)&__glo_iterative_91div2);make_pair(pair_73653, find_or_add_symbol("iterative-div2"), &cvar_73652);
  make_cvar(cvar_73654, (object *)&__glo_create_91n);make_pair(pair_73655, find_or_add_symbol("create-n"), &cvar_73654);
make_pair(c_73661, &pair_73645,Cyc_global_variables);
make_pair(c_73660, &pair_73647, &c_73661);
make_pair(c_73659, &pair_73649, &c_73660);
make_pair(c_73658, &pair_73651, &c_73659);
make_pair(c_73657, &pair_73653, &c_73658);
make_pair(c_73656, &pair_73655, &c_73657);
Cyc_global_variables = &c_73656;
mclosure1(c_done, c_entry_pt_first_lambda, &c_done);
mclosure1(c_73662, c_schemeread_entry_pt, &c_done);
mclosure1(c_73663, c_scheme_char_entry_pt, &c_73662);
mclosure1(c_73664, c_schemewrite_entry_pt, &c_73663);
mclosure1(c_73665, c_schemetime_entry_pt, &c_73664);
mclosure1(c_73666, c_schemebase_entry_pt, &c_73665);
mclosure1(c_73667, c_schemecyclonecommon_entry_pt, &c_73666);
(c_73667.fn)(data, 0, &c_73667, &c_73667);
}
static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value) {
  
    
    
    
    
    
    return_closcall1(data,  __glo_main,  primitive__75halt);
;
}
int main(int argc, char **argv, char **envp)
{gc_thread_data *thd;
 long stack_size = global_stack_size = STACK_SIZE;
 long heap_size = global_heap_size = HEAP_SIZE;
 mclosure0(clos_halt,&Cyc_halt);  // Halt if final closure is reached
 mclosure0(entry_pt,&c_entry_pt); // First function to execute
 _cyc_argc = argc;
 _cyc_argv = argv;
 set_env_variables(envp);
 gc_initialize();
 thd = malloc(sizeof(gc_thread_data));
 gc_thread_data_init(thd, 0, (char *) &stack_size, stack_size);
 thd->gc_cont = &entry_pt;
 thd->gc_args[0] = &clos_halt;
 thd->gc_num_args = 1;
 thd->thread_id = pthread_self();
 gc_add_mutator(thd);
 Cyc_heap_init(heap_size);
 thd->thread_state = CYC_THREAD_STATE_RUNNABLE;
 Cyc_start_trampoline(thd);
 return 0;}