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

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

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

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

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

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

#define continue_or_gc2(td, clo,a1,a2) { \
 char *top = alloca(sizeof(char)); \
 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 {\
     continue;\
 } \
}

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

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

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

#define continue_or_gc3(td, clo,a1,a2,a3) { \
 char *top = alloca(sizeof(char)); \
 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 {\
     continue;\
 } \
}

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

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

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

#define continue_or_gc4(td, clo,a1,a2,a3,a4) { \
 char *top = alloca(sizeof(char)); \
 if (stack_overflow(top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\
     GC(td, clo, buf, 4); \
     return; \
 } else {\
     continue;\
 } \
}

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

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

#include "cyclone/types.h"
object __glo_lib_91init_117srfi2_srfi_2 = NULL;
object __glo_and_91let_85_srfi_2 = 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_91constructor_95args_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_make_91record_91marker_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_fast_91string_123_127_scheme_base;
extern object __glo_fast_91string_121_127_scheme_base;
extern object __glo_fast_91string_121_123_127_scheme_base;
extern object __glo_fast_91string_125_127_scheme_base;
extern object __glo_fast_91string_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_91map_91loop_912_scheme_base;
extern object __glo_Cyc_91for_91each_91loop_911_scheme_base;
extern object __glo_Cyc_91for_91each_91loop_912_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_95loc_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_write_91string_911_scheme_base;
extern object __glo_write_91string_912_scheme_base;
extern object __glo_flush_91output_91port_scheme_base;
extern object __glo_char_91ready_127_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_91add_91feature_67_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_define_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__void_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_read_91bytevector_scheme_base;
extern object __glo_read_91bytevector_67_scheme_base;
extern object __glo_write_91bytevector_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_binary_91port_127_scheme_base;
extern object __glo_textual_91port_127_scheme_base;
extern object __glo_rationalize_scheme_base;
extern object __glo_fast_91string_123_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_121_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_121_123_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_125_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_125_123_127_191_191inline_191_191_scheme_base;
extern object __glo__75write_91bytevector_191_191inline_191_191_scheme_base;
extern object __glo_not_191_191inline_191_191_scheme_base;
extern object __glo_list_127_191_191inline_191_191_scheme_base;
extern object __glo_zero_127_191_191inline_191_191_scheme_base;
extern object __glo_positive_127_191_191inline_191_191_scheme_base;
extern object __glo_negative_127_191_191inline_191_191_scheme_base;
extern object __glo_floor_191_191inline_191_191_scheme_base;
extern object __glo_ceiling_191_191inline_191_191_scheme_base;
extern object __glo_truncate_191_191inline_191_191_scheme_base;
extern object __glo_round_191_191inline_191_191_scheme_base;
extern object __glo_exact_191_191inline_191_191_scheme_base;
extern object __glo_inexact_191_191inline_191_191_scheme_base;
extern object __glo_sqrt_191_191inline_191_191_scheme_base;
extern object __glo_exact_91integer_127_191_191inline_191_191_scheme_base;
extern object __glo_exact_127_191_191inline_191_191_scheme_base;
extern object __glo_complex_127_191_191inline_191_191_scheme_base;
extern object __glo_fixnum_127_191_191inline_191_191_scheme_base;
extern object __glo_quotient_191_191inline_191_191_scheme_base;
extern object __glo_square_191_191inline_191_191_scheme_base;
extern object __glo_eof_91object_191_191inline_191_191_scheme_base;
extern object __glo_void_191_191inline_191_191_scheme_base;
extern object __glo_make_91record_91marker_191_191inline_191_191_scheme_base;
#include "cyclone/runtime.h"
defsymbol(rest);
defsymbol(and_91let_85);
defsymbol(tmp);
defsymbol(and);
defsymbol(expr);
defsymbol(var);
defsymbol(let);
defsymbol(_93_93_93);
defsymbol(body);
defsymbol(begin);
static void __lambda_109(void *data, object clo, int argc, object *args) ;/*closure _,object k_73635*/
static void __lambda_1(void *data, object clo, int argc, object *args) ;/*closure _,object k_73343, object expr_735_7361_73193_73267, object rename_736_7362_73194_73268, object compare_737_7363_73195_73269*/
static void __lambda_2(void *data, object clo, int argc, object *args) ;/*object self_73636, object v_931_7313_73187_73264_73338*/
static void __lambda_108(void *data, object clo, int argc, object *args) ;/*object self_73637, object r_73344*/
static void __lambda_3(void *data, object clo, int argc, object *args) ;/*object self_73638, object k_73346*/
static void __lambda_4(void *data, object clo, int argc, object *args) ;/*object self_73639, object v_934_7316_73180_73260_73334*/
static void __lambda_8(void *data, object clo, int argc, object *args) ;/*object self_73640, object tmp_7369_7371_73197_73271*/
static void __lambda_9(void *data, object clo, int argc, object *args) ;/*object self_73641, object v_937_7319_73162_73249_73323*/
static void __lambda_21(void *data, object clo, int argc, object *args) ;/*object self_73642, object tmp_7373_7375_73198_73272*/
static void __lambda_22(void *data, object clo, int argc, object *args) ;/*object self_73643, object v_9316_7328_73148_73241_73315*/
static void __lambda_36(void *data, object clo, int argc, object *args) ;/*object self_73644, object tmp_7377_7379_73199_73273*/
static void __lambda_37(void *data, object clo, int argc, object *args) ;/*object self_73645, object v_9323_7335_73138_73235_73309*/
static void __lambda_51(void *data, object clo, int argc, object *args) ;/*object self_73646, object tmp_7381_7383_73200_73274*/
static void __lambda_52(void *data, object clo, int argc, object *args) ;/*object self_73647, object v_9328_7340_73120_73222_73296*/
static void __lambda_68(void *data, object clo, int argc, object *args) ;/*object self_73648, object tmp_7385_7387_73201_73275*/
static void __lambda_69(void *data, object clo, int argc, object *args) ;/*object self_73649, object v_9337_7349_73106_73212_73286*/
static void __lambda_87(void *data, object clo, int argc, object *args) ;/*object self_73650, object tmp_7389_7391_73202_73276*/
static void __lambda_88(void *data, object clo, int argc, object *args) ;/*object self_73651, object v_9344_7356_7396_73204_73278*/
static void __lambda_106(void *data, object clo, int argc, object *args) ;/*object self_73652, object tmp_7393_7395_73203_73277*/
static void __lambda_107(void *data, object clo, int argc, object *args) ;/*object self_73653, object r_73354*/
static void __lambda_89(void *data, object clo, int argc, object *args) ;/*object self_73654, object k_73356*/
static void __lambda_90(void *data, object clo, int argc, object *args) ;/*object self_73655, object r_73364*/
static void __lambda_91(void *data, object clo, int argc, object *args) ;/*object self_73656, object r_73392*/
static void __lambda_92(void *data, object clo, int argc, object *args) ;/*object self_73657, object r_73393*/
static void __lambda_93(void *data, object clo, int argc, object *args) ;/*object self_73658, object r_73389*/
static void __lambda_94(void *data, object clo, int argc, object *args) ;/*object self_73659, object r_73367*/
static void __lambda_95(void *data, object clo, int argc, object *args) ;/*object self_73660, object r_73373*/
static void __lambda_96(void *data, object clo, int argc, object *args) ;/*object self_73661, object r_73376*/
static void __lambda_97(void *data, object clo, int argc, object *args) ;/*object self_73662, object r_73382*/
static void __lambda_98(void *data, object clo, int argc, object *args) ;/*object self_73663, object r_73383*/
static void __lambda_99(void *data, object clo, int argc, object *args) ;/*object self_73664, object r_73379*/
static void __lambda_100(void *data, object clo, int argc, object *args) ;/*object self_73665, object r_73377*/
static void __lambda_101(void *data, object clo, int argc, object *args) ;/*object self_73666, object r_73374*/
static void __lambda_102(void *data, object clo, int argc, object *args) ;/*object self_73667, object r_73370*/
static void __lambda_103(void *data, object clo, int argc, object *args) ;/*object self_73668, object r_73368*/
static void __lambda_104(void *data, object clo, int argc, object *args) ;/*object self_73669, object r_73365*/
static void __lambda_105(void *data, object clo, int argc, object *args) ;/*object self_73670, object r_73363*/
static void __lambda_70(void *data, object clo, int argc, object *args) ;/*object self_73671, object k_73400*/
static void __lambda_71(void *data, object clo, int argc, object *args) ;/*object self_73672, object r_73412*/
static void __lambda_72(void *data, object clo, int argc, object *args) ;/*object self_73673, object r_73440*/
static void __lambda_73(void *data, object clo, int argc, object *args) ;/*object self_73674, object r_73441*/
static void __lambda_74(void *data, object clo, int argc, object *args) ;/*object self_73675, object r_73437*/
static void __lambda_75(void *data, object clo, int argc, object *args) ;/*object self_73676, object r_73415*/
static void __lambda_76(void *data, object clo, int argc, object *args) ;/*object self_73677, object r_73421*/
static void __lambda_77(void *data, object clo, int argc, object *args) ;/*object self_73678, object r_73424*/
static void __lambda_78(void *data, object clo, int argc, object *args) ;/*object self_73679, object r_73430*/
static void __lambda_79(void *data, object clo, int argc, object *args) ;/*object self_73680, object r_73431*/
static void __lambda_80(void *data, object clo, int argc, object *args) ;/*object self_73681, object r_73427*/
static void __lambda_81(void *data, object clo, int argc, object *args) ;/*object self_73682, object r_73425*/
static void __lambda_82(void *data, object clo, int argc, object *args) ;/*object self_73683, object r_73422*/
static void __lambda_83(void *data, object clo, int argc, object *args) ;/*object self_73684, object r_73418*/
static void __lambda_84(void *data, object clo, int argc, object *args) ;/*object self_73685, object r_73416*/
static void __lambda_85(void *data, object clo, int argc, object *args) ;/*object self_73686, object r_73413*/
static void __lambda_86(void *data, object clo, int argc, object *args) ;/*object self_73687, object r_73411*/
static void __lambda_53(void *data, object clo, int argc, object *args) ;/*object self_73688, object k_73448*/
static void __lambda_54(void *data, object clo, int argc, object *args) ;/*object self_73689, object r_73463*/
static void __lambda_55(void *data, object clo, int argc, object *args) ;/*object self_73690, object r_73489*/
static void __lambda_56(void *data, object clo, int argc, object *args) ;/*object self_73691, object r_73486*/
static void __lambda_57(void *data, object clo, int argc, object *args) ;/*object self_73692, object r_73466*/
static void __lambda_58(void *data, object clo, int argc, object *args) ;/*object self_73693, object r_73472*/
static void __lambda_59(void *data, object clo, int argc, object *args) ;/*object self_73694, object r_73480*/
static void __lambda_60(void *data, object clo, int argc, object *args) ;/*object self_73695, object r_73481*/
static void __lambda_61(void *data, object clo, int argc, object *args) ;/*object self_73696, object r_73477*/
static void __lambda_62(void *data, object clo, int argc, object *args) ;/*object self_73697, object r_73475*/
static void __lambda_63(void *data, object clo, int argc, object *args) ;/*object self_73698, object r_73473*/
static void __lambda_64(void *data, object clo, int argc, object *args) ;/*object self_73699, object r_73469*/
static void __lambda_65(void *data, object clo, int argc, object *args) ;/*object self_73700, object r_73467*/
static void __lambda_66(void *data, object clo, int argc, object *args) ;/*object self_73701, object r_73464*/
static void __lambda_67(void *data, object clo, int argc, object *args) ;/*object self_73702, object r_73462*/
static void __lambda_38(void *data, object clo, int argc, object *args) ;/*object self_73703, object k_73495*/
static void __lambda_39(void *data, object clo, int argc, object *args) ;/*object self_73704, object r_73505*/
static void __lambda_40(void *data, object clo, int argc, object *args) ;/*object self_73705, object r_73525*/
static void __lambda_41(void *data, object clo, int argc, object *args) ;/*object self_73706, object r_73526*/
static void __lambda_42(void *data, object clo, int argc, object *args) ;/*object self_73707, object r_73522*/
static void __lambda_43(void *data, object clo, int argc, object *args) ;/*object self_73708, object r_73508*/
static void __lambda_44(void *data, object clo, int argc, object *args) ;/*object self_73709, object r_73514*/
static void __lambda_45(void *data, object clo, int argc, object *args) ;/*object self_73710, object r_73517*/
static void __lambda_46(void *data, object clo, int argc, object *args) ;/*object self_73711, object r_73515*/
static void __lambda_47(void *data, object clo, int argc, object *args) ;/*object self_73712, object r_73511*/
static void __lambda_48(void *data, object clo, int argc, object *args) ;/*object self_73713, object r_73509*/
static void __lambda_49(void *data, object clo, int argc, object *args) ;/*object self_73714, object r_73506*/
static void __lambda_50(void *data, object clo, int argc, object *args) ;/*object self_73715, object r_73504*/
static void __lambda_23(void *data, object clo, int argc, object *args) ;/*object self_73716, object k_73533*/
static void __lambda_24(void *data, object clo, int argc, object *args) ;/*object self_73717, object r_73547*/
static void __lambda_25(void *data, object clo, int argc, object *args) ;/*object self_73718, object r_73567*/
static void __lambda_26(void *data, object clo, int argc, object *args) ;/*object self_73719, object r_73568*/
static void __lambda_27(void *data, object clo, int argc, object *args) ;/*object self_73720, object r_73564*/
static void __lambda_28(void *data, object clo, int argc, object *args) ;/*object self_73721, object r_73550*/
static void __lambda_29(void *data, object clo, int argc, object *args) ;/*object self_73722, object r_73556*/
static void __lambda_30(void *data, object clo, int argc, object *args) ;/*object self_73723, object r_73559*/
static void __lambda_31(void *data, object clo, int argc, object *args) ;/*object self_73724, object r_73557*/
static void __lambda_32(void *data, object clo, int argc, object *args) ;/*object self_73725, object r_73553*/
static void __lambda_33(void *data, object clo, int argc, object *args) ;/*object self_73726, object r_73551*/
static void __lambda_34(void *data, object clo, int argc, object *args) ;/*object self_73727, object r_73548*/
static void __lambda_35(void *data, object clo, int argc, object *args) ;/*object self_73728, object r_73546*/
static void __lambda_10(void *data, object clo, int argc, object *args) ;/*object self_73729, object k_73575*/
static void __lambda_11(void *data, object clo, int argc, object *args) ;/*object self_73730, object r_73592*/
static void __lambda_12(void *data, object clo, int argc, object *args) ;/*object self_73731, object r_73610*/
static void __lambda_13(void *data, object clo, int argc, object *args) ;/*object self_73732, object r_73607*/
static void __lambda_14(void *data, object clo, int argc, object *args) ;/*object self_73733, object r_73595*/
static void __lambda_15(void *data, object clo, int argc, object *args) ;/*object self_73734, object r_73601*/
static void __lambda_16(void *data, object clo, int argc, object *args) ;/*object self_73735, object r_73602*/
static void __lambda_17(void *data, object clo, int argc, object *args) ;/*object self_73736, object r_73598*/
static void __lambda_18(void *data, object clo, int argc, object *args) ;/*object self_73737, object r_73596*/
static void __lambda_19(void *data, object clo, int argc, object *args) ;/*object self_73738, object r_73593*/
static void __lambda_20(void *data, object clo, int argc, object *args) ;/*object self_73739, object r_73591*/
static void __lambda_5(void *data, object clo, int argc, object *args) ;/*object self_73740, object k_73616*/
static void __lambda_6(void *data, object clo, int argc, object *args) ;/*object self_73741, object r_73623*/
static void __lambda_7(void *data, object clo, int argc, object *args) ;/*object self_73742, object r_73622*/

static void __lambda_109(void *data, object _, int argc, object *args) /* closure _,object k_73635 */
 {
object k_73635 = args[0];
  Cyc_st_add(data, "srfi/2.sld:lib-init:srfi2");
return_direct_with_clo1(data,  k_73635, (((closure)  k_73635)->fn),  obj_int2obj(0));; 
}

static void __lambda_1(void *data, object _, int argc, object *args) /* closure _,object k_73343, object expr_735_7361_73193_73267, object rename_736_7362_73194_73268, object compare_737_7363_73195_73269 */
 {
object k_73343 = args[0]; object expr_735_7361_73193_73267 = args[1]; object rename_736_7362_73194_73268 = args[2];
  Cyc_st_add(data, "srfi/2.sld:and-let*");

closureN_type c_73745;
object e_731749 [3];
c_73745.hdr.mark = gc_color_red;
 c_73745.hdr.grayed = 0;
c_73745.tag = closureN_tag;
 c_73745.fn = (function_type)__lambda_2;
c_73745.num_args = 1;
c_73745.num_elements = 3;
c_73745.elements = (object *)e_731749;
c_73745.elements[0] = expr_735_7361_73193_73267;
c_73745.elements[1] = k_73343;
c_73745.elements[2] = rename_736_7362_73194_73268;



return_direct_with_clo1(data,(closure)&c_73745,__lambda_2,  Cyc_cdr(data, expr_735_7361_73193_73267));; 
}

static void __lambda_2(void *data, object self_73636, int argc, object *args) /* object self_73636, object v_931_7313_73187_73264_73338 */
 {
 object v_931_7313_73187_73264_73338 = args[0];
  object tmp_7365_7367_73196_73270;
    
if( (boolean_f != Cyc_is_pair(v_931_7313_73187_73264_73338)) ){ 
    
  
if( (boolean_f != Cyc_is_null(Cyc_car(data, v_931_7313_73187_73264_73338))) ){ 
    
  
if( (boolean_f != Cyc_is_null(Cyc_cdr(data, v_931_7313_73187_73264_73338))) ){ 
  object local_73760 = alloca(sizeof(pair_type)); 
  tmp_7365_7367_73196_73270 = set_pair_as_expr(local_73760, boolean_t, boolean_f);
} else { 
  tmp_7365_7367_73196_73270 = boolean_f;}
;
} else { 
  tmp_7365_7367_73196_73270 = boolean_f;}
;
} else { 
  tmp_7365_7367_73196_73270 = boolean_f;}
;
closureN_type c_73765;
object e_731742 [3];
c_73765.hdr.mark = gc_color_red;
 c_73765.hdr.grayed = 0;
c_73765.tag = closureN_tag;
 c_73765.fn = (function_type)__lambda_3;
c_73765.num_args = 0;
c_73765.num_elements = 3;
c_73765.elements = (object *)e_731742;
c_73765.elements[0] = ((closureN)self_73636)->elements[0];
c_73765.elements[1] = ((closureN)self_73636)->elements[2];
c_73765.elements[2] = tmp_7365_7367_73196_73270;


closureN_type c_731743;
object e_731748 [1];
c_731743.hdr.mark = gc_color_red;
 c_731743.hdr.grayed = 0;
c_731743.tag = closureN_tag;
 c_731743.fn = (function_type)__lambda_108;
c_731743.num_args = 1;
c_731743.num_elements = 1;
c_731743.elements = (object *)e_731748;
c_731743.elements[0] = ((closureN)self_73636)->elements[1];

return_direct_with_clo1(data,(closure)&c_73765,__lambda_3,  &c_731743);; 
}

static void __lambda_108(void *data, object self_73637, int argc, object *args) /* object self_73637, object r_73344 */
 {
 object r_73344 = args[0];
  

return_direct_with_clo1(data,  ((closureN)self_73637)->elements[0], (((closure)  ((closureN)self_73637)->elements[0])->fn),  Cyc_car(data, r_73344));; 
}

static void __lambda_3(void *data, object self_73638, int argc, object *args) /* object self_73638, object k_73346 */
 {
 object k_73346 = args[0];
  if( (boolean_f != ((closureN)self_73638)->elements[2]) ){ 
  return_direct_with_clo1(data,  k_73346, (((closure)  k_73346)->fn),  ((closureN)self_73638)->elements[2]);
} else { 
  
closureN_type c_73770;
object e_731738 [3];
c_73770.hdr.mark = gc_color_red;
 c_73770.hdr.grayed = 0;
c_73770.tag = closureN_tag;
 c_73770.fn = (function_type)__lambda_4;
c_73770.num_args = 1;
c_73770.num_elements = 3;
c_73770.elements = (object *)e_731738;
c_73770.elements[0] = ((closureN)self_73638)->elements[0];
c_73770.elements[1] = k_73346;
c_73770.elements[2] = ((closureN)self_73638)->elements[1];



return_direct_with_clo1(data,(closure)&c_73770,__lambda_4,  Cyc_cdr(data, ((closureN)self_73638)->elements[0]));}
;; 
}

static void __lambda_4(void *data, object self_73639, int argc, object *args) /* object self_73639, object v_934_7316_73180_73260_73334 */
 {
 object v_934_7316_73180_73260_73334 = args[0];
  
closureN_type c_73772;
object e_73808 [2];
c_73772.hdr.mark = gc_color_red;
 c_73772.hdr.grayed = 0;
c_73772.tag = closureN_tag;
 c_73772.fn = (function_type)__lambda_5;
c_73772.num_args = 0;
c_73772.num_elements = 2;
c_73772.elements = (object *)e_73808;
c_73772.elements[0] = ((closureN)self_73639)->elements[2];
c_73772.elements[1] = v_934_7316_73180_73260_73334;


closureN_type c_73809;
object e_731737 [3];
c_73809.hdr.mark = gc_color_red;
 c_73809.hdr.grayed = 0;
c_73809.tag = closureN_tag;
 c_73809.fn = (function_type)__lambda_8;
c_73809.num_args = 1;
c_73809.num_elements = 3;
c_73809.elements = (object *)e_731737;
c_73809.elements[0] = ((closureN)self_73639)->elements[0];
c_73809.elements[1] = ((closureN)self_73639)->elements[1];
c_73809.elements[2] = ((closureN)self_73639)->elements[2];

return_direct_with_clo1(data,(closure)&c_73772,__lambda_5,  &c_73809);; 
}

static void __lambda_8(void *data, object self_73640, int argc, object *args) /* object self_73640, object tmp_7369_7371_73197_73271 */
 {
 object tmp_7369_7371_73197_73271 = args[0];
  if( (boolean_f != tmp_7369_7371_73197_73271) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73640)->elements[1], (((closure)  ((closureN)self_73640)->elements[1])->fn),  tmp_7369_7371_73197_73271);
} else { 
  
closureN_type c_73813;
object e_731733 [3];
c_73813.hdr.mark = gc_color_red;
 c_73813.hdr.grayed = 0;
c_73813.tag = closureN_tag;
 c_73813.fn = (function_type)__lambda_9;
c_73813.num_args = 1;
c_73813.num_elements = 3;
c_73813.elements = (object *)e_731733;
c_73813.elements[0] = ((closureN)self_73640)->elements[0];
c_73813.elements[1] = ((closureN)self_73640)->elements[1];
c_73813.elements[2] = ((closureN)self_73640)->elements[2];



return_direct_with_clo1(data,(closure)&c_73813,__lambda_9,  Cyc_cdr(data, ((closureN)self_73640)->elements[0]));}
;; 
}

static void __lambda_9(void *data, object self_73641, int argc, object *args) /* object self_73641, object v_937_7319_73162_73249_73323 */
 {
 object v_937_7319_73162_73249_73323 = args[0];
  
closureN_type c_73815;
object e_73960 [2];
c_73815.hdr.mark = gc_color_red;
 c_73815.hdr.grayed = 0;
c_73815.tag = closureN_tag;
 c_73815.fn = (function_type)__lambda_10;
c_73815.num_args = 0;
c_73815.num_elements = 2;
c_73815.elements = (object *)e_73960;
c_73815.elements[0] = ((closureN)self_73641)->elements[2];
c_73815.elements[1] = v_937_7319_73162_73249_73323;


closureN_type c_73961;
object e_731732 [3];
c_73961.hdr.mark = gc_color_red;
 c_73961.hdr.grayed = 0;
c_73961.tag = closureN_tag;
 c_73961.fn = (function_type)__lambda_21;
c_73961.num_args = 1;
c_73961.num_elements = 3;
c_73961.elements = (object *)e_731732;
c_73961.elements[0] = ((closureN)self_73641)->elements[0];
c_73961.elements[1] = ((closureN)self_73641)->elements[1];
c_73961.elements[2] = ((closureN)self_73641)->elements[2];

return_direct_with_clo1(data,(closure)&c_73815,__lambda_10,  &c_73961);; 
}

static void __lambda_21(void *data, object self_73642, int argc, object *args) /* object self_73642, object tmp_7373_7375_73198_73272 */
 {
 object tmp_7373_7375_73198_73272 = args[0];
  if( (boolean_f != tmp_7373_7375_73198_73272) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73642)->elements[1], (((closure)  ((closureN)self_73642)->elements[1])->fn),  tmp_7373_7375_73198_73272);
} else { 
  
closureN_type c_73965;
object e_731728 [3];
c_73965.hdr.mark = gc_color_red;
 c_73965.hdr.grayed = 0;
c_73965.tag = closureN_tag;
 c_73965.fn = (function_type)__lambda_22;
c_73965.num_args = 1;
c_73965.num_elements = 3;
c_73965.elements = (object *)e_731728;
c_73965.elements[0] = ((closureN)self_73642)->elements[0];
c_73965.elements[1] = ((closureN)self_73642)->elements[1];
c_73965.elements[2] = ((closureN)self_73642)->elements[2];



return_direct_with_clo1(data,(closure)&c_73965,__lambda_22,  Cyc_cdr(data, ((closureN)self_73642)->elements[0]));}
;; 
}

static void __lambda_22(void *data, object self_73643, int argc, object *args) /* object self_73643, object v_9316_7328_73148_73241_73315 */
 {
 object v_9316_7328_73148_73241_73315 = args[0];
  
closureN_type c_73967;
object e_731093 [2];
c_73967.hdr.mark = gc_color_red;
 c_73967.hdr.grayed = 0;
c_73967.tag = closureN_tag;
 c_73967.fn = (function_type)__lambda_23;
c_73967.num_args = 0;
c_73967.num_elements = 2;
c_73967.elements = (object *)e_731093;
c_73967.elements[0] = ((closureN)self_73643)->elements[2];
c_73967.elements[1] = v_9316_7328_73148_73241_73315;


closureN_type c_731094;
object e_731727 [3];
c_731094.hdr.mark = gc_color_red;
 c_731094.hdr.grayed = 0;
c_731094.tag = closureN_tag;
 c_731094.fn = (function_type)__lambda_36;
c_731094.num_args = 1;
c_731094.num_elements = 3;
c_731094.elements = (object *)e_731727;
c_731094.elements[0] = ((closureN)self_73643)->elements[0];
c_731094.elements[1] = ((closureN)self_73643)->elements[1];
c_731094.elements[2] = ((closureN)self_73643)->elements[2];

return_direct_with_clo1(data,(closure)&c_73967,__lambda_23,  &c_731094);; 
}

static void __lambda_36(void *data, object self_73644, int argc, object *args) /* object self_73644, object tmp_7377_7379_73199_73273 */
 {
 object tmp_7377_7379_73199_73273 = args[0];
  if( (boolean_f != tmp_7377_7379_73199_73273) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73644)->elements[1], (((closure)  ((closureN)self_73644)->elements[1])->fn),  tmp_7377_7379_73199_73273);
} else { 
  
closureN_type c_731098;
object e_731723 [3];
c_731098.hdr.mark = gc_color_red;
 c_731098.hdr.grayed = 0;
c_731098.tag = closureN_tag;
 c_731098.fn = (function_type)__lambda_37;
c_731098.num_args = 1;
c_731098.num_elements = 3;
c_731098.elements = (object *)e_731723;
c_731098.elements[0] = ((closureN)self_73644)->elements[0];
c_731098.elements[1] = ((closureN)self_73644)->elements[1];
c_731098.elements[2] = ((closureN)self_73644)->elements[2];



return_direct_with_clo1(data,(closure)&c_731098,__lambda_37,  Cyc_cdr(data, ((closureN)self_73644)->elements[0]));}
;; 
}

static void __lambda_37(void *data, object self_73645, int argc, object *args) /* object self_73645, object v_9323_7335_73138_73235_73309 */
 {
 object v_9323_7335_73138_73235_73309 = args[0];
  
closureN_type c_731100;
object e_731206 [2];
c_731100.hdr.mark = gc_color_red;
 c_731100.hdr.grayed = 0;
c_731100.tag = closureN_tag;
 c_731100.fn = (function_type)__lambda_38;
c_731100.num_args = 0;
c_731100.num_elements = 2;
c_731100.elements = (object *)e_731206;
c_731100.elements[0] = ((closureN)self_73645)->elements[2];
c_731100.elements[1] = v_9323_7335_73138_73235_73309;


closureN_type c_731207;
object e_731722 [3];
c_731207.hdr.mark = gc_color_red;
 c_731207.hdr.grayed = 0;
c_731207.tag = closureN_tag;
 c_731207.fn = (function_type)__lambda_51;
c_731207.num_args = 1;
c_731207.num_elements = 3;
c_731207.elements = (object *)e_731722;
c_731207.elements[0] = ((closureN)self_73645)->elements[0];
c_731207.elements[1] = ((closureN)self_73645)->elements[1];
c_731207.elements[2] = ((closureN)self_73645)->elements[2];

return_direct_with_clo1(data,(closure)&c_731100,__lambda_38,  &c_731207);; 
}

static void __lambda_51(void *data, object self_73646, int argc, object *args) /* object self_73646, object tmp_7381_7383_73200_73274 */
 {
 object tmp_7381_7383_73200_73274 = args[0];
  if( (boolean_f != tmp_7381_7383_73200_73274) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73646)->elements[1], (((closure)  ((closureN)self_73646)->elements[1])->fn),  tmp_7381_7383_73200_73274);
} else { 
  
closureN_type c_731211;
object e_731718 [3];
c_731211.hdr.mark = gc_color_red;
 c_731211.hdr.grayed = 0;
c_731211.tag = closureN_tag;
 c_731211.fn = (function_type)__lambda_52;
c_731211.num_args = 1;
c_731211.num_elements = 3;
c_731211.elements = (object *)e_731718;
c_731211.elements[0] = ((closureN)self_73646)->elements[0];
c_731211.elements[1] = ((closureN)self_73646)->elements[1];
c_731211.elements[2] = ((closureN)self_73646)->elements[2];



return_direct_with_clo1(data,(closure)&c_731211,__lambda_52,  Cyc_cdr(data, ((closureN)self_73646)->elements[0]));}
;; 
}

static void __lambda_52(void *data, object self_73647, int argc, object *args) /* object self_73647, object v_9328_7340_73120_73222_73296 */
 {
 object v_9328_7340_73120_73222_73296 = args[0];
  
closureN_type c_731213;
object e_731387 [2];
c_731213.hdr.mark = gc_color_red;
 c_731213.hdr.grayed = 0;
c_731213.tag = closureN_tag;
 c_731213.fn = (function_type)__lambda_53;
c_731213.num_args = 0;
c_731213.num_elements = 2;
c_731213.elements = (object *)e_731387;
c_731213.elements[0] = ((closureN)self_73647)->elements[2];
c_731213.elements[1] = v_9328_7340_73120_73222_73296;


closureN_type c_731388;
object e_731717 [3];
c_731388.hdr.mark = gc_color_red;
 c_731388.hdr.grayed = 0;
c_731388.tag = closureN_tag;
 c_731388.fn = (function_type)__lambda_68;
c_731388.num_args = 1;
c_731388.num_elements = 3;
c_731388.elements = (object *)e_731717;
c_731388.elements[0] = ((closureN)self_73647)->elements[0];
c_731388.elements[1] = ((closureN)self_73647)->elements[1];
c_731388.elements[2] = ((closureN)self_73647)->elements[2];

return_direct_with_clo1(data,(closure)&c_731213,__lambda_53,  &c_731388);; 
}

static void __lambda_68(void *data, object self_73648, int argc, object *args) /* object self_73648, object tmp_7385_7387_73201_73275 */
 {
 object tmp_7385_7387_73201_73275 = args[0];
  if( (boolean_f != tmp_7385_7387_73201_73275) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73648)->elements[1], (((closure)  ((closureN)self_73648)->elements[1])->fn),  tmp_7385_7387_73201_73275);
} else { 
  
closureN_type c_731392;
object e_731713 [3];
c_731392.hdr.mark = gc_color_red;
 c_731392.hdr.grayed = 0;
c_731392.tag = closureN_tag;
 c_731392.fn = (function_type)__lambda_69;
c_731392.num_args = 1;
c_731392.num_elements = 3;
c_731392.elements = (object *)e_731713;
c_731392.elements[0] = ((closureN)self_73648)->elements[0];
c_731392.elements[1] = ((closureN)self_73648)->elements[1];
c_731392.elements[2] = ((closureN)self_73648)->elements[2];



return_direct_with_clo1(data,(closure)&c_731392,__lambda_69,  Cyc_cdr(data, ((closureN)self_73648)->elements[0]));}
;; 
}

static void __lambda_69(void *data, object self_73649, int argc, object *args) /* object self_73649, object v_9337_7349_73106_73212_73286 */
 {
 object v_9337_7349_73106_73212_73286 = args[0];
  
closureN_type c_731394;
object e_731550 [2];
c_731394.hdr.mark = gc_color_red;
 c_731394.hdr.grayed = 0;
c_731394.tag = closureN_tag;
 c_731394.fn = (function_type)__lambda_70;
c_731394.num_args = 0;
c_731394.num_elements = 2;
c_731394.elements = (object *)e_731550;
c_731394.elements[0] = ((closureN)self_73649)->elements[2];
c_731394.elements[1] = v_9337_7349_73106_73212_73286;


closureN_type c_731551;
object e_731712 [3];
c_731551.hdr.mark = gc_color_red;
 c_731551.hdr.grayed = 0;
c_731551.tag = closureN_tag;
 c_731551.fn = (function_type)__lambda_87;
c_731551.num_args = 1;
c_731551.num_elements = 3;
c_731551.elements = (object *)e_731712;
c_731551.elements[0] = ((closureN)self_73649)->elements[0];
c_731551.elements[1] = ((closureN)self_73649)->elements[1];
c_731551.elements[2] = ((closureN)self_73649)->elements[2];

return_direct_with_clo1(data,(closure)&c_731394,__lambda_70,  &c_731551);; 
}

static void __lambda_87(void *data, object self_73650, int argc, object *args) /* object self_73650, object tmp_7389_7391_73202_73276 */
 {
 object tmp_7389_7391_73202_73276 = args[0];
  if( (boolean_f != tmp_7389_7391_73202_73276) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73650)->elements[1], (((closure)  ((closureN)self_73650)->elements[1])->fn),  tmp_7389_7391_73202_73276);
} else { 
  
closureN_type c_731555;
object e_731708 [3];
c_731555.hdr.mark = gc_color_red;
 c_731555.hdr.grayed = 0;
c_731555.tag = closureN_tag;
 c_731555.fn = (function_type)__lambda_88;
c_731555.num_args = 1;
c_731555.num_elements = 3;
c_731555.elements = (object *)e_731708;
c_731555.elements[0] = ((closureN)self_73650)->elements[0];
c_731555.elements[1] = ((closureN)self_73650)->elements[1];
c_731555.elements[2] = ((closureN)self_73650)->elements[2];



return_direct_with_clo1(data,(closure)&c_731555,__lambda_88,  Cyc_cdr(data, ((closureN)self_73650)->elements[0]));}
;; 
}

static void __lambda_88(void *data, object self_73651, int argc, object *args) /* object self_73651, object v_9344_7356_7396_73204_73278 */
 {
 object v_9344_7356_7396_73204_73278 = args[0];
  
closureN_type c_731557;
object e_731693 [2];
c_731557.hdr.mark = gc_color_red;
 c_731557.hdr.grayed = 0;
c_731557.tag = closureN_tag;
 c_731557.fn = (function_type)__lambda_89;
c_731557.num_args = 0;
c_731557.num_elements = 2;
c_731557.elements = (object *)e_731693;
c_731557.elements[0] = ((closureN)self_73651)->elements[2];
c_731557.elements[1] = v_9344_7356_7396_73204_73278;


closureN_type c_731694;
object e_731707 [2];
c_731694.hdr.mark = gc_color_red;
 c_731694.hdr.grayed = 0;
c_731694.tag = closureN_tag;
 c_731694.fn = (function_type)__lambda_106;
c_731694.num_args = 1;
c_731694.num_elements = 2;
c_731694.elements = (object *)e_731707;
c_731694.elements[0] = ((closureN)self_73651)->elements[0];
c_731694.elements[1] = ((closureN)self_73651)->elements[1];

return_direct_with_clo1(data,(closure)&c_731557,__lambda_89,  &c_731694);; 
}

static void __lambda_106(void *data, object self_73652, int argc, object *args) /* object self_73652, object tmp_7393_7395_73203_73277 */
 {
 object tmp_7393_7395_73203_73277 = args[0];
  if( (boolean_f != tmp_7393_7395_73203_73277) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73652)->elements[1], (((closure)  ((closureN)self_73652)->elements[1])->fn),  tmp_7393_7395_73203_73277);
} else { 
  
closureN_type c_731698;
object e_731704 [1];
c_731698.hdr.mark = gc_color_red;
 c_731698.hdr.grayed = 0;
c_731698.tag = closureN_tag;
 c_731698.fn = (function_type)__lambda_107;
c_731698.num_args = 1;
c_731698.num_elements = 1;
c_731698.elements = (object *)e_731704;
c_731698.elements[0] = ((closureN)self_73652)->elements[1];


make_utf8_string_with_len(c_731705, "no expansion for", 16, 16);
return_direct_with_clo3(data,  __glo_error_95loc_scheme_base, (((closure)  __glo_error_95loc_scheme_base)->fn),  &c_731698, &c_731705, ((closureN)self_73652)->elements[0]);}
;; 
}

static void __lambda_107(void *data, object self_73653, int argc, object *args) /* object self_73653, object r_73354 */
 {
 object r_73354 = args[0];
  
pair_type local_731703; 
return_direct_with_clo1(data,  ((closureN)self_73653)->elements[0], (((closure)  ((closureN)self_73653)->elements[0])->fn),  set_pair_as_expr(&local_731703, r_73354, boolean_f));; 
}

static void __lambda_89(void *data, object self_73654, int argc, object *args) /* object self_73654, object k_73356 */
 {
 object k_73356 = args[0];
    
if( (boolean_f != Cyc_is_pair(((closureN)self_73654)->elements[1])) ){ 
    
  
if( (boolean_f != Cyc_is_pair(Cyc_car(data, ((closureN)self_73654)->elements[1]))) ){ 
  
closureN_type c_731568;
object e_731690 [3];
c_731568.hdr.mark = gc_color_red;
 c_731568.hdr.grayed = 0;
c_731568.tag = closureN_tag;
 c_731568.fn = (function_type)__lambda_90;
c_731568.num_args = 1;
c_731568.num_elements = 3;
c_731568.elements = (object *)e_731690;
c_731568.elements[0] = k_73356;
c_731568.elements[1] = ((closureN)self_73654)->elements[0];
c_731568.elements[2] = ((closureN)self_73654)->elements[1];

return_closcall2(data,  ((closureN)self_73654)->elements[0],  &c_731568, quote_let);
} else { 
  return_direct_with_clo1(data,  k_73356, (((closure)  k_73356)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73356, (((closure)  k_73356)->fn),  boolean_f);}
;; 
}

static void __lambda_90(void *data, object self_73655, int argc, object *args) /* object self_73655, object r_73364 */
 {
 object r_73364 = args[0];
  
closureN_type c_731571;
object e_731689 [4];
c_731571.hdr.mark = gc_color_red;
 c_731571.hdr.grayed = 0;
c_731571.tag = closureN_tag;
 c_731571.fn = (function_type)__lambda_91;
c_731571.num_args = 1;
c_731571.num_elements = 4;
c_731571.elements = (object *)e_731689;
c_731571.elements[0] = ((closureN)self_73655)->elements[0];
c_731571.elements[1] = r_73364;
c_731571.elements[2] = ((closureN)self_73655)->elements[1];
c_731571.elements[3] = ((closureN)self_73655)->elements[2];

return_closcall2(data,  ((closureN)self_73655)->elements[1],  &c_731571, quote_tmp);; 
}

static void __lambda_91(void *data, object self_73656, int argc, object *args) /* object self_73656, object r_73392 */
 {
 object r_73392 = args[0];
  
closureN_type c_731573;
object e_731682 [5];
c_731573.hdr.mark = gc_color_red;
 c_731573.hdr.grayed = 0;
c_731573.tag = closureN_tag;
 c_731573.fn = (function_type)__lambda_92;
c_731573.num_args = 1;
c_731573.num_elements = 5;
c_731573.elements = (object *)e_731682;
c_731573.elements[0] = ((closureN)self_73656)->elements[0];
c_731573.elements[1] = ((closureN)self_73656)->elements[1];
c_731573.elements[2] = r_73392;
c_731573.elements[3] = ((closureN)self_73656)->elements[2];
c_731573.elements[4] = ((closureN)self_73656)->elements[3];






make_pair(c_731688,quote_expr,NULL);c_731688.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731573, Cyc_car(data, Cyc_car(data, ((closureN)self_73656)->elements[3])), NULL, &c_731688);; 
}

static void __lambda_92(void *data, object self_73657, int argc, object *args) /* object self_73657, object r_73393 */
 {
 object r_73393 = args[0];
  
closureN_type c_731575;
object e_731678 [4];
c_731575.hdr.mark = gc_color_red;
 c_731575.hdr.grayed = 0;
c_731575.tag = closureN_tag;
 c_731575.fn = (function_type)__lambda_93;
c_731575.num_args = 1;
c_731575.num_elements = 4;
c_731575.elements = (object *)e_731678;
c_731575.elements[0] = ((closureN)self_73657)->elements[0];
c_731575.elements[1] = ((closureN)self_73657)->elements[1];
c_731575.elements[2] = ((closureN)self_73657)->elements[3];
c_731575.elements[3] = ((closureN)self_73657)->elements[4];


make_pair(c_731681,quote_expr,NULL);c_731681.hdr.immutable = 1;

make_pair(c_731680,quote_tmp,&c_731681);c_731680.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731575, ((closureN)self_73657)->elements[2], r_73393, &c_731680);; 
}

static void __lambda_93(void *data, object self_73658, int argc, object *args) /* object self_73658, object r_73389 */
 {
 object r_73389 = args[0];
  
closureN_type c_731577;
object e_731674 [4];
c_731577.hdr.mark = gc_color_red;
 c_731577.hdr.grayed = 0;
c_731577.tag = closureN_tag;
 c_731577.fn = (function_type)__lambda_94;
c_731577.num_args = 1;
c_731577.num_elements = 4;
c_731577.elements = (object *)e_731674;
c_731577.elements[0] = ((closureN)self_73658)->elements[0];
c_731577.elements[1] = ((closureN)self_73658)->elements[1];
c_731577.elements[2] = ((closureN)self_73658)->elements[2];
c_731577.elements[3] = ((closureN)self_73658)->elements[3];


make_pair(c_731677,quote_expr,NULL);c_731677.hdr.immutable = 1;

make_pair(c_731676,quote_tmp,&c_731677);c_731676.hdr.immutable = 1;

make_pair(c_731675,&c_731676,NULL);c_731675.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731577, r_73389, NULL, &c_731675);; 
}

static void __lambda_94(void *data, object self_73659, int argc, object *args) /* object self_73659, object r_73367 */
 {
 object r_73367 = args[0];
  
closureN_type c_731580;
object e_731673 [5];
c_731580.hdr.mark = gc_color_red;
 c_731580.hdr.grayed = 0;
c_731580.tag = closureN_tag;
 c_731580.fn = (function_type)__lambda_95;
c_731580.num_args = 1;
c_731580.num_elements = 5;
c_731580.elements = (object *)e_731673;
c_731580.elements[0] = ((closureN)self_73659)->elements[0];
c_731580.elements[1] = ((closureN)self_73659)->elements[1];
c_731580.elements[2] = r_73367;
c_731580.elements[3] = ((closureN)self_73659)->elements[2];
c_731580.elements[4] = ((closureN)self_73659)->elements[3];

return_closcall2(data,  ((closureN)self_73659)->elements[2],  &c_731580, quote_and);; 
}

static void __lambda_95(void *data, object self_73660, int argc, object *args) /* object self_73660, object r_73373 */
 {
 object r_73373 = args[0];
  
closureN_type c_731583;
object e_731672 [6];
c_731583.hdr.mark = gc_color_red;
 c_731583.hdr.grayed = 0;
c_731583.tag = closureN_tag;
 c_731583.fn = (function_type)__lambda_96;
c_731583.num_args = 1;
c_731583.num_elements = 6;
c_731583.elements = (object *)e_731672;
c_731583.elements[0] = ((closureN)self_73660)->elements[0];
c_731583.elements[1] = ((closureN)self_73660)->elements[1];
c_731583.elements[2] = ((closureN)self_73660)->elements[2];
c_731583.elements[3] = r_73373;
c_731583.elements[4] = ((closureN)self_73660)->elements[3];
c_731583.elements[5] = ((closureN)self_73660)->elements[4];

return_closcall2(data,  ((closureN)self_73660)->elements[3],  &c_731583, quote_tmp);; 
}

static void __lambda_96(void *data, object self_73661, int argc, object *args) /* object self_73661, object r_73376 */
 {
 object r_73376 = args[0];
  
closureN_type c_731586;
object e_731671 [6];
c_731586.hdr.mark = gc_color_red;
 c_731586.hdr.grayed = 0;
c_731586.tag = closureN_tag;
 c_731586.fn = (function_type)__lambda_97;
c_731586.num_args = 1;
c_731586.num_elements = 6;
c_731586.elements = (object *)e_731671;
c_731586.elements[0] = ((closureN)self_73661)->elements[0];
c_731586.elements[1] = ((closureN)self_73661)->elements[1];
c_731586.elements[2] = ((closureN)self_73661)->elements[2];
c_731586.elements[3] = ((closureN)self_73661)->elements[3];
c_731586.elements[4] = r_73376;
c_731586.elements[5] = ((closureN)self_73661)->elements[5];

return_closcall2(data,  ((closureN)self_73661)->elements[4],  &c_731586, quote_and_91let_85);; 
}

static void __lambda_97(void *data, object self_73662, int argc, object *args) /* object self_73662, object r_73382 */
 {
 object r_73382 = args[0];
  
closureN_type c_731588;
object e_731661 [6];
c_731588.hdr.mark = gc_color_red;
 c_731588.hdr.grayed = 0;
c_731588.tag = closureN_tag;
 c_731588.fn = (function_type)__lambda_98;
c_731588.num_args = 1;
c_731588.num_elements = 6;
c_731588.elements = (object *)e_731661;
c_731588.elements[0] = ((closureN)self_73662)->elements[0];
c_731588.elements[1] = ((closureN)self_73662)->elements[1];
c_731588.elements[2] = ((closureN)self_73662)->elements[2];
c_731588.elements[3] = ((closureN)self_73662)->elements[3];
c_731588.elements[4] = ((closureN)self_73662)->elements[4];
c_731588.elements[5] = r_73382;








make_pair(c_731670,quote_rest,quote_body);c_731670.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731588, Cyc_cdr(data, Cyc_car(data, ((closureN)self_73662)->elements[5])), Cyc_cdr(data, ((closureN)self_73662)->elements[5]), &c_731670);; 
}

static void __lambda_98(void *data, object self_73663, int argc, object *args) /* object self_73663, object r_73383 */
 {
 object r_73383 = args[0];
  
closureN_type c_731590;
object e_731657 [5];
c_731590.hdr.mark = gc_color_red;
 c_731590.hdr.grayed = 0;
c_731590.tag = closureN_tag;
 c_731590.fn = (function_type)__lambda_99;
c_731590.num_args = 1;
c_731590.num_elements = 5;
c_731590.elements = (object *)e_731657;
c_731590.elements[0] = ((closureN)self_73663)->elements[0];
c_731590.elements[1] = ((closureN)self_73663)->elements[1];
c_731590.elements[2] = ((closureN)self_73663)->elements[2];
c_731590.elements[3] = ((closureN)self_73663)->elements[3];
c_731590.elements[4] = ((closureN)self_73663)->elements[4];


make_pair(c_731660,quote_rest,quote_body);c_731660.hdr.immutable = 1;

make_pair(c_731659,quote_and_91let_85,&c_731660);c_731659.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731590, ((closureN)self_73663)->elements[5], r_73383, &c_731659);; 
}

static void __lambda_99(void *data, object self_73664, int argc, object *args) /* object self_73664, object r_73379 */
 {
 object r_73379 = args[0];
  
closureN_type c_731592;
object e_731653 [5];
c_731592.hdr.mark = gc_color_red;
 c_731592.hdr.grayed = 0;
c_731592.tag = closureN_tag;
 c_731592.fn = (function_type)__lambda_100;
c_731592.num_args = 1;
c_731592.num_elements = 5;
c_731592.elements = (object *)e_731653;
c_731592.elements[0] = ((closureN)self_73664)->elements[0];
c_731592.elements[1] = ((closureN)self_73664)->elements[1];
c_731592.elements[2] = ((closureN)self_73664)->elements[2];
c_731592.elements[3] = ((closureN)self_73664)->elements[3];
c_731592.elements[4] = ((closureN)self_73664)->elements[4];


make_pair(c_731656,quote_rest,quote_body);c_731656.hdr.immutable = 1;

make_pair(c_731655,quote_and_91let_85,&c_731656);c_731655.hdr.immutable = 1;

make_pair(c_731654,&c_731655,NULL);c_731654.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731592, r_73379, NULL, &c_731654);; 
}

static void __lambda_100(void *data, object self_73665, int argc, object *args) /* object self_73665, object r_73377 */
 {
 object r_73377 = args[0];
  
closureN_type c_731594;
object e_731647 [4];
c_731594.hdr.mark = gc_color_red;
 c_731594.hdr.grayed = 0;
c_731594.tag = closureN_tag;
 c_731594.fn = (function_type)__lambda_101;
c_731594.num_args = 1;
c_731594.num_elements = 4;
c_731594.elements = (object *)e_731647;
c_731594.elements[0] = ((closureN)self_73665)->elements[0];
c_731594.elements[1] = ((closureN)self_73665)->elements[1];
c_731594.elements[2] = ((closureN)self_73665)->elements[2];
c_731594.elements[3] = ((closureN)self_73665)->elements[3];


make_pair(c_731652,quote_rest,quote_body);c_731652.hdr.immutable = 1;

make_pair(c_731651,quote_and_91let_85,&c_731652);c_731651.hdr.immutable = 1;

make_pair(c_731650,&c_731651,NULL);c_731650.hdr.immutable = 1;

make_pair(c_731649,quote_tmp,&c_731650);c_731649.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731594, ((closureN)self_73665)->elements[4], r_73377, &c_731649);; 
}

static void __lambda_101(void *data, object self_73666, int argc, object *args) /* object self_73666, object r_73374 */
 {
 object r_73374 = args[0];
  
closureN_type c_731596;
object e_731640 [3];
c_731596.hdr.mark = gc_color_red;
 c_731596.hdr.grayed = 0;
c_731596.tag = closureN_tag;
 c_731596.fn = (function_type)__lambda_102;
c_731596.num_args = 1;
c_731596.num_elements = 3;
c_731596.elements = (object *)e_731640;
c_731596.elements[0] = ((closureN)self_73666)->elements[0];
c_731596.elements[1] = ((closureN)self_73666)->elements[1];
c_731596.elements[2] = ((closureN)self_73666)->elements[2];


make_pair(c_731646,quote_rest,quote_body);c_731646.hdr.immutable = 1;

make_pair(c_731645,quote_and_91let_85,&c_731646);c_731645.hdr.immutable = 1;

make_pair(c_731644,&c_731645,NULL);c_731644.hdr.immutable = 1;

make_pair(c_731643,quote_tmp,&c_731644);c_731643.hdr.immutable = 1;

make_pair(c_731642,quote_and,&c_731643);c_731642.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731596, ((closureN)self_73666)->elements[3], r_73374, &c_731642);; 
}

static void __lambda_102(void *data, object self_73667, int argc, object *args) /* object self_73667, object r_73370 */
 {
 object r_73370 = args[0];
  
closureN_type c_731598;
object e_731633 [3];
c_731598.hdr.mark = gc_color_red;
 c_731598.hdr.grayed = 0;
c_731598.tag = closureN_tag;
 c_731598.fn = (function_type)__lambda_103;
c_731598.num_args = 1;
c_731598.num_elements = 3;
c_731598.elements = (object *)e_731633;
c_731598.elements[0] = ((closureN)self_73667)->elements[0];
c_731598.elements[1] = ((closureN)self_73667)->elements[1];
c_731598.elements[2] = ((closureN)self_73667)->elements[2];


make_pair(c_731639,quote_rest,quote_body);c_731639.hdr.immutable = 1;

make_pair(c_731638,quote_and_91let_85,&c_731639);c_731638.hdr.immutable = 1;

make_pair(c_731637,&c_731638,NULL);c_731637.hdr.immutable = 1;

make_pair(c_731636,quote_tmp,&c_731637);c_731636.hdr.immutable = 1;

make_pair(c_731635,quote_and,&c_731636);c_731635.hdr.immutable = 1;

make_pair(c_731634,&c_731635,NULL);c_731634.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731598, r_73370, NULL, &c_731634);; 
}

static void __lambda_103(void *data, object self_73668, int argc, object *args) /* object self_73668, object r_73368 */
 {
 object r_73368 = args[0];
  
closureN_type c_731600;
object e_731621 [2];
c_731600.hdr.mark = gc_color_red;
 c_731600.hdr.grayed = 0;
c_731600.tag = closureN_tag;
 c_731600.fn = (function_type)__lambda_104;
c_731600.num_args = 1;
c_731600.num_elements = 2;
c_731600.elements = (object *)e_731621;
c_731600.elements[0] = ((closureN)self_73668)->elements[0];
c_731600.elements[1] = ((closureN)self_73668)->elements[1];


make_pair(c_731626,quote_expr,NULL);c_731626.hdr.immutable = 1;

make_pair(c_731625,quote_tmp,&c_731626);c_731625.hdr.immutable = 1;

make_pair(c_731624,&c_731625,NULL);c_731624.hdr.immutable = 1;

make_pair(c_731632,quote_rest,quote_body);c_731632.hdr.immutable = 1;

make_pair(c_731631,quote_and_91let_85,&c_731632);c_731631.hdr.immutable = 1;

make_pair(c_731630,&c_731631,NULL);c_731630.hdr.immutable = 1;

make_pair(c_731629,quote_tmp,&c_731630);c_731629.hdr.immutable = 1;

make_pair(c_731628,quote_and,&c_731629);c_731628.hdr.immutable = 1;

make_pair(c_731627,&c_731628,NULL);c_731627.hdr.immutable = 1;

make_pair(c_731623,&c_731624,&c_731627);c_731623.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731600, ((closureN)self_73668)->elements[2], r_73368, &c_731623);; 
}

static void __lambda_104(void *data, object self_73669, int argc, object *args) /* object self_73669, object r_73365 */
 {
 object r_73365 = args[0];
  
closureN_type c_731602;
object e_731608 [1];
c_731602.hdr.mark = gc_color_red;
 c_731602.hdr.grayed = 0;
c_731602.tag = closureN_tag;
 c_731602.fn = (function_type)__lambda_105;
c_731602.num_args = 1;
c_731602.num_elements = 1;
c_731602.elements = (object *)e_731608;
c_731602.elements[0] = ((closureN)self_73669)->elements[0];


make_pair(c_731614,quote_expr,NULL);c_731614.hdr.immutable = 1;

make_pair(c_731613,quote_tmp,&c_731614);c_731613.hdr.immutable = 1;

make_pair(c_731612,&c_731613,NULL);c_731612.hdr.immutable = 1;

make_pair(c_731620,quote_rest,quote_body);c_731620.hdr.immutable = 1;

make_pair(c_731619,quote_and_91let_85,&c_731620);c_731619.hdr.immutable = 1;

make_pair(c_731618,&c_731619,NULL);c_731618.hdr.immutable = 1;

make_pair(c_731617,quote_tmp,&c_731618);c_731617.hdr.immutable = 1;

make_pair(c_731616,quote_and,&c_731617);c_731616.hdr.immutable = 1;

make_pair(c_731615,&c_731616,NULL);c_731615.hdr.immutable = 1;

make_pair(c_731611,&c_731612,&c_731615);c_731611.hdr.immutable = 1;

make_pair(c_731610,quote_let,&c_731611);c_731610.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731602, ((closureN)self_73669)->elements[1], r_73365, &c_731610);; 
}

static void __lambda_105(void *data, object self_73670, int argc, object *args) /* object self_73670, object r_73363 */
 {
 object r_73363 = args[0];
  
pair_type local_731607; 
return_direct_with_clo1(data,  ((closureN)self_73670)->elements[0], (((closure)  ((closureN)self_73670)->elements[0])->fn),  set_pair_as_expr(&local_731607, r_73363, boolean_f));; 
}

static void __lambda_70(void *data, object self_73671, int argc, object *args) /* object self_73671, object k_73400 */
 {
 object k_73400 = args[0];
    
if( (boolean_f != Cyc_is_pair(((closureN)self_73671)->elements[1])) ){ 
    
  
if( (boolean_f != Cyc_is_pair(Cyc_car(data, ((closureN)self_73671)->elements[1]))) ){ 
    
  
  
if( (boolean_f != Cyc_is_pair(Cyc_car(data, Cyc_car(data, ((closureN)self_73671)->elements[1])))) ){ 
    
  
  
  
if( (boolean_f != Cyc_is_null(Cyc_cdr(data, Cyc_car(data, Cyc_car(data, ((closureN)self_73671)->elements[1]))))) ){ 
  
closureN_type c_731421;
object e_731545 [3];
c_731421.hdr.mark = gc_color_red;
 c_731421.hdr.grayed = 0;
c_731421.tag = closureN_tag;
 c_731421.fn = (function_type)__lambda_71;
c_731421.num_args = 1;
c_731421.num_elements = 3;
c_731421.elements = (object *)e_731545;
c_731421.elements[0] = k_73400;
c_731421.elements[1] = ((closureN)self_73671)->elements[0];
c_731421.elements[2] = ((closureN)self_73671)->elements[1];

return_closcall2(data,  ((closureN)self_73671)->elements[0],  &c_731421, quote_let);
} else { 
  return_direct_with_clo1(data,  k_73400, (((closure)  k_73400)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73400, (((closure)  k_73400)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73400, (((closure)  k_73400)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73400, (((closure)  k_73400)->fn),  boolean_f);}
;; 
}

static void __lambda_71(void *data, object self_73672, int argc, object *args) /* object self_73672, object r_73412 */
 {
 object r_73412 = args[0];
  
closureN_type c_731424;
object e_731544 [4];
c_731424.hdr.mark = gc_color_red;
 c_731424.hdr.grayed = 0;
c_731424.tag = closureN_tag;
 c_731424.fn = (function_type)__lambda_72;
c_731424.num_args = 1;
c_731424.num_elements = 4;
c_731424.elements = (object *)e_731544;
c_731424.elements[0] = ((closureN)self_73672)->elements[0];
c_731424.elements[1] = r_73412;
c_731424.elements[2] = ((closureN)self_73672)->elements[1];
c_731424.elements[3] = ((closureN)self_73672)->elements[2];

return_closcall2(data,  ((closureN)self_73672)->elements[1],  &c_731424, quote_tmp);; 
}

static void __lambda_72(void *data, object self_73673, int argc, object *args) /* object self_73673, object r_73440 */
 {
 object r_73440 = args[0];
  
closureN_type c_731426;
object e_731535 [5];
c_731426.hdr.mark = gc_color_red;
 c_731426.hdr.grayed = 0;
c_731426.tag = closureN_tag;
 c_731426.fn = (function_type)__lambda_73;
c_731426.num_args = 1;
c_731426.num_elements = 5;
c_731426.elements = (object *)e_731535;
c_731426.elements[0] = ((closureN)self_73673)->elements[0];
c_731426.elements[1] = ((closureN)self_73673)->elements[1];
c_731426.elements[2] = r_73440;
c_731426.elements[3] = ((closureN)self_73673)->elements[2];
c_731426.elements[4] = ((closureN)self_73673)->elements[3];








make_pair(c_731543,quote_expr,NULL);c_731543.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731426, Cyc_car(data, Cyc_car(data, Cyc_car(data, ((closureN)self_73673)->elements[3]))), NULL, &c_731543);; 
}

static void __lambda_73(void *data, object self_73674, int argc, object *args) /* object self_73674, object r_73441 */
 {
 object r_73441 = args[0];
  
closureN_type c_731428;
object e_731531 [4];
c_731428.hdr.mark = gc_color_red;
 c_731428.hdr.grayed = 0;
c_731428.tag = closureN_tag;
 c_731428.fn = (function_type)__lambda_74;
c_731428.num_args = 1;
c_731428.num_elements = 4;
c_731428.elements = (object *)e_731531;
c_731428.elements[0] = ((closureN)self_73674)->elements[0];
c_731428.elements[1] = ((closureN)self_73674)->elements[1];
c_731428.elements[2] = ((closureN)self_73674)->elements[3];
c_731428.elements[3] = ((closureN)self_73674)->elements[4];


make_pair(c_731534,quote_expr,NULL);c_731534.hdr.immutable = 1;

make_pair(c_731533,quote_tmp,&c_731534);c_731533.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731428, ((closureN)self_73674)->elements[2], r_73441, &c_731533);; 
}

static void __lambda_74(void *data, object self_73675, int argc, object *args) /* object self_73675, object r_73437 */
 {
 object r_73437 = args[0];
  
closureN_type c_731430;
object e_731527 [4];
c_731430.hdr.mark = gc_color_red;
 c_731430.hdr.grayed = 0;
c_731430.tag = closureN_tag;
 c_731430.fn = (function_type)__lambda_75;
c_731430.num_args = 1;
c_731430.num_elements = 4;
c_731430.elements = (object *)e_731527;
c_731430.elements[0] = ((closureN)self_73675)->elements[0];
c_731430.elements[1] = ((closureN)self_73675)->elements[1];
c_731430.elements[2] = ((closureN)self_73675)->elements[2];
c_731430.elements[3] = ((closureN)self_73675)->elements[3];


make_pair(c_731530,quote_expr,NULL);c_731530.hdr.immutable = 1;

make_pair(c_731529,quote_tmp,&c_731530);c_731529.hdr.immutable = 1;

make_pair(c_731528,&c_731529,NULL);c_731528.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731430, r_73437, NULL, &c_731528);; 
}

static void __lambda_75(void *data, object self_73676, int argc, object *args) /* object self_73676, object r_73415 */
 {
 object r_73415 = args[0];
  
closureN_type c_731433;
object e_731526 [5];
c_731433.hdr.mark = gc_color_red;
 c_731433.hdr.grayed = 0;
c_731433.tag = closureN_tag;
 c_731433.fn = (function_type)__lambda_76;
c_731433.num_args = 1;
c_731433.num_elements = 5;
c_731433.elements = (object *)e_731526;
c_731433.elements[0] = ((closureN)self_73676)->elements[0];
c_731433.elements[1] = ((closureN)self_73676)->elements[1];
c_731433.elements[2] = r_73415;
c_731433.elements[3] = ((closureN)self_73676)->elements[2];
c_731433.elements[4] = ((closureN)self_73676)->elements[3];

return_closcall2(data,  ((closureN)self_73676)->elements[2],  &c_731433, quote_and);; 
}

static void __lambda_76(void *data, object self_73677, int argc, object *args) /* object self_73677, object r_73421 */
 {
 object r_73421 = args[0];
  
closureN_type c_731436;
object e_731525 [6];
c_731436.hdr.mark = gc_color_red;
 c_731436.hdr.grayed = 0;
c_731436.tag = closureN_tag;
 c_731436.fn = (function_type)__lambda_77;
c_731436.num_args = 1;
c_731436.num_elements = 6;
c_731436.elements = (object *)e_731525;
c_731436.elements[0] = ((closureN)self_73677)->elements[0];
c_731436.elements[1] = ((closureN)self_73677)->elements[1];
c_731436.elements[2] = ((closureN)self_73677)->elements[2];
c_731436.elements[3] = r_73421;
c_731436.elements[4] = ((closureN)self_73677)->elements[3];
c_731436.elements[5] = ((closureN)self_73677)->elements[4];

return_closcall2(data,  ((closureN)self_73677)->elements[3],  &c_731436, quote_tmp);; 
}

static void __lambda_77(void *data, object self_73678, int argc, object *args) /* object self_73678, object r_73424 */
 {
 object r_73424 = args[0];
  
closureN_type c_731439;
object e_731524 [6];
c_731439.hdr.mark = gc_color_red;
 c_731439.hdr.grayed = 0;
c_731439.tag = closureN_tag;
 c_731439.fn = (function_type)__lambda_78;
c_731439.num_args = 1;
c_731439.num_elements = 6;
c_731439.elements = (object *)e_731524;
c_731439.elements[0] = ((closureN)self_73678)->elements[0];
c_731439.elements[1] = ((closureN)self_73678)->elements[1];
c_731439.elements[2] = ((closureN)self_73678)->elements[2];
c_731439.elements[3] = ((closureN)self_73678)->elements[3];
c_731439.elements[4] = r_73424;
c_731439.elements[5] = ((closureN)self_73678)->elements[5];

return_closcall2(data,  ((closureN)self_73678)->elements[4],  &c_731439, quote_and_91let_85);; 
}

static void __lambda_78(void *data, object self_73679, int argc, object *args) /* object self_73679, object r_73430 */
 {
 object r_73430 = args[0];
  
closureN_type c_731441;
object e_731514 [6];
c_731441.hdr.mark = gc_color_red;
 c_731441.hdr.grayed = 0;
c_731441.tag = closureN_tag;
 c_731441.fn = (function_type)__lambda_79;
c_731441.num_args = 1;
c_731441.num_elements = 6;
c_731441.elements = (object *)e_731514;
c_731441.elements[0] = ((closureN)self_73679)->elements[0];
c_731441.elements[1] = ((closureN)self_73679)->elements[1];
c_731441.elements[2] = ((closureN)self_73679)->elements[2];
c_731441.elements[3] = ((closureN)self_73679)->elements[3];
c_731441.elements[4] = ((closureN)self_73679)->elements[4];
c_731441.elements[5] = r_73430;








make_pair(c_731523,quote_rest,quote_body);c_731523.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731441, Cyc_cdr(data, Cyc_car(data, ((closureN)self_73679)->elements[5])), Cyc_cdr(data, ((closureN)self_73679)->elements[5]), &c_731523);; 
}

static void __lambda_79(void *data, object self_73680, int argc, object *args) /* object self_73680, object r_73431 */
 {
 object r_73431 = args[0];
  
closureN_type c_731443;
object e_731510 [5];
c_731443.hdr.mark = gc_color_red;
 c_731443.hdr.grayed = 0;
c_731443.tag = closureN_tag;
 c_731443.fn = (function_type)__lambda_80;
c_731443.num_args = 1;
c_731443.num_elements = 5;
c_731443.elements = (object *)e_731510;
c_731443.elements[0] = ((closureN)self_73680)->elements[0];
c_731443.elements[1] = ((closureN)self_73680)->elements[1];
c_731443.elements[2] = ((closureN)self_73680)->elements[2];
c_731443.elements[3] = ((closureN)self_73680)->elements[3];
c_731443.elements[4] = ((closureN)self_73680)->elements[4];


make_pair(c_731513,quote_rest,quote_body);c_731513.hdr.immutable = 1;

make_pair(c_731512,quote_and_91let_85,&c_731513);c_731512.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731443, ((closureN)self_73680)->elements[5], r_73431, &c_731512);; 
}

static void __lambda_80(void *data, object self_73681, int argc, object *args) /* object self_73681, object r_73427 */
 {
 object r_73427 = args[0];
  
closureN_type c_731445;
object e_731506 [5];
c_731445.hdr.mark = gc_color_red;
 c_731445.hdr.grayed = 0;
c_731445.tag = closureN_tag;
 c_731445.fn = (function_type)__lambda_81;
c_731445.num_args = 1;
c_731445.num_elements = 5;
c_731445.elements = (object *)e_731506;
c_731445.elements[0] = ((closureN)self_73681)->elements[0];
c_731445.elements[1] = ((closureN)self_73681)->elements[1];
c_731445.elements[2] = ((closureN)self_73681)->elements[2];
c_731445.elements[3] = ((closureN)self_73681)->elements[3];
c_731445.elements[4] = ((closureN)self_73681)->elements[4];


make_pair(c_731509,quote_rest,quote_body);c_731509.hdr.immutable = 1;

make_pair(c_731508,quote_and_91let_85,&c_731509);c_731508.hdr.immutable = 1;

make_pair(c_731507,&c_731508,NULL);c_731507.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731445, r_73427, NULL, &c_731507);; 
}

static void __lambda_81(void *data, object self_73682, int argc, object *args) /* object self_73682, object r_73425 */
 {
 object r_73425 = args[0];
  
closureN_type c_731447;
object e_731500 [4];
c_731447.hdr.mark = gc_color_red;
 c_731447.hdr.grayed = 0;
c_731447.tag = closureN_tag;
 c_731447.fn = (function_type)__lambda_82;
c_731447.num_args = 1;
c_731447.num_elements = 4;
c_731447.elements = (object *)e_731500;
c_731447.elements[0] = ((closureN)self_73682)->elements[0];
c_731447.elements[1] = ((closureN)self_73682)->elements[1];
c_731447.elements[2] = ((closureN)self_73682)->elements[2];
c_731447.elements[3] = ((closureN)self_73682)->elements[3];


make_pair(c_731505,quote_rest,quote_body);c_731505.hdr.immutable = 1;

make_pair(c_731504,quote_and_91let_85,&c_731505);c_731504.hdr.immutable = 1;

make_pair(c_731503,&c_731504,NULL);c_731503.hdr.immutable = 1;

make_pair(c_731502,quote_tmp,&c_731503);c_731502.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731447, ((closureN)self_73682)->elements[4], r_73425, &c_731502);; 
}

static void __lambda_82(void *data, object self_73683, int argc, object *args) /* object self_73683, object r_73422 */
 {
 object r_73422 = args[0];
  
closureN_type c_731449;
object e_731493 [3];
c_731449.hdr.mark = gc_color_red;
 c_731449.hdr.grayed = 0;
c_731449.tag = closureN_tag;
 c_731449.fn = (function_type)__lambda_83;
c_731449.num_args = 1;
c_731449.num_elements = 3;
c_731449.elements = (object *)e_731493;
c_731449.elements[0] = ((closureN)self_73683)->elements[0];
c_731449.elements[1] = ((closureN)self_73683)->elements[1];
c_731449.elements[2] = ((closureN)self_73683)->elements[2];


make_pair(c_731499,quote_rest,quote_body);c_731499.hdr.immutable = 1;

make_pair(c_731498,quote_and_91let_85,&c_731499);c_731498.hdr.immutable = 1;

make_pair(c_731497,&c_731498,NULL);c_731497.hdr.immutable = 1;

make_pair(c_731496,quote_tmp,&c_731497);c_731496.hdr.immutable = 1;

make_pair(c_731495,quote_and,&c_731496);c_731495.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731449, ((closureN)self_73683)->elements[3], r_73422, &c_731495);; 
}

static void __lambda_83(void *data, object self_73684, int argc, object *args) /* object self_73684, object r_73418 */
 {
 object r_73418 = args[0];
  
closureN_type c_731451;
object e_731486 [3];
c_731451.hdr.mark = gc_color_red;
 c_731451.hdr.grayed = 0;
c_731451.tag = closureN_tag;
 c_731451.fn = (function_type)__lambda_84;
c_731451.num_args = 1;
c_731451.num_elements = 3;
c_731451.elements = (object *)e_731486;
c_731451.elements[0] = ((closureN)self_73684)->elements[0];
c_731451.elements[1] = ((closureN)self_73684)->elements[1];
c_731451.elements[2] = ((closureN)self_73684)->elements[2];


make_pair(c_731492,quote_rest,quote_body);c_731492.hdr.immutable = 1;

make_pair(c_731491,quote_and_91let_85,&c_731492);c_731491.hdr.immutable = 1;

make_pair(c_731490,&c_731491,NULL);c_731490.hdr.immutable = 1;

make_pair(c_731489,quote_tmp,&c_731490);c_731489.hdr.immutable = 1;

make_pair(c_731488,quote_and,&c_731489);c_731488.hdr.immutable = 1;

make_pair(c_731487,&c_731488,NULL);c_731487.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731451, r_73418, NULL, &c_731487);; 
}

static void __lambda_84(void *data, object self_73685, int argc, object *args) /* object self_73685, object r_73416 */
 {
 object r_73416 = args[0];
  
closureN_type c_731453;
object e_731474 [2];
c_731453.hdr.mark = gc_color_red;
 c_731453.hdr.grayed = 0;
c_731453.tag = closureN_tag;
 c_731453.fn = (function_type)__lambda_85;
c_731453.num_args = 1;
c_731453.num_elements = 2;
c_731453.elements = (object *)e_731474;
c_731453.elements[0] = ((closureN)self_73685)->elements[0];
c_731453.elements[1] = ((closureN)self_73685)->elements[1];


make_pair(c_731479,quote_expr,NULL);c_731479.hdr.immutable = 1;

make_pair(c_731478,quote_tmp,&c_731479);c_731478.hdr.immutable = 1;

make_pair(c_731477,&c_731478,NULL);c_731477.hdr.immutable = 1;

make_pair(c_731485,quote_rest,quote_body);c_731485.hdr.immutable = 1;

make_pair(c_731484,quote_and_91let_85,&c_731485);c_731484.hdr.immutable = 1;

make_pair(c_731483,&c_731484,NULL);c_731483.hdr.immutable = 1;

make_pair(c_731482,quote_tmp,&c_731483);c_731482.hdr.immutable = 1;

make_pair(c_731481,quote_and,&c_731482);c_731481.hdr.immutable = 1;

make_pair(c_731480,&c_731481,NULL);c_731480.hdr.immutable = 1;

make_pair(c_731476,&c_731477,&c_731480);c_731476.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731453, ((closureN)self_73685)->elements[2], r_73416, &c_731476);; 
}

static void __lambda_85(void *data, object self_73686, int argc, object *args) /* object self_73686, object r_73413 */
 {
 object r_73413 = args[0];
  
closureN_type c_731455;
object e_731461 [1];
c_731455.hdr.mark = gc_color_red;
 c_731455.hdr.grayed = 0;
c_731455.tag = closureN_tag;
 c_731455.fn = (function_type)__lambda_86;
c_731455.num_args = 1;
c_731455.num_elements = 1;
c_731455.elements = (object *)e_731461;
c_731455.elements[0] = ((closureN)self_73686)->elements[0];


make_pair(c_731467,quote_expr,NULL);c_731467.hdr.immutable = 1;

make_pair(c_731466,quote_tmp,&c_731467);c_731466.hdr.immutable = 1;

make_pair(c_731465,&c_731466,NULL);c_731465.hdr.immutable = 1;

make_pair(c_731473,quote_rest,quote_body);c_731473.hdr.immutable = 1;

make_pair(c_731472,quote_and_91let_85,&c_731473);c_731472.hdr.immutable = 1;

make_pair(c_731471,&c_731472,NULL);c_731471.hdr.immutable = 1;

make_pair(c_731470,quote_tmp,&c_731471);c_731470.hdr.immutable = 1;

make_pair(c_731469,quote_and,&c_731470);c_731469.hdr.immutable = 1;

make_pair(c_731468,&c_731469,NULL);c_731468.hdr.immutable = 1;

make_pair(c_731464,&c_731465,&c_731468);c_731464.hdr.immutable = 1;

make_pair(c_731463,quote_let,&c_731464);c_731463.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731455, ((closureN)self_73686)->elements[1], r_73413, &c_731463);; 
}

static void __lambda_86(void *data, object self_73687, int argc, object *args) /* object self_73687, object r_73411 */
 {
 object r_73411 = args[0];
  
pair_type local_731460; 
return_direct_with_clo1(data,  ((closureN)self_73687)->elements[0], (((closure)  ((closureN)self_73687)->elements[0])->fn),  set_pair_as_expr(&local_731460, r_73411, boolean_f));; 
}

static void __lambda_53(void *data, object self_73688, int argc, object *args) /* object self_73688, object k_73448 */
 {
 object k_73448 = args[0];
    
if( (boolean_f != Cyc_is_pair(((closureN)self_73688)->elements[1])) ){ 
    
  
if( (boolean_f != Cyc_is_pair(Cyc_car(data, ((closureN)self_73688)->elements[1]))) ){ 
    
  
  
if( (boolean_f != Cyc_is_pair(Cyc_car(data, Cyc_car(data, ((closureN)self_73688)->elements[1])))) ){ 
    
  
  
  
if( (boolean_f != Cyc_is_pair(Cyc_cdr(data, Cyc_car(data, Cyc_car(data, ((closureN)self_73688)->elements[1]))))) ){ 
    
  
  
  
  
if( (boolean_f != Cyc_is_null(Cyc_cdr(data, Cyc_cdr(data, Cyc_car(data, Cyc_car(data, ((closureN)self_73688)->elements[1])))))) ){ 
  
closureN_type c_731251;
object e_731381 [3];
c_731251.hdr.mark = gc_color_red;
 c_731251.hdr.grayed = 0;
c_731251.tag = closureN_tag;
 c_731251.fn = (function_type)__lambda_54;
c_731251.num_args = 1;
c_731251.num_elements = 3;
c_731251.elements = (object *)e_731381;
c_731251.elements[0] = k_73448;
c_731251.elements[1] = ((closureN)self_73688)->elements[0];
c_731251.elements[2] = ((closureN)self_73688)->elements[1];

return_closcall2(data,  ((closureN)self_73688)->elements[0],  &c_731251, quote_let);
} else { 
  return_direct_with_clo1(data,  k_73448, (((closure)  k_73448)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73448, (((closure)  k_73448)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73448, (((closure)  k_73448)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73448, (((closure)  k_73448)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73448, (((closure)  k_73448)->fn),  boolean_f);}
;; 
}

static void __lambda_54(void *data, object self_73689, int argc, object *args) /* object self_73689, object r_73463 */
 {
 object r_73463 = args[0];
  
closureN_type c_731253;
object e_731370 [4];
c_731253.hdr.mark = gc_color_red;
 c_731253.hdr.grayed = 0;
c_731253.tag = closureN_tag;
 c_731253.fn = (function_type)__lambda_55;
c_731253.num_args = 1;
c_731253.num_elements = 4;
c_731253.elements = (object *)e_731370;
c_731253.elements[0] = ((closureN)self_73689)->elements[0];
c_731253.elements[1] = r_73463;
c_731253.elements[2] = ((closureN)self_73689)->elements[1];
c_731253.elements[3] = ((closureN)self_73689)->elements[2];










make_pair(c_731380,quote_expr,NULL);c_731380.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731253, Cyc_car(data, Cyc_cdr(data, Cyc_car(data, Cyc_car(data, ((closureN)self_73689)->elements[2])))), NULL, &c_731380);; 
}

static void __lambda_55(void *data, object self_73690, int argc, object *args) /* object self_73690, object r_73489 */
 {
 object r_73489 = args[0];
  
closureN_type c_731255;
object e_731360 [4];
c_731255.hdr.mark = gc_color_red;
 c_731255.hdr.grayed = 0;
c_731255.tag = closureN_tag;
 c_731255.fn = (function_type)__lambda_56;
c_731255.num_args = 1;
c_731255.num_elements = 4;
c_731255.elements = (object *)e_731360;
c_731255.elements[0] = ((closureN)self_73690)->elements[0];
c_731255.elements[1] = ((closureN)self_73690)->elements[1];
c_731255.elements[2] = ((closureN)self_73690)->elements[2];
c_731255.elements[3] = ((closureN)self_73690)->elements[3];








make_pair(c_731369,quote_expr,NULL);c_731369.hdr.immutable = 1;

make_pair(c_731368,quote_var,&c_731369);c_731368.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731255, Cyc_car(data, Cyc_car(data, Cyc_car(data, ((closureN)self_73690)->elements[3]))), r_73489, &c_731368);; 
}

static void __lambda_56(void *data, object self_73691, int argc, object *args) /* object self_73691, object r_73486 */
 {
 object r_73486 = args[0];
  
closureN_type c_731257;
object e_731356 [4];
c_731257.hdr.mark = gc_color_red;
 c_731257.hdr.grayed = 0;
c_731257.tag = closureN_tag;
 c_731257.fn = (function_type)__lambda_57;
c_731257.num_args = 1;
c_731257.num_elements = 4;
c_731257.elements = (object *)e_731356;
c_731257.elements[0] = ((closureN)self_73691)->elements[0];
c_731257.elements[1] = ((closureN)self_73691)->elements[1];
c_731257.elements[2] = ((closureN)self_73691)->elements[2];
c_731257.elements[3] = ((closureN)self_73691)->elements[3];


make_pair(c_731359,quote_expr,NULL);c_731359.hdr.immutable = 1;

make_pair(c_731358,quote_var,&c_731359);c_731358.hdr.immutable = 1;

make_pair(c_731357,&c_731358,NULL);c_731357.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731257, r_73486, NULL, &c_731357);; 
}

static void __lambda_57(void *data, object self_73692, int argc, object *args) /* object self_73692, object r_73466 */
 {
 object r_73466 = args[0];
  
closureN_type c_731260;
object e_731355 [5];
c_731260.hdr.mark = gc_color_red;
 c_731260.hdr.grayed = 0;
c_731260.tag = closureN_tag;
 c_731260.fn = (function_type)__lambda_58;
c_731260.num_args = 1;
c_731260.num_elements = 5;
c_731260.elements = (object *)e_731355;
c_731260.elements[0] = ((closureN)self_73692)->elements[0];
c_731260.elements[1] = ((closureN)self_73692)->elements[1];
c_731260.elements[2] = r_73466;
c_731260.elements[3] = ((closureN)self_73692)->elements[2];
c_731260.elements[4] = ((closureN)self_73692)->elements[3];

return_closcall2(data,  ((closureN)self_73692)->elements[2],  &c_731260, quote_and);; 
}

static void __lambda_58(void *data, object self_73693, int argc, object *args) /* object self_73693, object r_73472 */
 {
 object r_73472 = args[0];
  
closureN_type c_731263;
object e_731354 [5];
c_731263.hdr.mark = gc_color_red;
 c_731263.hdr.grayed = 0;
c_731263.tag = closureN_tag;
 c_731263.fn = (function_type)__lambda_59;
c_731263.num_args = 1;
c_731263.num_elements = 5;
c_731263.elements = (object *)e_731354;
c_731263.elements[0] = ((closureN)self_73693)->elements[0];
c_731263.elements[1] = ((closureN)self_73693)->elements[1];
c_731263.elements[2] = ((closureN)self_73693)->elements[2];
c_731263.elements[3] = r_73472;
c_731263.elements[4] = ((closureN)self_73693)->elements[4];

return_closcall2(data,  ((closureN)self_73693)->elements[3],  &c_731263, quote_and_91let_85);; 
}

static void __lambda_59(void *data, object self_73694, int argc, object *args) /* object self_73694, object r_73480 */
 {
 object r_73480 = args[0];
  
closureN_type c_731265;
object e_731344 [6];
c_731265.hdr.mark = gc_color_red;
 c_731265.hdr.grayed = 0;
c_731265.tag = closureN_tag;
 c_731265.fn = (function_type)__lambda_60;
c_731265.num_args = 1;
c_731265.num_elements = 6;
c_731265.elements = (object *)e_731344;
c_731265.elements[0] = ((closureN)self_73694)->elements[0];
c_731265.elements[1] = ((closureN)self_73694)->elements[1];
c_731265.elements[2] = ((closureN)self_73694)->elements[2];
c_731265.elements[3] = ((closureN)self_73694)->elements[3];
c_731265.elements[4] = r_73480;
c_731265.elements[5] = ((closureN)self_73694)->elements[4];








make_pair(c_731353,quote_rest,quote_body);c_731353.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731265, Cyc_cdr(data, Cyc_car(data, ((closureN)self_73694)->elements[4])), Cyc_cdr(data, ((closureN)self_73694)->elements[4]), &c_731353);; 
}

static void __lambda_60(void *data, object self_73695, int argc, object *args) /* object self_73695, object r_73481 */
 {
 object r_73481 = args[0];
  
closureN_type c_731267;
object e_731340 [5];
c_731267.hdr.mark = gc_color_red;
 c_731267.hdr.grayed = 0;
c_731267.tag = closureN_tag;
 c_731267.fn = (function_type)__lambda_61;
c_731267.num_args = 1;
c_731267.num_elements = 5;
c_731267.elements = (object *)e_731340;
c_731267.elements[0] = ((closureN)self_73695)->elements[0];
c_731267.elements[1] = ((closureN)self_73695)->elements[1];
c_731267.elements[2] = ((closureN)self_73695)->elements[2];
c_731267.elements[3] = ((closureN)self_73695)->elements[3];
c_731267.elements[4] = ((closureN)self_73695)->elements[5];


make_pair(c_731343,quote_rest,quote_body);c_731343.hdr.immutable = 1;

make_pair(c_731342,quote_and_91let_85,&c_731343);c_731342.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731267, ((closureN)self_73695)->elements[4], r_73481, &c_731342);; 
}

static void __lambda_61(void *data, object self_73696, int argc, object *args) /* object self_73696, object r_73477 */
 {
 object r_73477 = args[0];
  
closureN_type c_731269;
object e_731336 [5];
c_731269.hdr.mark = gc_color_red;
 c_731269.hdr.grayed = 0;
c_731269.tag = closureN_tag;
 c_731269.fn = (function_type)__lambda_62;
c_731269.num_args = 1;
c_731269.num_elements = 5;
c_731269.elements = (object *)e_731336;
c_731269.elements[0] = ((closureN)self_73696)->elements[0];
c_731269.elements[1] = ((closureN)self_73696)->elements[1];
c_731269.elements[2] = ((closureN)self_73696)->elements[2];
c_731269.elements[3] = ((closureN)self_73696)->elements[3];
c_731269.elements[4] = ((closureN)self_73696)->elements[4];


make_pair(c_731339,quote_rest,quote_body);c_731339.hdr.immutable = 1;

make_pair(c_731338,quote_and_91let_85,&c_731339);c_731338.hdr.immutable = 1;

make_pair(c_731337,&c_731338,NULL);c_731337.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731269, r_73477, NULL, &c_731337);; 
}

static void __lambda_62(void *data, object self_73697, int argc, object *args) /* object self_73697, object r_73475 */
 {
 object r_73475 = args[0];
  
closureN_type c_731271;
object e_731324 [4];
c_731271.hdr.mark = gc_color_red;
 c_731271.hdr.grayed = 0;
c_731271.tag = closureN_tag;
 c_731271.fn = (function_type)__lambda_63;
c_731271.num_args = 1;
c_731271.num_elements = 4;
c_731271.elements = (object *)e_731324;
c_731271.elements[0] = ((closureN)self_73697)->elements[0];
c_731271.elements[1] = ((closureN)self_73697)->elements[1];
c_731271.elements[2] = ((closureN)self_73697)->elements[2];
c_731271.elements[3] = ((closureN)self_73697)->elements[3];








make_pair(c_731335,quote_rest,quote_body);c_731335.hdr.immutable = 1;

make_pair(c_731334,quote_and_91let_85,&c_731335);c_731334.hdr.immutable = 1;

make_pair(c_731333,&c_731334,NULL);c_731333.hdr.immutable = 1;

make_pair(c_731332,quote_var,&c_731333);c_731332.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731271, Cyc_car(data, Cyc_car(data, Cyc_car(data, ((closureN)self_73697)->elements[4]))), r_73475, &c_731332);; 
}

static void __lambda_63(void *data, object self_73698, int argc, object *args) /* object self_73698, object r_73473 */
 {
 object r_73473 = args[0];
  
closureN_type c_731273;
object e_731317 [3];
c_731273.hdr.mark = gc_color_red;
 c_731273.hdr.grayed = 0;
c_731273.tag = closureN_tag;
 c_731273.fn = (function_type)__lambda_64;
c_731273.num_args = 1;
c_731273.num_elements = 3;
c_731273.elements = (object *)e_731317;
c_731273.elements[0] = ((closureN)self_73698)->elements[0];
c_731273.elements[1] = ((closureN)self_73698)->elements[1];
c_731273.elements[2] = ((closureN)self_73698)->elements[2];


make_pair(c_731323,quote_rest,quote_body);c_731323.hdr.immutable = 1;

make_pair(c_731322,quote_and_91let_85,&c_731323);c_731322.hdr.immutable = 1;

make_pair(c_731321,&c_731322,NULL);c_731321.hdr.immutable = 1;

make_pair(c_731320,quote_var,&c_731321);c_731320.hdr.immutable = 1;

make_pair(c_731319,quote_and,&c_731320);c_731319.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731273, ((closureN)self_73698)->elements[3], r_73473, &c_731319);; 
}

static void __lambda_64(void *data, object self_73699, int argc, object *args) /* object self_73699, object r_73469 */
 {
 object r_73469 = args[0];
  
closureN_type c_731275;
object e_731310 [3];
c_731275.hdr.mark = gc_color_red;
 c_731275.hdr.grayed = 0;
c_731275.tag = closureN_tag;
 c_731275.fn = (function_type)__lambda_65;
c_731275.num_args = 1;
c_731275.num_elements = 3;
c_731275.elements = (object *)e_731310;
c_731275.elements[0] = ((closureN)self_73699)->elements[0];
c_731275.elements[1] = ((closureN)self_73699)->elements[1];
c_731275.elements[2] = ((closureN)self_73699)->elements[2];


make_pair(c_731316,quote_rest,quote_body);c_731316.hdr.immutable = 1;

make_pair(c_731315,quote_and_91let_85,&c_731316);c_731315.hdr.immutable = 1;

make_pair(c_731314,&c_731315,NULL);c_731314.hdr.immutable = 1;

make_pair(c_731313,quote_var,&c_731314);c_731313.hdr.immutable = 1;

make_pair(c_731312,quote_and,&c_731313);c_731312.hdr.immutable = 1;

make_pair(c_731311,&c_731312,NULL);c_731311.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731275, r_73469, NULL, &c_731311);; 
}

static void __lambda_65(void *data, object self_73700, int argc, object *args) /* object self_73700, object r_73467 */
 {
 object r_73467 = args[0];
  
closureN_type c_731277;
object e_731298 [2];
c_731277.hdr.mark = gc_color_red;
 c_731277.hdr.grayed = 0;
c_731277.tag = closureN_tag;
 c_731277.fn = (function_type)__lambda_66;
c_731277.num_args = 1;
c_731277.num_elements = 2;
c_731277.elements = (object *)e_731298;
c_731277.elements[0] = ((closureN)self_73700)->elements[0];
c_731277.elements[1] = ((closureN)self_73700)->elements[1];


make_pair(c_731303,quote_expr,NULL);c_731303.hdr.immutable = 1;

make_pair(c_731302,quote_var,&c_731303);c_731302.hdr.immutable = 1;

make_pair(c_731301,&c_731302,NULL);c_731301.hdr.immutable = 1;

make_pair(c_731309,quote_rest,quote_body);c_731309.hdr.immutable = 1;

make_pair(c_731308,quote_and_91let_85,&c_731309);c_731308.hdr.immutable = 1;

make_pair(c_731307,&c_731308,NULL);c_731307.hdr.immutable = 1;

make_pair(c_731306,quote_var,&c_731307);c_731306.hdr.immutable = 1;

make_pair(c_731305,quote_and,&c_731306);c_731305.hdr.immutable = 1;

make_pair(c_731304,&c_731305,NULL);c_731304.hdr.immutable = 1;

make_pair(c_731300,&c_731301,&c_731304);c_731300.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731277, ((closureN)self_73700)->elements[2], r_73467, &c_731300);; 
}

static void __lambda_66(void *data, object self_73701, int argc, object *args) /* object self_73701, object r_73464 */
 {
 object r_73464 = args[0];
  
closureN_type c_731279;
object e_731285 [1];
c_731279.hdr.mark = gc_color_red;
 c_731279.hdr.grayed = 0;
c_731279.tag = closureN_tag;
 c_731279.fn = (function_type)__lambda_67;
c_731279.num_args = 1;
c_731279.num_elements = 1;
c_731279.elements = (object *)e_731285;
c_731279.elements[0] = ((closureN)self_73701)->elements[0];


make_pair(c_731291,quote_expr,NULL);c_731291.hdr.immutable = 1;

make_pair(c_731290,quote_var,&c_731291);c_731290.hdr.immutable = 1;

make_pair(c_731289,&c_731290,NULL);c_731289.hdr.immutable = 1;

make_pair(c_731297,quote_rest,quote_body);c_731297.hdr.immutable = 1;

make_pair(c_731296,quote_and_91let_85,&c_731297);c_731296.hdr.immutable = 1;

make_pair(c_731295,&c_731296,NULL);c_731295.hdr.immutable = 1;

make_pair(c_731294,quote_var,&c_731295);c_731294.hdr.immutable = 1;

make_pair(c_731293,quote_and,&c_731294);c_731293.hdr.immutable = 1;

make_pair(c_731292,&c_731293,NULL);c_731292.hdr.immutable = 1;

make_pair(c_731288,&c_731289,&c_731292);c_731288.hdr.immutable = 1;

make_pair(c_731287,quote_let,&c_731288);c_731287.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731279, ((closureN)self_73701)->elements[1], r_73464, &c_731287);; 
}

static void __lambda_67(void *data, object self_73702, int argc, object *args) /* object self_73702, object r_73462 */
 {
 object r_73462 = args[0];
  
pair_type local_731284; 
return_direct_with_clo1(data,  ((closureN)self_73702)->elements[0], (((closure)  ((closureN)self_73702)->elements[0])->fn),  set_pair_as_expr(&local_731284, r_73462, boolean_f));; 
}

static void __lambda_38(void *data, object self_73703, int argc, object *args) /* object self_73703, object k_73495 */
 {
 object k_73495 = args[0];
    
if( (boolean_f != Cyc_is_pair(((closureN)self_73703)->elements[1])) ){ 
    
  
if( (boolean_f != Cyc_is_pair(Cyc_car(data, ((closureN)self_73703)->elements[1]))) ){ 
    
  
  
if( (boolean_f != Cyc_is_null(Cyc_cdr(data, Cyc_car(data, ((closureN)self_73703)->elements[1])))) ){ 
    
  
if( (boolean_f != Cyc_is_null(Cyc_cdr(data, ((closureN)self_73703)->elements[1]))) ){ 
  
closureN_type c_731123;
object e_731201 [3];
c_731123.hdr.mark = gc_color_red;
 c_731123.hdr.grayed = 0;
c_731123.tag = closureN_tag;
 c_731123.fn = (function_type)__lambda_39;
c_731123.num_args = 1;
c_731123.num_elements = 3;
c_731123.elements = (object *)e_731201;
c_731123.elements[0] = k_73495;
c_731123.elements[1] = ((closureN)self_73703)->elements[0];
c_731123.elements[2] = ((closureN)self_73703)->elements[1];

return_closcall2(data,  ((closureN)self_73703)->elements[0],  &c_731123, quote_let);
} else { 
  return_direct_with_clo1(data,  k_73495, (((closure)  k_73495)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73495, (((closure)  k_73495)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73495, (((closure)  k_73495)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73495, (((closure)  k_73495)->fn),  boolean_f);}
;; 
}

static void __lambda_39(void *data, object self_73704, int argc, object *args) /* object self_73704, object r_73505 */
 {
 object r_73505 = args[0];
  
closureN_type c_731126;
object e_731200 [4];
c_731126.hdr.mark = gc_color_red;
 c_731126.hdr.grayed = 0;
c_731126.tag = closureN_tag;
 c_731126.fn = (function_type)__lambda_40;
c_731126.num_args = 1;
c_731126.num_elements = 4;
c_731126.elements = (object *)e_731200;
c_731126.elements[0] = ((closureN)self_73704)->elements[0];
c_731126.elements[1] = r_73505;
c_731126.elements[2] = ((closureN)self_73704)->elements[1];
c_731126.elements[3] = ((closureN)self_73704)->elements[2];

return_closcall2(data,  ((closureN)self_73704)->elements[1],  &c_731126, quote_tmp);; 
}

static void __lambda_40(void *data, object self_73705, int argc, object *args) /* object self_73705, object r_73525 */
 {
 object r_73525 = args[0];
  
closureN_type c_731128;
object e_731193 [4];
c_731128.hdr.mark = gc_color_red;
 c_731128.hdr.grayed = 0;
c_731128.tag = closureN_tag;
 c_731128.fn = (function_type)__lambda_41;
c_731128.num_args = 1;
c_731128.num_elements = 4;
c_731128.elements = (object *)e_731193;
c_731128.elements[0] = ((closureN)self_73705)->elements[0];
c_731128.elements[1] = ((closureN)self_73705)->elements[1];
c_731128.elements[2] = r_73525;
c_731128.elements[3] = ((closureN)self_73705)->elements[2];






make_pair(c_731199,quote_expr,NULL);c_731199.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731128, Cyc_car(data, Cyc_car(data, ((closureN)self_73705)->elements[3])), NULL, &c_731199);; 
}

static void __lambda_41(void *data, object self_73706, int argc, object *args) /* object self_73706, object r_73526 */
 {
 object r_73526 = args[0];
  
closureN_type c_731130;
object e_731189 [3];
c_731130.hdr.mark = gc_color_red;
 c_731130.hdr.grayed = 0;
c_731130.tag = closureN_tag;
 c_731130.fn = (function_type)__lambda_42;
c_731130.num_args = 1;
c_731130.num_elements = 3;
c_731130.elements = (object *)e_731189;
c_731130.elements[0] = ((closureN)self_73706)->elements[0];
c_731130.elements[1] = ((closureN)self_73706)->elements[1];
c_731130.elements[2] = ((closureN)self_73706)->elements[3];


make_pair(c_731192,quote_expr,NULL);c_731192.hdr.immutable = 1;

make_pair(c_731191,quote_tmp,&c_731192);c_731191.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731130, ((closureN)self_73706)->elements[2], r_73526, &c_731191);; 
}

static void __lambda_42(void *data, object self_73707, int argc, object *args) /* object self_73707, object r_73522 */
 {
 object r_73522 = args[0];
  
closureN_type c_731132;
object e_731185 [3];
c_731132.hdr.mark = gc_color_red;
 c_731132.hdr.grayed = 0;
c_731132.tag = closureN_tag;
 c_731132.fn = (function_type)__lambda_43;
c_731132.num_args = 1;
c_731132.num_elements = 3;
c_731132.elements = (object *)e_731185;
c_731132.elements[0] = ((closureN)self_73707)->elements[0];
c_731132.elements[1] = ((closureN)self_73707)->elements[1];
c_731132.elements[2] = ((closureN)self_73707)->elements[2];


make_pair(c_731188,quote_expr,NULL);c_731188.hdr.immutable = 1;

make_pair(c_731187,quote_tmp,&c_731188);c_731187.hdr.immutable = 1;

make_pair(c_731186,&c_731187,NULL);c_731186.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731132, r_73522, NULL, &c_731186);; 
}

static void __lambda_43(void *data, object self_73708, int argc, object *args) /* object self_73708, object r_73508 */
 {
 object r_73508 = args[0];
  
closureN_type c_731135;
object e_731184 [4];
c_731135.hdr.mark = gc_color_red;
 c_731135.hdr.grayed = 0;
c_731135.tag = closureN_tag;
 c_731135.fn = (function_type)__lambda_44;
c_731135.num_args = 1;
c_731135.num_elements = 4;
c_731135.elements = (object *)e_731184;
c_731135.elements[0] = ((closureN)self_73708)->elements[0];
c_731135.elements[1] = ((closureN)self_73708)->elements[1];
c_731135.elements[2] = r_73508;
c_731135.elements[3] = ((closureN)self_73708)->elements[2];

return_closcall2(data,  ((closureN)self_73708)->elements[2],  &c_731135, quote_and);; 
}

static void __lambda_44(void *data, object self_73709, int argc, object *args) /* object self_73709, object r_73514 */
 {
 object r_73514 = args[0];
  
closureN_type c_731138;
object e_731183 [4];
c_731138.hdr.mark = gc_color_red;
 c_731138.hdr.grayed = 0;
c_731138.tag = closureN_tag;
 c_731138.fn = (function_type)__lambda_45;
c_731138.num_args = 1;
c_731138.num_elements = 4;
c_731138.elements = (object *)e_731183;
c_731138.elements[0] = ((closureN)self_73709)->elements[0];
c_731138.elements[1] = ((closureN)self_73709)->elements[1];
c_731138.elements[2] = ((closureN)self_73709)->elements[2];
c_731138.elements[3] = r_73514;

return_closcall2(data,  ((closureN)self_73709)->elements[3],  &c_731138, quote_tmp);; 
}

static void __lambda_45(void *data, object self_73710, int argc, object *args) /* object self_73710, object r_73517 */
 {
 object r_73517 = args[0];
  
closureN_type c_731140;
object e_731181 [4];
c_731140.hdr.mark = gc_color_red;
 c_731140.hdr.grayed = 0;
c_731140.tag = closureN_tag;
 c_731140.fn = (function_type)__lambda_46;
c_731140.num_args = 1;
c_731140.num_elements = 4;
c_731140.elements = (object *)e_731181;
c_731140.elements[0] = ((closureN)self_73710)->elements[0];
c_731140.elements[1] = ((closureN)self_73710)->elements[1];
c_731140.elements[2] = ((closureN)self_73710)->elements[2];
c_731140.elements[3] = ((closureN)self_73710)->elements[3];


make_pair(c_731182,quote_tmp,NULL);c_731182.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731140, r_73517, NULL, &c_731182);; 
}

static void __lambda_46(void *data, object self_73711, int argc, object *args) /* object self_73711, object r_73515 */
 {
 object r_73515 = args[0];
  
closureN_type c_731142;
object e_731177 [3];
c_731142.hdr.mark = gc_color_red;
 c_731142.hdr.grayed = 0;
c_731142.tag = closureN_tag;
 c_731142.fn = (function_type)__lambda_47;
c_731142.num_args = 1;
c_731142.num_elements = 3;
c_731142.elements = (object *)e_731177;
c_731142.elements[0] = ((closureN)self_73711)->elements[0];
c_731142.elements[1] = ((closureN)self_73711)->elements[1];
c_731142.elements[2] = ((closureN)self_73711)->elements[2];


make_pair(c_731180,quote_tmp,NULL);c_731180.hdr.immutable = 1;

make_pair(c_731179,quote_and,&c_731180);c_731179.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731142, ((closureN)self_73711)->elements[3], r_73515, &c_731179);; 
}

static void __lambda_47(void *data, object self_73712, int argc, object *args) /* object self_73712, object r_73511 */
 {
 object r_73511 = args[0];
  
closureN_type c_731144;
object e_731173 [3];
c_731144.hdr.mark = gc_color_red;
 c_731144.hdr.grayed = 0;
c_731144.tag = closureN_tag;
 c_731144.fn = (function_type)__lambda_48;
c_731144.num_args = 1;
c_731144.num_elements = 3;
c_731144.elements = (object *)e_731173;
c_731144.elements[0] = ((closureN)self_73712)->elements[0];
c_731144.elements[1] = ((closureN)self_73712)->elements[1];
c_731144.elements[2] = ((closureN)self_73712)->elements[2];


make_pair(c_731176,quote_tmp,NULL);c_731176.hdr.immutable = 1;

make_pair(c_731175,quote_and,&c_731176);c_731175.hdr.immutable = 1;

make_pair(c_731174,&c_731175,NULL);c_731174.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731144, r_73511, NULL, &c_731174);; 
}

static void __lambda_48(void *data, object self_73713, int argc, object *args) /* object self_73713, object r_73509 */
 {
 object r_73509 = args[0];
  
closureN_type c_731146;
object e_731164 [2];
c_731146.hdr.mark = gc_color_red;
 c_731146.hdr.grayed = 0;
c_731146.tag = closureN_tag;
 c_731146.fn = (function_type)__lambda_49;
c_731146.num_args = 1;
c_731146.num_elements = 2;
c_731146.elements = (object *)e_731164;
c_731146.elements[0] = ((closureN)self_73713)->elements[0];
c_731146.elements[1] = ((closureN)self_73713)->elements[1];


make_pair(c_731169,quote_expr,NULL);c_731169.hdr.immutable = 1;

make_pair(c_731168,quote_tmp,&c_731169);c_731168.hdr.immutable = 1;

make_pair(c_731167,&c_731168,NULL);c_731167.hdr.immutable = 1;

make_pair(c_731172,quote_tmp,NULL);c_731172.hdr.immutable = 1;

make_pair(c_731171,quote_and,&c_731172);c_731171.hdr.immutable = 1;

make_pair(c_731170,&c_731171,NULL);c_731170.hdr.immutable = 1;

make_pair(c_731166,&c_731167,&c_731170);c_731166.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731146, ((closureN)self_73713)->elements[2], r_73509, &c_731166);; 
}

static void __lambda_49(void *data, object self_73714, int argc, object *args) /* object self_73714, object r_73506 */
 {
 object r_73506 = args[0];
  
closureN_type c_731148;
object e_731154 [1];
c_731148.hdr.mark = gc_color_red;
 c_731148.hdr.grayed = 0;
c_731148.tag = closureN_tag;
 c_731148.fn = (function_type)__lambda_50;
c_731148.num_args = 1;
c_731148.num_elements = 1;
c_731148.elements = (object *)e_731154;
c_731148.elements[0] = ((closureN)self_73714)->elements[0];


make_pair(c_731160,quote_expr,NULL);c_731160.hdr.immutable = 1;

make_pair(c_731159,quote_tmp,&c_731160);c_731159.hdr.immutable = 1;

make_pair(c_731158,&c_731159,NULL);c_731158.hdr.immutable = 1;

make_pair(c_731163,quote_tmp,NULL);c_731163.hdr.immutable = 1;

make_pair(c_731162,quote_and,&c_731163);c_731162.hdr.immutable = 1;

make_pair(c_731161,&c_731162,NULL);c_731161.hdr.immutable = 1;

make_pair(c_731157,&c_731158,&c_731161);c_731157.hdr.immutable = 1;

make_pair(c_731156,quote_let,&c_731157);c_731156.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731148, ((closureN)self_73714)->elements[1], r_73506, &c_731156);; 
}

static void __lambda_50(void *data, object self_73715, int argc, object *args) /* object self_73715, object r_73504 */
 {
 object r_73504 = args[0];
  
pair_type local_731153; 
return_direct_with_clo1(data,  ((closureN)self_73715)->elements[0], (((closure)  ((closureN)self_73715)->elements[0])->fn),  set_pair_as_expr(&local_731153, r_73504, boolean_f));; 
}

static void __lambda_23(void *data, object self_73716, int argc, object *args) /* object self_73716, object k_73533 */
 {
 object k_73533 = args[0];
    
if( (boolean_f != Cyc_is_pair(((closureN)self_73716)->elements[1])) ){ 
    
  
if( (boolean_f != Cyc_is_pair(Cyc_car(data, ((closureN)self_73716)->elements[1]))) ){ 
    
  
  
if( (boolean_f != Cyc_is_pair(Cyc_car(data, Cyc_car(data, ((closureN)self_73716)->elements[1])))) ){ 
    
  
  
  
if( (boolean_f != Cyc_is_null(Cyc_cdr(data, Cyc_car(data, Cyc_car(data, ((closureN)self_73716)->elements[1]))))) ){ 
    
  
  
if( (boolean_f != Cyc_is_null(Cyc_cdr(data, Cyc_car(data, ((closureN)self_73716)->elements[1])))) ){ 
    
  
if( (boolean_f != Cyc_is_null(Cyc_cdr(data, ((closureN)self_73716)->elements[1]))) ){ 
  
closureN_type c_731006;
object e_731086 [3];
c_731006.hdr.mark = gc_color_red;
 c_731006.hdr.grayed = 0;
c_731006.tag = closureN_tag;
 c_731006.fn = (function_type)__lambda_24;
c_731006.num_args = 1;
c_731006.num_elements = 3;
c_731006.elements = (object *)e_731086;
c_731006.elements[0] = k_73533;
c_731006.elements[1] = ((closureN)self_73716)->elements[0];
c_731006.elements[2] = ((closureN)self_73716)->elements[1];

return_closcall2(data,  ((closureN)self_73716)->elements[0],  &c_731006, quote_let);
} else { 
  return_direct_with_clo1(data,  k_73533, (((closure)  k_73533)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73533, (((closure)  k_73533)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73533, (((closure)  k_73533)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73533, (((closure)  k_73533)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73533, (((closure)  k_73533)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73533, (((closure)  k_73533)->fn),  boolean_f);}
;; 
}

static void __lambda_24(void *data, object self_73717, int argc, object *args) /* object self_73717, object r_73547 */
 {
 object r_73547 = args[0];
  
closureN_type c_731009;
object e_731085 [4];
c_731009.hdr.mark = gc_color_red;
 c_731009.hdr.grayed = 0;
c_731009.tag = closureN_tag;
 c_731009.fn = (function_type)__lambda_25;
c_731009.num_args = 1;
c_731009.num_elements = 4;
c_731009.elements = (object *)e_731085;
c_731009.elements[0] = ((closureN)self_73717)->elements[0];
c_731009.elements[1] = r_73547;
c_731009.elements[2] = ((closureN)self_73717)->elements[1];
c_731009.elements[3] = ((closureN)self_73717)->elements[2];

return_closcall2(data,  ((closureN)self_73717)->elements[1],  &c_731009, quote_tmp);; 
}

static void __lambda_25(void *data, object self_73718, int argc, object *args) /* object self_73718, object r_73567 */
 {
 object r_73567 = args[0];
  
closureN_type c_731011;
object e_731076 [4];
c_731011.hdr.mark = gc_color_red;
 c_731011.hdr.grayed = 0;
c_731011.tag = closureN_tag;
 c_731011.fn = (function_type)__lambda_26;
c_731011.num_args = 1;
c_731011.num_elements = 4;
c_731011.elements = (object *)e_731076;
c_731011.elements[0] = ((closureN)self_73718)->elements[0];
c_731011.elements[1] = ((closureN)self_73718)->elements[1];
c_731011.elements[2] = r_73567;
c_731011.elements[3] = ((closureN)self_73718)->elements[2];








make_pair(c_731084,quote_expr,NULL);c_731084.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731011, Cyc_car(data, Cyc_car(data, Cyc_car(data, ((closureN)self_73718)->elements[3]))), NULL, &c_731084);; 
}

static void __lambda_26(void *data, object self_73719, int argc, object *args) /* object self_73719, object r_73568 */
 {
 object r_73568 = args[0];
  
closureN_type c_731013;
object e_731072 [3];
c_731013.hdr.mark = gc_color_red;
 c_731013.hdr.grayed = 0;
c_731013.tag = closureN_tag;
 c_731013.fn = (function_type)__lambda_27;
c_731013.num_args = 1;
c_731013.num_elements = 3;
c_731013.elements = (object *)e_731072;
c_731013.elements[0] = ((closureN)self_73719)->elements[0];
c_731013.elements[1] = ((closureN)self_73719)->elements[1];
c_731013.elements[2] = ((closureN)self_73719)->elements[3];


make_pair(c_731075,quote_expr,NULL);c_731075.hdr.immutable = 1;

make_pair(c_731074,quote_tmp,&c_731075);c_731074.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731013, ((closureN)self_73719)->elements[2], r_73568, &c_731074);; 
}

static void __lambda_27(void *data, object self_73720, int argc, object *args) /* object self_73720, object r_73564 */
 {
 object r_73564 = args[0];
  
closureN_type c_731015;
object e_731068 [3];
c_731015.hdr.mark = gc_color_red;
 c_731015.hdr.grayed = 0;
c_731015.tag = closureN_tag;
 c_731015.fn = (function_type)__lambda_28;
c_731015.num_args = 1;
c_731015.num_elements = 3;
c_731015.elements = (object *)e_731068;
c_731015.elements[0] = ((closureN)self_73720)->elements[0];
c_731015.elements[1] = ((closureN)self_73720)->elements[1];
c_731015.elements[2] = ((closureN)self_73720)->elements[2];


make_pair(c_731071,quote_expr,NULL);c_731071.hdr.immutable = 1;

make_pair(c_731070,quote_tmp,&c_731071);c_731070.hdr.immutable = 1;

make_pair(c_731069,&c_731070,NULL);c_731069.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731015, r_73564, NULL, &c_731069);; 
}

static void __lambda_28(void *data, object self_73721, int argc, object *args) /* object self_73721, object r_73550 */
 {
 object r_73550 = args[0];
  
closureN_type c_731018;
object e_731067 [4];
c_731018.hdr.mark = gc_color_red;
 c_731018.hdr.grayed = 0;
c_731018.tag = closureN_tag;
 c_731018.fn = (function_type)__lambda_29;
c_731018.num_args = 1;
c_731018.num_elements = 4;
c_731018.elements = (object *)e_731067;
c_731018.elements[0] = ((closureN)self_73721)->elements[0];
c_731018.elements[1] = ((closureN)self_73721)->elements[1];
c_731018.elements[2] = r_73550;
c_731018.elements[3] = ((closureN)self_73721)->elements[2];

return_closcall2(data,  ((closureN)self_73721)->elements[2],  &c_731018, quote_and);; 
}

static void __lambda_29(void *data, object self_73722, int argc, object *args) /* object self_73722, object r_73556 */
 {
 object r_73556 = args[0];
  
closureN_type c_731021;
object e_731066 [4];
c_731021.hdr.mark = gc_color_red;
 c_731021.hdr.grayed = 0;
c_731021.tag = closureN_tag;
 c_731021.fn = (function_type)__lambda_30;
c_731021.num_args = 1;
c_731021.num_elements = 4;
c_731021.elements = (object *)e_731066;
c_731021.elements[0] = ((closureN)self_73722)->elements[0];
c_731021.elements[1] = ((closureN)self_73722)->elements[1];
c_731021.elements[2] = ((closureN)self_73722)->elements[2];
c_731021.elements[3] = r_73556;

return_closcall2(data,  ((closureN)self_73722)->elements[3],  &c_731021, quote_tmp);; 
}

static void __lambda_30(void *data, object self_73723, int argc, object *args) /* object self_73723, object r_73559 */
 {
 object r_73559 = args[0];
  
closureN_type c_731023;
object e_731064 [4];
c_731023.hdr.mark = gc_color_red;
 c_731023.hdr.grayed = 0;
c_731023.tag = closureN_tag;
 c_731023.fn = (function_type)__lambda_31;
c_731023.num_args = 1;
c_731023.num_elements = 4;
c_731023.elements = (object *)e_731064;
c_731023.elements[0] = ((closureN)self_73723)->elements[0];
c_731023.elements[1] = ((closureN)self_73723)->elements[1];
c_731023.elements[2] = ((closureN)self_73723)->elements[2];
c_731023.elements[3] = ((closureN)self_73723)->elements[3];


make_pair(c_731065,quote_tmp,NULL);c_731065.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731023, r_73559, NULL, &c_731065);; 
}

static void __lambda_31(void *data, object self_73724, int argc, object *args) /* object self_73724, object r_73557 */
 {
 object r_73557 = args[0];
  
closureN_type c_731025;
object e_731060 [3];
c_731025.hdr.mark = gc_color_red;
 c_731025.hdr.grayed = 0;
c_731025.tag = closureN_tag;
 c_731025.fn = (function_type)__lambda_32;
c_731025.num_args = 1;
c_731025.num_elements = 3;
c_731025.elements = (object *)e_731060;
c_731025.elements[0] = ((closureN)self_73724)->elements[0];
c_731025.elements[1] = ((closureN)self_73724)->elements[1];
c_731025.elements[2] = ((closureN)self_73724)->elements[2];


make_pair(c_731063,quote_tmp,NULL);c_731063.hdr.immutable = 1;

make_pair(c_731062,quote_and,&c_731063);c_731062.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731025, ((closureN)self_73724)->elements[3], r_73557, &c_731062);; 
}

static void __lambda_32(void *data, object self_73725, int argc, object *args) /* object self_73725, object r_73553 */
 {
 object r_73553 = args[0];
  
closureN_type c_731027;
object e_731056 [3];
c_731027.hdr.mark = gc_color_red;
 c_731027.hdr.grayed = 0;
c_731027.tag = closureN_tag;
 c_731027.fn = (function_type)__lambda_33;
c_731027.num_args = 1;
c_731027.num_elements = 3;
c_731027.elements = (object *)e_731056;
c_731027.elements[0] = ((closureN)self_73725)->elements[0];
c_731027.elements[1] = ((closureN)self_73725)->elements[1];
c_731027.elements[2] = ((closureN)self_73725)->elements[2];


make_pair(c_731059,quote_tmp,NULL);c_731059.hdr.immutable = 1;

make_pair(c_731058,quote_and,&c_731059);c_731058.hdr.immutable = 1;

make_pair(c_731057,&c_731058,NULL);c_731057.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731027, r_73553, NULL, &c_731057);; 
}

static void __lambda_33(void *data, object self_73726, int argc, object *args) /* object self_73726, object r_73551 */
 {
 object r_73551 = args[0];
  
closureN_type c_731029;
object e_731047 [2];
c_731029.hdr.mark = gc_color_red;
 c_731029.hdr.grayed = 0;
c_731029.tag = closureN_tag;
 c_731029.fn = (function_type)__lambda_34;
c_731029.num_args = 1;
c_731029.num_elements = 2;
c_731029.elements = (object *)e_731047;
c_731029.elements[0] = ((closureN)self_73726)->elements[0];
c_731029.elements[1] = ((closureN)self_73726)->elements[1];


make_pair(c_731052,quote_expr,NULL);c_731052.hdr.immutable = 1;

make_pair(c_731051,quote_tmp,&c_731052);c_731051.hdr.immutable = 1;

make_pair(c_731050,&c_731051,NULL);c_731050.hdr.immutable = 1;

make_pair(c_731055,quote_tmp,NULL);c_731055.hdr.immutable = 1;

make_pair(c_731054,quote_and,&c_731055);c_731054.hdr.immutable = 1;

make_pair(c_731053,&c_731054,NULL);c_731053.hdr.immutable = 1;

make_pair(c_731049,&c_731050,&c_731053);c_731049.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731029, ((closureN)self_73726)->elements[2], r_73551, &c_731049);; 
}

static void __lambda_34(void *data, object self_73727, int argc, object *args) /* object self_73727, object r_73548 */
 {
 object r_73548 = args[0];
  
closureN_type c_731031;
object e_731037 [1];
c_731031.hdr.mark = gc_color_red;
 c_731031.hdr.grayed = 0;
c_731031.tag = closureN_tag;
 c_731031.fn = (function_type)__lambda_35;
c_731031.num_args = 1;
c_731031.num_elements = 1;
c_731031.elements = (object *)e_731037;
c_731031.elements[0] = ((closureN)self_73727)->elements[0];


make_pair(c_731043,quote_expr,NULL);c_731043.hdr.immutable = 1;

make_pair(c_731042,quote_tmp,&c_731043);c_731042.hdr.immutable = 1;

make_pair(c_731041,&c_731042,NULL);c_731041.hdr.immutable = 1;

make_pair(c_731046,quote_tmp,NULL);c_731046.hdr.immutable = 1;

make_pair(c_731045,quote_and,&c_731046);c_731045.hdr.immutable = 1;

make_pair(c_731044,&c_731045,NULL);c_731044.hdr.immutable = 1;

make_pair(c_731040,&c_731041,&c_731044);c_731040.hdr.immutable = 1;

make_pair(c_731039,quote_let,&c_731040);c_731039.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731031, ((closureN)self_73727)->elements[1], r_73548, &c_731039);; 
}

static void __lambda_35(void *data, object self_73728, int argc, object *args) /* object self_73728, object r_73546 */
 {
 object r_73546 = args[0];
  
pair_type local_731036; 
return_direct_with_clo1(data,  ((closureN)self_73728)->elements[0], (((closure)  ((closureN)self_73728)->elements[0])->fn),  set_pair_as_expr(&local_731036, r_73546, boolean_f));; 
}

static void __lambda_10(void *data, object self_73729, int argc, object *args) /* object self_73729, object k_73575 */
 {
 object k_73575 = args[0];
    
if( (boolean_f != Cyc_is_pair(((closureN)self_73729)->elements[1])) ){ 
    
  
if( (boolean_f != Cyc_is_pair(Cyc_car(data, ((closureN)self_73729)->elements[1]))) ){ 
    
  
  
if( (boolean_f != Cyc_is_pair(Cyc_car(data, Cyc_car(data, ((closureN)self_73729)->elements[1])))) ){ 
    
  
  
  
if( (boolean_f != Cyc_is_pair(Cyc_cdr(data, Cyc_car(data, Cyc_car(data, ((closureN)self_73729)->elements[1]))))) ){ 
    
  
  
  
  
if( (boolean_f != Cyc_is_null(Cyc_cdr(data, Cyc_cdr(data, Cyc_car(data, Cyc_car(data, ((closureN)self_73729)->elements[1])))))) ){ 
    
  
  
if( (boolean_f != Cyc_is_null(Cyc_cdr(data, Cyc_car(data, ((closureN)self_73729)->elements[1])))) ){ 
    
  
if( (boolean_f != Cyc_is_null(Cyc_cdr(data, ((closureN)self_73729)->elements[1]))) ){ 
  
closureN_type c_73865;
object e_73952 [3];
c_73865.hdr.mark = gc_color_red;
 c_73865.hdr.grayed = 0;
c_73865.tag = closureN_tag;
 c_73865.fn = (function_type)__lambda_11;
c_73865.num_args = 1;
c_73865.num_elements = 3;
c_73865.elements = (object *)e_73952;
c_73865.elements[0] = k_73575;
c_73865.elements[1] = ((closureN)self_73729)->elements[0];
c_73865.elements[2] = ((closureN)self_73729)->elements[1];

return_closcall2(data,  ((closureN)self_73729)->elements[0],  &c_73865, quote_let);
} else { 
  return_direct_with_clo1(data,  k_73575, (((closure)  k_73575)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73575, (((closure)  k_73575)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73575, (((closure)  k_73575)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73575, (((closure)  k_73575)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73575, (((closure)  k_73575)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73575, (((closure)  k_73575)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73575, (((closure)  k_73575)->fn),  boolean_f);}
;; 
}

static void __lambda_11(void *data, object self_73730, int argc, object *args) /* object self_73730, object r_73592 */
 {
 object r_73592 = args[0];
  
closureN_type c_73867;
object e_73941 [4];
c_73867.hdr.mark = gc_color_red;
 c_73867.hdr.grayed = 0;
c_73867.tag = closureN_tag;
 c_73867.fn = (function_type)__lambda_12;
c_73867.num_args = 1;
c_73867.num_elements = 4;
c_73867.elements = (object *)e_73941;
c_73867.elements[0] = ((closureN)self_73730)->elements[0];
c_73867.elements[1] = r_73592;
c_73867.elements[2] = ((closureN)self_73730)->elements[1];
c_73867.elements[3] = ((closureN)self_73730)->elements[2];










make_pair(c_73951,quote_expr,NULL);c_73951.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73867, Cyc_car(data, Cyc_cdr(data, Cyc_car(data, Cyc_car(data, ((closureN)self_73730)->elements[2])))), NULL, &c_73951);; 
}

static void __lambda_12(void *data, object self_73731, int argc, object *args) /* object self_73731, object r_73610 */
 {
 object r_73610 = args[0];
  
closureN_type c_73869;
object e_73931 [4];
c_73869.hdr.mark = gc_color_red;
 c_73869.hdr.grayed = 0;
c_73869.tag = closureN_tag;
 c_73869.fn = (function_type)__lambda_13;
c_73869.num_args = 1;
c_73869.num_elements = 4;
c_73869.elements = (object *)e_73931;
c_73869.elements[0] = ((closureN)self_73731)->elements[0];
c_73869.elements[1] = ((closureN)self_73731)->elements[1];
c_73869.elements[2] = ((closureN)self_73731)->elements[2];
c_73869.elements[3] = ((closureN)self_73731)->elements[3];








make_pair(c_73940,quote_expr,NULL);c_73940.hdr.immutable = 1;

make_pair(c_73939,quote_var,&c_73940);c_73939.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73869, Cyc_car(data, Cyc_car(data, Cyc_car(data, ((closureN)self_73731)->elements[3]))), r_73610, &c_73939);; 
}

static void __lambda_13(void *data, object self_73732, int argc, object *args) /* object self_73732, object r_73607 */
 {
 object r_73607 = args[0];
  
closureN_type c_73871;
object e_73927 [4];
c_73871.hdr.mark = gc_color_red;
 c_73871.hdr.grayed = 0;
c_73871.tag = closureN_tag;
 c_73871.fn = (function_type)__lambda_14;
c_73871.num_args = 1;
c_73871.num_elements = 4;
c_73871.elements = (object *)e_73927;
c_73871.elements[0] = ((closureN)self_73732)->elements[0];
c_73871.elements[1] = ((closureN)self_73732)->elements[1];
c_73871.elements[2] = ((closureN)self_73732)->elements[2];
c_73871.elements[3] = ((closureN)self_73732)->elements[3];


make_pair(c_73930,quote_expr,NULL);c_73930.hdr.immutable = 1;

make_pair(c_73929,quote_var,&c_73930);c_73929.hdr.immutable = 1;

make_pair(c_73928,&c_73929,NULL);c_73928.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73871, r_73607, NULL, &c_73928);; 
}

static void __lambda_14(void *data, object self_73733, int argc, object *args) /* object self_73733, object r_73595 */
 {
 object r_73595 = args[0];
  
closureN_type c_73874;
object e_73926 [4];
c_73874.hdr.mark = gc_color_red;
 c_73874.hdr.grayed = 0;
c_73874.tag = closureN_tag;
 c_73874.fn = (function_type)__lambda_15;
c_73874.num_args = 1;
c_73874.num_elements = 4;
c_73874.elements = (object *)e_73926;
c_73874.elements[0] = ((closureN)self_73733)->elements[0];
c_73874.elements[1] = ((closureN)self_73733)->elements[1];
c_73874.elements[2] = r_73595;
c_73874.elements[3] = ((closureN)self_73733)->elements[3];

return_closcall2(data,  ((closureN)self_73733)->elements[2],  &c_73874, quote_and);; 
}

static void __lambda_15(void *data, object self_73734, int argc, object *args) /* object self_73734, object r_73601 */
 {
 object r_73601 = args[0];
  
closureN_type c_73876;
object e_73917 [4];
c_73876.hdr.mark = gc_color_red;
 c_73876.hdr.grayed = 0;
c_73876.tag = closureN_tag;
 c_73876.fn = (function_type)__lambda_16;
c_73876.num_args = 1;
c_73876.num_elements = 4;
c_73876.elements = (object *)e_73917;
c_73876.elements[0] = ((closureN)self_73734)->elements[0];
c_73876.elements[1] = ((closureN)self_73734)->elements[1];
c_73876.elements[2] = ((closureN)self_73734)->elements[2];
c_73876.elements[3] = r_73601;








make_pair(c_73925,quote_var,NULL);c_73925.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73876, Cyc_car(data, Cyc_car(data, Cyc_car(data, ((closureN)self_73734)->elements[3]))), NULL, &c_73925);; 
}

static void __lambda_16(void *data, object self_73735, int argc, object *args) /* object self_73735, object r_73602 */
 {
 object r_73602 = args[0];
  
closureN_type c_73878;
object e_73913 [3];
c_73878.hdr.mark = gc_color_red;
 c_73878.hdr.grayed = 0;
c_73878.tag = closureN_tag;
 c_73878.fn = (function_type)__lambda_17;
c_73878.num_args = 1;
c_73878.num_elements = 3;
c_73878.elements = (object *)e_73913;
c_73878.elements[0] = ((closureN)self_73735)->elements[0];
c_73878.elements[1] = ((closureN)self_73735)->elements[1];
c_73878.elements[2] = ((closureN)self_73735)->elements[2];


make_pair(c_73916,quote_var,NULL);c_73916.hdr.immutable = 1;

make_pair(c_73915,quote_and,&c_73916);c_73915.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73878, ((closureN)self_73735)->elements[3], r_73602, &c_73915);; 
}

static void __lambda_17(void *data, object self_73736, int argc, object *args) /* object self_73736, object r_73598 */
 {
 object r_73598 = args[0];
  
closureN_type c_73880;
object e_73909 [3];
c_73880.hdr.mark = gc_color_red;
 c_73880.hdr.grayed = 0;
c_73880.tag = closureN_tag;
 c_73880.fn = (function_type)__lambda_18;
c_73880.num_args = 1;
c_73880.num_elements = 3;
c_73880.elements = (object *)e_73909;
c_73880.elements[0] = ((closureN)self_73736)->elements[0];
c_73880.elements[1] = ((closureN)self_73736)->elements[1];
c_73880.elements[2] = ((closureN)self_73736)->elements[2];


make_pair(c_73912,quote_var,NULL);c_73912.hdr.immutable = 1;

make_pair(c_73911,quote_and,&c_73912);c_73911.hdr.immutable = 1;

make_pair(c_73910,&c_73911,NULL);c_73910.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73880, r_73598, NULL, &c_73910);; 
}

static void __lambda_18(void *data, object self_73737, int argc, object *args) /* object self_73737, object r_73596 */
 {
 object r_73596 = args[0];
  
closureN_type c_73882;
object e_73900 [2];
c_73882.hdr.mark = gc_color_red;
 c_73882.hdr.grayed = 0;
c_73882.tag = closureN_tag;
 c_73882.fn = (function_type)__lambda_19;
c_73882.num_args = 1;
c_73882.num_elements = 2;
c_73882.elements = (object *)e_73900;
c_73882.elements[0] = ((closureN)self_73737)->elements[0];
c_73882.elements[1] = ((closureN)self_73737)->elements[1];


make_pair(c_73905,quote_expr,NULL);c_73905.hdr.immutable = 1;

make_pair(c_73904,quote_var,&c_73905);c_73904.hdr.immutable = 1;

make_pair(c_73903,&c_73904,NULL);c_73903.hdr.immutable = 1;

make_pair(c_73908,quote_var,NULL);c_73908.hdr.immutable = 1;

make_pair(c_73907,quote_and,&c_73908);c_73907.hdr.immutable = 1;

make_pair(c_73906,&c_73907,NULL);c_73906.hdr.immutable = 1;

make_pair(c_73902,&c_73903,&c_73906);c_73902.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73882, ((closureN)self_73737)->elements[2], r_73596, &c_73902);; 
}

static void __lambda_19(void *data, object self_73738, int argc, object *args) /* object self_73738, object r_73593 */
 {
 object r_73593 = args[0];
  
closureN_type c_73884;
object e_73890 [1];
c_73884.hdr.mark = gc_color_red;
 c_73884.hdr.grayed = 0;
c_73884.tag = closureN_tag;
 c_73884.fn = (function_type)__lambda_20;
c_73884.num_args = 1;
c_73884.num_elements = 1;
c_73884.elements = (object *)e_73890;
c_73884.elements[0] = ((closureN)self_73738)->elements[0];


make_pair(c_73896,quote_expr,NULL);c_73896.hdr.immutable = 1;

make_pair(c_73895,quote_var,&c_73896);c_73895.hdr.immutable = 1;

make_pair(c_73894,&c_73895,NULL);c_73894.hdr.immutable = 1;

make_pair(c_73899,quote_var,NULL);c_73899.hdr.immutable = 1;

make_pair(c_73898,quote_and,&c_73899);c_73898.hdr.immutable = 1;

make_pair(c_73897,&c_73898,NULL);c_73897.hdr.immutable = 1;

make_pair(c_73893,&c_73894,&c_73897);c_73893.hdr.immutable = 1;

make_pair(c_73892,quote_let,&c_73893);c_73892.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73884, ((closureN)self_73738)->elements[1], r_73593, &c_73892);; 
}

static void __lambda_20(void *data, object self_73739, int argc, object *args) /* object self_73739, object r_73591 */
 {
 object r_73591 = args[0];
  
pair_type local_73889; 
return_direct_with_clo1(data,  ((closureN)self_73739)->elements[0], (((closure)  ((closureN)self_73739)->elements[0])->fn),  set_pair_as_expr(&local_73889, r_73591, boolean_f));; 
}

static void __lambda_5(void *data, object self_73740, int argc, object *args) /* object self_73740, object k_73616 */
 {
 object k_73616 = args[0];
    
if( (boolean_f != Cyc_is_pair(((closureN)self_73740)->elements[1])) ){ 
    
  
if( (boolean_f != Cyc_is_null(Cyc_car(data, ((closureN)self_73740)->elements[1]))) ){ 
    complex_num_type local_73783; 
  
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_list_127_191_191inline_191_191_scheme_base)->fn)(data,&local_73783, Cyc_cdr(data, ((closureN)self_73740)->elements[1]))) ){ 
  
closureN_type c_73789;
object e_73804 [2];
c_73789.hdr.mark = gc_color_red;
 c_73789.hdr.grayed = 0;
c_73789.tag = closureN_tag;
 c_73789.fn = (function_type)__lambda_6;
c_73789.num_args = 1;
c_73789.num_elements = 2;
c_73789.elements = (object *)e_73804;
c_73789.elements[0] = k_73616;
c_73789.elements[1] = ((closureN)self_73740)->elements[1];

return_closcall2(data,  ((closureN)self_73740)->elements[0],  &c_73789, quote_begin);
} else { 
  return_direct_with_clo1(data,  k_73616, (((closure)  k_73616)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73616, (((closure)  k_73616)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73616, (((closure)  k_73616)->fn),  boolean_f);}
;; 
}

static void __lambda_6(void *data, object self_73741, int argc, object *args) /* object self_73741, object r_73623 */
 {
 object r_73623 = args[0];
  
closureN_type c_73791;
object e_73797 [1];
c_73791.hdr.mark = gc_color_red;
 c_73791.hdr.grayed = 0;
c_73791.tag = closureN_tag;
 c_73791.fn = (function_type)__lambda_7;
c_73791.num_args = 1;
c_73791.num_elements = 1;
c_73791.elements = (object *)e_73797;
c_73791.elements[0] = ((closureN)self_73741)->elements[0];




make_pair(c_73803,quote__93_93_93,NULL);c_73803.hdr.immutable = 1;

make_pair(c_73802,quote_body,&c_73803);c_73802.hdr.immutable = 1;

make_pair(c_73801,quote_begin,&c_73802);c_73801.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73791, r_73623, Cyc_cdr(data, ((closureN)self_73741)->elements[1]), &c_73801);; 
}

static void __lambda_7(void *data, object self_73742, int argc, object *args) /* object self_73742, object r_73622 */
 {
 object r_73622 = args[0];
  
pair_type local_73796; 
return_direct_with_clo1(data,  ((closureN)self_73742)->elements[0], (((closure)  ((closureN)self_73742)->elements[0])->fn),  set_pair_as_expr(&local_73796, r_73622, boolean_f));; 
}

void c_srfi2_inlinable_lambdas(void *data, object clo, int argc, object *args){ 
object buf[1]; object cont = args[0];
buf[0] = NULL; (((closure)cont)->fn)(data, cont, 1, buf);
 } 
void c_srfi2_entry_pt_first_lambda(void *data, object clo, int argc, object *args){ 
Cyc_set_globals_changed((gc_thread_data *)data);
  quote_rest = find_or_add_symbol("rest");
  quote_and_91let_85 = find_or_add_symbol("and-let*");
  quote_tmp = find_or_add_symbol("tmp");
  quote_and = find_or_add_symbol("and");
  quote_expr = find_or_add_symbol("expr");
  quote_var = find_or_add_symbol("var");
  quote_let = find_or_add_symbol("let");
  quote__93_93_93 = find_or_add_symbol("...");
  quote_body = find_or_add_symbol("body");
  quote_begin = find_or_add_symbol("begin");

  add_global("__glo_lib_91init_117srfi2_srfi_2", (object *) &__glo_lib_91init_117srfi2_srfi_2);
  add_global("__glo_and_91let_85_srfi_2", (object *) &__glo_and_91let_85_srfi_2);
  mclosure0(c_731752, (function_type)__lambda_109);c_731752.num_args = 0; 
  __glo_lib_91init_117srfi2_srfi_2 = &c_731752; 
  mmacro(c_73743, (function_type)__lambda_1);c_73743.num_args = 3; 
  __glo_and_91let_85_srfi_2 = &c_73743; 

  mclosure0(clo_731755, c_srfi2_inlinable_lambdas); make_pair(pair_731754, find_or_add_symbol("c_srfi2_inlinable_lambdas"), &clo_731755);
  make_cvar(cvar_731756, (object *)&__glo_lib_91init_117srfi2_srfi_2);make_pair(pair_731757, find_or_add_symbol("lib-init:srfi2"), &cvar_731756);
  make_cvar(cvar_731758, (object *)&__glo_and_91let_85_srfi_2);make_pair(pair_731759, find_or_add_symbol("and-let*"), &cvar_731758);
make_pair(c_731762, &pair_731754,Cyc_global_variables);
make_pair(c_731761, &pair_731757, &c_731762);
make_pair(c_731760, &pair_731759, &c_731761);
Cyc_global_variables = &c_731760;
object buf[1]; buf[0] = ((closure1_type *)clo)->element;
(((closure)__glo_lib_91init_117srfi2_srfi_2)->fn)(data, buf[0], 1, buf);
}
void c_srfi2_entry_pt(void *data, object cont, int argc, object value){ 
  register_library("srfi_2");
  c_srfi2_entry_pt_first_lambda(data, cont, argc, value);
}
