/**
 ** 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); \
 }}

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

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

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

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

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

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

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

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

#define closcall8(td, clo, buf) \
if (obj_is_not_closure(clo)) { \
   Cyc_apply(td, clo, 8, buf ); \
} else { \
   ((clo)->fn)(td, clo, 8, buf); \
;\
}
#define return_closcall8(td, clo,a1,a2,a3,a4,a5,a6,a7,a8) { \
 char top; \
 object buf[8]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 8); \
     return; \
 } else {\
     closcall8(td, (closure) (clo), buf); \
     return;\
 } \
}

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

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

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

#define closcall21(td, clo, buf) \
if (obj_is_not_closure(clo)) { \
   Cyc_apply(td, clo, 21, buf ); \
} else { \
   ((clo)->fn)(td, clo, 21, buf); \
;\
}
#define return_closcall21(td, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21) { \
 char top; \
 object buf[21]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;buf[9] = a10;buf[10] = a11;buf[11] = a12;buf[12] = a13;buf[13] = a14;buf[14] = a15;buf[15] = a16;buf[16] = a17;buf[17] = a18;buf[18] = a19;buf[19] = a20;buf[20] = a21;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 21); \
     return; \
 } else {\
     closcall21(td, (closure) (clo), buf); \
     return;\
 } \
}

#define continue_or_gc21(td, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21) { \
 char *top = alloca(sizeof(char)); \
 if (stack_overflow(top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[21]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;buf[9] = a10;buf[10] = a11;buf[11] = a12;buf[12] = a13;buf[13] = a14;buf[14] = a15;buf[15] = a16;buf[16] = a17;buf[17] = a18;buf[18] = a19;buf[19] = a20;buf[20] = a21;\
     GC(td, clo, buf, 21); \
     return; \
 } else {\
     continue;\
 } \
}

#define return_direct21(td, _fn,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21) { \
 char top; \
 object buf[21]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;buf[9] = a10;buf[10] = a11;buf[11] = a12;buf[12] = a13;buf[13] = a14;buf[14] = a15;buf[15] = a16;buf[16] = a17;buf[17] = a18;buf[18] = a19;buf[19] = a20;buf[20] = a21; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 21); \
     return; \
 } else { \
     (_fn)(td, (closure)_fn, 21, buf); \
 }}

#define return_direct_with_clo21(td, clo, _fn,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21) { \
 char top; \
 object buf[21]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;buf[9] = a10;buf[10] = a11;buf[11] = a12;buf[12] = a13;buf[13] = a14;buf[14] = a15;buf[15] = a16;buf[16] = a17;buf[17] = a18;buf[18] = a19;buf[19] = a20;buf[20] = a21;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 21); \
     return; \
 } else { \
     (_fn)(td, (closure)(clo), 21, buf); \
 }}

#include "cyclone/types.h"
object __glo_lib_91init_117schemecyclonepretty_19191print_scheme_cyclone_pretty_91print = NULL;
object __glo_spp_scheme_cyclone_pretty_91print = NULL;
object __glo_sexp_91pretty_91print_scheme_cyclone_pretty_91print = NULL;
object __glo_reverse_91string_91append_scheme_cyclone_pretty_91print = NULL;
object __glo_generic_91write_scheme_cyclone_pretty_91print = NULL;
object __glo_genwrite_117newline_91str_scheme_cyclone_pretty_91print = NULL;
object __glo_pp_91width_scheme_cyclone_pretty_91print = NULL;
object __glo_pretty_91print_scheme_cyclone_pretty_91print = 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_display_scheme_write;
extern object __glo_write_scheme_write;
extern object __glo_write_91shared_scheme_write;
extern object __glo_write_91simple_scheme_write;
extern object __glo_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(genwrite_117newline_91str);
defsymbol(spp);
defsymbol(pretty_91print);
defsymbol(unquote_91splicing);
defsymbol(unquote);
defsymbol(quasiquote);
defsymbol(quote);
defsymbol(_do);
defsymbol(begin);
defsymbol(let);
defsymbol(or);
defsymbol(and);
defsymbol(_case);
defsymbol(cond);
defsymbol(set_67);
defsymbol(_if);
defsymbol(define);
defsymbol(letrec);
defsymbol(let_85);
defsymbol(lambda);
static void __lambda_217(void *data, object clo, int argc, object *args) ;/*closure _,object k_73845*/
static void __lambda_218(void *data, object clo, int argc, object *args) ;/*object self_731101, object r_73849*/
static void __lambda_219(void *data, object clo, int argc, object *args) ;/*object self_731102, object r_73847*/
static void __lambda_220(void *data, object clo, int argc, object *args) ;/*object self_731103, object r_73848*/
static void __lambda_210(void *data, object clo, int argc, object *args) ;/*closure _,object k_73833, object obj_73273_73494, object opt_73274_73495_raw, ...*/
static void __lambda_212(void *data, object clo, int argc, object *args) ;/*object self_731095, object port_73275_73496*/
static void __lambda_215(void *data, object clo, int argc, object *args) ;/*object self_731096, object k_73837, object s_73276_73497*/
static void __lambda_216(void *data, object clo, int argc, object *args) ;/*object self_731097, object r_73838*/
static void __lambda_213(void *data, object clo, int argc, object *args) ;/*object self_731098, object r_73836*/
static void __lambda_214(void *data, object clo, int argc, object *args) ;/*object self_731099, object r_73835*/
static void __lambda_211(void *data, object clo, int argc, object *args) ;/*object self_731100, object k_73839*/
static void __lambda_208(void *data, object clo, int argc, object *args) ;/*closure _,object k_73829, object l_73272_73493*/
static void __lambda_209(void *data, object clo, int argc, object *args) ;/*object self_731094, object r_73830*/
static void __lambda_1(void *data, object clo, int argc, object *args) ;/*closure _,object k_73506, object obj_731_73280, object display_127_732_73281, object width_733_73282, object output_734_73283*/
static void __lambda_2(void *data, object clo, int argc, object *args) ;/*object self_73850, object out_73295, object pp_73296, object read_91macro_91body_73312, object read_91macro_91prefix_73313, object read_91macro_127_73314, object wr_73320*/
static void __lambda_258(void *data, object clo, int argc, object *args) ;/*object self_73851, object out_73295*/
static void __lambda_257(void *data, object clo, int argc, object *args) ;/*object self_73852, object pp_73296*/
static void __lambda_256(void *data, object clo, int argc, object *args) ;/*object self_73853, object read_91macro_91body_73312*/
static void __lambda_255(void *data, object clo, int argc, object *args) ;/*object self_73854, object read_91macro_91prefix_73313*/
static void __lambda_254(void *data, object clo, int argc, object *args) ;/*object self_73855, object read_91macro_127_73314*/
static void __lambda_253(void *data, object clo, int argc, object *args) ;/*object self_73856, object wr_73320*/
static void __lambda_203(void *data, object clo, int argc, object *args) ;/*object self_73857, object k_73810, object l_735_73329*/
static void __lambda_204(void *data, object clo, int argc, object *args) ;/*object self_73858, object length1_127_73330*/
static void __lambda_252(void *data, object clo, int argc, object *args) ;/*object self_73859, object length1_127_73330*/
static void __lambda_207(void *data, object clo, int argc, object *args) ;/*object self_73860, object k_73824, object l_736_73331*/
static void __lambda_205(void *data, object clo, int argc, object *args) ;/*object self_73861, object r_73823*/
static void __lambda_206(void *data, object clo, int argc, object *args) ;/*object self_73862, object r_73811*/
static void __lambda_3(void *data, object clo, int argc, object *args) ;/*object self_73863, object r_73809*/
static void __lambda_4(void *data, object clo, int argc, object *args) ;/*object self_73864, object r_73507*/
static void __lambda_202(void *data, object clo, int argc, object *args) ;/*object self_73865, object k_73808, object l_7314_73335*/
static void __lambda_5(void *data, object clo, int argc, object *args) ;/*object self_73866, object r_73807*/
static void __lambda_6(void *data, object clo, int argc, object *args) ;/*object self_73867, object r_73508*/
static void __lambda_199(void *data, object clo, int argc, object *args) ;/*object self_73868, object k_73796, object l_7315_73336*/
static void __lambda_200(void *data, object clo, int argc, object *args) ;/*object self_73869, object head_7316_73337, object tail_7317_73338*/
static void __lambda_201(void *data, object clo, int argc, object *args) ;/*object self_73870, object tmp_7318_7321_73339*/
static void __lambda_7(void *data, object clo, int argc, object *args) ;/*object self_73871, object r_73795*/
static void __lambda_8(void *data, object clo, int argc, object *args) ;/*object self_73872, object r_73509*/
static void __lambda_197(void *data, object clo, int argc, object *args) ;/*object self_73873, object k_73792, object str_7322_73340, object col_7323_73341*/
static void __lambda_198(void *data, object clo, int argc, object *args) ;/*object self_73874, object r_73793*/
static void __lambda_9(void *data, object clo, int argc, object *args) ;/*object self_73875, object r_73791*/
static void __lambda_10(void *data, object clo, int argc, object *args) ;/*object self_73876, object r_73510*/
static void __lambda_142(void *data, object clo, int argc, object *args) ;/*object self_73877, object k_73712, object obj_7326_73342, object col_7327_73343*/
static void __lambda_143(void *data, object clo, int argc, object *args) ;/*object self_73878, object wr_91expr_73344, object wr_91lst_73345*/
static void __lambda_251(void *data, object clo, int argc, object *args) ;/*object self_73879, object wr_91expr_73344*/
static void __lambda_250(void *data, object clo, int argc, object *args) ;/*object self_73880, object wr_91lst_73345*/
static void __lambda_192(void *data, object clo, int argc, object *args) ;/*object self_73881, object k_73786, object expr_7328_73346, object col_7329_73347*/
static void __lambda_193(void *data, object clo, int argc, object *args) ;/*object self_73882, object r_73787*/
static void __lambda_194(void *data, object clo, int argc, object *args) ;/*object self_73883, object r_73788*/
static void __lambda_195(void *data, object clo, int argc, object *args) ;/*object self_73884, object r_73790*/
static void __lambda_196(void *data, object clo, int argc, object *args) ;/*object self_73885, object r_73789*/
static void __lambda_144(void *data, object clo, int argc, object *args) ;/*object self_73886, object r_73785*/
static void __lambda_145(void *data, object clo, int argc, object *args) ;/*object self_73887, object r_73713*/
static void __lambda_179(void *data, object clo, int argc, object *args) ;/*object self_73888, object k_73767, object l_7330_73348, object col_7331_73349*/
static void __lambda_182(void *data, object clo, int argc, object *args) ;/*object self_73889, object r_73770*/
static void __lambda_183(void *data, object clo, int argc, object *args) ;/*object self_73890, object l_7333_73350, object col_7334_73351*/
static void __lambda_184(void *data, object clo, int argc, object *args) ;/*object self_73891, object loop_7335_73352*/
static void __lambda_249(void *data, object clo, int argc, object *args) ;/*object self_73892, object loop_7335_73352*/
static void __lambda_187(void *data, object clo, int argc, object *args) ;/*object self_73893, object k_73773, object l_7336_73353, object col_7337_73354*/
static void __lambda_190(void *data, object clo, int argc, object *args) ;/*object self_73896, object r_73781*/
static void __lambda_191(void *data, object clo, int argc, object *args) ;/*object self_73897, object r_73780*/
static void __lambda_188(void *data, object clo, int argc, object *args) ;/*object self_73894, object r_73778*/
static void __lambda_189(void *data, object clo, int argc, object *args) ;/*object self_73895, object r_73776*/
static void __lambda_185(void *data, object clo, int argc, object *args) ;/*object self_73898, object r_73772*/
static void __lambda_186(void *data, object clo, int argc, object *args) ;/*object self_73899, object r_73771*/
static void __lambda_180(void *data, object clo, int argc, object *args) ;/*object self_73900, object k_73782*/
static void __lambda_181(void *data, object clo, int argc, object *args) ;/*object self_73901, object r_73784*/
static void __lambda_146(void *data, object clo, int argc, object *args) ;/*object self_73902, object r_73766*/
static void __lambda_147(void *data, object clo, int argc, object *args) ;/*object self_73903, object r_73714*/
static void __lambda_149(void *data, object clo, int argc, object *args) ;/*object self_73904, object r_73717*/
static void __lambda_152(void *data, object clo, int argc, object *args) ;/*object self_73907, object r_73720*/
static void __lambda_177(void *data, object clo, int argc, object *args) ;/*object self_73933, object r_73761*/
static void __lambda_178(void *data, object clo, int argc, object *args) ;/*object self_73934, object r_73762*/
static void __lambda_173(void *data, object clo, int argc, object *args) ;/*object self_73929, object tmp_7397_73100_73365*/
static void __lambda_175(void *data, object clo, int argc, object *args) ;/*object self_73930, object r_73754*/
static void __lambda_176(void *data, object clo, int argc, object *args) ;/*object self_73931, object r_73755*/
static void __lambda_174(void *data, object clo, int argc, object *args) ;/*object self_73932, object k_73756*/
static void __lambda_172(void *data, object clo, int argc, object *args) ;/*object self_73928, object r_73753*/
static void __lambda_159(void *data, object clo, int argc, object *args) ;/*object self_73914, object col_7383_73358*/
static void __lambda_160(void *data, object clo, int argc, object *args) ;/*object self_73915, object loop_7384_73359*/
static void __lambda_248(void *data, object clo, int argc, object *args) ;/*object self_73916, object loop_7384_73359*/
static void __lambda_163(void *data, object clo, int argc, object *args) ;/*object self_73917, object k_73737, object i_7385_73360, object j_7386_73361, object col_7387_73362*/
static void __lambda_170(void *data, object clo, int argc, object *args) ;/*object self_73924, object r_73749*/
static void __lambda_171(void *data, object clo, int argc, object *args) ;/*object self_73925, object r_73748*/
static void __lambda_164(void *data, object clo, int argc, object *args) ;/*object self_73918, object c_7389_73363*/
static void __lambda_166(void *data, object clo, int argc, object *args) ;/*object self_73919, object r_73740*/
static void __lambda_167(void *data, object clo, int argc, object *args) ;/*object self_73920, object r_73744*/
static void __lambda_168(void *data, object clo, int argc, object *args) ;/*object self_73921, object r_73743*/
static void __lambda_169(void *data, object clo, int argc, object *args) ;/*object self_73922, object r_73742*/
static void __lambda_165(void *data, object clo, int argc, object *args) ;/*object self_73923, object k_73747*/
static void __lambda_161(void *data, object clo, int argc, object *args) ;/*object self_73926, object r_73736*/
static void __lambda_162(void *data, object clo, int argc, object *args) ;/*object self_73927, object r_73735*/
static void __lambda_158(void *data, object clo, int argc, object *args) ;/*object self_73913, object r_73731*/
static void __lambda_157(void *data, object clo, int argc, object *args) ;/*object self_73912, object r_73729*/
static void __lambda_153(void *data, object clo, int argc, object *args) ;/*object self_73908, object r_73724*/
static void __lambda_154(void *data, object clo, int argc, object *args) ;/*object self_73909, object r_73723*/
static void __lambda_155(void *data, object clo, int argc, object *args) ;/*object self_73910, object r_73721*/
static void __lambda_156(void *data, object clo, int argc, object *args) ;/*object self_73911, object r_73722*/
static void __lambda_150(void *data, object clo, int argc, object *args) ;/*object self_73905, object r_73718*/
static void __lambda_151(void *data, object clo, int argc, object *args) ;/*object self_73906, object r_73719*/
static void __lambda_148(void *data, object clo, int argc, object *args) ;/*object self_73935, object k_73765*/
static void __lambda_11(void *data, object clo, int argc, object *args) ;/*object self_73936, object r_73711*/
static void __lambda_12(void *data, object clo, int argc, object *args) ;/*object self_73937, object r_73511*/
static void __lambda_16(void *data, object clo, int argc, object *args) ;/*object self_73938, object k_73515, object obj_73111_73366, object col_73112_73367*/
static void __lambda_17(void *data, object clo, int argc, object *args) ;/*object self_73939, object spaces_73368, object indent_73369, object pr_73370, object pp_91expr_73371, object pp_91call_73372, object pp_91list_73373, object pp_91down_73374, object pp_91general_73375, object pp_91expr_91list_73376, object pp_91LAMBDA_73377, object pp_91IF_73378, object pp_91COND_73379, object pp_91CASE_73380, object pp_91AND_73381, object pp_91LET_73382, object pp_91BEGIN_73383, object pp_91DO_73384, object indent_91general_73385, object max_91call_91head_91width_73386, object max_91expr_91width_73387, object style_73388*/
static void __lambda_247(void *data, object clo, int argc, object *args) ;/*object self_73940, object spaces_73368*/
static void __lambda_246(void *data, object clo, int argc, object *args) ;/*object self_73941, object indent_73369*/
static void __lambda_245(void *data, object clo, int argc, object *args) ;/*object self_73942, object pr_73370*/
static void __lambda_244(void *data, object clo, int argc, object *args) ;/*object self_73943, object pp_91expr_73371*/
static void __lambda_243(void *data, object clo, int argc, object *args) ;/*object self_73944, object pp_91call_73372*/
static void __lambda_242(void *data, object clo, int argc, object *args) ;/*object self_73945, object pp_91list_73373*/
static void __lambda_241(void *data, object clo, int argc, object *args) ;/*object self_73946, object pp_91down_73374*/
static void __lambda_240(void *data, object clo, int argc, object *args) ;/*object self_73947, object pp_91general_73375*/
static void __lambda_239(void *data, object clo, int argc, object *args) ;/*object self_73948, object pp_91expr_91list_73376*/
static void __lambda_238(void *data, object clo, int argc, object *args) ;/*object self_73949, object pp_91LAMBDA_73377*/
static void __lambda_237(void *data, object clo, int argc, object *args) ;/*object self_73950, object pp_91IF_73378*/
static void __lambda_236(void *data, object clo, int argc, object *args) ;/*object self_73951, object pp_91COND_73379*/
static void __lambda_235(void *data, object clo, int argc, object *args) ;/*object self_73952, object pp_91CASE_73380*/
static void __lambda_234(void *data, object clo, int argc, object *args) ;/*object self_73953, object pp_91AND_73381*/
static void __lambda_233(void *data, object clo, int argc, object *args) ;/*object self_73954, object pp_91LET_73382*/
static void __lambda_232(void *data, object clo, int argc, object *args) ;/*object self_73955, object pp_91BEGIN_73383*/
static void __lambda_231(void *data, object clo, int argc, object *args) ;/*object self_73956, object pp_91DO_73384*/
static void __lambda_230(void *data, object clo, int argc, object *args) ;/*object self_73957, object indent_91general_73385*/
static void __lambda_229(void *data, object clo, int argc, object *args) ;/*object self_73958, object max_91call_91head_91width_73386*/
static void __lambda_228(void *data, object clo, int argc, object *args) ;/*object self_73959, object max_91expr_91width_73387*/
static void __lambda_227(void *data, object clo, int argc, object *args) ;/*object self_73960, object style_73388*/
static void __lambda_139(void *data, object clo, int argc, object *args) ;/*object self_73961, object k_73705, object n_73113_73389, object col_73114_73390*/
static void __lambda_141(void *data, object clo, int argc, object *args) ;/*object self_73963, object r_73710*/
static void __lambda_140(void *data, object clo, int argc, object *args) ;/*object self_73962, object r_73709*/
static void __lambda_18(void *data, object clo, int argc, object *args) ;/*object self_73964, object r_73704*/
static void __lambda_19(void *data, object clo, int argc, object *args) ;/*object self_73965, object r_73516*/
static void __lambda_137(void *data, object clo, int argc, object *args) ;/*object self_73966, object k_73700, object to_73115_73391, object col_73116_73392*/
static void __lambda_138(void *data, object clo, int argc, object *args) ;/*object self_73967, object r_73702*/
static void __lambda_20(void *data, object clo, int argc, object *args) ;/*object self_73968, object r_73699*/
static void __lambda_21(void *data, object clo, int argc, object *args) ;/*object self_73969, object r_73517*/
static void __lambda_122(void *data, object clo, int argc, object *args) ;/*object self_73970, object k_73676, object obj_73119_73393, object col_73120_73394, object extra_73121_73395, object pp_91pair_73122_73396*/
static void __lambda_124(void *data, object clo, int argc, object *args) ;/*object self_73971, object r_73677*/
static void __lambda_125(void *data, object clo, int argc, object *args) ;/*object self_73972, object r_73679*/
static void __lambda_126(void *data, object clo, int argc, object *args) ;/*object self_73973, object result_73131_73399, object left_73132_73400*/
static void __lambda_226(void *data, object clo, int argc, object *args) ;/*object self_73974, object result_73131_73399*/
static void __lambda_225(void *data, object clo, int argc, object *args) ;/*object self_73975, object left_73132_73400*/
static void __lambda_132(void *data, object clo, int argc, object *args) ;/*object self_73976, object k_73687, object str_73133_73401*/
static void __lambda_133(void *data, object clo, int argc, object *args) ;/*object self_73977, object r_73692*/
static void __lambda_134(void *data, object clo, int argc, object *args) ;/*object self_73978, object r_73688*/
static void __lambda_135(void *data, object clo, int argc, object *args) ;/*object self_73979, object r_73690*/
static void __lambda_136(void *data, object clo, int argc, object *args) ;/*object self_73980, object r_73689*/
static void __lambda_127(void *data, object clo, int argc, object *args) ;/*object self_73981, object r_73686*/
static void __lambda_128(void *data, object clo, int argc, object *args) ;/*object self_73982, object r_73680*/
static void __lambda_130(void *data, object clo, int argc, object *args) ;/*object self_73984, object r_73684*/
static void __lambda_131(void *data, object clo, int argc, object *args) ;/*object self_73985, object r_73685*/
static void __lambda_129(void *data, object clo, int argc, object *args) ;/*object self_73983, object r_73682*/
static void __lambda_123(void *data, object clo, int argc, object *args) ;/*object self_73986, object k_73697*/
static void __lambda_22(void *data, object clo, int argc, object *args) ;/*object self_73987, object r_73675*/
static void __lambda_23(void *data, object clo, int argc, object *args) ;/*object self_73988, object r_73518*/
static void __lambda_114(void *data, object clo, int argc, object *args) ;/*object self_73989, object k_73664, object expr_73134_73402, object col_73135_73403, object extra_73136_73404*/
static void __lambda_115(void *data, object clo, int argc, object *args) ;/*object self_73990, object r_73665*/
static void __lambda_119(void *data, object clo, int argc, object *args) ;/*object self_73994, object head_73137_73405*/
static void __lambda_120(void *data, object clo, int argc, object *args) ;/*object self_73995, object proc_73138_73406*/
static void __lambda_121(void *data, object clo, int argc, object *args) ;/*object self_73996, object r_73674*/
static void __lambda_116(void *data, object clo, int argc, object *args) ;/*object self_73991, object r_73666*/
static void __lambda_117(void *data, object clo, int argc, object *args) ;/*object self_73992, object r_73668*/
static void __lambda_118(void *data, object clo, int argc, object *args) ;/*object self_73993, object r_73667*/
static void __lambda_24(void *data, object clo, int argc, object *args) ;/*object self_73997, object r_73663*/
static void __lambda_25(void *data, object clo, int argc, object *args) ;/*object self_73998, object r_73519*/
static void __lambda_111(void *data, object clo, int argc, object *args) ;/*object self_73999, object k_73657, object expr_73139_73407, object col_73140_73408, object extra_73141_73409, object pp_91item_73142_73410*/
static void __lambda_112(void *data, object clo, int argc, object *args) ;/*object self_731000, object r_73662*/
static void __lambda_113(void *data, object clo, int argc, object *args) ;/*object self_731001, object col_85_73143_73411*/
static void __lambda_26(void *data, object clo, int argc, object *args) ;/*object self_731002, object r_73656*/
static void __lambda_27(void *data, object clo, int argc, object *args) ;/*object self_731003, object r_73520*/
static void __lambda_109(void *data, object clo, int argc, object *args) ;/*object self_731004, object k_73654, object l_73145_73412, object col_73146_73413, object extra_73147_73414, object pp_91item_73148_73415*/
static void __lambda_110(void *data, object clo, int argc, object *args) ;/*object self_731005, object col_73149_73416*/
static void __lambda_28(void *data, object clo, int argc, object *args) ;/*object self_731006, object r_73653*/
static void __lambda_29(void *data, object clo, int argc, object *args) ;/*object self_731007, object r_73521*/
static void __lambda_96(void *data, object clo, int argc, object *args) ;/*object self_731008, object k_73635, object l_73150_73417, object col1_73151_73418, object col2_73152_73419, object extra_73153_73420, object pp_91item_73154_73421*/
static void __lambda_97(void *data, object clo, int argc, object *args) ;/*object self_731009, object l_73156_73422, object col_73157_73423*/
static void __lambda_98(void *data, object clo, int argc, object *args) ;/*object self_731010, object loop_73158_73424*/
static void __lambda_224(void *data, object clo, int argc, object *args) ;/*object self_731011, object loop_73158_73424*/
static void __lambda_101(void *data, object clo, int argc, object *args) ;/*object self_731012, object k_73638, object l_73159_73425, object col_73160_73426*/
static void __lambda_104(void *data, object clo, int argc, object *args) ;/*object self_731015, object r_73652*/
static void __lambda_105(void *data, object clo, int argc, object *args) ;/*object self_731016, object r_73651*/
static void __lambda_106(void *data, object clo, int argc, object *args) ;/*object self_731017, object r_73649*/
static void __lambda_107(void *data, object clo, int argc, object *args) ;/*object self_731018, object r_73650*/
static void __lambda_108(void *data, object clo, int argc, object *args) ;/*object self_731019, object r_73648*/
static void __lambda_102(void *data, object clo, int argc, object *args) ;/*object self_731013, object r_73644*/
static void __lambda_103(void *data, object clo, int argc, object *args) ;/*object self_731014, object r_73642*/
static void __lambda_99(void *data, object clo, int argc, object *args) ;/*object self_731020, object r_73637*/
static void __lambda_100(void *data, object clo, int argc, object *args) ;/*object self_731021, object r_73636*/
static void __lambda_30(void *data, object clo, int argc, object *args) ;/*object self_731022, object r_73634*/
static void __lambda_31(void *data, object clo, int argc, object *args) ;/*object self_731023, object r_73522*/
static void __lambda_73(void *data, object clo, int argc, object *args) ;/*object self_731024, object k_73592, object expr_73171_73429, object col_73172_73430, object extra_73173_73431, object named_127_73174_73432, object pp_911_73175_73433, object pp_912_73176_73434, object pp_913_73177_73435*/
static void __lambda_74(void *data, object clo, int argc, object *args) ;/*object self_731025, object tail1_73436, object tail2_73437, object tail3_73438*/
static void __lambda_223(void *data, object clo, int argc, object *args) ;/*object self_731026, object tail1_73436*/
static void __lambda_222(void *data, object clo, int argc, object *args) ;/*object self_731027, object tail2_73437*/
static void __lambda_221(void *data, object clo, int argc, object *args) ;/*object self_731028, object tail3_73438*/
static void __lambda_91(void *data, object clo, int argc, object *args) ;/*object self_731029, object k_73624, object rest_73178_73439, object col1_73179_73440, object col2_73180_73441, object col3_73181_73442*/
static void __lambda_93(void *data, object clo, int argc, object *args) ;/*object self_731030, object extra_73191_73445*/
static void __lambda_94(void *data, object clo, int argc, object *args) ;/*object self_731031, object r_73630*/
static void __lambda_95(void *data, object clo, int argc, object *args) ;/*object self_731032, object r_73629*/
static void __lambda_92(void *data, object clo, int argc, object *args) ;/*object self_731033, object k_73631*/
static void __lambda_75(void *data, object clo, int argc, object *args) ;/*object self_731034, object r_73623*/
static void __lambda_76(void *data, object clo, int argc, object *args) ;/*object self_731035, object r_73593*/
static void __lambda_86(void *data, object clo, int argc, object *args) ;/*object self_731036, object k_73613, object rest_73193_73446, object col1_73194_73447, object col2_73195_73448, object col3_73196_73449*/
static void __lambda_88(void *data, object clo, int argc, object *args) ;/*object self_731037, object extra_73206_73452*/
static void __lambda_89(void *data, object clo, int argc, object *args) ;/*object self_731038, object r_73619*/
static void __lambda_90(void *data, object clo, int argc, object *args) ;/*object self_731039, object r_73618*/
static void __lambda_87(void *data, object clo, int argc, object *args) ;/*object self_731040, object k_73620*/
static void __lambda_77(void *data, object clo, int argc, object *args) ;/*object self_731041, object r_73612*/
static void __lambda_78(void *data, object clo, int argc, object *args) ;/*object self_731042, object r_73594*/
static void __lambda_85(void *data, object clo, int argc, object *args) ;/*object self_731043, object k_73611, object rest_73208_73453, object col1_73209_73454, object col2_73210_73455*/
static void __lambda_79(void *data, object clo, int argc, object *args) ;/*object self_731044, object r_73610*/
static void __lambda_80(void *data, object clo, int argc, object *args) ;/*object self_731045, object r_73595*/
static void __lambda_81(void *data, object clo, int argc, object *args) ;/*object self_731046, object r_73609*/
static void __lambda_82(void *data, object clo, int argc, object *args) ;/*object self_731047, object col_85_73219_73458*/
static void __lambda_83(void *data, object clo, int argc, object *args) ;/*object self_731048, object r_73605*/
static void __lambda_84(void *data, object clo, int argc, object *args) ;/*object self_731049, object col_85_85_73230_73461*/
static void __lambda_32(void *data, object clo, int argc, object *args) ;/*object self_731050, object r_73591*/
static void __lambda_33(void *data, object clo, int argc, object *args) ;/*object self_731051, object r_73523*/
static void __lambda_72(void *data, object clo, int argc, object *args) ;/*object self_731052, object k_73590, object l_73232_73462, object col_73233_73463, object extra_73234_73464*/
static void __lambda_34(void *data, object clo, int argc, object *args) ;/*object self_731053, object r_73589*/
static void __lambda_35(void *data, object clo, int argc, object *args) ;/*object self_731054, object r_73524*/
static void __lambda_71(void *data, object clo, int argc, object *args) ;/*object self_731055, object k_73588, object expr_73235_73465, object col_73236_73466, object extra_73237_73467*/
static void __lambda_36(void *data, object clo, int argc, object *args) ;/*object self_731056, object r_73587*/
static void __lambda_37(void *data, object clo, int argc, object *args) ;/*object self_731057, object r_73525*/
static void __lambda_70(void *data, object clo, int argc, object *args) ;/*object self_731058, object k_73586, object expr_73238_73468, object col_73239_73469, object extra_73240_73470*/
static void __lambda_38(void *data, object clo, int argc, object *args) ;/*object self_731059, object r_73585*/
static void __lambda_39(void *data, object clo, int argc, object *args) ;/*object self_731060, object r_73526*/
static void __lambda_69(void *data, object clo, int argc, object *args) ;/*object self_731061, object k_73584, object expr_73241_73471, object col_73242_73472, object extra_73243_73473*/
static void __lambda_40(void *data, object clo, int argc, object *args) ;/*object self_731062, object r_73583*/
static void __lambda_41(void *data, object clo, int argc, object *args) ;/*object self_731063, object r_73527*/
static void __lambda_68(void *data, object clo, int argc, object *args) ;/*object self_731064, object k_73582, object expr_73244_73474, object col_73245_73475, object extra_73246_73476*/
static void __lambda_42(void *data, object clo, int argc, object *args) ;/*object self_731065, object r_73581*/
static void __lambda_43(void *data, object clo, int argc, object *args) ;/*object self_731066, object r_73528*/
static void __lambda_67(void *data, object clo, int argc, object *args) ;/*object self_731067, object k_73580, object expr_73247_73477, object col_73248_73478, object extra_73249_73479*/
static void __lambda_44(void *data, object clo, int argc, object *args) ;/*object self_731068, object r_73579*/
static void __lambda_45(void *data, object clo, int argc, object *args) ;/*object self_731069, object r_73529*/
static void __lambda_65(void *data, object clo, int argc, object *args) ;/*object self_731070, object k_73573, object expr_73250_73480, object col_73251_73481, object extra_73252_73482*/
static void __lambda_66(void *data, object clo, int argc, object *args) ;/*object self_731071, object rest_73255_73483*/
static void __lambda_46(void *data, object clo, int argc, object *args) ;/*object self_731072, object r_73572*/
static void __lambda_47(void *data, object clo, int argc, object *args) ;/*object self_731073, object r_73530*/
static void __lambda_64(void *data, object clo, int argc, object *args) ;/*object self_731074, object k_73571, object expr_73261_73485, object col_73262_73486, object extra_73263_73487*/
static void __lambda_48(void *data, object clo, int argc, object *args) ;/*object self_731075, object r_73570*/
static void __lambda_49(void *data, object clo, int argc, object *args) ;/*object self_731076, object r_73531*/
static void __lambda_63(void *data, object clo, int argc, object *args) ;/*object self_731077, object k_73569, object expr_73264_73488, object col_73265_73489, object extra_73266_73490*/
static void __lambda_50(void *data, object clo, int argc, object *args) ;/*object self_731078, object r_73568*/
static void __lambda_51(void *data, object clo, int argc, object *args) ;/*object self_731079, object r_73532*/
static void __lambda_52(void *data, object clo, int argc, object *args) ;/*object self_731080, object r_73533*/
static void __lambda_53(void *data, object clo, int argc, object *args) ;/*object self_731081, object r_73534*/
static void __lambda_54(void *data, object clo, int argc, object *args) ;/*object self_731082, object r_73535*/
static void __lambda_57(void *data, object clo, int argc, object *args) ;/*object self_731083, object k_73538, object head_73267_73491*/
static void __lambda_58(void *data, object clo, int argc, object *args) ;/*object self_731084, object tmp_73268_73271_73492*/
static void __lambda_60(void *data, object clo, int argc, object *args) ;/*object self_731085, object r_73540*/
static void __lambda_62(void *data, object clo, int argc, object *args) ;/*object self_731086, object r_73543*/
static void __lambda_61(void *data, object clo, int argc, object *args) ;/*object self_731087, object k_73550*/
static void __lambda_59(void *data, object clo, int argc, object *args) ;/*object self_731088, object k_73556*/
static void __lambda_55(void *data, object clo, int argc, object *args) ;/*object self_731089, object r_73537*/
static void __lambda_56(void *data, object clo, int argc, object *args) ;/*object self_731090, object r_73536*/
static void __lambda_13(void *data, object clo, int argc, object *args) ;/*object self_731091, object r_73514*/
static void __lambda_14(void *data, object clo, int argc, object *args) ;/*object self_731092, object r_73512*/
static void __lambda_15(void *data, object clo, int argc, object *args) ;/*object self_731093, object r_73513*/

static void __lambda_217(void *data, object _, int argc, object *args) /* closure _,object k_73845 */
 {
object k_73845 = args[0];
  Cyc_st_add(data, "scheme/cyclone/pretty-print.sld:lib-init:schemecyclonepretty_91print");

closureN_type c_733264;
object e_733282 [1];
c_733264.hdr.mark = gc_color_red;
 c_733264.hdr.grayed = 0;
c_733264.tag = closureN_tag;
 c_733264.fn = (function_type)__lambda_218;
c_733264.num_args = 1;
c_733264.num_elements = 1;
c_733264.elements = (object *)e_733282;
c_733264.elements[0] = k_73845;

return_direct_with_clo3(data,  __glo_make_91string_scheme_base, (((closure)  __glo_make_91string_scheme_base)->fn),  &c_733264, obj_int2obj(1), obj_char2obj(10));; 
}

static void __lambda_218(void *data, object self_731101, int argc, object *args) /* object self_731101, object r_73849 */
 {
 object r_73849 = args[0];
  
closureN_type c_733266;
object e_733278 [1];
c_733266.hdr.mark = gc_color_red;
 c_733266.hdr.grayed = 0;
c_733266.tag = closureN_tag;
 c_733266.fn = (function_type)__lambda_219;
c_733266.num_args = 1;
c_733266.num_elements = 1;
c_733266.elements = (object *)e_733278;
c_733266.elements[0] = ((closureN)self_731101)->elements[0];


object c_733281 = global_set_cps_id(data,(closure)&c_733266,"__glo_genwrite_117newline_91str_scheme_cyclone_pretty_91print", __glo_genwrite_117newline_91str_scheme_cyclone_pretty_91print, r_73849);
return_closcall1(data,(closure)&c_733266,  c_733281);; 
}

static void __lambda_219(void *data, object self_731102, int argc, object *args) /* object self_731102, object r_73847 */
 {

  
closureN_type c_733268;
object e_733274 [1];
c_733268.hdr.mark = gc_color_red;
 c_733268.hdr.grayed = 0;
c_733268.tag = closureN_tag;
 c_733268.fn = (function_type)__lambda_220;
c_733268.num_args = 1;
c_733268.num_elements = 1;
c_733268.elements = (object *)e_733274;
c_733268.elements[0] = ((closureN)self_731102)->elements[0];


object c_733277 = global_set_cps_id(data,(closure)&c_733268,"__glo_spp_scheme_cyclone_pretty_91print", __glo_spp_scheme_cyclone_pretty_91print, __glo_sexp_91pretty_91print_scheme_cyclone_pretty_91print);
return_closcall1(data,(closure)&c_733268,  c_733277);; 
}

static void __lambda_220(void *data, object self_731103, int argc, object *args) /* object self_731103, object r_73848 */
 {

  
object c_733273 = global_set_cps_id(data,  ((closureN)self_731103)->elements[0],"__glo_pretty_91print_scheme_cyclone_pretty_91print", __glo_pretty_91print_scheme_cyclone_pretty_91print, __glo_spp_scheme_cyclone_pretty_91print);
return_direct_with_clo1(data,  ((closureN)self_731103)->elements[0], (((closure)  ((closureN)self_731103)->elements[0])->fn),  c_733273);; 
}

static void __lambda_210(void *data, object _, int argc, object *args) /* closure _,object k_73833, object obj_73273_73494, object opt_73274_73495_raw, ... */
 {
object k_73833 = args[0]; object obj_73273_73494 = args[1];
load_varargs(opt_73274_73495, args, 2, argc - 2);
  Cyc_st_add(data, "scheme/cyclone/pretty-print.sld:sexp-pretty-print");

closureN_type c_733232;
object e_733241 [1];
c_733232.hdr.mark = gc_color_red;
 c_733232.hdr.grayed = 0;
c_733232.tag = closureN_tag;
 c_733232.fn = (function_type)__lambda_211;
c_733232.num_args = 0;
c_733232.num_elements = 1;
c_733232.elements = (object *)e_733241;
c_733232.elements[0] = opt_73274_73495;


closureN_type c_733242;
object e_733261 [2];
c_733242.hdr.mark = gc_color_red;
 c_733242.hdr.grayed = 0;
c_733242.tag = closureN_tag;
 c_733242.fn = (function_type)__lambda_212;
c_733242.num_args = 1;
c_733242.num_elements = 2;
c_733242.elements = (object *)e_733261;
c_733242.elements[0] = k_73833;
c_733242.elements[1] = obj_73273_73494;

return_direct_with_clo1(data,(closure)&c_733232,__lambda_211,  &c_733242);; 
}

static void __lambda_212(void *data, object self_731095, int argc, object *args) /* object self_731095, object port_73275_73496 */
 {
 object port_73275_73496 = args[0];
  
closureN_type c_733244;
object e_733252 [2];
c_733244.hdr.mark = gc_color_red;
 c_733244.hdr.grayed = 0;
c_733244.tag = closureN_tag;
 c_733244.fn = (function_type)__lambda_213;
c_733244.num_args = 1;
c_733244.num_elements = 2;
c_733244.elements = (object *)e_733252;
c_733244.elements[0] = ((closureN)self_731095)->elements[0];
c_733244.elements[1] = ((closureN)self_731095)->elements[1];


closureN_type c_733253;
object e_733260 [1];
c_733253.hdr.mark = gc_color_red;
 c_733253.hdr.grayed = 0;
c_733253.tag = closureN_tag;
 c_733253.fn = (function_type)__lambda_215;
c_733253.num_args = 1;
c_733253.num_elements = 1;
c_733253.elements = (object *)e_733260;
c_733253.elements[0] = port_73275_73496;

return_direct_with_clo1(data,(closure)&c_733244,__lambda_213,  &c_733253);; 
}

static void __lambda_215(void *data, object self_731096, int argc, object *args) /* object self_731096, object k_73837, object s_73276_73497 */
 {
 object k_73837 = args[0]; object s_73276_73497 = args[1];
  
closureN_type c_733255;
object e_733258 [1];
c_733255.hdr.mark = gc_color_red;
 c_733255.hdr.grayed = 0;
c_733255.tag = closureN_tag;
 c_733255.fn = (function_type)__lambda_216;
c_733255.num_args = 1;
c_733255.num_elements = 1;
c_733255.elements = (object *)e_733258;
c_733255.elements[0] = k_73837;

return_direct_with_clo3(data,  __glo_display_scheme_write, (((closure)  __glo_display_scheme_write)->fn),  &c_733255, s_73276_73497, ((closureN)self_731096)->elements[0]);; 
}

static void __lambda_216(void *data, object self_731097, int argc, object *args) /* object self_731097, object r_73838 */
 {

  return_direct_with_clo1(data,  ((closureN)self_731097)->elements[0], (((closure)  ((closureN)self_731097)->elements[0])->fn),  boolean_t);; 
}

static void __lambda_213(void *data, object self_731098, int argc, object *args) /* object self_731098, object r_73836 */
 {
 object r_73836 = args[0];
  
closureN_type c_733246;
object e_733250 [1];
c_733246.hdr.mark = gc_color_red;
 c_733246.hdr.grayed = 0;
c_733246.tag = closureN_tag;
 c_733246.fn = (function_type)__lambda_214;
c_733246.num_args = 1;
c_733246.num_elements = 1;
c_733246.elements = (object *)e_733250;
c_733246.elements[0] = ((closureN)self_731098)->elements[0];

return_direct_with_clo5(data,  __glo_generic_91write_scheme_cyclone_pretty_91print, (((closure)  __glo_generic_91write_scheme_cyclone_pretty_91print)->fn),  &c_733246, ((closureN)self_731098)->elements[1], boolean_f, __glo_pp_91width_scheme_cyclone_pretty_91print, r_73836);; 
}

static void __lambda_214(void *data, object self_731099, int argc, object *args) /* object self_731099, object r_73835 */
 {

  
make_utf8_string_with_len(c_733249, "", 0, 0);
return_direct_with_clo2(data,  __glo_display_scheme_write, (((closure)  __glo_display_scheme_write)->fn),  ((closureN)self_731099)->elements[0], &c_733249);; 
}

static void __lambda_211(void *data, object self_731100, int argc, object *args) /* object self_731100, object k_73839 */
 {
 object k_73839 = args[0];
    
if( (boolean_f != Cyc_is_pair(((closureN)self_731100)->elements[0])) ){ 
  

return_direct_with_clo1(data,  k_73839, (((closure)  k_73839)->fn),  Cyc_car(data, ((closureN)self_731100)->elements[0]));
} else { 
  return_direct_with_clo1(data,  __glo_current_91output_91port_scheme_base, (((closure)  __glo_current_91output_91port_scheme_base)->fn),  k_73839);}
;; 
}

static void __lambda_208(void *data, object _, int argc, object *args) /* closure _,object k_73829, object l_73272_73493 */
 {
object k_73829 = args[0]; object l_73272_73493 = args[1];
  Cyc_st_add(data, "scheme/cyclone/pretty-print.sld:reverse-string-append");

closureN_type c_733223;
object e_733229 [1];
c_733223.hdr.mark = gc_color_red;
 c_733223.hdr.grayed = 0;
c_733223.tag = closureN_tag;
 c_733223.fn = (function_type)__lambda_209;
c_733223.num_args = 1;
c_733223.num_elements = 1;
c_733223.elements = (object *)e_733229;
c_733223.elements[0] = k_73829;

return_direct_with_clo2(data,  __glo_reverse_scheme_base, (((closure)  __glo_reverse_scheme_base)->fn),  &c_733223, l_73272_73493);; 
}

static void __lambda_209(void *data, object self_731094, int argc, object *args) /* object self_731094, object r_73830 */
 {
 object r_73830 = args[0];
  
object c_733228 = apply(data,  ((closureN)self_731094)->elements[0],primitive_string_91append, r_73830);
return_direct_with_clo1(data,  ((closureN)self_731094)->elements[0], (((closure)  ((closureN)self_731094)->elements[0])->fn),  c_733228);; 
}

static void __lambda_1(void *data, object _, int argc, object *args) /* closure _,object k_73506, object obj_731_73280, object display_127_732_73281, object width_733_73282, object output_734_73283 */
 {
object k_73506 = args[0]; object obj_731_73280 = args[1]; object display_127_732_73281 = args[2]; object width_733_73282 = args[3]; object output_734_73283 = args[4];
  Cyc_st_add(data, "scheme/cyclone/pretty-print.sld:generic-write");

closureN_type c_731106;
object e_733220 [5];
c_731106.hdr.mark = gc_color_red;
 c_731106.hdr.grayed = 0;
c_731106.tag = closureN_tag;
 c_731106.fn = (function_type)__lambda_2;
c_731106.num_args = 6;
c_731106.num_elements = 5;
c_731106.elements = (object *)e_733220;
c_731106.elements[0] = display_127_732_73281;
c_731106.elements[1] = k_73506;
c_731106.elements[2] = obj_731_73280;
c_731106.elements[3] = output_734_73283;
c_731106.elements[4] = width_733_73282;

return_direct_with_clo6(data,(closure)&c_731106,__lambda_2,  boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f);; 
}

static void __lambda_2(void *data, object self_73850, int argc, object *args) /* object self_73850, object out_73295, object pp_73296, object read_91macro_91body_73312, object read_91macro_91prefix_73313, object read_91macro_127_73314, object wr_73320 */
 {
 object out_73295 = args[0]; object pp_73296 = args[1]; object read_91macro_91body_73312 = args[2]; object read_91macro_91prefix_73313 = args[3]; object read_91macro_127_73314 = args[4]; object wr_73320 = args[5];
  
closureN_type c_731108;
object e_733216 [10];
c_731108.hdr.mark = gc_color_red;
 c_731108.hdr.grayed = 0;
c_731108.tag = closureN_tag;
 c_731108.fn = (function_type)__lambda_258;
c_731108.num_args = 1;
c_731108.num_elements = 10;
c_731108.elements = (object *)e_733216;
c_731108.elements[0] = ((closureN)self_73850)->elements[0];
c_731108.elements[1] = ((closureN)self_73850)->elements[1];
c_731108.elements[2] = ((closureN)self_73850)->elements[2];
c_731108.elements[3] = ((closureN)self_73850)->elements[3];
c_731108.elements[4] = pp_73296;
c_731108.elements[5] = read_91macro_91body_73312;
c_731108.elements[6] = read_91macro_91prefix_73313;
c_731108.elements[7] = read_91macro_127_73314;
c_731108.elements[8] = ((closureN)self_73850)->elements[4];
c_731108.elements[9] = wr_73320;


pair_type local_733219; 
return_direct_with_clo1(data,(closure)&c_731108,__lambda_258,  set_cell_as_expr(&local_733219, out_73295));; 
}

static void __lambda_258(void *data, object self_73851, int argc, object *args) /* object self_73851, object out_73295 */
 {
 object out_73295 = args[0];
  
closureN_type c_731110;
object e_733211 [10];
c_731110.hdr.mark = gc_color_red;
 c_731110.hdr.grayed = 0;
c_731110.tag = closureN_tag;
 c_731110.fn = (function_type)__lambda_257;
c_731110.num_args = 1;
c_731110.num_elements = 10;
c_731110.elements = (object *)e_733211;
c_731110.elements[0] = ((closureN)self_73851)->elements[0];
c_731110.elements[1] = ((closureN)self_73851)->elements[1];
c_731110.elements[2] = ((closureN)self_73851)->elements[2];
c_731110.elements[3] = out_73295;
c_731110.elements[4] = ((closureN)self_73851)->elements[3];
c_731110.elements[5] = ((closureN)self_73851)->elements[5];
c_731110.elements[6] = ((closureN)self_73851)->elements[6];
c_731110.elements[7] = ((closureN)self_73851)->elements[7];
c_731110.elements[8] = ((closureN)self_73851)->elements[8];
c_731110.elements[9] = ((closureN)self_73851)->elements[9];


pair_type local_733214; 
return_direct_with_clo1(data,(closure)&c_731110,__lambda_257,  set_cell_as_expr(&local_733214, ((closureN)self_73851)->elements[4]));; 
}

static void __lambda_257(void *data, object self_73852, int argc, object *args) /* object self_73852, object pp_73296 */
 {
 object pp_73296 = args[0];
  
closureN_type c_731112;
object e_733206 [10];
c_731112.hdr.mark = gc_color_red;
 c_731112.hdr.grayed = 0;
c_731112.tag = closureN_tag;
 c_731112.fn = (function_type)__lambda_256;
c_731112.num_args = 1;
c_731112.num_elements = 10;
c_731112.elements = (object *)e_733206;
c_731112.elements[0] = ((closureN)self_73852)->elements[0];
c_731112.elements[1] = ((closureN)self_73852)->elements[1];
c_731112.elements[2] = ((closureN)self_73852)->elements[2];
c_731112.elements[3] = ((closureN)self_73852)->elements[3];
c_731112.elements[4] = ((closureN)self_73852)->elements[4];
c_731112.elements[5] = pp_73296;
c_731112.elements[6] = ((closureN)self_73852)->elements[6];
c_731112.elements[7] = ((closureN)self_73852)->elements[7];
c_731112.elements[8] = ((closureN)self_73852)->elements[8];
c_731112.elements[9] = ((closureN)self_73852)->elements[9];


pair_type local_733209; 
return_direct_with_clo1(data,(closure)&c_731112,__lambda_256,  set_cell_as_expr(&local_733209, ((closureN)self_73852)->elements[5]));; 
}

static void __lambda_256(void *data, object self_73853, int argc, object *args) /* object self_73853, object read_91macro_91body_73312 */
 {
 object read_91macro_91body_73312 = args[0];
  
closureN_type c_731114;
object e_733201 [10];
c_731114.hdr.mark = gc_color_red;
 c_731114.hdr.grayed = 0;
c_731114.tag = closureN_tag;
 c_731114.fn = (function_type)__lambda_255;
c_731114.num_args = 1;
c_731114.num_elements = 10;
c_731114.elements = (object *)e_733201;
c_731114.elements[0] = ((closureN)self_73853)->elements[0];
c_731114.elements[1] = ((closureN)self_73853)->elements[1];
c_731114.elements[2] = ((closureN)self_73853)->elements[2];
c_731114.elements[3] = ((closureN)self_73853)->elements[3];
c_731114.elements[4] = ((closureN)self_73853)->elements[4];
c_731114.elements[5] = ((closureN)self_73853)->elements[5];
c_731114.elements[6] = read_91macro_91body_73312;
c_731114.elements[7] = ((closureN)self_73853)->elements[7];
c_731114.elements[8] = ((closureN)self_73853)->elements[8];
c_731114.elements[9] = ((closureN)self_73853)->elements[9];


pair_type local_733204; 
return_direct_with_clo1(data,(closure)&c_731114,__lambda_255,  set_cell_as_expr(&local_733204, ((closureN)self_73853)->elements[6]));; 
}

static void __lambda_255(void *data, object self_73854, int argc, object *args) /* object self_73854, object read_91macro_91prefix_73313 */
 {
 object read_91macro_91prefix_73313 = args[0];
  
closureN_type c_731116;
object e_733196 [10];
c_731116.hdr.mark = gc_color_red;
 c_731116.hdr.grayed = 0;
c_731116.tag = closureN_tag;
 c_731116.fn = (function_type)__lambda_254;
c_731116.num_args = 1;
c_731116.num_elements = 10;
c_731116.elements = (object *)e_733196;
c_731116.elements[0] = ((closureN)self_73854)->elements[0];
c_731116.elements[1] = ((closureN)self_73854)->elements[1];
c_731116.elements[2] = ((closureN)self_73854)->elements[2];
c_731116.elements[3] = ((closureN)self_73854)->elements[3];
c_731116.elements[4] = ((closureN)self_73854)->elements[4];
c_731116.elements[5] = ((closureN)self_73854)->elements[5];
c_731116.elements[6] = ((closureN)self_73854)->elements[6];
c_731116.elements[7] = read_91macro_91prefix_73313;
c_731116.elements[8] = ((closureN)self_73854)->elements[8];
c_731116.elements[9] = ((closureN)self_73854)->elements[9];


pair_type local_733199; 
return_direct_with_clo1(data,(closure)&c_731116,__lambda_254,  set_cell_as_expr(&local_733199, ((closureN)self_73854)->elements[7]));; 
}

static void __lambda_254(void *data, object self_73855, int argc, object *args) /* object self_73855, object read_91macro_127_73314 */
 {
 object read_91macro_127_73314 = args[0];
  
closureN_type c_731118;
object e_733191 [10];
c_731118.hdr.mark = gc_color_red;
 c_731118.hdr.grayed = 0;
c_731118.tag = closureN_tag;
 c_731118.fn = (function_type)__lambda_253;
c_731118.num_args = 1;
c_731118.num_elements = 10;
c_731118.elements = (object *)e_733191;
c_731118.elements[0] = ((closureN)self_73855)->elements[0];
c_731118.elements[1] = ((closureN)self_73855)->elements[1];
c_731118.elements[2] = ((closureN)self_73855)->elements[2];
c_731118.elements[3] = ((closureN)self_73855)->elements[3];
c_731118.elements[4] = ((closureN)self_73855)->elements[4];
c_731118.elements[5] = ((closureN)self_73855)->elements[5];
c_731118.elements[6] = ((closureN)self_73855)->elements[6];
c_731118.elements[7] = ((closureN)self_73855)->elements[7];
c_731118.elements[8] = read_91macro_127_73314;
c_731118.elements[9] = ((closureN)self_73855)->elements[8];


pair_type local_733194; 
return_direct_with_clo1(data,(closure)&c_731118,__lambda_253,  set_cell_as_expr(&local_733194, ((closureN)self_73855)->elements[9]));; 
}

static void __lambda_253(void *data, object self_73856, int argc, object *args) /* object self_73856, object wr_73320 */
 {
 object wr_73320 = args[0];
  
closureN_type c_731120;
object e_733127 [11];
c_731120.hdr.mark = gc_color_red;
 c_731120.hdr.grayed = 0;
c_731120.tag = closureN_tag;
 c_731120.fn = (function_type)__lambda_3;
c_731120.num_args = 1;
c_731120.num_elements = 11;
c_731120.elements = (object *)e_733127;
c_731120.elements[0] = ((closureN)self_73856)->elements[0];
c_731120.elements[1] = ((closureN)self_73856)->elements[1];
c_731120.elements[2] = ((closureN)self_73856)->elements[2];
c_731120.elements[3] = ((closureN)self_73856)->elements[3];
c_731120.elements[4] = ((closureN)self_73856)->elements[4];
c_731120.elements[5] = ((closureN)self_73856)->elements[5];
c_731120.elements[6] = ((closureN)self_73856)->elements[6];
c_731120.elements[7] = ((closureN)self_73856)->elements[7];
c_731120.elements[8] = ((closureN)self_73856)->elements[8];
c_731120.elements[9] = ((closureN)self_73856)->elements[9];
c_731120.elements[10] = wr_73320;


mclosure0(c_733128, (function_type)__lambda_203);c_733128.num_args = 1;
return_direct_with_clo1(data,(closure)&c_731120,__lambda_3,  &c_733128);; 
}

static void __lambda_203(void *data, object self_73857, int argc, object *args) /* object self_73857, object k_73810, object l_735_73329 */
 {
 object k_73810 = args[0]; object l_735_73329 = args[1];
  
closureN_type c_733130;
object e_733190 [2];
c_733130.hdr.mark = gc_color_red;
 c_733130.hdr.grayed = 0;
c_733130.tag = closureN_tag;
 c_733130.fn = (function_type)__lambda_204;
c_733130.num_args = 1;
c_733130.num_elements = 2;
c_733130.elements = (object *)e_733190;
c_733130.elements[0] = k_73810;
c_733130.elements[1] = l_735_73329;

return_direct_with_clo1(data,(closure)&c_733130,__lambda_204,  boolean_f);; 
}

static void __lambda_204(void *data, object self_73858, int argc, object *args) /* object self_73858, object length1_127_73330 */
 {
 object length1_127_73330 = args[0];
  
closureN_type c_733132;
object e_733186 [2];
c_733132.hdr.mark = gc_color_red;
 c_733132.hdr.grayed = 0;
c_733132.tag = closureN_tag;
 c_733132.fn = (function_type)__lambda_252;
c_733132.num_args = 1;
c_733132.num_elements = 2;
c_733132.elements = (object *)e_733186;
c_733132.elements[0] = ((closureN)self_73858)->elements[0];
c_733132.elements[1] = ((closureN)self_73858)->elements[1];


pair_type local_733189; 
return_direct_with_clo1(data,(closure)&c_733132,__lambda_252,  set_cell_as_expr(&local_733189, length1_127_73330));; 
}

static void __lambda_252(void *data, object self_73859, int argc, object *args) /* object self_73859, object length1_127_73330 */
 {
 object length1_127_73330 = args[0];
  
closureN_type c_733134;
object e_733176 [3];
c_733134.hdr.mark = gc_color_red;
 c_733134.hdr.grayed = 0;
c_733134.tag = closureN_tag;
 c_733134.fn = (function_type)__lambda_205;
c_733134.num_args = 1;
c_733134.num_elements = 3;
c_733134.elements = (object *)e_733176;
c_733134.elements[0] = ((closureN)self_73859)->elements[0];
c_733134.elements[1] = ((closureN)self_73859)->elements[1];
c_733134.elements[2] = length1_127_73330;


mclosure0(c_733177, (function_type)__lambda_207);c_733177.num_args = 1;
return_direct_with_clo1(data,(closure)&c_733134,__lambda_205,  &c_733177);; 
}

static void __lambda_207(void *data, object self_73860, int argc, object *args) /* object self_73860, object k_73824, object l_736_73331 */
 {
 object k_73824 = args[0]; object l_736_73331 = args[1];
    
if( (boolean_f != Cyc_is_pair(l_736_73331)) ){ 
  



return_direct_with_clo1(data,  k_73824, (((closure)  k_73824)->fn),  Cyc_is_null(Cyc_cdr(data, l_736_73331)));
} else { 
  return_direct_with_clo1(data,  k_73824, (((closure)  k_73824)->fn),  boolean_f);}
;; 
}

static void __lambda_205(void *data, object self_73861, int argc, object *args) /* object self_73861, object r_73823 */
 {
 object r_73823 = args[0];
  
closureN_type c_733136;
object e_733172 [3];
c_733136.hdr.mark = gc_color_red;
 c_733136.hdr.grayed = 0;
c_733136.tag = closureN_tag;
 c_733136.fn = (function_type)__lambda_206;
c_733136.num_args = 1;
c_733136.num_elements = 3;
c_733136.elements = (object *)e_733172;
c_733136.elements[0] = ((closureN)self_73861)->elements[0];
c_733136.elements[1] = ((closureN)self_73861)->elements[1];
c_733136.elements[2] = ((closureN)self_73861)->elements[2];



return_direct_with_clo1(data,(closure)&c_733136,__lambda_206,  Cyc_set_cell(data, ((closureN)self_73861)->elements[2], r_73823));; 
}

static void __lambda_206(void *data, object self_73862, int argc, object *args) /* object self_73862, object r_73811 */
 {

  object r_73814;
    
  
if( (boolean_f != Cyc_eq(Cyc_car(data, ((closureN)self_73862)->elements[1]), quote_quote)) ){ 
  r_73814 = boolean_t;
} else { 
    
  
if( (boolean_f != Cyc_eq(Cyc_car(data, ((closureN)self_73862)->elements[1]), quote_quasiquote)) ){ 
  r_73814 = boolean_t;
} else { 
    
  
if( (boolean_f != Cyc_eq(Cyc_car(data, ((closureN)self_73862)->elements[1]), quote_unquote)) ){ 
  r_73814 = boolean_t;
} else { 
  
  
  r_73814 = Cyc_eq(Cyc_car(data, ((closureN)self_73862)->elements[1]), quote_unquote_91splicing);}
;}
;}
;if( (boolean_f != r_73814) ){ 
  



return_closcall2(data,  car(((closureN)self_73862)->elements[2]),  ((closureN)self_73862)->elements[0], Cyc_cdr(data, ((closureN)self_73862)->elements[1]));
} else { 
  return_direct_with_clo1(data,  ((closureN)self_73862)->elements[0], (((closure)  ((closureN)self_73862)->elements[0])->fn),  boolean_f);}
;; 
}

static void __lambda_3(void *data, object self_73863, int argc, object *args) /* object self_73863, object r_73809 */
 {
 object r_73809 = args[0];
  
closureN_type c_731122;
object e_733123 [11];
c_731122.hdr.mark = gc_color_red;
 c_731122.hdr.grayed = 0;
c_731122.tag = closureN_tag;
 c_731122.fn = (function_type)__lambda_4;
c_731122.num_args = 1;
c_731122.num_elements = 11;
c_731122.elements = (object *)e_733123;
c_731122.elements[0] = ((closureN)self_73863)->elements[0];
c_731122.elements[1] = ((closureN)self_73863)->elements[1];
c_731122.elements[2] = ((closureN)self_73863)->elements[2];
c_731122.elements[3] = ((closureN)self_73863)->elements[3];
c_731122.elements[4] = ((closureN)self_73863)->elements[4];
c_731122.elements[5] = ((closureN)self_73863)->elements[5];
c_731122.elements[6] = ((closureN)self_73863)->elements[6];
c_731122.elements[7] = ((closureN)self_73863)->elements[7];
c_731122.elements[8] = ((closureN)self_73863)->elements[8];
c_731122.elements[9] = ((closureN)self_73863)->elements[9];
c_731122.elements[10] = ((closureN)self_73863)->elements[10];



return_direct_with_clo1(data,(closure)&c_731122,__lambda_4,  Cyc_set_cell(data, ((closureN)self_73863)->elements[8], r_73809));; 
}

static void __lambda_4(void *data, object self_73864, int argc, object *args) /* object self_73864, object r_73507 */
 {

  
closureN_type c_731124;
object e_733118 [11];
c_731124.hdr.mark = gc_color_red;
 c_731124.hdr.grayed = 0;
c_731124.tag = closureN_tag;
 c_731124.fn = (function_type)__lambda_5;
c_731124.num_args = 1;
c_731124.num_elements = 11;
c_731124.elements = (object *)e_733118;
c_731124.elements[0] = ((closureN)self_73864)->elements[0];
c_731124.elements[1] = ((closureN)self_73864)->elements[1];
c_731124.elements[2] = ((closureN)self_73864)->elements[2];
c_731124.elements[3] = ((closureN)self_73864)->elements[3];
c_731124.elements[4] = ((closureN)self_73864)->elements[4];
c_731124.elements[5] = ((closureN)self_73864)->elements[5];
c_731124.elements[6] = ((closureN)self_73864)->elements[6];
c_731124.elements[7] = ((closureN)self_73864)->elements[7];
c_731124.elements[8] = ((closureN)self_73864)->elements[8];
c_731124.elements[9] = ((closureN)self_73864)->elements[9];
c_731124.elements[10] = ((closureN)self_73864)->elements[10];


mclosure0(c_733119, (function_type)__lambda_202);c_733119.num_args = 1;
return_direct_with_clo1(data,(closure)&c_731124,__lambda_5,  &c_733119);; 
}

static void __lambda_202(void *data, object self_73865, int argc, object *args) /* object self_73865, object k_73808, object l_7314_73335 */
 {
 object k_73808 = args[0]; object l_7314_73335 = args[1];
  

return_direct_with_clo1(data,  k_73808, (((closure)  k_73808)->fn),  Cyc_cadr(data, l_7314_73335));; 
}

static void __lambda_5(void *data, object self_73866, int argc, object *args) /* object self_73866, object r_73807 */
 {
 object r_73807 = args[0];
  
closureN_type c_731126;
object e_733114 [11];
c_731126.hdr.mark = gc_color_red;
 c_731126.hdr.grayed = 0;
c_731126.tag = closureN_tag;
 c_731126.fn = (function_type)__lambda_6;
c_731126.num_args = 1;
c_731126.num_elements = 11;
c_731126.elements = (object *)e_733114;
c_731126.elements[0] = ((closureN)self_73866)->elements[0];
c_731126.elements[1] = ((closureN)self_73866)->elements[1];
c_731126.elements[2] = ((closureN)self_73866)->elements[2];
c_731126.elements[3] = ((closureN)self_73866)->elements[3];
c_731126.elements[4] = ((closureN)self_73866)->elements[4];
c_731126.elements[5] = ((closureN)self_73866)->elements[5];
c_731126.elements[6] = ((closureN)self_73866)->elements[6];
c_731126.elements[7] = ((closureN)self_73866)->elements[7];
c_731126.elements[8] = ((closureN)self_73866)->elements[8];
c_731126.elements[9] = ((closureN)self_73866)->elements[9];
c_731126.elements[10] = ((closureN)self_73866)->elements[10];



return_direct_with_clo1(data,(closure)&c_731126,__lambda_6,  Cyc_set_cell(data, ((closureN)self_73866)->elements[6], r_73807));; 
}

static void __lambda_6(void *data, object self_73867, int argc, object *args) /* object self_73867, object r_73508 */
 {

  
closureN_type c_731128;
object e_733080 [11];
c_731128.hdr.mark = gc_color_red;
 c_731128.hdr.grayed = 0;
c_731128.tag = closureN_tag;
 c_731128.fn = (function_type)__lambda_7;
c_731128.num_args = 1;
c_731128.num_elements = 11;
c_731128.elements = (object *)e_733080;
c_731128.elements[0] = ((closureN)self_73867)->elements[0];
c_731128.elements[1] = ((closureN)self_73867)->elements[1];
c_731128.elements[2] = ((closureN)self_73867)->elements[2];
c_731128.elements[3] = ((closureN)self_73867)->elements[3];
c_731128.elements[4] = ((closureN)self_73867)->elements[4];
c_731128.elements[5] = ((closureN)self_73867)->elements[5];
c_731128.elements[6] = ((closureN)self_73867)->elements[6];
c_731128.elements[7] = ((closureN)self_73867)->elements[7];
c_731128.elements[8] = ((closureN)self_73867)->elements[8];
c_731128.elements[9] = ((closureN)self_73867)->elements[9];
c_731128.elements[10] = ((closureN)self_73867)->elements[10];


mclosure0(c_733081, (function_type)__lambda_199);c_733081.num_args = 1;
return_direct_with_clo1(data,(closure)&c_731128,__lambda_7,  &c_733081);; 
}

static void __lambda_199(void *data, object self_73868, int argc, object *args) /* object self_73868, object k_73796, object l_7315_73336 */
 {
 object k_73796 = args[0]; object l_7315_73336 = args[1];
  
closureN_type c_733083;
object e_733109 [1];
c_733083.hdr.mark = gc_color_red;
 c_733083.hdr.grayed = 0;
c_733083.tag = closureN_tag;
 c_733083.fn = (function_type)__lambda_200;
c_733083.num_args = 2;
c_733083.num_elements = 1;
c_733083.elements = (object *)e_733109;
c_733083.elements[0] = k_73796;





return_direct_with_clo2(data,(closure)&c_733083,__lambda_200,  Cyc_car(data, l_7315_73336), Cyc_cdr(data, l_7315_73336));; 
}

static void __lambda_200(void *data, object self_73869, int argc, object *args) /* object self_73869, object head_7316_73337, object tail_7317_73338 */
 {
 object head_7316_73337 = args[0];
  
closureN_type c_733085;
object e_733108 [1];
c_733085.hdr.mark = gc_color_red;
 c_733085.hdr.grayed = 0;
c_733085.tag = closureN_tag;
 c_733085.fn = (function_type)__lambda_201;
c_733085.num_args = 1;
c_733085.num_elements = 1;
c_733085.elements = (object *)e_733108;
c_733085.elements[0] = ((closureN)self_73869)->elements[0];

return_direct_with_clo1(data,(closure)&c_733085,__lambda_201,  head_7316_73337);; 
}

static void __lambda_201(void *data, object self_73870, int argc, object *args) /* object self_73870, object tmp_7318_7321_73339 */
 {
 object tmp_7318_7321_73339 = args[0];
    
if( (boolean_f != Cyc_eqv(tmp_7318_7321_73339, quote_quote)) ){ 
  
make_utf8_string_with_len(c_733090, "'", 1, 1);
return_direct_with_clo1(data,  ((closureN)self_73870)->elements[0], (((closure)  ((closureN)self_73870)->elements[0])->fn),  &c_733090);
} else { 
    
if( (boolean_f != Cyc_eqv(tmp_7318_7321_73339, quote_quasiquote)) ){ 
  
make_utf8_string_with_len(c_733095, "`", 1, 1);
return_direct_with_clo1(data,  ((closureN)self_73870)->elements[0], (((closure)  ((closureN)self_73870)->elements[0])->fn),  &c_733095);
} else { 
    
if( (boolean_f != Cyc_eqv(tmp_7318_7321_73339, quote_unquote)) ){ 
  
make_utf8_string_with_len(c_733100, ",", 1, 1);
return_direct_with_clo1(data,  ((closureN)self_73870)->elements[0], (((closure)  ((closureN)self_73870)->elements[0])->fn),  &c_733100);
} else { 
    
if( (boolean_f != Cyc_eqv(tmp_7318_7321_73339, quote_unquote_91splicing)) ){ 
  
make_utf8_string_with_len(c_733105, ",@", 2, 2);
return_direct_with_clo1(data,  ((closureN)self_73870)->elements[0], (((closure)  ((closureN)self_73870)->elements[0])->fn),  &c_733105);
} else { 
  return_direct_with_clo1(data,  ((closureN)self_73870)->elements[0], (((closure)  ((closureN)self_73870)->elements[0])->fn),  boolean_f);}
;}
;}
;}
;; 
}

static void __lambda_7(void *data, object self_73871, int argc, object *args) /* object self_73871, object r_73795 */
 {
 object r_73795 = args[0];
  
closureN_type c_731130;
object e_733076 [11];
c_731130.hdr.mark = gc_color_red;
 c_731130.hdr.grayed = 0;
c_731130.tag = closureN_tag;
 c_731130.fn = (function_type)__lambda_8;
c_731130.num_args = 1;
c_731130.num_elements = 11;
c_731130.elements = (object *)e_733076;
c_731130.elements[0] = ((closureN)self_73871)->elements[0];
c_731130.elements[1] = ((closureN)self_73871)->elements[1];
c_731130.elements[2] = ((closureN)self_73871)->elements[2];
c_731130.elements[3] = ((closureN)self_73871)->elements[3];
c_731130.elements[4] = ((closureN)self_73871)->elements[4];
c_731130.elements[5] = ((closureN)self_73871)->elements[5];
c_731130.elements[6] = ((closureN)self_73871)->elements[6];
c_731130.elements[7] = ((closureN)self_73871)->elements[7];
c_731130.elements[8] = ((closureN)self_73871)->elements[8];
c_731130.elements[9] = ((closureN)self_73871)->elements[9];
c_731130.elements[10] = ((closureN)self_73871)->elements[10];



return_direct_with_clo1(data,(closure)&c_731130,__lambda_8,  Cyc_set_cell(data, ((closureN)self_73871)->elements[7], r_73795));; 
}

static void __lambda_8(void *data, object self_73872, int argc, object *args) /* object self_73872, object r_73509 */
 {

  
closureN_type c_731132;
object e_733057 [10];
c_731132.hdr.mark = gc_color_red;
 c_731132.hdr.grayed = 0;
c_731132.tag = closureN_tag;
 c_731132.fn = (function_type)__lambda_9;
c_731132.num_args = 1;
c_731132.num_elements = 10;
c_731132.elements = (object *)e_733057;
c_731132.elements[0] = ((closureN)self_73872)->elements[0];
c_731132.elements[1] = ((closureN)self_73872)->elements[1];
c_731132.elements[2] = ((closureN)self_73872)->elements[2];
c_731132.elements[3] = ((closureN)self_73872)->elements[3];
c_731132.elements[4] = ((closureN)self_73872)->elements[5];
c_731132.elements[5] = ((closureN)self_73872)->elements[6];
c_731132.elements[6] = ((closureN)self_73872)->elements[7];
c_731132.elements[7] = ((closureN)self_73872)->elements[8];
c_731132.elements[8] = ((closureN)self_73872)->elements[9];
c_731132.elements[9] = ((closureN)self_73872)->elements[10];


closureN_type c_733058;
object e_733075 [1];
c_733058.hdr.mark = gc_color_red;
 c_733058.hdr.grayed = 0;
c_733058.tag = closureN_tag;
 c_733058.fn = (function_type)__lambda_197;
c_733058.num_args = 2;
c_733058.num_elements = 1;
c_733058.elements = (object *)e_733075;
c_733058.elements[0] = ((closureN)self_73872)->elements[4];

return_direct_with_clo1(data,(closure)&c_731132,__lambda_9,  &c_733058);; 
}

static void __lambda_197(void *data, object self_73873, int argc, object *args) /* object self_73873, object k_73792, object str_7322_73340, object col_7323_73341 */
 {
 object k_73792 = args[0]; object str_7322_73340 = args[1]; object col_7323_73341 = args[2];
  if( (boolean_f != col_7323_73341) ){ 
  
closureN_type c_733061;
object e_733073 [3];
c_733061.hdr.mark = gc_color_red;
 c_733061.hdr.grayed = 0;
c_733061.tag = closureN_tag;
 c_733061.fn = (function_type)__lambda_198;
c_733061.num_args = 1;
c_733061.num_elements = 3;
c_733061.elements = (object *)e_733073;
c_733061.elements[0] = col_7323_73341;
c_733061.elements[1] = k_73792;
c_733061.elements[2] = str_7322_73340;

return_closcall2(data,  ((closureN)self_73873)->elements[0],  &c_733061, str_7322_73340);
} else { 
  return_direct_with_clo1(data,  k_73792, (((closure)  k_73792)->fn),  boolean_f);}
;; 
}

static void __lambda_198(void *data, object self_73874, int argc, object *args) /* object self_73874, object r_73793 */
 {
 object r_73793 = args[0];
  if( (boolean_f != r_73793) ){ 
  
complex_num_type local_733066; 


return_direct_with_clo1(data,  ((closureN)self_73874)->elements[1], (((closure)  ((closureN)self_73874)->elements[1])->fn),  Cyc_fast_sum(data,&local_733066, ((closureN)self_73874)->elements[0], Cyc_string_length(data, ((closureN)self_73874)->elements[2])));
} else { 
  return_direct_with_clo1(data,  ((closureN)self_73874)->elements[1], (((closure)  ((closureN)self_73874)->elements[1])->fn),  boolean_f);}
;; 
}

static void __lambda_9(void *data, object self_73875, int argc, object *args) /* object self_73875, object r_73791 */
 {
 object r_73791 = args[0];
  
closureN_type c_731134;
object e_733053 [10];
c_731134.hdr.mark = gc_color_red;
 c_731134.hdr.grayed = 0;
c_731134.tag = closureN_tag;
 c_731134.fn = (function_type)__lambda_10;
c_731134.num_args = 1;
c_731134.num_elements = 10;
c_731134.elements = (object *)e_733053;
c_731134.elements[0] = ((closureN)self_73875)->elements[0];
c_731134.elements[1] = ((closureN)self_73875)->elements[1];
c_731134.elements[2] = ((closureN)self_73875)->elements[2];
c_731134.elements[3] = ((closureN)self_73875)->elements[3];
c_731134.elements[4] = ((closureN)self_73875)->elements[4];
c_731134.elements[5] = ((closureN)self_73875)->elements[5];
c_731134.elements[6] = ((closureN)self_73875)->elements[6];
c_731134.elements[7] = ((closureN)self_73875)->elements[7];
c_731134.elements[8] = ((closureN)self_73875)->elements[8];
c_731134.elements[9] = ((closureN)self_73875)->elements[9];



return_direct_with_clo1(data,(closure)&c_731134,__lambda_10,  Cyc_set_cell(data, ((closureN)self_73875)->elements[3], r_73791));; 
}

static void __lambda_10(void *data, object self_73876, int argc, object *args) /* object self_73876, object r_73510 */
 {

  
closureN_type c_731136;
object e_732487 [10];
c_731136.hdr.mark = gc_color_red;
 c_731136.hdr.grayed = 0;
c_731136.tag = closureN_tag;
 c_731136.fn = (function_type)__lambda_11;
c_731136.num_args = 1;
c_731136.num_elements = 10;
c_731136.elements = (object *)e_732487;
c_731136.elements[0] = ((closureN)self_73876)->elements[0];
c_731136.elements[1] = ((closureN)self_73876)->elements[1];
c_731136.elements[2] = ((closureN)self_73876)->elements[2];
c_731136.elements[3] = ((closureN)self_73876)->elements[3];
c_731136.elements[4] = ((closureN)self_73876)->elements[4];
c_731136.elements[5] = ((closureN)self_73876)->elements[5];
c_731136.elements[6] = ((closureN)self_73876)->elements[6];
c_731136.elements[7] = ((closureN)self_73876)->elements[7];
c_731136.elements[8] = ((closureN)self_73876)->elements[8];
c_731136.elements[9] = ((closureN)self_73876)->elements[9];


closureN_type c_732488;
object e_733052 [6];
c_732488.hdr.mark = gc_color_red;
 c_732488.hdr.grayed = 0;
c_732488.tag = closureN_tag;
 c_732488.fn = (function_type)__lambda_142;
c_732488.num_args = 2;
c_732488.num_elements = 6;
c_732488.elements = (object *)e_733052;
c_732488.elements[0] = ((closureN)self_73876)->elements[0];
c_732488.elements[1] = ((closureN)self_73876)->elements[3];
c_732488.elements[2] = ((closureN)self_73876)->elements[5];
c_732488.elements[3] = ((closureN)self_73876)->elements[6];
c_732488.elements[4] = ((closureN)self_73876)->elements[7];
c_732488.elements[5] = ((closureN)self_73876)->elements[9];

return_direct_with_clo1(data,(closure)&c_731136,__lambda_11,  &c_732488);; 
}

static void __lambda_142(void *data, object self_73877, int argc, object *args) /* object self_73877, object k_73712, object obj_7326_73342, object col_7327_73343 */
 {
 object k_73712 = args[0]; object obj_7326_73342 = args[1]; object col_7327_73343 = args[2];
  
closureN_type c_732490;
object e_733051 [9];
c_732490.hdr.mark = gc_color_red;
 c_732490.hdr.grayed = 0;
c_732490.tag = closureN_tag;
 c_732490.fn = (function_type)__lambda_143;
c_732490.num_args = 2;
c_732490.num_elements = 9;
c_732490.elements = (object *)e_733051;
c_732490.elements[0] = col_7327_73343;
c_732490.elements[1] = ((closureN)self_73877)->elements[0];
c_732490.elements[2] = k_73712;
c_732490.elements[3] = obj_7326_73342;
c_732490.elements[4] = ((closureN)self_73877)->elements[1];
c_732490.elements[5] = ((closureN)self_73877)->elements[2];
c_732490.elements[6] = ((closureN)self_73877)->elements[3];
c_732490.elements[7] = ((closureN)self_73877)->elements[4];
c_732490.elements[8] = ((closureN)self_73877)->elements[5];

return_direct_with_clo2(data,(closure)&c_732490,__lambda_143,  boolean_f, boolean_f);; 
}

static void __lambda_143(void *data, object self_73878, int argc, object *args) /* object self_73878, object wr_91expr_73344, object wr_91lst_73345 */
 {
 object wr_91expr_73344 = args[0]; object wr_91lst_73345 = args[1];
  
closureN_type c_732492;
object e_733047 [10];
c_732492.hdr.mark = gc_color_red;
 c_732492.hdr.grayed = 0;
c_732492.tag = closureN_tag;
 c_732492.fn = (function_type)__lambda_251;
c_732492.num_args = 1;
c_732492.num_elements = 10;
c_732492.elements = (object *)e_733047;
c_732492.elements[0] = ((closureN)self_73878)->elements[0];
c_732492.elements[1] = ((closureN)self_73878)->elements[1];
c_732492.elements[2] = ((closureN)self_73878)->elements[2];
c_732492.elements[3] = ((closureN)self_73878)->elements[3];
c_732492.elements[4] = ((closureN)self_73878)->elements[4];
c_732492.elements[5] = ((closureN)self_73878)->elements[5];
c_732492.elements[6] = ((closureN)self_73878)->elements[6];
c_732492.elements[7] = ((closureN)self_73878)->elements[7];
c_732492.elements[8] = ((closureN)self_73878)->elements[8];
c_732492.elements[9] = wr_91lst_73345;


pair_type local_733050; 
return_direct_with_clo1(data,(closure)&c_732492,__lambda_251,  set_cell_as_expr(&local_733050, wr_91expr_73344));; 
}

static void __lambda_251(void *data, object self_73879, int argc, object *args) /* object self_73879, object wr_91expr_73344 */
 {
 object wr_91expr_73344 = args[0];
  
closureN_type c_732494;
object e_733042 [10];
c_732494.hdr.mark = gc_color_red;
 c_732494.hdr.grayed = 0;
c_732494.tag = closureN_tag;
 c_732494.fn = (function_type)__lambda_250;
c_732494.num_args = 1;
c_732494.num_elements = 10;
c_732494.elements = (object *)e_733042;
c_732494.elements[0] = ((closureN)self_73879)->elements[0];
c_732494.elements[1] = ((closureN)self_73879)->elements[1];
c_732494.elements[2] = ((closureN)self_73879)->elements[2];
c_732494.elements[3] = ((closureN)self_73879)->elements[3];
c_732494.elements[4] = ((closureN)self_73879)->elements[4];
c_732494.elements[5] = ((closureN)self_73879)->elements[5];
c_732494.elements[6] = ((closureN)self_73879)->elements[6];
c_732494.elements[7] = ((closureN)self_73879)->elements[7];
c_732494.elements[8] = ((closureN)self_73879)->elements[8];
c_732494.elements[9] = wr_91expr_73344;


pair_type local_733045; 
return_direct_with_clo1(data,(closure)&c_732494,__lambda_250,  set_cell_as_expr(&local_733045, ((closureN)self_73879)->elements[9]));; 
}

static void __lambda_250(void *data, object self_73880, int argc, object *args) /* object self_73880, object wr_91lst_73345 */
 {
 object wr_91lst_73345 = args[0];
  
closureN_type c_732496;
object e_732999 [8];
c_732496.hdr.mark = gc_color_red;
 c_732496.hdr.grayed = 0;
c_732496.tag = closureN_tag;
 c_732496.fn = (function_type)__lambda_144;
c_732496.num_args = 1;
c_732496.num_elements = 8;
c_732496.elements = (object *)e_732999;
c_732496.elements[0] = ((closureN)self_73880)->elements[0];
c_732496.elements[1] = ((closureN)self_73880)->elements[1];
c_732496.elements[2] = ((closureN)self_73880)->elements[2];
c_732496.elements[3] = ((closureN)self_73880)->elements[3];
c_732496.elements[4] = ((closureN)self_73880)->elements[4];
c_732496.elements[5] = ((closureN)self_73880)->elements[8];
c_732496.elements[6] = ((closureN)self_73880)->elements[9];
c_732496.elements[7] = wr_91lst_73345;


closureN_type c_733000;
object e_733041 [6];
c_733000.hdr.mark = gc_color_red;
 c_733000.hdr.grayed = 0;
c_733000.tag = closureN_tag;
 c_733000.fn = (function_type)__lambda_192;
c_733000.num_args = 2;
c_733000.num_elements = 6;
c_733000.elements = (object *)e_733041;
c_733000.elements[0] = ((closureN)self_73880)->elements[4];
c_733000.elements[1] = ((closureN)self_73880)->elements[5];
c_733000.elements[2] = ((closureN)self_73880)->elements[6];
c_733000.elements[3] = ((closureN)self_73880)->elements[7];
c_733000.elements[4] = ((closureN)self_73880)->elements[8];
c_733000.elements[5] = wr_91lst_73345;

return_direct_with_clo1(data,(closure)&c_732496,__lambda_144,  &c_733000);; 
}

static void __lambda_192(void *data, object self_73881, int argc, object *args) /* object self_73881, object k_73786, object expr_7328_73346, object col_7329_73347 */
 {
 object k_73786 = args[0]; object expr_7328_73346 = args[1]; object col_7329_73347 = args[2];
  


closureN_type c_733005;
object e_733040 [8];
c_733005.hdr.mark = gc_color_red;
 c_733005.hdr.grayed = 0;
c_733005.tag = closureN_tag;
 c_733005.fn = (function_type)__lambda_193;
c_733005.num_args = 1;
c_733005.num_elements = 8;
c_733005.elements = (object *)e_733040;
c_733005.elements[0] = col_7329_73347;
c_733005.elements[1] = expr_7328_73346;
c_733005.elements[2] = k_73786;
c_733005.elements[3] = ((closureN)self_73881)->elements[0];
c_733005.elements[4] = ((closureN)self_73881)->elements[1];
c_733005.elements[5] = ((closureN)self_73881)->elements[2];
c_733005.elements[6] = ((closureN)self_73881)->elements[4];
c_733005.elements[7] = ((closureN)self_73881)->elements[5];

return_closcall2(data,  car(((closureN)self_73881)->elements[3]),  &c_733005, expr_7328_73346);; 
}

static void __lambda_193(void *data, object self_73882, int argc, object *args) /* object self_73882, object r_73787 */
 {
 object r_73787 = args[0];
  if( (boolean_f != r_73787) ){ 
  


closureN_type c_733010;
object e_733031 [6];
c_733010.hdr.mark = gc_color_red;
 c_733010.hdr.grayed = 0;
c_733010.tag = closureN_tag;
 c_733010.fn = (function_type)__lambda_194;
c_733010.num_args = 1;
c_733010.num_elements = 6;
c_733010.elements = (object *)e_733031;
c_733010.elements[0] = ((closureN)self_73882)->elements[0];
c_733010.elements[1] = ((closureN)self_73882)->elements[1];
c_733010.elements[2] = ((closureN)self_73882)->elements[2];
c_733010.elements[3] = ((closureN)self_73882)->elements[3];
c_733010.elements[4] = ((closureN)self_73882)->elements[5];
c_733010.elements[5] = ((closureN)self_73882)->elements[6];

return_closcall2(data,  car(((closureN)self_73882)->elements[4]),  &c_733010, ((closureN)self_73882)->elements[1]);
} else { 
  

return_closcall3(data,  car(((closureN)self_73882)->elements[7]),  ((closureN)self_73882)->elements[2], ((closureN)self_73882)->elements[1], ((closureN)self_73882)->elements[0]);}
;; 
}

static void __lambda_194(void *data, object self_73883, int argc, object *args) /* object self_73883, object r_73788 */
 {
 object r_73788 = args[0];
  


closureN_type c_733015;
object e_733029 [5];
c_733015.hdr.mark = gc_color_red;
 c_733015.hdr.grayed = 0;
c_733015.tag = closureN_tag;
 c_733015.fn = (function_type)__lambda_195;
c_733015.num_args = 1;
c_733015.num_elements = 5;
c_733015.elements = (object *)e_733029;
c_733015.elements[0] = ((closureN)self_73883)->elements[0];
c_733015.elements[1] = ((closureN)self_73883)->elements[2];
c_733015.elements[2] = ((closureN)self_73883)->elements[3];
c_733015.elements[3] = r_73788;
c_733015.elements[4] = ((closureN)self_73883)->elements[5];

return_closcall2(data,  car(((closureN)self_73883)->elements[4]),  &c_733015, ((closureN)self_73883)->elements[1]);; 
}

static void __lambda_195(void *data, object self_73884, int argc, object *args) /* object self_73884, object r_73790 */
 {
 object r_73790 = args[0];
  


closureN_type c_733020;
object e_733027 [3];
c_733020.hdr.mark = gc_color_red;
 c_733020.hdr.grayed = 0;
c_733020.tag = closureN_tag;
 c_733020.fn = (function_type)__lambda_196;
c_733020.num_args = 1;
c_733020.num_elements = 3;
c_733020.elements = (object *)e_733027;
c_733020.elements[0] = ((closureN)self_73884)->elements[1];
c_733020.elements[1] = ((closureN)self_73884)->elements[3];
c_733020.elements[2] = ((closureN)self_73884)->elements[4];

return_closcall3(data,  car(((closureN)self_73884)->elements[2]),  &c_733020, r_73790, ((closureN)self_73884)->elements[0]);; 
}

static void __lambda_196(void *data, object self_73885, int argc, object *args) /* object self_73885, object r_73789 */
 {
 object r_73789 = args[0];
  

return_closcall3(data,  car(((closureN)self_73885)->elements[2]),  ((closureN)self_73885)->elements[0], ((closureN)self_73885)->elements[1], r_73789);; 
}

static void __lambda_144(void *data, object self_73886, int argc, object *args) /* object self_73886, object r_73785 */
 {
 object r_73785 = args[0];
  
closureN_type c_732498;
object e_732995 [8];
c_732498.hdr.mark = gc_color_red;
 c_732498.hdr.grayed = 0;
c_732498.tag = closureN_tag;
 c_732498.fn = (function_type)__lambda_145;
c_732498.num_args = 1;
c_732498.num_elements = 8;
c_732498.elements = (object *)e_732995;
c_732498.elements[0] = ((closureN)self_73886)->elements[0];
c_732498.elements[1] = ((closureN)self_73886)->elements[1];
c_732498.elements[2] = ((closureN)self_73886)->elements[2];
c_732498.elements[3] = ((closureN)self_73886)->elements[3];
c_732498.elements[4] = ((closureN)self_73886)->elements[4];
c_732498.elements[5] = ((closureN)self_73886)->elements[5];
c_732498.elements[6] = ((closureN)self_73886)->elements[6];
c_732498.elements[7] = ((closureN)self_73886)->elements[7];



return_direct_with_clo1(data,(closure)&c_732498,__lambda_145,  Cyc_set_cell(data, ((closureN)self_73886)->elements[6], r_73785));; 
}

static void __lambda_145(void *data, object self_73887, int argc, object *args) /* object self_73887, object r_73713 */
 {

  
closureN_type c_732500;
object e_732875 [7];
c_732500.hdr.mark = gc_color_red;
 c_732500.hdr.grayed = 0;
c_732500.tag = closureN_tag;
 c_732500.fn = (function_type)__lambda_146;
c_732500.num_args = 1;
c_732500.num_elements = 7;
c_732500.elements = (object *)e_732875;
c_732500.elements[0] = ((closureN)self_73887)->elements[0];
c_732500.elements[1] = ((closureN)self_73887)->elements[1];
c_732500.elements[2] = ((closureN)self_73887)->elements[2];
c_732500.elements[3] = ((closureN)self_73887)->elements[3];
c_732500.elements[4] = ((closureN)self_73887)->elements[4];
c_732500.elements[5] = ((closureN)self_73887)->elements[6];
c_732500.elements[6] = ((closureN)self_73887)->elements[7];


closureN_type c_732876;
object e_732994 [2];
c_732876.hdr.mark = gc_color_red;
 c_732876.hdr.grayed = 0;
c_732876.tag = closureN_tag;
 c_732876.fn = (function_type)__lambda_179;
c_732876.num_args = 2;
c_732876.num_elements = 2;
c_732876.elements = (object *)e_732994;
c_732876.elements[0] = ((closureN)self_73887)->elements[4];
c_732876.elements[1] = ((closureN)self_73887)->elements[5];

return_direct_with_clo1(data,(closure)&c_732500,__lambda_146,  &c_732876);; 
}

static void __lambda_179(void *data, object self_73888, int argc, object *args) /* object self_73888, object k_73767, object l_7330_73348, object col_7331_73349 */
 {
 object k_73767 = args[0]; object l_7330_73348 = args[1]; object col_7331_73349 = args[2];
    
if( (boolean_f != Cyc_is_pair(l_7330_73348)) ){ 
  
closureN_type c_732880;
object e_732899 [4];
c_732880.hdr.mark = gc_color_red;
 c_732880.hdr.grayed = 0;
c_732880.tag = closureN_tag;
 c_732880.fn = (function_type)__lambda_180;
c_732880.num_args = 0;
c_732880.num_elements = 4;
c_732880.elements = (object *)e_732899;
c_732880.elements[0] = col_7331_73349;
c_732880.elements[1] = l_7330_73348;
c_732880.elements[2] = ((closureN)self_73888)->elements[0];
c_732880.elements[3] = ((closureN)self_73888)->elements[1];


closureN_type c_732900;
object e_732988 [4];
c_732900.hdr.mark = gc_color_red;
 c_732900.hdr.grayed = 0;
c_732900.tag = closureN_tag;
 c_732900.fn = (function_type)__lambda_182;
c_732900.num_args = 1;
c_732900.num_elements = 4;
c_732900.elements = (object *)e_732988;
c_732900.elements[0] = k_73767;
c_732900.elements[1] = l_7330_73348;
c_732900.elements[2] = ((closureN)self_73888)->elements[0];
c_732900.elements[3] = ((closureN)self_73888)->elements[1];

return_direct_with_clo1(data,(closure)&c_732880,__lambda_180,  &c_732900);
} else { 
  


make_utf8_string_with_len(c_732993, "()", 2, 2);
return_closcall3(data,  car(((closureN)self_73888)->elements[0]),  k_73767, &c_732993, col_7331_73349);}
;; 
}

static void __lambda_182(void *data, object self_73889, int argc, object *args) /* object self_73889, object r_73770 */
 {
 object r_73770 = args[0];
  
closureN_type c_732902;
object e_732984 [3];
c_732902.hdr.mark = gc_color_red;
 c_732902.hdr.grayed = 0;
c_732902.tag = closureN_tag;
 c_732902.fn = (function_type)__lambda_183;
c_732902.num_args = 2;
c_732902.num_elements = 3;
c_732902.elements = (object *)e_732984;
c_732902.elements[0] = ((closureN)self_73889)->elements[0];
c_732902.elements[1] = ((closureN)self_73889)->elements[2];
c_732902.elements[2] = ((closureN)self_73889)->elements[3];



return_direct_with_clo2(data,(closure)&c_732902,__lambda_183,  Cyc_cdr(data, ((closureN)self_73889)->elements[1]), r_73770);; 
}

static void __lambda_183(void *data, object self_73890, int argc, object *args) /* object self_73890, object l_7333_73350, object col_7334_73351 */
 {
 object l_7333_73350 = args[0]; object col_7334_73351 = args[1];
  
closureN_type c_732904;
object e_732983 [5];
c_732904.hdr.mark = gc_color_red;
 c_732904.hdr.grayed = 0;
c_732904.tag = closureN_tag;
 c_732904.fn = (function_type)__lambda_184;
c_732904.num_args = 1;
c_732904.num_elements = 5;
c_732904.elements = (object *)e_732983;
c_732904.elements[0] = col_7334_73351;
c_732904.elements[1] = ((closureN)self_73890)->elements[0];
c_732904.elements[2] = l_7333_73350;
c_732904.elements[3] = ((closureN)self_73890)->elements[1];
c_732904.elements[4] = ((closureN)self_73890)->elements[2];

return_direct_with_clo1(data,(closure)&c_732904,__lambda_184,  boolean_f);; 
}

static void __lambda_184(void *data, object self_73891, int argc, object *args) /* object self_73891, object loop_7335_73352 */
 {
 object loop_7335_73352 = args[0];
  
closureN_type c_732906;
object e_732979 [5];
c_732906.hdr.mark = gc_color_red;
 c_732906.hdr.grayed = 0;
c_732906.tag = closureN_tag;
 c_732906.fn = (function_type)__lambda_249;
c_732906.num_args = 1;
c_732906.num_elements = 5;
c_732906.elements = (object *)e_732979;
c_732906.elements[0] = ((closureN)self_73891)->elements[0];
c_732906.elements[1] = ((closureN)self_73891)->elements[1];
c_732906.elements[2] = ((closureN)self_73891)->elements[2];
c_732906.elements[3] = ((closureN)self_73891)->elements[3];
c_732906.elements[4] = ((closureN)self_73891)->elements[4];


pair_type local_732982; 
return_direct_with_clo1(data,(closure)&c_732906,__lambda_249,  set_cell_as_expr(&local_732982, loop_7335_73352));; 
}

static void __lambda_249(void *data, object self_73892, int argc, object *args) /* object self_73892, object loop_7335_73352 */
 {
 object loop_7335_73352 = args[0];
  
closureN_type c_732908;
object e_732922 [4];
c_732908.hdr.mark = gc_color_red;
 c_732908.hdr.grayed = 0;
c_732908.tag = closureN_tag;
 c_732908.fn = (function_type)__lambda_185;
c_732908.num_args = 1;
c_732908.num_elements = 4;
c_732908.elements = (object *)e_732922;
c_732908.elements[0] = ((closureN)self_73892)->elements[0];
c_732908.elements[1] = ((closureN)self_73892)->elements[1];
c_732908.elements[2] = ((closureN)self_73892)->elements[2];
c_732908.elements[3] = loop_7335_73352;


closureN_type c_732923;
object e_732978 [3];
c_732923.hdr.mark = gc_color_red;
 c_732923.hdr.grayed = 0;
c_732923.tag = closureN_tag;
 c_732923.fn = (function_type)__lambda_187;
c_732923.num_args = 2;
c_732923.num_elements = 3;
c_732923.elements = (object *)e_732978;
c_732923.elements[0] = loop_7335_73352;
c_732923.elements[1] = ((closureN)self_73892)->elements[3];
c_732923.elements[2] = ((closureN)self_73892)->elements[4];

return_direct_with_clo1(data,(closure)&c_732908,__lambda_185,  &c_732923);; 
}

static void __lambda_187(void *data, object self_73893, int argc, object *args) /* object self_73893, object k_73773, object l_7336_73353, object col_7337_73354 */
 {
 object k_73773 = args[0]; object l_7336_73353 = args[1]; object col_7337_73354 = args[2];
  if( (boolean_f != col_7337_73354) ){ 
    
if( (boolean_f != Cyc_is_pair(l_7336_73353)) ){ 
  


closureN_type c_732930;
object e_732948 [4];
c_732930.hdr.mark = gc_color_red;
 c_732930.hdr.grayed = 0;
c_732930.tag = closureN_tag;
 c_732930.fn = (function_type)__lambda_188;
c_732930.num_args = 1;
c_732930.num_elements = 4;
c_732930.elements = (object *)e_732948;
c_732930.elements[0] = k_73773;
c_732930.elements[1] = l_7336_73353;
c_732930.elements[2] = ((closureN)self_73893)->elements[0];
c_732930.elements[3] = ((closureN)self_73893)->elements[2];


make_utf8_string_with_len(c_732949, " ", 1, 1);
return_closcall3(data,  car(((closureN)self_73893)->elements[1]),  &c_732930, &c_732949, col_7337_73354);
} else { 
    
if( (boolean_f != Cyc_is_null(l_7336_73353)) ){ 
  


make_utf8_string_with_len(c_732956, ")", 1, 1);
return_closcall3(data,  car(((closureN)self_73893)->elements[1]),  k_73773, &c_732956, col_7337_73354);
} else { 
  


closureN_type c_732961;
object e_732975 [4];
c_732961.hdr.mark = gc_color_red;
 c_732961.hdr.grayed = 0;
c_732961.tag = closureN_tag;
 c_732961.fn = (function_type)__lambda_190;
c_732961.num_args = 1;
c_732961.num_elements = 4;
c_732961.elements = (object *)e_732975;
c_732961.elements[0] = k_73773;
c_732961.elements[1] = l_7336_73353;
c_732961.elements[2] = ((closureN)self_73893)->elements[1];
c_732961.elements[3] = ((closureN)self_73893)->elements[2];


make_utf8_string_with_len(c_732976, " . ", 3, 3);
return_closcall3(data,  car(((closureN)self_73893)->elements[1]),  &c_732961, &c_732976, col_7337_73354);}
;}
;
} else { 
  return_direct_with_clo1(data,  k_73773, (((closure)  k_73773)->fn),  col_7337_73354);}
;; 
}

static void __lambda_190(void *data, object self_73896, int argc, object *args) /* object self_73896, object r_73781 */
 {
 object r_73781 = args[0];
  


closureN_type c_732966;
object e_732973 [2];
c_732966.hdr.mark = gc_color_red;
 c_732966.hdr.grayed = 0;
c_732966.tag = closureN_tag;
 c_732966.fn = (function_type)__lambda_191;
c_732966.num_args = 1;
c_732966.num_elements = 2;
c_732966.elements = (object *)e_732973;
c_732966.elements[0] = ((closureN)self_73896)->elements[0];
c_732966.elements[1] = ((closureN)self_73896)->elements[2];

return_closcall3(data,  car(((closureN)self_73896)->elements[3]),  &c_732966, ((closureN)self_73896)->elements[1], r_73781);; 
}

static void __lambda_191(void *data, object self_73897, int argc, object *args) /* object self_73897, object r_73780 */
 {
 object r_73780 = args[0];
  


make_utf8_string_with_len(c_732972, ")", 1, 1);
return_closcall3(data,  car(((closureN)self_73897)->elements[1]),  ((closureN)self_73897)->elements[0], &c_732972, r_73780);; 
}

static void __lambda_188(void *data, object self_73894, int argc, object *args) /* object self_73894, object r_73778 */
 {
 object r_73778 = args[0];
  


closureN_type c_732935;
object e_732944 [3];
c_732935.hdr.mark = gc_color_red;
 c_732935.hdr.grayed = 0;
c_732935.tag = closureN_tag;
 c_732935.fn = (function_type)__lambda_189;
c_732935.num_args = 1;
c_732935.num_elements = 3;
c_732935.elements = (object *)e_732944;
c_732935.elements[0] = ((closureN)self_73894)->elements[0];
c_732935.elements[1] = ((closureN)self_73894)->elements[1];
c_732935.elements[2] = ((closureN)self_73894)->elements[2];



return_closcall3(data,  car(((closureN)self_73894)->elements[3]),  &c_732935, Cyc_car(data, ((closureN)self_73894)->elements[1]), r_73778);; 
}

static void __lambda_189(void *data, object self_73895, int argc, object *args) /* object self_73895, object r_73776 */
 {
 object r_73776 = args[0];
  



return_closcall3(data,  car(((closureN)self_73895)->elements[2]),  ((closureN)self_73895)->elements[0], Cyc_cdr(data, ((closureN)self_73895)->elements[1]), r_73776);; 
}

static void __lambda_185(void *data, object self_73898, int argc, object *args) /* object self_73898, object r_73772 */
 {
 object r_73772 = args[0];
  
closureN_type c_732910;
object e_732918 [4];
c_732910.hdr.mark = gc_color_red;
 c_732910.hdr.grayed = 0;
c_732910.tag = closureN_tag;
 c_732910.fn = (function_type)__lambda_186;
c_732910.num_args = 1;
c_732910.num_elements = 4;
c_732910.elements = (object *)e_732918;
c_732910.elements[0] = ((closureN)self_73898)->elements[0];
c_732910.elements[1] = ((closureN)self_73898)->elements[1];
c_732910.elements[2] = ((closureN)self_73898)->elements[2];
c_732910.elements[3] = ((closureN)self_73898)->elements[3];



return_direct_with_clo1(data,(closure)&c_732910,__lambda_186,  Cyc_set_cell(data, ((closureN)self_73898)->elements[3], r_73772));; 
}

static void __lambda_186(void *data, object self_73899, int argc, object *args) /* object self_73899, object r_73771 */
 {

  

return_closcall3(data,  car(((closureN)self_73899)->elements[3]),  ((closureN)self_73899)->elements[1], ((closureN)self_73899)->elements[2], ((closureN)self_73899)->elements[0]);; 
}

static void __lambda_180(void *data, object self_73900, int argc, object *args) /* object self_73900, object k_73782 */
 {
 object k_73782 = args[0];
  if( (boolean_f != ((closureN)self_73900)->elements[0]) ){ 
  


closureN_type c_732886;
object e_732895 [3];
c_732886.hdr.mark = gc_color_red;
 c_732886.hdr.grayed = 0;
c_732886.tag = closureN_tag;
 c_732886.fn = (function_type)__lambda_181;
c_732886.num_args = 1;
c_732886.num_elements = 3;
c_732886.elements = (object *)e_732895;
c_732886.elements[0] = k_73782;
c_732886.elements[1] = ((closureN)self_73900)->elements[1];
c_732886.elements[2] = ((closureN)self_73900)->elements[3];


make_utf8_string_with_len(c_732896, "(", 1, 1);
return_closcall3(data,  car(((closureN)self_73900)->elements[2]),  &c_732886, &c_732896, ((closureN)self_73900)->elements[0]);
} else { 
  return_direct_with_clo1(data,  k_73782, (((closure)  k_73782)->fn),  boolean_f);}
;; 
}

static void __lambda_181(void *data, object self_73901, int argc, object *args) /* object self_73901, object r_73784 */
 {
 object r_73784 = args[0];
  



return_closcall3(data,  car(((closureN)self_73901)->elements[2]),  ((closureN)self_73901)->elements[0], Cyc_car(data, ((closureN)self_73901)->elements[1]), r_73784);; 
}

static void __lambda_146(void *data, object self_73902, int argc, object *args) /* object self_73902, object r_73766 */
 {
 object r_73766 = args[0];
  
closureN_type c_732502;
object e_732871 [7];
c_732502.hdr.mark = gc_color_red;
 c_732502.hdr.grayed = 0;
c_732502.tag = closureN_tag;
 c_732502.fn = (function_type)__lambda_147;
c_732502.num_args = 1;
c_732502.num_elements = 7;
c_732502.elements = (object *)e_732871;
c_732502.elements[0] = ((closureN)self_73902)->elements[0];
c_732502.elements[1] = ((closureN)self_73902)->elements[1];
c_732502.elements[2] = ((closureN)self_73902)->elements[2];
c_732502.elements[3] = ((closureN)self_73902)->elements[3];
c_732502.elements[4] = ((closureN)self_73902)->elements[4];
c_732502.elements[5] = ((closureN)self_73902)->elements[5];
c_732502.elements[6] = ((closureN)self_73902)->elements[6];



return_direct_with_clo1(data,(closure)&c_732502,__lambda_147,  Cyc_set_cell(data, ((closureN)self_73902)->elements[6], r_73766));; 
}

static void __lambda_147(void *data, object self_73903, int argc, object *args) /* object self_73903, object r_73714 */
 {

    
if( (boolean_f != Cyc_is_pair(((closureN)self_73903)->elements[3])) ){ 
  

return_closcall3(data,  car(((closureN)self_73903)->elements[5]),  ((closureN)self_73903)->elements[2], ((closureN)self_73903)->elements[3], ((closureN)self_73903)->elements[0]);
} else { 
    
if( (boolean_f != Cyc_is_null(((closureN)self_73903)->elements[3])) ){ 
  

return_closcall3(data,  car(((closureN)self_73903)->elements[6]),  ((closureN)self_73903)->elements[2], ((closureN)self_73903)->elements[3], ((closureN)self_73903)->elements[0]);
} else { 
  
closureN_type c_732524;
object e_732534 [1];
c_732524.hdr.mark = gc_color_red;
 c_732524.hdr.grayed = 0;
c_732524.tag = closureN_tag;
 c_732524.fn = (function_type)__lambda_148;
c_732524.num_args = 0;
c_732524.num_elements = 1;
c_732524.elements = (object *)e_732534;
c_732524.elements[0] = ((closureN)self_73903)->elements[3];


closureN_type c_732535;
object e_732870 [6];
c_732535.hdr.mark = gc_color_red;
 c_732535.hdr.grayed = 0;
c_732535.tag = closureN_tag;
 c_732535.fn = (function_type)__lambda_149;
c_732535.num_args = 1;
c_732535.num_elements = 6;
c_732535.elements = (object *)e_732870;
c_732535.elements[0] = ((closureN)self_73903)->elements[0];
c_732535.elements[1] = ((closureN)self_73903)->elements[1];
c_732535.elements[2] = ((closureN)self_73903)->elements[2];
c_732535.elements[3] = ((closureN)self_73903)->elements[3];
c_732535.elements[4] = ((closureN)self_73903)->elements[4];
c_732535.elements[5] = ((closureN)self_73903)->elements[6];

return_direct_with_clo1(data,(closure)&c_732524,__lambda_148,  &c_732535);}
;}
;; 
}

static void __lambda_149(void *data, object self_73904, int argc, object *args) /* object self_73904, object r_73717 */
 {
 object r_73717 = args[0];
  if( (boolean_f != r_73717) ){ 
  
closureN_type c_732537;
object e_732552 [4];
c_732537.hdr.mark = gc_color_red;
 c_732537.hdr.grayed = 0;
c_732537.tag = closureN_tag;
 c_732537.fn = (function_type)__lambda_150;
c_732537.num_args = 1;
c_732537.num_elements = 4;
c_732537.elements = (object *)e_732552;
c_732537.elements[0] = ((closureN)self_73904)->elements[0];
c_732537.elements[1] = ((closureN)self_73904)->elements[2];
c_732537.elements[2] = ((closureN)self_73904)->elements[4];
c_732537.elements[3] = ((closureN)self_73904)->elements[5];

return_direct_with_clo2(data,  __glo_vector_91_125list_scheme_base, (((closure)  __glo_vector_91_125list_scheme_base)->fn),  &c_732537, ((closureN)self_73904)->elements[3]);
} else { 
  
closureN_type c_732555;
object e_732866 [6];
c_732555.hdr.mark = gc_color_red;
 c_732555.hdr.grayed = 0;
c_732555.tag = closureN_tag;
 c_732555.fn = (function_type)__lambda_152;
c_732555.num_args = 1;
c_732555.num_elements = 6;
c_732555.elements = (object *)e_732866;
c_732555.elements[0] = ((closureN)self_73904)->elements[0];
c_732555.elements[1] = ((closureN)self_73904)->elements[1];
c_732555.elements[2] = ((closureN)self_73904)->elements[2];
c_732555.elements[3] = ((closureN)self_73904)->elements[3];
c_732555.elements[4] = ((closureN)self_73904)->elements[4];
c_732555.elements[5] = ((closureN)self_73904)->elements[5];



return_direct_with_clo1(data,(closure)&c_732555,__lambda_152,  Cyc_is_bytevector(((closureN)self_73904)->elements[3]));}
;; 
}

static void __lambda_152(void *data, object self_73907, int argc, object *args) /* object self_73907, object r_73720 */
 {
 object r_73720 = args[0];
  if( (boolean_f != r_73720) ){ 
  
closureN_type c_732557;
object e_732578 [4];
c_732557.hdr.mark = gc_color_red;
 c_732557.hdr.grayed = 0;
c_732557.tag = closureN_tag;
 c_732557.fn = (function_type)__lambda_153;
c_732557.num_args = 1;
c_732557.num_elements = 4;
c_732557.elements = (object *)e_732578;
c_732557.elements[0] = ((closureN)self_73907)->elements[0];
c_732557.elements[1] = ((closureN)self_73907)->elements[2];
c_732557.elements[2] = ((closureN)self_73907)->elements[4];
c_732557.elements[3] = ((closureN)self_73907)->elements[5];

return_direct_with_clo2(data,  __glo_utf8_91_125string_scheme_base, (((closure)  __glo_utf8_91_125string_scheme_base)->fn),  &c_732557, ((closureN)self_73907)->elements[3]);
} else { 
    
if( (boolean_f != Cyc_is_boolean(((closureN)self_73907)->elements[3])) ){ 
  object r_73726;
  if( (boolean_f != ((closureN)self_73907)->elements[3]) ){ 
  object c_732586;
 alloc_string(data,c_732586, 2, 2);
char tmp_732587[] = "#t";
memcpy(((string_type *)c_732586)->str, tmp_732587,2);
((string_type *)c_732586)->str[2] = '\0';
  r_73726 = c_732586;
} else { 
  object c_732589;
 alloc_string(data,c_732589, 2, 2);
char tmp_732590[] = "#f";
memcpy(((string_type *)c_732589)->str, tmp_732590,2);
((string_type *)c_732589)->str[2] = '\0';
  r_73726 = c_732589;}
;

return_closcall3(data,  car(((closureN)self_73907)->elements[4]),  ((closureN)self_73907)->elements[2], r_73726, ((closureN)self_73907)->elements[0]);
} else { 
    
if( (boolean_f != Cyc_is_number(((closureN)self_73907)->elements[3])) ){ 
  
closureN_type c_732601;
object e_732608 [3];
c_732601.hdr.mark = gc_color_red;
 c_732601.hdr.grayed = 0;
c_732601.tag = closureN_tag;
 c_732601.fn = (function_type)__lambda_157;
c_732601.num_args = 1;
c_732601.num_elements = 3;
c_732601.elements = (object *)e_732608;
c_732601.elements[0] = ((closureN)self_73907)->elements[0];
c_732601.elements[1] = ((closureN)self_73907)->elements[2];
c_732601.elements[2] = ((closureN)self_73907)->elements[4];


object c_732611 = Cyc_number2string2(data,(closure)&c_732601,1,((closureN)self_73907)->elements[3]);
return_closcall1(data,(closure)&c_732601,  c_732611);
} else { 
    
if( (boolean_f != Cyc_is_symbol(((closureN)self_73907)->elements[3])) ){ 
  
closureN_type c_732617;
object e_732624 [3];
c_732617.hdr.mark = gc_color_red;
 c_732617.hdr.grayed = 0;
c_732617.tag = closureN_tag;
 c_732617.fn = (function_type)__lambda_158;
c_732617.num_args = 1;
c_732617.num_elements = 3;
c_732617.elements = (object *)e_732624;
c_732617.elements[0] = ((closureN)self_73907)->elements[0];
c_732617.elements[1] = ((closureN)self_73907)->elements[2];
c_732617.elements[2] = ((closureN)self_73907)->elements[4];


object c_732627 = Cyc_symbol2string(data,(closure)&c_732617,((closureN)self_73907)->elements[3]);
return_closcall1(data,(closure)&c_732617,  c_732627);
} else { 
    
if( (boolean_f != Cyc_is_procedure(data, ((closureN)self_73907)->elements[3])) ){ 
  


make_utf8_string_with_len(c_732637, "#[procedure]", 12, 12);
return_closcall3(data,  car(((closureN)self_73907)->elements[4]),  ((closureN)self_73907)->elements[2], &c_732637, ((closureN)self_73907)->elements[0]);
} else { 
    
if( (boolean_f != Cyc_is_string(((closureN)self_73907)->elements[3])) ){ 
  if( (boolean_f != ((closureN)self_73907)->elements[1]) ){ 
  

return_closcall3(data,  car(((closureN)self_73907)->elements[4]),  ((closureN)self_73907)->elements[2], ((closureN)self_73907)->elements[3], ((closureN)self_73907)->elements[0]);
} else { 
  


closureN_type c_732654;
object e_732775 [3];
c_732654.hdr.mark = gc_color_red;
 c_732654.hdr.grayed = 0;
c_732654.tag = closureN_tag;
 c_732654.fn = (function_type)__lambda_159;
c_732654.num_args = 1;
c_732654.num_elements = 3;
c_732654.elements = (object *)e_732775;
c_732654.elements[0] = ((closureN)self_73907)->elements[2];
c_732654.elements[1] = ((closureN)self_73907)->elements[3];
c_732654.elements[2] = ((closureN)self_73907)->elements[4];


make_utf8_string_with_len(c_732776, "\"", 1, 1);
return_closcall3(data,  car(((closureN)self_73907)->elements[4]),  &c_732654, &c_732776, ((closureN)self_73907)->elements[0]);}
;
} else { 
    
if( (boolean_f != Cyc_is_char(((closureN)self_73907)->elements[3])) ){ 
  if( (boolean_f != ((closureN)self_73907)->elements[1]) ){ 
  
closureN_type c_732783;
object e_732790 [3];
c_732783.hdr.mark = gc_color_red;
 c_732783.hdr.grayed = 0;
c_732783.tag = closureN_tag;
 c_732783.fn = (function_type)__lambda_172;
c_732783.num_args = 1;
c_732783.num_elements = 3;
c_732783.elements = (object *)e_732790;
c_732783.elements[0] = ((closureN)self_73907)->elements[0];
c_732783.elements[1] = ((closureN)self_73907)->elements[2];
c_732783.elements[2] = ((closureN)self_73907)->elements[4];

return_direct_with_clo3(data,  __glo_make_91string_scheme_base, (((closure)  __glo_make_91string_scheme_base)->fn),  &c_732783, obj_int2obj(1), ((closureN)self_73907)->elements[3]);
} else { 
  
closureN_type c_732793;
object e_732825 [4];
c_732793.hdr.mark = gc_color_red;
 c_732793.hdr.grayed = 0;
c_732793.tag = closureN_tag;
 c_732793.fn = (function_type)__lambda_173;
c_732793.num_args = 1;
c_732793.num_elements = 4;
c_732793.elements = (object *)e_732825;
c_732793.elements[0] = ((closureN)self_73907)->elements[0];
c_732793.elements[1] = ((closureN)self_73907)->elements[2];
c_732793.elements[2] = ((closureN)self_73907)->elements[3];
c_732793.elements[3] = ((closureN)self_73907)->elements[4];

return_direct_with_clo1(data,(closure)&c_732793,__lambda_173,  ((closureN)self_73907)->elements[3]);}
;
} else { 
  
closureN_type c_732828;
object e_732864 [4];
c_732828.hdr.mark = gc_color_red;
 c_732828.hdr.grayed = 0;
c_732828.tag = closureN_tag;
 c_732828.fn = (function_type)__lambda_177;
c_732828.num_args = 1;
c_732828.num_elements = 4;
c_732828.elements = (object *)e_732864;
c_732828.elements[0] = ((closureN)self_73907)->elements[0];
c_732828.elements[1] = ((closureN)self_73907)->elements[2];
c_732828.elements[2] = ((closureN)self_73907)->elements[3];
c_732828.elements[3] = ((closureN)self_73907)->elements[4];

return_direct_with_clo2(data,  __glo_input_91port_127_scheme_base, (((closure)  __glo_input_91port_127_scheme_base)->fn),  &c_732828, ((closureN)self_73907)->elements[3]);}
;}
;}
;}
;}
;}
;}
;; 
}

static void __lambda_177(void *data, object self_73933, int argc, object *args) /* object self_73933, object r_73761 */
 {
 object r_73761 = args[0];
  if( (boolean_f != r_73761) ){ 
  


make_utf8_string_with_len(c_732834, "#[input-port]", 13, 13);
return_closcall3(data,  car(((closureN)self_73933)->elements[3]),  ((closureN)self_73933)->elements[1], &c_732834, ((closureN)self_73933)->elements[0]);
} else { 
  
closureN_type c_732837;
object e_732862 [4];
c_732837.hdr.mark = gc_color_red;
 c_732837.hdr.grayed = 0;
c_732837.tag = closureN_tag;
 c_732837.fn = (function_type)__lambda_178;
c_732837.num_args = 1;
c_732837.num_elements = 4;
c_732837.elements = (object *)e_732862;
c_732837.elements[0] = ((closureN)self_73933)->elements[0];
c_732837.elements[1] = ((closureN)self_73933)->elements[1];
c_732837.elements[2] = ((closureN)self_73933)->elements[2];
c_732837.elements[3] = ((closureN)self_73933)->elements[3];

return_direct_with_clo2(data,  __glo_output_91port_127_scheme_base, (((closure)  __glo_output_91port_127_scheme_base)->fn),  &c_732837, ((closureN)self_73933)->elements[2]);}
;; 
}

static void __lambda_178(void *data, object self_73934, int argc, object *args) /* object self_73934, object r_73762 */
 {
 object r_73762 = args[0];
  if( (boolean_f != r_73762) ){ 
  


make_utf8_string_with_len(c_732843, "#[output-port]", 14, 14);
return_closcall3(data,  car(((closureN)self_73934)->elements[3]),  ((closureN)self_73934)->elements[1], &c_732843, ((closureN)self_73934)->elements[0]);
} else { 
    
if( (boolean_f != Cyc_is_eof_object(((closureN)self_73934)->elements[2])) ){ 
  


make_utf8_string_with_len(c_732853, "#[eof-object]", 13, 13);
return_closcall3(data,  car(((closureN)self_73934)->elements[3]),  ((closureN)self_73934)->elements[1], &c_732853, ((closureN)self_73934)->elements[0]);
} else { 
  


make_utf8_string_with_len(c_732860, "#[unknown]", 10, 10);
return_closcall3(data,  car(((closureN)self_73934)->elements[3]),  ((closureN)self_73934)->elements[1], &c_732860, ((closureN)self_73934)->elements[0]);}
;}
;; 
}

static void __lambda_173(void *data, object self_73929, int argc, object *args) /* object self_73929, object tmp_7397_73100_73365 */
 {
 object tmp_7397_73100_73365 = args[0];
  
closureN_type c_732795;
object e_732808 [2];
c_732795.hdr.mark = gc_color_red;
 c_732795.hdr.grayed = 0;
c_732795.tag = closureN_tag;
 c_732795.fn = (function_type)__lambda_174;
c_732795.num_args = 0;
c_732795.num_elements = 2;
c_732795.elements = (object *)e_732808;
c_732795.elements[0] = ((closureN)self_73929)->elements[2];
c_732795.elements[1] = tmp_7397_73100_73365;


closureN_type c_732809;
object e_732824 [3];
c_732809.hdr.mark = gc_color_red;
 c_732809.hdr.grayed = 0;
c_732809.tag = closureN_tag;
 c_732809.fn = (function_type)__lambda_175;
c_732809.num_args = 1;
c_732809.num_elements = 3;
c_732809.elements = (object *)e_732824;
c_732809.elements[0] = ((closureN)self_73929)->elements[0];
c_732809.elements[1] = ((closureN)self_73929)->elements[1];
c_732809.elements[2] = ((closureN)self_73929)->elements[3];

return_direct_with_clo1(data,(closure)&c_732795,__lambda_174,  &c_732809);; 
}

static void __lambda_175(void *data, object self_73930, int argc, object *args) /* object self_73930, object r_73754 */
 {
 object r_73754 = args[0];
  


closureN_type c_732814;
object e_732821 [3];
c_732814.hdr.mark = gc_color_red;
 c_732814.hdr.grayed = 0;
c_732814.tag = closureN_tag;
 c_732814.fn = (function_type)__lambda_176;
c_732814.num_args = 1;
c_732814.num_elements = 3;
c_732814.elements = (object *)e_732821;
c_732814.elements[0] = ((closureN)self_73930)->elements[1];
c_732814.elements[1] = ((closureN)self_73930)->elements[2];
c_732814.elements[2] = r_73754;


make_utf8_string_with_len(c_732822, "#\\", 2, 2);
return_closcall3(data,  car(((closureN)self_73930)->elements[2]),  &c_732814, &c_732822, ((closureN)self_73930)->elements[0]);; 
}

static void __lambda_176(void *data, object self_73931, int argc, object *args) /* object self_73931, object r_73755 */
 {
 object r_73755 = args[0];
  

return_closcall3(data,  car(((closureN)self_73931)->elements[1]),  ((closureN)self_73931)->elements[0], ((closureN)self_73931)->elements[2], r_73755);; 
}

static void __lambda_174(void *data, object self_73932, int argc, object *args) /* object self_73932, object k_73756 */
 {
 object k_73756 = args[0];
    
if( (boolean_f != Cyc_eqv(((closureN)self_73932)->elements[1], obj_char2obj(32))) ){ 
  
make_utf8_string_with_len(c_732800, "space", 5, 5);
return_direct_with_clo1(data,  k_73756, (((closure)  k_73756)->fn),  &c_732800);
} else { 
    
if( (boolean_f != Cyc_eqv(((closureN)self_73932)->elements[1], obj_char2obj(10))) ){ 
  
make_utf8_string_with_len(c_732805, "newline", 7, 7);
return_direct_with_clo1(data,  k_73756, (((closure)  k_73756)->fn),  &c_732805);
} else { 
  return_direct_with_clo3(data,  __glo_make_91string_scheme_base, (((closure)  __glo_make_91string_scheme_base)->fn),  k_73756, obj_int2obj(1), ((closureN)self_73932)->elements[0]);}
;}
;; 
}

static void __lambda_172(void *data, object self_73928, int argc, object *args) /* object self_73928, object r_73753 */
 {
 object r_73753 = args[0];
  

return_closcall3(data,  car(((closureN)self_73928)->elements[2]),  ((closureN)self_73928)->elements[1], r_73753, ((closureN)self_73928)->elements[0]);; 
}

static void __lambda_159(void *data, object self_73914, int argc, object *args) /* object self_73914, object col_7383_73358 */
 {
 object col_7383_73358 = args[0];
  
closureN_type c_732656;
object e_732774 [4];
c_732656.hdr.mark = gc_color_red;
 c_732656.hdr.grayed = 0;
c_732656.tag = closureN_tag;
 c_732656.fn = (function_type)__lambda_160;
c_732656.num_args = 1;
c_732656.num_elements = 4;
c_732656.elements = (object *)e_732774;
c_732656.elements[0] = col_7383_73358;
c_732656.elements[1] = ((closureN)self_73914)->elements[0];
c_732656.elements[2] = ((closureN)self_73914)->elements[1];
c_732656.elements[3] = ((closureN)self_73914)->elements[2];

return_direct_with_clo1(data,(closure)&c_732656,__lambda_160,  boolean_f);; 
}

static void __lambda_160(void *data, object self_73915, int argc, object *args) /* object self_73915, object loop_7384_73359 */
 {
 object loop_7384_73359 = args[0];
  
closureN_type c_732658;
object e_732770 [4];
c_732658.hdr.mark = gc_color_red;
 c_732658.hdr.grayed = 0;
c_732658.tag = closureN_tag;
 c_732658.fn = (function_type)__lambda_248;
c_732658.num_args = 1;
c_732658.num_elements = 4;
c_732658.elements = (object *)e_732770;
c_732658.elements[0] = ((closureN)self_73915)->elements[0];
c_732658.elements[1] = ((closureN)self_73915)->elements[1];
c_732658.elements[2] = ((closureN)self_73915)->elements[2];
c_732658.elements[3] = ((closureN)self_73915)->elements[3];


pair_type local_732773; 
return_direct_with_clo1(data,(closure)&c_732658,__lambda_248,  set_cell_as_expr(&local_732773, loop_7384_73359));; 
}

static void __lambda_248(void *data, object self_73916, int argc, object *args) /* object self_73916, object loop_7384_73359 */
 {
 object loop_7384_73359 = args[0];
  
closureN_type c_732660;
object e_732673 [3];
c_732660.hdr.mark = gc_color_red;
 c_732660.hdr.grayed = 0;
c_732660.tag = closureN_tag;
 c_732660.fn = (function_type)__lambda_161;
c_732660.num_args = 1;
c_732660.num_elements = 3;
c_732660.elements = (object *)e_732673;
c_732660.elements[0] = ((closureN)self_73916)->elements[0];
c_732660.elements[1] = ((closureN)self_73916)->elements[1];
c_732660.elements[2] = loop_7384_73359;


closureN_type c_732674;
object e_732769 [3];
c_732674.hdr.mark = gc_color_red;
 c_732674.hdr.grayed = 0;
c_732674.tag = closureN_tag;
 c_732674.fn = (function_type)__lambda_163;
c_732674.num_args = 3;
c_732674.num_elements = 3;
c_732674.elements = (object *)e_732769;
c_732674.elements[0] = loop_7384_73359;
c_732674.elements[1] = ((closureN)self_73916)->elements[2];
c_732674.elements[2] = ((closureN)self_73916)->elements[3];

return_direct_with_clo1(data,(closure)&c_732660,__lambda_161,  &c_732674);; 
}

static void __lambda_163(void *data, object self_73917, int argc, object *args) /* object self_73917, object k_73737, object i_7385_73360, object j_7386_73361, object col_7387_73362 */
 {
 object k_73737 = args[0]; object i_7385_73360 = args[1]; object j_7386_73361 = args[2]; object col_7387_73362 = args[3];
  object r_73738;
  if( (boolean_f != col_7387_73362) ){ 
  
  
  r_73738 = Cyc_num_fast_lt_op(data, j_7386_73361, Cyc_string_length(data, ((closureN)self_73917)->elements[1]));
} else { 
  r_73738 = boolean_f;}
;if( (boolean_f != r_73738) ){ 
  
closureN_type c_732684;
object e_732745 [7];
c_732684.hdr.mark = gc_color_red;
 c_732684.hdr.grayed = 0;
c_732684.tag = closureN_tag;
 c_732684.fn = (function_type)__lambda_164;
c_732684.num_args = 1;
c_732684.num_elements = 7;
c_732684.elements = (object *)e_732745;
c_732684.elements[0] = col_7387_73362;
c_732684.elements[1] = i_7385_73360;
c_732684.elements[2] = j_7386_73361;
c_732684.elements[3] = k_73737;
c_732684.elements[4] = ((closureN)self_73917)->elements[0];
c_732684.elements[5] = ((closureN)self_73917)->elements[1];
c_732684.elements[6] = ((closureN)self_73917)->elements[2];



return_direct_with_clo1(data,(closure)&c_732684,__lambda_164,  Cyc_string_ref(data, ((closureN)self_73917)->elements[1], j_7386_73361));
} else { 
  
closureN_type c_732750;
object e_732764 [3];
c_732750.hdr.mark = gc_color_red;
 c_732750.hdr.grayed = 0;
c_732750.tag = closureN_tag;
 c_732750.fn = (function_type)__lambda_170;
c_732750.num_args = 1;
c_732750.num_elements = 3;
c_732750.elements = (object *)e_732764;
c_732750.elements[0] = col_7387_73362;
c_732750.elements[1] = k_73737;
c_732750.elements[2] = ((closureN)self_73917)->elements[2];


object c_732767 = Cyc_substring(data,(closure)&c_732750,((closureN)self_73917)->elements[1], i_7385_73360, j_7386_73361);
return_closcall1(data,(closure)&c_732750,  c_732767);}
;; 
}

static void __lambda_170(void *data, object self_73924, int argc, object *args) /* object self_73924, object r_73749 */
 {
 object r_73749 = args[0];
  


closureN_type c_732755;
object e_732762 [2];
c_732755.hdr.mark = gc_color_red;
 c_732755.hdr.grayed = 0;
c_732755.tag = closureN_tag;
 c_732755.fn = (function_type)__lambda_171;
c_732755.num_args = 1;
c_732755.num_elements = 2;
c_732755.elements = (object *)e_732762;
c_732755.elements[0] = ((closureN)self_73924)->elements[1];
c_732755.elements[1] = ((closureN)self_73924)->elements[2];

return_closcall3(data,  car(((closureN)self_73924)->elements[2]),  &c_732755, r_73749, ((closureN)self_73924)->elements[0]);; 
}

static void __lambda_171(void *data, object self_73925, int argc, object *args) /* object self_73925, object r_73748 */
 {
 object r_73748 = args[0];
  


make_utf8_string_with_len(c_732761, "\"", 1, 1);
return_closcall3(data,  car(((closureN)self_73925)->elements[1]),  ((closureN)self_73925)->elements[0], &c_732761, r_73748);; 
}

static void __lambda_164(void *data, object self_73918, int argc, object *args) /* object self_73918, object c_7389_73363 */
 {
 object c_7389_73363 = args[0];
  
closureN_type c_732686;
object e_732698 [1];
c_732686.hdr.mark = gc_color_red;
 c_732686.hdr.grayed = 0;
c_732686.tag = closureN_tag;
 c_732686.fn = (function_type)__lambda_165;
c_732686.num_args = 0;
c_732686.num_elements = 1;
c_732686.elements = (object *)e_732698;
c_732686.elements[0] = c_7389_73363;


closureN_type c_732699;
object e_732744 [7];
c_732699.hdr.mark = gc_color_red;
 c_732699.hdr.grayed = 0;
c_732699.tag = closureN_tag;
 c_732699.fn = (function_type)__lambda_166;
c_732699.num_args = 1;
c_732699.num_elements = 7;
c_732699.elements = (object *)e_732744;
c_732699.elements[0] = ((closureN)self_73918)->elements[0];
c_732699.elements[1] = ((closureN)self_73918)->elements[1];
c_732699.elements[2] = ((closureN)self_73918)->elements[2];
c_732699.elements[3] = ((closureN)self_73918)->elements[3];
c_732699.elements[4] = ((closureN)self_73918)->elements[4];
c_732699.elements[5] = ((closureN)self_73918)->elements[5];
c_732699.elements[6] = ((closureN)self_73918)->elements[6];

return_direct_with_clo1(data,(closure)&c_732686,__lambda_165,  &c_732699);; 
}

static void __lambda_166(void *data, object self_73919, int argc, object *args) /* object self_73919, object r_73740 */
 {
 object r_73740 = args[0];
  if( (boolean_f != r_73740) ){ 
  
closureN_type c_732701;
object e_732726 [5];
c_732701.hdr.mark = gc_color_red;
 c_732701.hdr.grayed = 0;
c_732701.tag = closureN_tag;
 c_732701.fn = (function_type)__lambda_167;
c_732701.num_args = 1;
c_732701.num_elements = 5;
c_732701.elements = (object *)e_732726;
c_732701.elements[0] = ((closureN)self_73919)->elements[0];
c_732701.elements[1] = ((closureN)self_73919)->elements[2];
c_732701.elements[2] = ((closureN)self_73919)->elements[3];
c_732701.elements[3] = ((closureN)self_73919)->elements[4];
c_732701.elements[4] = ((closureN)self_73919)->elements[6];


object c_732729 = Cyc_substring(data,(closure)&c_732701,((closureN)self_73919)->elements[5], ((closureN)self_73919)->elements[1], ((closureN)self_73919)->elements[2]);
return_closcall1(data,(closure)&c_732701,  c_732729);
} else { 
  


complex_num_type local_732741; 
return_closcall4(data,  car(((closureN)self_73919)->elements[4]),  ((closureN)self_73919)->elements[3], ((closureN)self_73919)->elements[1], Cyc_fast_sum(data,&local_732741, ((closureN)self_73919)->elements[2], obj_int2obj(1)), ((closureN)self_73919)->elements[0]);}
;; 
}

static void __lambda_167(void *data, object self_73920, int argc, object *args) /* object self_73920, object r_73744 */
 {
 object r_73744 = args[0];
  


closureN_type c_732706;
object e_732724 [4];
c_732706.hdr.mark = gc_color_red;
 c_732706.hdr.grayed = 0;
c_732706.tag = closureN_tag;
 c_732706.fn = (function_type)__lambda_168;
c_732706.num_args = 1;
c_732706.num_elements = 4;
c_732706.elements = (object *)e_732724;
c_732706.elements[0] = ((closureN)self_73920)->elements[1];
c_732706.elements[1] = ((closureN)self_73920)->elements[2];
c_732706.elements[2] = ((closureN)self_73920)->elements[3];
c_732706.elements[3] = ((closureN)self_73920)->elements[4];

return_closcall3(data,  car(((closureN)self_73920)->elements[4]),  &c_732706, r_73744, ((closureN)self_73920)->elements[0]);; 
}

static void __lambda_168(void *data, object self_73921, int argc, object *args) /* object self_73921, object r_73743 */
 {
 object r_73743 = args[0];
  


closureN_type c_732711;
object e_732722 [3];
c_732711.hdr.mark = gc_color_red;
 c_732711.hdr.grayed = 0;
c_732711.tag = closureN_tag;
 c_732711.fn = (function_type)__lambda_169;
c_732711.num_args = 1;
c_732711.num_elements = 3;
c_732711.elements = (object *)e_732722;
c_732711.elements[0] = ((closureN)self_73921)->elements[0];
c_732711.elements[1] = ((closureN)self_73921)->elements[1];
c_732711.elements[2] = ((closureN)self_73921)->elements[2];


make_utf8_string_with_len(c_732723, "\\", 1, 1);
return_closcall3(data,  car(((closureN)self_73921)->elements[3]),  &c_732711, &c_732723, r_73743);; 
}

static void __lambda_169(void *data, object self_73922, int argc, object *args) /* object self_73922, object r_73742 */
 {
 object r_73742 = args[0];
  


complex_num_type local_732720; 
return_closcall4(data,  car(((closureN)self_73922)->elements[2]),  ((closureN)self_73922)->elements[1], ((closureN)self_73922)->elements[0], Cyc_fast_sum(data,&local_732720, ((closureN)self_73922)->elements[0], obj_int2obj(1)), r_73742);; 
}

static void __lambda_165(void *data, object self_73923, int argc, object *args) /* object self_73923, object k_73747 */
 {
 object k_73747 = args[0];
    
if( (boolean_f != Cyc_char_eq_op(data, ((closureN)self_73923)->elements[0], obj_char2obj(92))) ){ 
  

return_direct_with_clo1(data,  k_73747,__lambda_166,  Cyc_char_eq_op(data, ((closureN)self_73923)->elements[0], obj_char2obj(92)));
} else { 
  

return_direct_with_clo1(data,  k_73747,__lambda_166,  Cyc_char_eq_op(data, ((closureN)self_73923)->elements[0], obj_char2obj(34)));}
;; 
}

static void __lambda_161(void *data, object self_73926, int argc, object *args) /* object self_73926, object r_73736 */
 {
 object r_73736 = args[0];
  
closureN_type c_732662;
object e_732669 [3];
c_732662.hdr.mark = gc_color_red;
 c_732662.hdr.grayed = 0;
c_732662.tag = closureN_tag;
 c_732662.fn = (function_type)__lambda_162;
c_732662.num_args = 1;
c_732662.num_elements = 3;
c_732662.elements = (object *)e_732669;
c_732662.elements[0] = ((closureN)self_73926)->elements[0];
c_732662.elements[1] = ((closureN)self_73926)->elements[1];
c_732662.elements[2] = ((closureN)self_73926)->elements[2];



return_direct_with_clo1(data,(closure)&c_732662,__lambda_162,  Cyc_set_cell(data, ((closureN)self_73926)->elements[2], r_73736));; 
}

static void __lambda_162(void *data, object self_73927, int argc, object *args) /* object self_73927, object r_73735 */
 {

  

return_closcall4(data,  car(((closureN)self_73927)->elements[2]),  ((closureN)self_73927)->elements[1], obj_int2obj(0), obj_int2obj(0), ((closureN)self_73927)->elements[0]);; 
}

static void __lambda_158(void *data, object self_73913, int argc, object *args) /* object self_73913, object r_73731 */
 {
 object r_73731 = args[0];
  

return_closcall3(data,  car(((closureN)self_73913)->elements[2]),  ((closureN)self_73913)->elements[1], r_73731, ((closureN)self_73913)->elements[0]);; 
}

static void __lambda_157(void *data, object self_73912, int argc, object *args) /* object self_73912, object r_73729 */
 {
 object r_73729 = args[0];
  

return_closcall3(data,  car(((closureN)self_73912)->elements[2]),  ((closureN)self_73912)->elements[1], r_73729, ((closureN)self_73912)->elements[0]);; 
}

static void __lambda_153(void *data, object self_73908, int argc, object *args) /* object self_73908, object r_73724 */
 {
 object r_73724 = args[0];
  
closureN_type c_732559;
object e_732577 [4];
c_732559.hdr.mark = gc_color_red;
 c_732559.hdr.grayed = 0;
c_732559.tag = closureN_tag;
 c_732559.fn = (function_type)__lambda_154;
c_732559.num_args = 1;
c_732559.num_elements = 4;
c_732559.elements = (object *)e_732577;
c_732559.elements[0] = ((closureN)self_73908)->elements[0];
c_732559.elements[1] = ((closureN)self_73908)->elements[1];
c_732559.elements[2] = ((closureN)self_73908)->elements[2];
c_732559.elements[3] = ((closureN)self_73908)->elements[3];

return_direct_with_clo2(data,  __glo_string_91_125list_scheme_base, (((closure)  __glo_string_91_125list_scheme_base)->fn),  &c_732559, r_73724);; 
}

static void __lambda_154(void *data, object self_73909, int argc, object *args) /* object self_73909, object r_73723 */
 {
 object r_73723 = args[0];
  
closureN_type c_732561;
object e_732576 [4];
c_732561.hdr.mark = gc_color_red;
 c_732561.hdr.grayed = 0;
c_732561.tag = closureN_tag;
 c_732561.fn = (function_type)__lambda_155;
c_732561.num_args = 1;
c_732561.num_elements = 4;
c_732561.elements = (object *)e_732576;
c_732561.elements[0] = ((closureN)self_73909)->elements[0];
c_732561.elements[1] = ((closureN)self_73909)->elements[1];
c_732561.elements[2] = ((closureN)self_73909)->elements[2];
c_732561.elements[3] = ((closureN)self_73909)->elements[3];

return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_732561, primitive_char_91_125integer, r_73723);; 
}

static void __lambda_155(void *data, object self_73910, int argc, object *args) /* object self_73910, object r_73721 */
 {
 object r_73721 = args[0];
  


closureN_type c_732566;
object e_732573 [3];
c_732566.hdr.mark = gc_color_red;
 c_732566.hdr.grayed = 0;
c_732566.tag = closureN_tag;
 c_732566.fn = (function_type)__lambda_156;
c_732566.num_args = 1;
c_732566.num_elements = 3;
c_732566.elements = (object *)e_732573;
c_732566.elements[0] = ((closureN)self_73910)->elements[1];
c_732566.elements[1] = r_73721;
c_732566.elements[2] = ((closureN)self_73910)->elements[3];


make_utf8_string_with_len(c_732574, "#u8", 3, 3);
return_closcall3(data,  car(((closureN)self_73910)->elements[2]),  &c_732566, &c_732574, ((closureN)self_73910)->elements[0]);; 
}

static void __lambda_156(void *data, object self_73911, int argc, object *args) /* object self_73911, object r_73722 */
 {
 object r_73722 = args[0];
  

return_closcall3(data,  car(((closureN)self_73911)->elements[2]),  ((closureN)self_73911)->elements[0], ((closureN)self_73911)->elements[1], r_73722);; 
}

static void __lambda_150(void *data, object self_73905, int argc, object *args) /* object self_73905, object r_73718 */
 {
 object r_73718 = args[0];
  


closureN_type c_732542;
object e_732549 [3];
c_732542.hdr.mark = gc_color_red;
 c_732542.hdr.grayed = 0;
c_732542.tag = closureN_tag;
 c_732542.fn = (function_type)__lambda_151;
c_732542.num_args = 1;
c_732542.num_elements = 3;
c_732542.elements = (object *)e_732549;
c_732542.elements[0] = ((closureN)self_73905)->elements[1];
c_732542.elements[1] = r_73718;
c_732542.elements[2] = ((closureN)self_73905)->elements[3];


make_utf8_string_with_len(c_732550, "#", 1, 1);
return_closcall3(data,  car(((closureN)self_73905)->elements[2]),  &c_732542, &c_732550, ((closureN)self_73905)->elements[0]);; 
}

static void __lambda_151(void *data, object self_73906, int argc, object *args) /* object self_73906, object r_73719 */
 {
 object r_73719 = args[0];
  

return_closcall3(data,  car(((closureN)self_73906)->elements[2]),  ((closureN)self_73906)->elements[0], ((closureN)self_73906)->elements[1], r_73719);; 
}

static void __lambda_148(void *data, object self_73935, int argc, object *args) /* object self_73935, object k_73765 */
 {
 object k_73765 = args[0];
    
if( (boolean_f != Cyc_is_vector_not_record_type(((closureN)self_73935)->elements[0])) ){ 
  

return_direct_with_clo1(data,  k_73765, (((closure)  k_73765)->fn),  Cyc_is_vector_not_record_type(((closureN)self_73935)->elements[0]));
} else { 
  return_direct_with_clo2(data,  __glo_record_127_scheme_base, (((closure)  __glo_record_127_scheme_base)->fn),  k_73765, ((closureN)self_73935)->elements[0]);}
;; 
}

static void __lambda_11(void *data, object self_73936, int argc, object *args) /* object self_73936, object r_73711 */
 {
 object r_73711 = args[0];
  
closureN_type c_731138;
object e_732483 [10];
c_731138.hdr.mark = gc_color_red;
 c_731138.hdr.grayed = 0;
c_731138.tag = closureN_tag;
 c_731138.fn = (function_type)__lambda_12;
c_731138.num_args = 1;
c_731138.num_elements = 10;
c_731138.elements = (object *)e_732483;
c_731138.elements[0] = ((closureN)self_73936)->elements[0];
c_731138.elements[1] = ((closureN)self_73936)->elements[1];
c_731138.elements[2] = ((closureN)self_73936)->elements[2];
c_731138.elements[3] = ((closureN)self_73936)->elements[3];
c_731138.elements[4] = ((closureN)self_73936)->elements[4];
c_731138.elements[5] = ((closureN)self_73936)->elements[5];
c_731138.elements[6] = ((closureN)self_73936)->elements[6];
c_731138.elements[7] = ((closureN)self_73936)->elements[7];
c_731138.elements[8] = ((closureN)self_73936)->elements[8];
c_731138.elements[9] = ((closureN)self_73936)->elements[9];



return_direct_with_clo1(data,(closure)&c_731138,__lambda_12,  Cyc_set_cell(data, ((closureN)self_73936)->elements[9], r_73711));; 
}

static void __lambda_12(void *data, object self_73937, int argc, object *args) /* object self_73937, object r_73511 */
 {

  
closureN_type c_731140;
object e_731166 [6];
c_731140.hdr.mark = gc_color_red;
 c_731140.hdr.grayed = 0;
c_731140.tag = closureN_tag;
 c_731140.fn = (function_type)__lambda_13;
c_731140.num_args = 1;
c_731140.num_elements = 6;
c_731140.elements = (object *)e_731166;
c_731140.elements[0] = ((closureN)self_73937)->elements[1];
c_731140.elements[1] = ((closureN)self_73937)->elements[2];
c_731140.elements[2] = ((closureN)self_73937)->elements[3];
c_731140.elements[3] = ((closureN)self_73937)->elements[4];
c_731140.elements[4] = ((closureN)self_73937)->elements[8];
c_731140.elements[5] = ((closureN)self_73937)->elements[9];


closureN_type c_731167;
object e_732482 [7];
c_731167.hdr.mark = gc_color_red;
 c_731167.hdr.grayed = 0;
c_731167.tag = closureN_tag;
 c_731167.fn = (function_type)__lambda_16;
c_731167.num_args = 2;
c_731167.num_elements = 7;
c_731167.elements = (object *)e_732482;
c_731167.elements[0] = ((closureN)self_73937)->elements[0];
c_731167.elements[1] = ((closureN)self_73937)->elements[3];
c_731167.elements[2] = ((closureN)self_73937)->elements[5];
c_731167.elements[3] = ((closureN)self_73937)->elements[6];
c_731167.elements[4] = ((closureN)self_73937)->elements[7];
c_731167.elements[5] = ((closureN)self_73937)->elements[8];
c_731167.elements[6] = ((closureN)self_73937)->elements[9];

return_direct_with_clo1(data,(closure)&c_731140,__lambda_13,  &c_731167);; 
}

static void __lambda_16(void *data, object self_73938, int argc, object *args) /* object self_73938, object k_73515, object obj_73111_73366, object col_73112_73367 */
 {
 object k_73515 = args[0]; object obj_73111_73366 = args[1]; object col_73112_73367 = args[2];
  
closureN_type c_731169;
object e_732481 [10];
c_731169.hdr.mark = gc_color_red;
 c_731169.hdr.grayed = 0;
c_731169.tag = closureN_tag;
 c_731169.fn = (function_type)__lambda_17;
c_731169.num_args = 21;
c_731169.num_elements = 10;
c_731169.elements = (object *)e_732481;
c_731169.elements[0] = col_73112_73367;
c_731169.elements[1] = ((closureN)self_73938)->elements[0];
c_731169.elements[2] = k_73515;
c_731169.elements[3] = obj_73111_73366;
c_731169.elements[4] = ((closureN)self_73938)->elements[1];
c_731169.elements[5] = ((closureN)self_73938)->elements[2];
c_731169.elements[6] = ((closureN)self_73938)->elements[3];
c_731169.elements[7] = ((closureN)self_73938)->elements[4];
c_731169.elements[8] = ((closureN)self_73938)->elements[5];
c_731169.elements[9] = ((closureN)self_73938)->elements[6];

return_direct_with_clo21(data,(closure)&c_731169,__lambda_17,  boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f);; 
}

static void __lambda_17(void *data, object self_73939, int argc, object *args) /* object self_73939, object spaces_73368, object indent_73369, object pr_73370, object pp_91expr_73371, object pp_91call_73372, object pp_91list_73373, object pp_91down_73374, object pp_91general_73375, object pp_91expr_91list_73376, object pp_91LAMBDA_73377, object pp_91IF_73378, object pp_91COND_73379, object pp_91CASE_73380, object pp_91AND_73381, object pp_91LET_73382, object pp_91BEGIN_73383, object pp_91DO_73384, object indent_91general_73385, object max_91call_91head_91width_73386, object max_91expr_91width_73387, object style_73388 */
 {
 object spaces_73368 = args[0]; object indent_73369 = args[1]; object pr_73370 = args[2]; object pp_91expr_73371 = args[3]; object pp_91call_73372 = args[4]; object pp_91list_73373 = args[5]; object pp_91down_73374 = args[6]; object pp_91general_73375 = args[7]; object pp_91expr_91list_73376 = args[8]; object pp_91LAMBDA_73377 = args[9]; object pp_91IF_73378 = args[10]; object pp_91COND_73379 = args[11]; object pp_91CASE_73380 = args[12]; object pp_91AND_73381 = args[13]; object pp_91LET_73382 = args[14]; object pp_91BEGIN_73383 = args[15]; object pp_91DO_73384 = args[16]; object indent_91general_73385 = args[17]; object max_91call_91head_91width_73386 = args[18]; object max_91expr_91width_73387 = args[19]; object style_73388 = args[20];
  
closureN_type c_731171;
object e_732477 [30];
c_731171.hdr.mark = gc_color_red;
 c_731171.hdr.grayed = 0;
c_731171.tag = closureN_tag;
 c_731171.fn = (function_type)__lambda_247;
c_731171.num_args = 1;
c_731171.num_elements = 30;
c_731171.elements = (object *)e_732477;
c_731171.elements[0] = ((closureN)self_73939)->elements[0];
c_731171.elements[1] = ((closureN)self_73939)->elements[1];
c_731171.elements[2] = indent_73369;
c_731171.elements[3] = indent_91general_73385;
c_731171.elements[4] = ((closureN)self_73939)->elements[2];
c_731171.elements[5] = max_91call_91head_91width_73386;
c_731171.elements[6] = max_91expr_91width_73387;
c_731171.elements[7] = ((closureN)self_73939)->elements[3];
c_731171.elements[8] = ((closureN)self_73939)->elements[4];
c_731171.elements[9] = pp_91AND_73381;
c_731171.elements[10] = pp_91BEGIN_73383;
c_731171.elements[11] = pp_91CASE_73380;
c_731171.elements[12] = pp_91COND_73379;
c_731171.elements[13] = pp_91DO_73384;
c_731171.elements[14] = pp_91IF_73378;
c_731171.elements[15] = pp_91LAMBDA_73377;
c_731171.elements[16] = pp_91LET_73382;
c_731171.elements[17] = pp_91call_73372;
c_731171.elements[18] = pp_91down_73374;
c_731171.elements[19] = pp_91expr_73371;
c_731171.elements[20] = pp_91expr_91list_73376;
c_731171.elements[21] = pp_91general_73375;
c_731171.elements[22] = pp_91list_73373;
c_731171.elements[23] = pr_73370;
c_731171.elements[24] = ((closureN)self_73939)->elements[5];
c_731171.elements[25] = ((closureN)self_73939)->elements[6];
c_731171.elements[26] = ((closureN)self_73939)->elements[7];
c_731171.elements[27] = style_73388;
c_731171.elements[28] = ((closureN)self_73939)->elements[8];
c_731171.elements[29] = ((closureN)self_73939)->elements[9];


pair_type local_732480; 
return_direct_with_clo1(data,(closure)&c_731171,__lambda_247,  set_cell_as_expr(&local_732480, spaces_73368));; 
}

static void __lambda_247(void *data, object self_73940, int argc, object *args) /* object self_73940, object spaces_73368 */
 {
 object spaces_73368 = args[0];
  
closureN_type c_731173;
object e_732472 [30];
c_731173.hdr.mark = gc_color_red;
 c_731173.hdr.grayed = 0;
c_731173.tag = closureN_tag;
 c_731173.fn = (function_type)__lambda_246;
c_731173.num_args = 1;
c_731173.num_elements = 30;
c_731173.elements = (object *)e_732472;
c_731173.elements[0] = ((closureN)self_73940)->elements[0];
c_731173.elements[1] = ((closureN)self_73940)->elements[1];
c_731173.elements[2] = ((closureN)self_73940)->elements[3];
c_731173.elements[3] = ((closureN)self_73940)->elements[4];
c_731173.elements[4] = ((closureN)self_73940)->elements[5];
c_731173.elements[5] = ((closureN)self_73940)->elements[6];
c_731173.elements[6] = ((closureN)self_73940)->elements[7];
c_731173.elements[7] = ((closureN)self_73940)->elements[8];
c_731173.elements[8] = ((closureN)self_73940)->elements[9];
c_731173.elements[9] = ((closureN)self_73940)->elements[10];
c_731173.elements[10] = ((closureN)self_73940)->elements[11];
c_731173.elements[11] = ((closureN)self_73940)->elements[12];
c_731173.elements[12] = ((closureN)self_73940)->elements[13];
c_731173.elements[13] = ((closureN)self_73940)->elements[14];
c_731173.elements[14] = ((closureN)self_73940)->elements[15];
c_731173.elements[15] = ((closureN)self_73940)->elements[16];
c_731173.elements[16] = ((closureN)self_73940)->elements[17];
c_731173.elements[17] = ((closureN)self_73940)->elements[18];
c_731173.elements[18] = ((closureN)self_73940)->elements[19];
c_731173.elements[19] = ((closureN)self_73940)->elements[20];
c_731173.elements[20] = ((closureN)self_73940)->elements[21];
c_731173.elements[21] = ((closureN)self_73940)->elements[22];
c_731173.elements[22] = ((closureN)self_73940)->elements[23];
c_731173.elements[23] = ((closureN)self_73940)->elements[24];
c_731173.elements[24] = ((closureN)self_73940)->elements[25];
c_731173.elements[25] = ((closureN)self_73940)->elements[26];
c_731173.elements[26] = spaces_73368;
c_731173.elements[27] = ((closureN)self_73940)->elements[27];
c_731173.elements[28] = ((closureN)self_73940)->elements[28];
c_731173.elements[29] = ((closureN)self_73940)->elements[29];


pair_type local_732475; 
return_direct_with_clo1(data,(closure)&c_731173,__lambda_246,  set_cell_as_expr(&local_732475, ((closureN)self_73940)->elements[2]));; 
}

static void __lambda_246(void *data, object self_73941, int argc, object *args) /* object self_73941, object indent_73369 */
 {
 object indent_73369 = args[0];
  
closureN_type c_731175;
object e_732467 [30];
c_731175.hdr.mark = gc_color_red;
 c_731175.hdr.grayed = 0;
c_731175.tag = closureN_tag;
 c_731175.fn = (function_type)__lambda_245;
c_731175.num_args = 1;
c_731175.num_elements = 30;
c_731175.elements = (object *)e_732467;
c_731175.elements[0] = ((closureN)self_73941)->elements[0];
c_731175.elements[1] = ((closureN)self_73941)->elements[1];
c_731175.elements[2] = indent_73369;
c_731175.elements[3] = ((closureN)self_73941)->elements[2];
c_731175.elements[4] = ((closureN)self_73941)->elements[3];
c_731175.elements[5] = ((closureN)self_73941)->elements[4];
c_731175.elements[6] = ((closureN)self_73941)->elements[5];
c_731175.elements[7] = ((closureN)self_73941)->elements[6];
c_731175.elements[8] = ((closureN)self_73941)->elements[7];
c_731175.elements[9] = ((closureN)self_73941)->elements[8];
c_731175.elements[10] = ((closureN)self_73941)->elements[9];
c_731175.elements[11] = ((closureN)self_73941)->elements[10];
c_731175.elements[12] = ((closureN)self_73941)->elements[11];
c_731175.elements[13] = ((closureN)self_73941)->elements[12];
c_731175.elements[14] = ((closureN)self_73941)->elements[13];
c_731175.elements[15] = ((closureN)self_73941)->elements[14];
c_731175.elements[16] = ((closureN)self_73941)->elements[15];
c_731175.elements[17] = ((closureN)self_73941)->elements[16];
c_731175.elements[18] = ((closureN)self_73941)->elements[17];
c_731175.elements[19] = ((closureN)self_73941)->elements[18];
c_731175.elements[20] = ((closureN)self_73941)->elements[19];
c_731175.elements[21] = ((closureN)self_73941)->elements[20];
c_731175.elements[22] = ((closureN)self_73941)->elements[21];
c_731175.elements[23] = ((closureN)self_73941)->elements[23];
c_731175.elements[24] = ((closureN)self_73941)->elements[24];
c_731175.elements[25] = ((closureN)self_73941)->elements[25];
c_731175.elements[26] = ((closureN)self_73941)->elements[26];
c_731175.elements[27] = ((closureN)self_73941)->elements[27];
c_731175.elements[28] = ((closureN)self_73941)->elements[28];
c_731175.elements[29] = ((closureN)self_73941)->elements[29];


pair_type local_732470; 
return_direct_with_clo1(data,(closure)&c_731175,__lambda_245,  set_cell_as_expr(&local_732470, ((closureN)self_73941)->elements[22]));; 
}

static void __lambda_245(void *data, object self_73942, int argc, object *args) /* object self_73942, object pr_73370 */
 {
 object pr_73370 = args[0];
  
closureN_type c_731177;
object e_732462 [30];
c_731177.hdr.mark = gc_color_red;
 c_731177.hdr.grayed = 0;
c_731177.tag = closureN_tag;
 c_731177.fn = (function_type)__lambda_244;
c_731177.num_args = 1;
c_731177.num_elements = 30;
c_731177.elements = (object *)e_732462;
c_731177.elements[0] = ((closureN)self_73942)->elements[0];
c_731177.elements[1] = ((closureN)self_73942)->elements[1];
c_731177.elements[2] = ((closureN)self_73942)->elements[2];
c_731177.elements[3] = ((closureN)self_73942)->elements[3];
c_731177.elements[4] = ((closureN)self_73942)->elements[4];
c_731177.elements[5] = ((closureN)self_73942)->elements[5];
c_731177.elements[6] = ((closureN)self_73942)->elements[6];
c_731177.elements[7] = ((closureN)self_73942)->elements[7];
c_731177.elements[8] = ((closureN)self_73942)->elements[8];
c_731177.elements[9] = ((closureN)self_73942)->elements[9];
c_731177.elements[10] = ((closureN)self_73942)->elements[10];
c_731177.elements[11] = ((closureN)self_73942)->elements[11];
c_731177.elements[12] = ((closureN)self_73942)->elements[12];
c_731177.elements[13] = ((closureN)self_73942)->elements[13];
c_731177.elements[14] = ((closureN)self_73942)->elements[14];
c_731177.elements[15] = ((closureN)self_73942)->elements[15];
c_731177.elements[16] = ((closureN)self_73942)->elements[16];
c_731177.elements[17] = ((closureN)self_73942)->elements[17];
c_731177.elements[18] = ((closureN)self_73942)->elements[18];
c_731177.elements[19] = ((closureN)self_73942)->elements[20];
c_731177.elements[20] = ((closureN)self_73942)->elements[21];
c_731177.elements[21] = ((closureN)self_73942)->elements[22];
c_731177.elements[22] = pr_73370;
c_731177.elements[23] = ((closureN)self_73942)->elements[23];
c_731177.elements[24] = ((closureN)self_73942)->elements[24];
c_731177.elements[25] = ((closureN)self_73942)->elements[25];
c_731177.elements[26] = ((closureN)self_73942)->elements[26];
c_731177.elements[27] = ((closureN)self_73942)->elements[27];
c_731177.elements[28] = ((closureN)self_73942)->elements[28];
c_731177.elements[29] = ((closureN)self_73942)->elements[29];


pair_type local_732465; 
return_direct_with_clo1(data,(closure)&c_731177,__lambda_244,  set_cell_as_expr(&local_732465, ((closureN)self_73942)->elements[19]));; 
}

static void __lambda_244(void *data, object self_73943, int argc, object *args) /* object self_73943, object pp_91expr_73371 */
 {
 object pp_91expr_73371 = args[0];
  
closureN_type c_731179;
object e_732457 [30];
c_731179.hdr.mark = gc_color_red;
 c_731179.hdr.grayed = 0;
c_731179.tag = closureN_tag;
 c_731179.fn = (function_type)__lambda_243;
c_731179.num_args = 1;
c_731179.num_elements = 30;
c_731179.elements = (object *)e_732457;
c_731179.elements[0] = ((closureN)self_73943)->elements[0];
c_731179.elements[1] = ((closureN)self_73943)->elements[1];
c_731179.elements[2] = ((closureN)self_73943)->elements[2];
c_731179.elements[3] = ((closureN)self_73943)->elements[3];
c_731179.elements[4] = ((closureN)self_73943)->elements[4];
c_731179.elements[5] = ((closureN)self_73943)->elements[5];
c_731179.elements[6] = ((closureN)self_73943)->elements[6];
c_731179.elements[7] = ((closureN)self_73943)->elements[7];
c_731179.elements[8] = ((closureN)self_73943)->elements[8];
c_731179.elements[9] = ((closureN)self_73943)->elements[9];
c_731179.elements[10] = ((closureN)self_73943)->elements[10];
c_731179.elements[11] = ((closureN)self_73943)->elements[11];
c_731179.elements[12] = ((closureN)self_73943)->elements[12];
c_731179.elements[13] = ((closureN)self_73943)->elements[13];
c_731179.elements[14] = ((closureN)self_73943)->elements[14];
c_731179.elements[15] = ((closureN)self_73943)->elements[15];
c_731179.elements[16] = ((closureN)self_73943)->elements[16];
c_731179.elements[17] = ((closureN)self_73943)->elements[18];
c_731179.elements[18] = pp_91expr_73371;
c_731179.elements[19] = ((closureN)self_73943)->elements[19];
c_731179.elements[20] = ((closureN)self_73943)->elements[20];
c_731179.elements[21] = ((closureN)self_73943)->elements[21];
c_731179.elements[22] = ((closureN)self_73943)->elements[22];
c_731179.elements[23] = ((closureN)self_73943)->elements[23];
c_731179.elements[24] = ((closureN)self_73943)->elements[24];
c_731179.elements[25] = ((closureN)self_73943)->elements[25];
c_731179.elements[26] = ((closureN)self_73943)->elements[26];
c_731179.elements[27] = ((closureN)self_73943)->elements[27];
c_731179.elements[28] = ((closureN)self_73943)->elements[28];
c_731179.elements[29] = ((closureN)self_73943)->elements[29];


pair_type local_732460; 
return_direct_with_clo1(data,(closure)&c_731179,__lambda_243,  set_cell_as_expr(&local_732460, ((closureN)self_73943)->elements[17]));; 
}

static void __lambda_243(void *data, object self_73944, int argc, object *args) /* object self_73944, object pp_91call_73372 */
 {
 object pp_91call_73372 = args[0];
  
closureN_type c_731181;
object e_732452 [30];
c_731181.hdr.mark = gc_color_red;
 c_731181.hdr.grayed = 0;
c_731181.tag = closureN_tag;
 c_731181.fn = (function_type)__lambda_242;
c_731181.num_args = 1;
c_731181.num_elements = 30;
c_731181.elements = (object *)e_732452;
c_731181.elements[0] = ((closureN)self_73944)->elements[0];
c_731181.elements[1] = ((closureN)self_73944)->elements[1];
c_731181.elements[2] = ((closureN)self_73944)->elements[2];
c_731181.elements[3] = ((closureN)self_73944)->elements[3];
c_731181.elements[4] = ((closureN)self_73944)->elements[4];
c_731181.elements[5] = ((closureN)self_73944)->elements[5];
c_731181.elements[6] = ((closureN)self_73944)->elements[6];
c_731181.elements[7] = ((closureN)self_73944)->elements[7];
c_731181.elements[8] = ((closureN)self_73944)->elements[8];
c_731181.elements[9] = ((closureN)self_73944)->elements[9];
c_731181.elements[10] = ((closureN)self_73944)->elements[10];
c_731181.elements[11] = ((closureN)self_73944)->elements[11];
c_731181.elements[12] = ((closureN)self_73944)->elements[12];
c_731181.elements[13] = ((closureN)self_73944)->elements[13];
c_731181.elements[14] = ((closureN)self_73944)->elements[14];
c_731181.elements[15] = ((closureN)self_73944)->elements[15];
c_731181.elements[16] = ((closureN)self_73944)->elements[16];
c_731181.elements[17] = pp_91call_73372;
c_731181.elements[18] = ((closureN)self_73944)->elements[17];
c_731181.elements[19] = ((closureN)self_73944)->elements[18];
c_731181.elements[20] = ((closureN)self_73944)->elements[19];
c_731181.elements[21] = ((closureN)self_73944)->elements[20];
c_731181.elements[22] = ((closureN)self_73944)->elements[22];
c_731181.elements[23] = ((closureN)self_73944)->elements[23];
c_731181.elements[24] = ((closureN)self_73944)->elements[24];
c_731181.elements[25] = ((closureN)self_73944)->elements[25];
c_731181.elements[26] = ((closureN)self_73944)->elements[26];
c_731181.elements[27] = ((closureN)self_73944)->elements[27];
c_731181.elements[28] = ((closureN)self_73944)->elements[28];
c_731181.elements[29] = ((closureN)self_73944)->elements[29];


pair_type local_732455; 
return_direct_with_clo1(data,(closure)&c_731181,__lambda_242,  set_cell_as_expr(&local_732455, ((closureN)self_73944)->elements[21]));; 
}

static void __lambda_242(void *data, object self_73945, int argc, object *args) /* object self_73945, object pp_91list_73373 */
 {
 object pp_91list_73373 = args[0];
  
closureN_type c_731183;
object e_732447 [30];
c_731183.hdr.mark = gc_color_red;
 c_731183.hdr.grayed = 0;
c_731183.tag = closureN_tag;
 c_731183.fn = (function_type)__lambda_241;
c_731183.num_args = 1;
c_731183.num_elements = 30;
c_731183.elements = (object *)e_732447;
c_731183.elements[0] = ((closureN)self_73945)->elements[0];
c_731183.elements[1] = ((closureN)self_73945)->elements[1];
c_731183.elements[2] = ((closureN)self_73945)->elements[2];
c_731183.elements[3] = ((closureN)self_73945)->elements[3];
c_731183.elements[4] = ((closureN)self_73945)->elements[4];
c_731183.elements[5] = ((closureN)self_73945)->elements[5];
c_731183.elements[6] = ((closureN)self_73945)->elements[6];
c_731183.elements[7] = ((closureN)self_73945)->elements[7];
c_731183.elements[8] = ((closureN)self_73945)->elements[8];
c_731183.elements[9] = ((closureN)self_73945)->elements[9];
c_731183.elements[10] = ((closureN)self_73945)->elements[10];
c_731183.elements[11] = ((closureN)self_73945)->elements[11];
c_731183.elements[12] = ((closureN)self_73945)->elements[12];
c_731183.elements[13] = ((closureN)self_73945)->elements[13];
c_731183.elements[14] = ((closureN)self_73945)->elements[14];
c_731183.elements[15] = ((closureN)self_73945)->elements[15];
c_731183.elements[16] = ((closureN)self_73945)->elements[16];
c_731183.elements[17] = ((closureN)self_73945)->elements[17];
c_731183.elements[18] = ((closureN)self_73945)->elements[19];
c_731183.elements[19] = ((closureN)self_73945)->elements[20];
c_731183.elements[20] = ((closureN)self_73945)->elements[21];
c_731183.elements[21] = pp_91list_73373;
c_731183.elements[22] = ((closureN)self_73945)->elements[22];
c_731183.elements[23] = ((closureN)self_73945)->elements[23];
c_731183.elements[24] = ((closureN)self_73945)->elements[24];
c_731183.elements[25] = ((closureN)self_73945)->elements[25];
c_731183.elements[26] = ((closureN)self_73945)->elements[26];
c_731183.elements[27] = ((closureN)self_73945)->elements[27];
c_731183.elements[28] = ((closureN)self_73945)->elements[28];
c_731183.elements[29] = ((closureN)self_73945)->elements[29];


pair_type local_732450; 
return_direct_with_clo1(data,(closure)&c_731183,__lambda_241,  set_cell_as_expr(&local_732450, ((closureN)self_73945)->elements[18]));; 
}

static void __lambda_241(void *data, object self_73946, int argc, object *args) /* object self_73946, object pp_91down_73374 */
 {
 object pp_91down_73374 = args[0];
  
closureN_type c_731185;
object e_732442 [30];
c_731185.hdr.mark = gc_color_red;
 c_731185.hdr.grayed = 0;
c_731185.tag = closureN_tag;
 c_731185.fn = (function_type)__lambda_240;
c_731185.num_args = 1;
c_731185.num_elements = 30;
c_731185.elements = (object *)e_732442;
c_731185.elements[0] = ((closureN)self_73946)->elements[0];
c_731185.elements[1] = ((closureN)self_73946)->elements[1];
c_731185.elements[2] = ((closureN)self_73946)->elements[2];
c_731185.elements[3] = ((closureN)self_73946)->elements[3];
c_731185.elements[4] = ((closureN)self_73946)->elements[4];
c_731185.elements[5] = ((closureN)self_73946)->elements[5];
c_731185.elements[6] = ((closureN)self_73946)->elements[6];
c_731185.elements[7] = ((closureN)self_73946)->elements[7];
c_731185.elements[8] = ((closureN)self_73946)->elements[8];
c_731185.elements[9] = ((closureN)self_73946)->elements[9];
c_731185.elements[10] = ((closureN)self_73946)->elements[10];
c_731185.elements[11] = ((closureN)self_73946)->elements[11];
c_731185.elements[12] = ((closureN)self_73946)->elements[12];
c_731185.elements[13] = ((closureN)self_73946)->elements[13];
c_731185.elements[14] = ((closureN)self_73946)->elements[14];
c_731185.elements[15] = ((closureN)self_73946)->elements[15];
c_731185.elements[16] = ((closureN)self_73946)->elements[16];
c_731185.elements[17] = ((closureN)self_73946)->elements[17];
c_731185.elements[18] = pp_91down_73374;
c_731185.elements[19] = ((closureN)self_73946)->elements[18];
c_731185.elements[20] = ((closureN)self_73946)->elements[19];
c_731185.elements[21] = ((closureN)self_73946)->elements[21];
c_731185.elements[22] = ((closureN)self_73946)->elements[22];
c_731185.elements[23] = ((closureN)self_73946)->elements[23];
c_731185.elements[24] = ((closureN)self_73946)->elements[24];
c_731185.elements[25] = ((closureN)self_73946)->elements[25];
c_731185.elements[26] = ((closureN)self_73946)->elements[26];
c_731185.elements[27] = ((closureN)self_73946)->elements[27];
c_731185.elements[28] = ((closureN)self_73946)->elements[28];
c_731185.elements[29] = ((closureN)self_73946)->elements[29];


pair_type local_732445; 
return_direct_with_clo1(data,(closure)&c_731185,__lambda_240,  set_cell_as_expr(&local_732445, ((closureN)self_73946)->elements[20]));; 
}

static void __lambda_240(void *data, object self_73947, int argc, object *args) /* object self_73947, object pp_91general_73375 */
 {
 object pp_91general_73375 = args[0];
  
closureN_type c_731187;
object e_732437 [30];
c_731187.hdr.mark = gc_color_red;
 c_731187.hdr.grayed = 0;
c_731187.tag = closureN_tag;
 c_731187.fn = (function_type)__lambda_239;
c_731187.num_args = 1;
c_731187.num_elements = 30;
c_731187.elements = (object *)e_732437;
c_731187.elements[0] = ((closureN)self_73947)->elements[0];
c_731187.elements[1] = ((closureN)self_73947)->elements[1];
c_731187.elements[2] = ((closureN)self_73947)->elements[2];
c_731187.elements[3] = ((closureN)self_73947)->elements[3];
c_731187.elements[4] = ((closureN)self_73947)->elements[4];
c_731187.elements[5] = ((closureN)self_73947)->elements[5];
c_731187.elements[6] = ((closureN)self_73947)->elements[6];
c_731187.elements[7] = ((closureN)self_73947)->elements[7];
c_731187.elements[8] = ((closureN)self_73947)->elements[8];
c_731187.elements[9] = ((closureN)self_73947)->elements[9];
c_731187.elements[10] = ((closureN)self_73947)->elements[10];
c_731187.elements[11] = ((closureN)self_73947)->elements[11];
c_731187.elements[12] = ((closureN)self_73947)->elements[12];
c_731187.elements[13] = ((closureN)self_73947)->elements[13];
c_731187.elements[14] = ((closureN)self_73947)->elements[14];
c_731187.elements[15] = ((closureN)self_73947)->elements[15];
c_731187.elements[16] = ((closureN)self_73947)->elements[16];
c_731187.elements[17] = ((closureN)self_73947)->elements[17];
c_731187.elements[18] = ((closureN)self_73947)->elements[18];
c_731187.elements[19] = ((closureN)self_73947)->elements[19];
c_731187.elements[20] = pp_91general_73375;
c_731187.elements[21] = ((closureN)self_73947)->elements[21];
c_731187.elements[22] = ((closureN)self_73947)->elements[22];
c_731187.elements[23] = ((closureN)self_73947)->elements[23];
c_731187.elements[24] = ((closureN)self_73947)->elements[24];
c_731187.elements[25] = ((closureN)self_73947)->elements[25];
c_731187.elements[26] = ((closureN)self_73947)->elements[26];
c_731187.elements[27] = ((closureN)self_73947)->elements[27];
c_731187.elements[28] = ((closureN)self_73947)->elements[28];
c_731187.elements[29] = ((closureN)self_73947)->elements[29];


pair_type local_732440; 
return_direct_with_clo1(data,(closure)&c_731187,__lambda_239,  set_cell_as_expr(&local_732440, ((closureN)self_73947)->elements[20]));; 
}

static void __lambda_239(void *data, object self_73948, int argc, object *args) /* object self_73948, object pp_91expr_91list_73376 */
 {
 object pp_91expr_91list_73376 = args[0];
  
closureN_type c_731189;
object e_732432 [30];
c_731189.hdr.mark = gc_color_red;
 c_731189.hdr.grayed = 0;
c_731189.tag = closureN_tag;
 c_731189.fn = (function_type)__lambda_238;
c_731189.num_args = 1;
c_731189.num_elements = 30;
c_731189.elements = (object *)e_732432;
c_731189.elements[0] = ((closureN)self_73948)->elements[0];
c_731189.elements[1] = ((closureN)self_73948)->elements[1];
c_731189.elements[2] = ((closureN)self_73948)->elements[2];
c_731189.elements[3] = ((closureN)self_73948)->elements[3];
c_731189.elements[4] = ((closureN)self_73948)->elements[4];
c_731189.elements[5] = ((closureN)self_73948)->elements[5];
c_731189.elements[6] = ((closureN)self_73948)->elements[6];
c_731189.elements[7] = ((closureN)self_73948)->elements[7];
c_731189.elements[8] = ((closureN)self_73948)->elements[8];
c_731189.elements[9] = ((closureN)self_73948)->elements[9];
c_731189.elements[10] = ((closureN)self_73948)->elements[10];
c_731189.elements[11] = ((closureN)self_73948)->elements[11];
c_731189.elements[12] = ((closureN)self_73948)->elements[12];
c_731189.elements[13] = ((closureN)self_73948)->elements[13];
c_731189.elements[14] = ((closureN)self_73948)->elements[14];
c_731189.elements[15] = ((closureN)self_73948)->elements[16];
c_731189.elements[16] = ((closureN)self_73948)->elements[17];
c_731189.elements[17] = ((closureN)self_73948)->elements[18];
c_731189.elements[18] = ((closureN)self_73948)->elements[19];
c_731189.elements[19] = pp_91expr_91list_73376;
c_731189.elements[20] = ((closureN)self_73948)->elements[20];
c_731189.elements[21] = ((closureN)self_73948)->elements[21];
c_731189.elements[22] = ((closureN)self_73948)->elements[22];
c_731189.elements[23] = ((closureN)self_73948)->elements[23];
c_731189.elements[24] = ((closureN)self_73948)->elements[24];
c_731189.elements[25] = ((closureN)self_73948)->elements[25];
c_731189.elements[26] = ((closureN)self_73948)->elements[26];
c_731189.elements[27] = ((closureN)self_73948)->elements[27];
c_731189.elements[28] = ((closureN)self_73948)->elements[28];
c_731189.elements[29] = ((closureN)self_73948)->elements[29];


pair_type local_732435; 
return_direct_with_clo1(data,(closure)&c_731189,__lambda_238,  set_cell_as_expr(&local_732435, ((closureN)self_73948)->elements[15]));; 
}

static void __lambda_238(void *data, object self_73949, int argc, object *args) /* object self_73949, object pp_91LAMBDA_73377 */
 {
 object pp_91LAMBDA_73377 = args[0];
  
closureN_type c_731191;
object e_732427 [30];
c_731191.hdr.mark = gc_color_red;
 c_731191.hdr.grayed = 0;
c_731191.tag = closureN_tag;
 c_731191.fn = (function_type)__lambda_237;
c_731191.num_args = 1;
c_731191.num_elements = 30;
c_731191.elements = (object *)e_732427;
c_731191.elements[0] = ((closureN)self_73949)->elements[0];
c_731191.elements[1] = ((closureN)self_73949)->elements[1];
c_731191.elements[2] = ((closureN)self_73949)->elements[2];
c_731191.elements[3] = ((closureN)self_73949)->elements[3];
c_731191.elements[4] = ((closureN)self_73949)->elements[4];
c_731191.elements[5] = ((closureN)self_73949)->elements[5];
c_731191.elements[6] = ((closureN)self_73949)->elements[6];
c_731191.elements[7] = ((closureN)self_73949)->elements[7];
c_731191.elements[8] = ((closureN)self_73949)->elements[8];
c_731191.elements[9] = ((closureN)self_73949)->elements[9];
c_731191.elements[10] = ((closureN)self_73949)->elements[10];
c_731191.elements[11] = ((closureN)self_73949)->elements[11];
c_731191.elements[12] = ((closureN)self_73949)->elements[12];
c_731191.elements[13] = ((closureN)self_73949)->elements[13];
c_731191.elements[14] = pp_91LAMBDA_73377;
c_731191.elements[15] = ((closureN)self_73949)->elements[15];
c_731191.elements[16] = ((closureN)self_73949)->elements[16];
c_731191.elements[17] = ((closureN)self_73949)->elements[17];
c_731191.elements[18] = ((closureN)self_73949)->elements[18];
c_731191.elements[19] = ((closureN)self_73949)->elements[19];
c_731191.elements[20] = ((closureN)self_73949)->elements[20];
c_731191.elements[21] = ((closureN)self_73949)->elements[21];
c_731191.elements[22] = ((closureN)self_73949)->elements[22];
c_731191.elements[23] = ((closureN)self_73949)->elements[23];
c_731191.elements[24] = ((closureN)self_73949)->elements[24];
c_731191.elements[25] = ((closureN)self_73949)->elements[25];
c_731191.elements[26] = ((closureN)self_73949)->elements[26];
c_731191.elements[27] = ((closureN)self_73949)->elements[27];
c_731191.elements[28] = ((closureN)self_73949)->elements[28];
c_731191.elements[29] = ((closureN)self_73949)->elements[29];


pair_type local_732430; 
return_direct_with_clo1(data,(closure)&c_731191,__lambda_237,  set_cell_as_expr(&local_732430, ((closureN)self_73949)->elements[14]));; 
}

static void __lambda_237(void *data, object self_73950, int argc, object *args) /* object self_73950, object pp_91IF_73378 */
 {
 object pp_91IF_73378 = args[0];
  
closureN_type c_731193;
object e_732422 [30];
c_731193.hdr.mark = gc_color_red;
 c_731193.hdr.grayed = 0;
c_731193.tag = closureN_tag;
 c_731193.fn = (function_type)__lambda_236;
c_731193.num_args = 1;
c_731193.num_elements = 30;
c_731193.elements = (object *)e_732422;
c_731193.elements[0] = ((closureN)self_73950)->elements[0];
c_731193.elements[1] = ((closureN)self_73950)->elements[1];
c_731193.elements[2] = ((closureN)self_73950)->elements[2];
c_731193.elements[3] = ((closureN)self_73950)->elements[3];
c_731193.elements[4] = ((closureN)self_73950)->elements[4];
c_731193.elements[5] = ((closureN)self_73950)->elements[5];
c_731193.elements[6] = ((closureN)self_73950)->elements[6];
c_731193.elements[7] = ((closureN)self_73950)->elements[7];
c_731193.elements[8] = ((closureN)self_73950)->elements[8];
c_731193.elements[9] = ((closureN)self_73950)->elements[9];
c_731193.elements[10] = ((closureN)self_73950)->elements[10];
c_731193.elements[11] = ((closureN)self_73950)->elements[11];
c_731193.elements[12] = ((closureN)self_73950)->elements[13];
c_731193.elements[13] = pp_91IF_73378;
c_731193.elements[14] = ((closureN)self_73950)->elements[14];
c_731193.elements[15] = ((closureN)self_73950)->elements[15];
c_731193.elements[16] = ((closureN)self_73950)->elements[16];
c_731193.elements[17] = ((closureN)self_73950)->elements[17];
c_731193.elements[18] = ((closureN)self_73950)->elements[18];
c_731193.elements[19] = ((closureN)self_73950)->elements[19];
c_731193.elements[20] = ((closureN)self_73950)->elements[20];
c_731193.elements[21] = ((closureN)self_73950)->elements[21];
c_731193.elements[22] = ((closureN)self_73950)->elements[22];
c_731193.elements[23] = ((closureN)self_73950)->elements[23];
c_731193.elements[24] = ((closureN)self_73950)->elements[24];
c_731193.elements[25] = ((closureN)self_73950)->elements[25];
c_731193.elements[26] = ((closureN)self_73950)->elements[26];
c_731193.elements[27] = ((closureN)self_73950)->elements[27];
c_731193.elements[28] = ((closureN)self_73950)->elements[28];
c_731193.elements[29] = ((closureN)self_73950)->elements[29];


pair_type local_732425; 
return_direct_with_clo1(data,(closure)&c_731193,__lambda_236,  set_cell_as_expr(&local_732425, ((closureN)self_73950)->elements[12]));; 
}

static void __lambda_236(void *data, object self_73951, int argc, object *args) /* object self_73951, object pp_91COND_73379 */
 {
 object pp_91COND_73379 = args[0];
  
closureN_type c_731195;
object e_732417 [30];
c_731195.hdr.mark = gc_color_red;
 c_731195.hdr.grayed = 0;
c_731195.tag = closureN_tag;
 c_731195.fn = (function_type)__lambda_235;
c_731195.num_args = 1;
c_731195.num_elements = 30;
c_731195.elements = (object *)e_732417;
c_731195.elements[0] = ((closureN)self_73951)->elements[0];
c_731195.elements[1] = ((closureN)self_73951)->elements[1];
c_731195.elements[2] = ((closureN)self_73951)->elements[2];
c_731195.elements[3] = ((closureN)self_73951)->elements[3];
c_731195.elements[4] = ((closureN)self_73951)->elements[4];
c_731195.elements[5] = ((closureN)self_73951)->elements[5];
c_731195.elements[6] = ((closureN)self_73951)->elements[6];
c_731195.elements[7] = ((closureN)self_73951)->elements[7];
c_731195.elements[8] = ((closureN)self_73951)->elements[8];
c_731195.elements[9] = ((closureN)self_73951)->elements[9];
c_731195.elements[10] = ((closureN)self_73951)->elements[10];
c_731195.elements[11] = pp_91COND_73379;
c_731195.elements[12] = ((closureN)self_73951)->elements[12];
c_731195.elements[13] = ((closureN)self_73951)->elements[13];
c_731195.elements[14] = ((closureN)self_73951)->elements[14];
c_731195.elements[15] = ((closureN)self_73951)->elements[15];
c_731195.elements[16] = ((closureN)self_73951)->elements[16];
c_731195.elements[17] = ((closureN)self_73951)->elements[17];
c_731195.elements[18] = ((closureN)self_73951)->elements[18];
c_731195.elements[19] = ((closureN)self_73951)->elements[19];
c_731195.elements[20] = ((closureN)self_73951)->elements[20];
c_731195.elements[21] = ((closureN)self_73951)->elements[21];
c_731195.elements[22] = ((closureN)self_73951)->elements[22];
c_731195.elements[23] = ((closureN)self_73951)->elements[23];
c_731195.elements[24] = ((closureN)self_73951)->elements[24];
c_731195.elements[25] = ((closureN)self_73951)->elements[25];
c_731195.elements[26] = ((closureN)self_73951)->elements[26];
c_731195.elements[27] = ((closureN)self_73951)->elements[27];
c_731195.elements[28] = ((closureN)self_73951)->elements[28];
c_731195.elements[29] = ((closureN)self_73951)->elements[29];


pair_type local_732420; 
return_direct_with_clo1(data,(closure)&c_731195,__lambda_235,  set_cell_as_expr(&local_732420, ((closureN)self_73951)->elements[11]));; 
}

static void __lambda_235(void *data, object self_73952, int argc, object *args) /* object self_73952, object pp_91CASE_73380 */
 {
 object pp_91CASE_73380 = args[0];
  
closureN_type c_731197;
object e_732412 [30];
c_731197.hdr.mark = gc_color_red;
 c_731197.hdr.grayed = 0;
c_731197.tag = closureN_tag;
 c_731197.fn = (function_type)__lambda_234;
c_731197.num_args = 1;
c_731197.num_elements = 30;
c_731197.elements = (object *)e_732412;
c_731197.elements[0] = ((closureN)self_73952)->elements[0];
c_731197.elements[1] = ((closureN)self_73952)->elements[1];
c_731197.elements[2] = ((closureN)self_73952)->elements[2];
c_731197.elements[3] = ((closureN)self_73952)->elements[3];
c_731197.elements[4] = ((closureN)self_73952)->elements[4];
c_731197.elements[5] = ((closureN)self_73952)->elements[5];
c_731197.elements[6] = ((closureN)self_73952)->elements[6];
c_731197.elements[7] = ((closureN)self_73952)->elements[7];
c_731197.elements[8] = ((closureN)self_73952)->elements[8];
c_731197.elements[9] = ((closureN)self_73952)->elements[10];
c_731197.elements[10] = pp_91CASE_73380;
c_731197.elements[11] = ((closureN)self_73952)->elements[11];
c_731197.elements[12] = ((closureN)self_73952)->elements[12];
c_731197.elements[13] = ((closureN)self_73952)->elements[13];
c_731197.elements[14] = ((closureN)self_73952)->elements[14];
c_731197.elements[15] = ((closureN)self_73952)->elements[15];
c_731197.elements[16] = ((closureN)self_73952)->elements[16];
c_731197.elements[17] = ((closureN)self_73952)->elements[17];
c_731197.elements[18] = ((closureN)self_73952)->elements[18];
c_731197.elements[19] = ((closureN)self_73952)->elements[19];
c_731197.elements[20] = ((closureN)self_73952)->elements[20];
c_731197.elements[21] = ((closureN)self_73952)->elements[21];
c_731197.elements[22] = ((closureN)self_73952)->elements[22];
c_731197.elements[23] = ((closureN)self_73952)->elements[23];
c_731197.elements[24] = ((closureN)self_73952)->elements[24];
c_731197.elements[25] = ((closureN)self_73952)->elements[25];
c_731197.elements[26] = ((closureN)self_73952)->elements[26];
c_731197.elements[27] = ((closureN)self_73952)->elements[27];
c_731197.elements[28] = ((closureN)self_73952)->elements[28];
c_731197.elements[29] = ((closureN)self_73952)->elements[29];


pair_type local_732415; 
return_direct_with_clo1(data,(closure)&c_731197,__lambda_234,  set_cell_as_expr(&local_732415, ((closureN)self_73952)->elements[9]));; 
}

static void __lambda_234(void *data, object self_73953, int argc, object *args) /* object self_73953, object pp_91AND_73381 */
 {
 object pp_91AND_73381 = args[0];
  
closureN_type c_731199;
object e_732407 [30];
c_731199.hdr.mark = gc_color_red;
 c_731199.hdr.grayed = 0;
c_731199.tag = closureN_tag;
 c_731199.fn = (function_type)__lambda_233;
c_731199.num_args = 1;
c_731199.num_elements = 30;
c_731199.elements = (object *)e_732407;
c_731199.elements[0] = ((closureN)self_73953)->elements[0];
c_731199.elements[1] = ((closureN)self_73953)->elements[1];
c_731199.elements[2] = ((closureN)self_73953)->elements[2];
c_731199.elements[3] = ((closureN)self_73953)->elements[3];
c_731199.elements[4] = ((closureN)self_73953)->elements[4];
c_731199.elements[5] = ((closureN)self_73953)->elements[5];
c_731199.elements[6] = ((closureN)self_73953)->elements[6];
c_731199.elements[7] = ((closureN)self_73953)->elements[7];
c_731199.elements[8] = ((closureN)self_73953)->elements[8];
c_731199.elements[9] = pp_91AND_73381;
c_731199.elements[10] = ((closureN)self_73953)->elements[9];
c_731199.elements[11] = ((closureN)self_73953)->elements[10];
c_731199.elements[12] = ((closureN)self_73953)->elements[11];
c_731199.elements[13] = ((closureN)self_73953)->elements[12];
c_731199.elements[14] = ((closureN)self_73953)->elements[13];
c_731199.elements[15] = ((closureN)self_73953)->elements[14];
c_731199.elements[16] = ((closureN)self_73953)->elements[16];
c_731199.elements[17] = ((closureN)self_73953)->elements[17];
c_731199.elements[18] = ((closureN)self_73953)->elements[18];
c_731199.elements[19] = ((closureN)self_73953)->elements[19];
c_731199.elements[20] = ((closureN)self_73953)->elements[20];
c_731199.elements[21] = ((closureN)self_73953)->elements[21];
c_731199.elements[22] = ((closureN)self_73953)->elements[22];
c_731199.elements[23] = ((closureN)self_73953)->elements[23];
c_731199.elements[24] = ((closureN)self_73953)->elements[24];
c_731199.elements[25] = ((closureN)self_73953)->elements[25];
c_731199.elements[26] = ((closureN)self_73953)->elements[26];
c_731199.elements[27] = ((closureN)self_73953)->elements[27];
c_731199.elements[28] = ((closureN)self_73953)->elements[28];
c_731199.elements[29] = ((closureN)self_73953)->elements[29];


pair_type local_732410; 
return_direct_with_clo1(data,(closure)&c_731199,__lambda_233,  set_cell_as_expr(&local_732410, ((closureN)self_73953)->elements[15]));; 
}

static void __lambda_233(void *data, object self_73954, int argc, object *args) /* object self_73954, object pp_91LET_73382 */
 {
 object pp_91LET_73382 = args[0];
  
closureN_type c_731201;
object e_732402 [30];
c_731201.hdr.mark = gc_color_red;
 c_731201.hdr.grayed = 0;
c_731201.tag = closureN_tag;
 c_731201.fn = (function_type)__lambda_232;
c_731201.num_args = 1;
c_731201.num_elements = 30;
c_731201.elements = (object *)e_732402;
c_731201.elements[0] = ((closureN)self_73954)->elements[0];
c_731201.elements[1] = ((closureN)self_73954)->elements[1];
c_731201.elements[2] = ((closureN)self_73954)->elements[2];
c_731201.elements[3] = ((closureN)self_73954)->elements[3];
c_731201.elements[4] = ((closureN)self_73954)->elements[4];
c_731201.elements[5] = ((closureN)self_73954)->elements[5];
c_731201.elements[6] = ((closureN)self_73954)->elements[6];
c_731201.elements[7] = ((closureN)self_73954)->elements[7];
c_731201.elements[8] = ((closureN)self_73954)->elements[8];
c_731201.elements[9] = ((closureN)self_73954)->elements[9];
c_731201.elements[10] = ((closureN)self_73954)->elements[11];
c_731201.elements[11] = ((closureN)self_73954)->elements[12];
c_731201.elements[12] = ((closureN)self_73954)->elements[13];
c_731201.elements[13] = ((closureN)self_73954)->elements[14];
c_731201.elements[14] = ((closureN)self_73954)->elements[15];
c_731201.elements[15] = pp_91LET_73382;
c_731201.elements[16] = ((closureN)self_73954)->elements[16];
c_731201.elements[17] = ((closureN)self_73954)->elements[17];
c_731201.elements[18] = ((closureN)self_73954)->elements[18];
c_731201.elements[19] = ((closureN)self_73954)->elements[19];
c_731201.elements[20] = ((closureN)self_73954)->elements[20];
c_731201.elements[21] = ((closureN)self_73954)->elements[21];
c_731201.elements[22] = ((closureN)self_73954)->elements[22];
c_731201.elements[23] = ((closureN)self_73954)->elements[23];
c_731201.elements[24] = ((closureN)self_73954)->elements[24];
c_731201.elements[25] = ((closureN)self_73954)->elements[25];
c_731201.elements[26] = ((closureN)self_73954)->elements[26];
c_731201.elements[27] = ((closureN)self_73954)->elements[27];
c_731201.elements[28] = ((closureN)self_73954)->elements[28];
c_731201.elements[29] = ((closureN)self_73954)->elements[29];


pair_type local_732405; 
return_direct_with_clo1(data,(closure)&c_731201,__lambda_232,  set_cell_as_expr(&local_732405, ((closureN)self_73954)->elements[10]));; 
}

static void __lambda_232(void *data, object self_73955, int argc, object *args) /* object self_73955, object pp_91BEGIN_73383 */
 {
 object pp_91BEGIN_73383 = args[0];
  
closureN_type c_731203;
object e_732397 [30];
c_731203.hdr.mark = gc_color_red;
 c_731203.hdr.grayed = 0;
c_731203.tag = closureN_tag;
 c_731203.fn = (function_type)__lambda_231;
c_731203.num_args = 1;
c_731203.num_elements = 30;
c_731203.elements = (object *)e_732397;
c_731203.elements[0] = ((closureN)self_73955)->elements[0];
c_731203.elements[1] = ((closureN)self_73955)->elements[1];
c_731203.elements[2] = ((closureN)self_73955)->elements[2];
c_731203.elements[3] = ((closureN)self_73955)->elements[3];
c_731203.elements[4] = ((closureN)self_73955)->elements[4];
c_731203.elements[5] = ((closureN)self_73955)->elements[5];
c_731203.elements[6] = ((closureN)self_73955)->elements[6];
c_731203.elements[7] = ((closureN)self_73955)->elements[7];
c_731203.elements[8] = ((closureN)self_73955)->elements[8];
c_731203.elements[9] = ((closureN)self_73955)->elements[9];
c_731203.elements[10] = pp_91BEGIN_73383;
c_731203.elements[11] = ((closureN)self_73955)->elements[10];
c_731203.elements[12] = ((closureN)self_73955)->elements[11];
c_731203.elements[13] = ((closureN)self_73955)->elements[13];
c_731203.elements[14] = ((closureN)self_73955)->elements[14];
c_731203.elements[15] = ((closureN)self_73955)->elements[15];
c_731203.elements[16] = ((closureN)self_73955)->elements[16];
c_731203.elements[17] = ((closureN)self_73955)->elements[17];
c_731203.elements[18] = ((closureN)self_73955)->elements[18];
c_731203.elements[19] = ((closureN)self_73955)->elements[19];
c_731203.elements[20] = ((closureN)self_73955)->elements[20];
c_731203.elements[21] = ((closureN)self_73955)->elements[21];
c_731203.elements[22] = ((closureN)self_73955)->elements[22];
c_731203.elements[23] = ((closureN)self_73955)->elements[23];
c_731203.elements[24] = ((closureN)self_73955)->elements[24];
c_731203.elements[25] = ((closureN)self_73955)->elements[25];
c_731203.elements[26] = ((closureN)self_73955)->elements[26];
c_731203.elements[27] = ((closureN)self_73955)->elements[27];
c_731203.elements[28] = ((closureN)self_73955)->elements[28];
c_731203.elements[29] = ((closureN)self_73955)->elements[29];


pair_type local_732400; 
return_direct_with_clo1(data,(closure)&c_731203,__lambda_231,  set_cell_as_expr(&local_732400, ((closureN)self_73955)->elements[12]));; 
}

static void __lambda_231(void *data, object self_73956, int argc, object *args) /* object self_73956, object pp_91DO_73384 */
 {
 object pp_91DO_73384 = args[0];
  
closureN_type c_731205;
object e_732392 [30];
c_731205.hdr.mark = gc_color_red;
 c_731205.hdr.grayed = 0;
c_731205.tag = closureN_tag;
 c_731205.fn = (function_type)__lambda_230;
c_731205.num_args = 1;
c_731205.num_elements = 30;
c_731205.elements = (object *)e_732392;
c_731205.elements[0] = ((closureN)self_73956)->elements[0];
c_731205.elements[1] = ((closureN)self_73956)->elements[1];
c_731205.elements[2] = ((closureN)self_73956)->elements[2];
c_731205.elements[3] = ((closureN)self_73956)->elements[4];
c_731205.elements[4] = ((closureN)self_73956)->elements[5];
c_731205.elements[5] = ((closureN)self_73956)->elements[6];
c_731205.elements[6] = ((closureN)self_73956)->elements[7];
c_731205.elements[7] = ((closureN)self_73956)->elements[8];
c_731205.elements[8] = ((closureN)self_73956)->elements[9];
c_731205.elements[9] = ((closureN)self_73956)->elements[10];
c_731205.elements[10] = ((closureN)self_73956)->elements[11];
c_731205.elements[11] = ((closureN)self_73956)->elements[12];
c_731205.elements[12] = pp_91DO_73384;
c_731205.elements[13] = ((closureN)self_73956)->elements[13];
c_731205.elements[14] = ((closureN)self_73956)->elements[14];
c_731205.elements[15] = ((closureN)self_73956)->elements[15];
c_731205.elements[16] = ((closureN)self_73956)->elements[16];
c_731205.elements[17] = ((closureN)self_73956)->elements[17];
c_731205.elements[18] = ((closureN)self_73956)->elements[18];
c_731205.elements[19] = ((closureN)self_73956)->elements[19];
c_731205.elements[20] = ((closureN)self_73956)->elements[20];
c_731205.elements[21] = ((closureN)self_73956)->elements[21];
c_731205.elements[22] = ((closureN)self_73956)->elements[22];
c_731205.elements[23] = ((closureN)self_73956)->elements[23];
c_731205.elements[24] = ((closureN)self_73956)->elements[24];
c_731205.elements[25] = ((closureN)self_73956)->elements[25];
c_731205.elements[26] = ((closureN)self_73956)->elements[26];
c_731205.elements[27] = ((closureN)self_73956)->elements[27];
c_731205.elements[28] = ((closureN)self_73956)->elements[28];
c_731205.elements[29] = ((closureN)self_73956)->elements[29];


pair_type local_732395; 
return_direct_with_clo1(data,(closure)&c_731205,__lambda_230,  set_cell_as_expr(&local_732395, ((closureN)self_73956)->elements[3]));; 
}

static void __lambda_230(void *data, object self_73957, int argc, object *args) /* object self_73957, object indent_91general_73385 */
 {
 object indent_91general_73385 = args[0];
  
closureN_type c_731207;
object e_732387 [30];
c_731207.hdr.mark = gc_color_red;
 c_731207.hdr.grayed = 0;
c_731207.tag = closureN_tag;
 c_731207.fn = (function_type)__lambda_229;
c_731207.num_args = 1;
c_731207.num_elements = 30;
c_731207.elements = (object *)e_732387;
c_731207.elements[0] = ((closureN)self_73957)->elements[0];
c_731207.elements[1] = ((closureN)self_73957)->elements[1];
c_731207.elements[2] = ((closureN)self_73957)->elements[2];
c_731207.elements[3] = indent_91general_73385;
c_731207.elements[4] = ((closureN)self_73957)->elements[3];
c_731207.elements[5] = ((closureN)self_73957)->elements[5];
c_731207.elements[6] = ((closureN)self_73957)->elements[6];
c_731207.elements[7] = ((closureN)self_73957)->elements[7];
c_731207.elements[8] = ((closureN)self_73957)->elements[8];
c_731207.elements[9] = ((closureN)self_73957)->elements[9];
c_731207.elements[10] = ((closureN)self_73957)->elements[10];
c_731207.elements[11] = ((closureN)self_73957)->elements[11];
c_731207.elements[12] = ((closureN)self_73957)->elements[12];
c_731207.elements[13] = ((closureN)self_73957)->elements[13];
c_731207.elements[14] = ((closureN)self_73957)->elements[14];
c_731207.elements[15] = ((closureN)self_73957)->elements[15];
c_731207.elements[16] = ((closureN)self_73957)->elements[16];
c_731207.elements[17] = ((closureN)self_73957)->elements[17];
c_731207.elements[18] = ((closureN)self_73957)->elements[18];
c_731207.elements[19] = ((closureN)self_73957)->elements[19];
c_731207.elements[20] = ((closureN)self_73957)->elements[20];
c_731207.elements[21] = ((closureN)self_73957)->elements[21];
c_731207.elements[22] = ((closureN)self_73957)->elements[22];
c_731207.elements[23] = ((closureN)self_73957)->elements[23];
c_731207.elements[24] = ((closureN)self_73957)->elements[24];
c_731207.elements[25] = ((closureN)self_73957)->elements[25];
c_731207.elements[26] = ((closureN)self_73957)->elements[26];
c_731207.elements[27] = ((closureN)self_73957)->elements[27];
c_731207.elements[28] = ((closureN)self_73957)->elements[28];
c_731207.elements[29] = ((closureN)self_73957)->elements[29];


pair_type local_732390; 
return_direct_with_clo1(data,(closure)&c_731207,__lambda_229,  set_cell_as_expr(&local_732390, ((closureN)self_73957)->elements[4]));; 
}

static void __lambda_229(void *data, object self_73958, int argc, object *args) /* object self_73958, object max_91call_91head_91width_73386 */
 {
 object max_91call_91head_91width_73386 = args[0];
  
closureN_type c_731209;
object e_732382 [30];
c_731209.hdr.mark = gc_color_red;
 c_731209.hdr.grayed = 0;
c_731209.tag = closureN_tag;
 c_731209.fn = (function_type)__lambda_228;
c_731209.num_args = 1;
c_731209.num_elements = 30;
c_731209.elements = (object *)e_732382;
c_731209.elements[0] = ((closureN)self_73958)->elements[0];
c_731209.elements[1] = ((closureN)self_73958)->elements[1];
c_731209.elements[2] = ((closureN)self_73958)->elements[2];
c_731209.elements[3] = ((closureN)self_73958)->elements[3];
c_731209.elements[4] = ((closureN)self_73958)->elements[4];
c_731209.elements[5] = max_91call_91head_91width_73386;
c_731209.elements[6] = ((closureN)self_73958)->elements[6];
c_731209.elements[7] = ((closureN)self_73958)->elements[7];
c_731209.elements[8] = ((closureN)self_73958)->elements[8];
c_731209.elements[9] = ((closureN)self_73958)->elements[9];
c_731209.elements[10] = ((closureN)self_73958)->elements[10];
c_731209.elements[11] = ((closureN)self_73958)->elements[11];
c_731209.elements[12] = ((closureN)self_73958)->elements[12];
c_731209.elements[13] = ((closureN)self_73958)->elements[13];
c_731209.elements[14] = ((closureN)self_73958)->elements[14];
c_731209.elements[15] = ((closureN)self_73958)->elements[15];
c_731209.elements[16] = ((closureN)self_73958)->elements[16];
c_731209.elements[17] = ((closureN)self_73958)->elements[17];
c_731209.elements[18] = ((closureN)self_73958)->elements[18];
c_731209.elements[19] = ((closureN)self_73958)->elements[19];
c_731209.elements[20] = ((closureN)self_73958)->elements[20];
c_731209.elements[21] = ((closureN)self_73958)->elements[21];
c_731209.elements[22] = ((closureN)self_73958)->elements[22];
c_731209.elements[23] = ((closureN)self_73958)->elements[23];
c_731209.elements[24] = ((closureN)self_73958)->elements[24];
c_731209.elements[25] = ((closureN)self_73958)->elements[25];
c_731209.elements[26] = ((closureN)self_73958)->elements[26];
c_731209.elements[27] = ((closureN)self_73958)->elements[27];
c_731209.elements[28] = ((closureN)self_73958)->elements[28];
c_731209.elements[29] = ((closureN)self_73958)->elements[29];


pair_type local_732385; 
return_direct_with_clo1(data,(closure)&c_731209,__lambda_228,  set_cell_as_expr(&local_732385, ((closureN)self_73958)->elements[5]));; 
}

static void __lambda_228(void *data, object self_73959, int argc, object *args) /* object self_73959, object max_91expr_91width_73387 */
 {
 object max_91expr_91width_73387 = args[0];
  
closureN_type c_731211;
object e_732377 [30];
c_731211.hdr.mark = gc_color_red;
 c_731211.hdr.grayed = 0;
c_731211.tag = closureN_tag;
 c_731211.fn = (function_type)__lambda_227;
c_731211.num_args = 1;
c_731211.num_elements = 30;
c_731211.elements = (object *)e_732377;
c_731211.elements[0] = ((closureN)self_73959)->elements[0];
c_731211.elements[1] = ((closureN)self_73959)->elements[1];
c_731211.elements[2] = ((closureN)self_73959)->elements[2];
c_731211.elements[3] = ((closureN)self_73959)->elements[3];
c_731211.elements[4] = ((closureN)self_73959)->elements[4];
c_731211.elements[5] = ((closureN)self_73959)->elements[5];
c_731211.elements[6] = max_91expr_91width_73387;
c_731211.elements[7] = ((closureN)self_73959)->elements[6];
c_731211.elements[8] = ((closureN)self_73959)->elements[7];
c_731211.elements[9] = ((closureN)self_73959)->elements[8];
c_731211.elements[10] = ((closureN)self_73959)->elements[9];
c_731211.elements[11] = ((closureN)self_73959)->elements[10];
c_731211.elements[12] = ((closureN)self_73959)->elements[11];
c_731211.elements[13] = ((closureN)self_73959)->elements[12];
c_731211.elements[14] = ((closureN)self_73959)->elements[13];
c_731211.elements[15] = ((closureN)self_73959)->elements[14];
c_731211.elements[16] = ((closureN)self_73959)->elements[15];
c_731211.elements[17] = ((closureN)self_73959)->elements[16];
c_731211.elements[18] = ((closureN)self_73959)->elements[17];
c_731211.elements[19] = ((closureN)self_73959)->elements[18];
c_731211.elements[20] = ((closureN)self_73959)->elements[19];
c_731211.elements[21] = ((closureN)self_73959)->elements[20];
c_731211.elements[22] = ((closureN)self_73959)->elements[21];
c_731211.elements[23] = ((closureN)self_73959)->elements[22];
c_731211.elements[24] = ((closureN)self_73959)->elements[23];
c_731211.elements[25] = ((closureN)self_73959)->elements[24];
c_731211.elements[26] = ((closureN)self_73959)->elements[25];
c_731211.elements[27] = ((closureN)self_73959)->elements[26];
c_731211.elements[28] = ((closureN)self_73959)->elements[28];
c_731211.elements[29] = ((closureN)self_73959)->elements[29];


pair_type local_732380; 
return_direct_with_clo1(data,(closure)&c_731211,__lambda_227,  set_cell_as_expr(&local_732380, ((closureN)self_73959)->elements[27]));; 
}

static void __lambda_227(void *data, object self_73960, int argc, object *args) /* object self_73960, object style_73388 */
 {
 object style_73388 = args[0];
  
closureN_type c_731213;
object e_732340 [31];
c_731213.hdr.mark = gc_color_red;
 c_731213.hdr.grayed = 0;
c_731213.tag = closureN_tag;
 c_731213.fn = (function_type)__lambda_18;
c_731213.num_args = 1;
c_731213.num_elements = 31;
c_731213.elements = (object *)e_732340;
c_731213.elements[0] = ((closureN)self_73960)->elements[0];
c_731213.elements[1] = ((closureN)self_73960)->elements[1];
c_731213.elements[2] = ((closureN)self_73960)->elements[2];
c_731213.elements[3] = ((closureN)self_73960)->elements[3];
c_731213.elements[4] = ((closureN)self_73960)->elements[4];
c_731213.elements[5] = ((closureN)self_73960)->elements[5];
c_731213.elements[6] = ((closureN)self_73960)->elements[6];
c_731213.elements[7] = ((closureN)self_73960)->elements[7];
c_731213.elements[8] = ((closureN)self_73960)->elements[8];
c_731213.elements[9] = ((closureN)self_73960)->elements[9];
c_731213.elements[10] = ((closureN)self_73960)->elements[10];
c_731213.elements[11] = ((closureN)self_73960)->elements[11];
c_731213.elements[12] = ((closureN)self_73960)->elements[12];
c_731213.elements[13] = ((closureN)self_73960)->elements[13];
c_731213.elements[14] = ((closureN)self_73960)->elements[14];
c_731213.elements[15] = ((closureN)self_73960)->elements[15];
c_731213.elements[16] = ((closureN)self_73960)->elements[16];
c_731213.elements[17] = ((closureN)self_73960)->elements[17];
c_731213.elements[18] = ((closureN)self_73960)->elements[18];
c_731213.elements[19] = ((closureN)self_73960)->elements[19];
c_731213.elements[20] = ((closureN)self_73960)->elements[20];
c_731213.elements[21] = ((closureN)self_73960)->elements[21];
c_731213.elements[22] = ((closureN)self_73960)->elements[22];
c_731213.elements[23] = ((closureN)self_73960)->elements[23];
c_731213.elements[24] = ((closureN)self_73960)->elements[24];
c_731213.elements[25] = ((closureN)self_73960)->elements[25];
c_731213.elements[26] = ((closureN)self_73960)->elements[26];
c_731213.elements[27] = ((closureN)self_73960)->elements[27];
c_731213.elements[28] = style_73388;
c_731213.elements[29] = ((closureN)self_73960)->elements[28];
c_731213.elements[30] = ((closureN)self_73960)->elements[29];


closureN_type c_732341;
object e_732376 [2];
c_732341.hdr.mark = gc_color_red;
 c_732341.hdr.grayed = 0;
c_732341.tag = closureN_tag;
 c_732341.fn = (function_type)__lambda_139;
c_732341.num_args = 2;
c_732341.num_elements = 2;
c_732341.elements = (object *)e_732376;
c_732341.elements[0] = ((closureN)self_73960)->elements[8];
c_732341.elements[1] = ((closureN)self_73960)->elements[27];

return_direct_with_clo1(data,(closure)&c_731213,__lambda_18,  &c_732341);; 
}

static void __lambda_139(void *data, object self_73961, int argc, object *args) /* object self_73961, object k_73705, object n_73113_73389, object col_73114_73390 */
 {
 object k_73705 = args[0]; object n_73113_73389 = args[1]; object col_73114_73390 = args[2];
    
if( (boolean_f != Cyc_num_fast_gt_op(data, n_73113_73389, obj_int2obj(0))) ){ 
    
if( (boolean_f != Cyc_num_fast_gt_op(data, n_73113_73389, obj_int2obj(7))) ){ 
  


closureN_type c_732350;
object e_732360 [3];
c_732350.hdr.mark = gc_color_red;
 c_732350.hdr.grayed = 0;
c_732350.tag = closureN_tag;
 c_732350.fn = (function_type)__lambda_140;
c_732350.num_args = 1;
c_732350.num_elements = 3;
c_732350.elements = (object *)e_732360;
c_732350.elements[0] = k_73705;
c_732350.elements[1] = n_73113_73389;
c_732350.elements[2] = ((closureN)self_73961)->elements[1];


make_utf8_string_with_len(c_732361, "        ", 8, 8);
return_closcall3(data,  car(((closureN)self_73961)->elements[0]),  &c_732350, &c_732361, col_73114_73390);
} else { 
  
closureN_type c_732363;
object e_732370 [3];
c_732363.hdr.mark = gc_color_red;
 c_732363.hdr.grayed = 0;
c_732363.tag = closureN_tag;
 c_732363.fn = (function_type)__lambda_141;
c_732363.num_args = 1;
c_732363.num_elements = 3;
c_732363.elements = (object *)e_732370;
c_732363.elements[0] = col_73114_73390;
c_732363.elements[1] = k_73705;
c_732363.elements[2] = ((closureN)self_73961)->elements[0];


make_utf8_string_with_len(c_732374, "        ", 8, 8);

object c_732373 = Cyc_substring(data,(closure)&c_732363,&c_732374, obj_int2obj(0), n_73113_73389);
return_closcall1(data,(closure)&c_732363,  c_732373);}
;
} else { 
  return_direct_with_clo1(data,  k_73705, (((closure)  k_73705)->fn),  col_73114_73390);}
;; 
}

static void __lambda_141(void *data, object self_73963, int argc, object *args) /* object self_73963, object r_73710 */
 {
 object r_73710 = args[0];
  

return_closcall3(data,  car(((closureN)self_73963)->elements[2]),  ((closureN)self_73963)->elements[1], r_73710, ((closureN)self_73963)->elements[0]);; 
}

static void __lambda_140(void *data, object self_73962, int argc, object *args) /* object self_73962, object r_73709 */
 {
 object r_73709 = args[0];
  


complex_num_type local_732358; 
return_closcall3(data,  car(((closureN)self_73962)->elements[2]),  ((closureN)self_73962)->elements[0], Cyc_fast_sub(data,&local_732358, ((closureN)self_73962)->elements[1], obj_int2obj(8)), r_73709);; 
}

static void __lambda_18(void *data, object self_73964, int argc, object *args) /* object self_73964, object r_73704 */
 {
 object r_73704 = args[0];
  
closureN_type c_731215;
object e_732336 [31];
c_731215.hdr.mark = gc_color_red;
 c_731215.hdr.grayed = 0;
c_731215.tag = closureN_tag;
 c_731215.fn = (function_type)__lambda_19;
c_731215.num_args = 1;
c_731215.num_elements = 31;
c_731215.elements = (object *)e_732336;
c_731215.elements[0] = ((closureN)self_73964)->elements[0];
c_731215.elements[1] = ((closureN)self_73964)->elements[1];
c_731215.elements[2] = ((closureN)self_73964)->elements[2];
c_731215.elements[3] = ((closureN)self_73964)->elements[3];
c_731215.elements[4] = ((closureN)self_73964)->elements[4];
c_731215.elements[5] = ((closureN)self_73964)->elements[5];
c_731215.elements[6] = ((closureN)self_73964)->elements[6];
c_731215.elements[7] = ((closureN)self_73964)->elements[7];
c_731215.elements[8] = ((closureN)self_73964)->elements[8];
c_731215.elements[9] = ((closureN)self_73964)->elements[9];
c_731215.elements[10] = ((closureN)self_73964)->elements[10];
c_731215.elements[11] = ((closureN)self_73964)->elements[11];
c_731215.elements[12] = ((closureN)self_73964)->elements[12];
c_731215.elements[13] = ((closureN)self_73964)->elements[13];
c_731215.elements[14] = ((closureN)self_73964)->elements[14];
c_731215.elements[15] = ((closureN)self_73964)->elements[15];
c_731215.elements[16] = ((closureN)self_73964)->elements[16];
c_731215.elements[17] = ((closureN)self_73964)->elements[17];
c_731215.elements[18] = ((closureN)self_73964)->elements[18];
c_731215.elements[19] = ((closureN)self_73964)->elements[19];
c_731215.elements[20] = ((closureN)self_73964)->elements[20];
c_731215.elements[21] = ((closureN)self_73964)->elements[21];
c_731215.elements[22] = ((closureN)self_73964)->elements[22];
c_731215.elements[23] = ((closureN)self_73964)->elements[23];
c_731215.elements[24] = ((closureN)self_73964)->elements[24];
c_731215.elements[25] = ((closureN)self_73964)->elements[25];
c_731215.elements[26] = ((closureN)self_73964)->elements[26];
c_731215.elements[27] = ((closureN)self_73964)->elements[27];
c_731215.elements[28] = ((closureN)self_73964)->elements[28];
c_731215.elements[29] = ((closureN)self_73964)->elements[29];
c_731215.elements[30] = ((closureN)self_73964)->elements[30];



return_direct_with_clo1(data,(closure)&c_731215,__lambda_19,  Cyc_set_cell(data, ((closureN)self_73964)->elements[27], r_73704));; 
}

static void __lambda_19(void *data, object self_73965, int argc, object *args) /* object self_73965, object r_73516 */
 {

  
closureN_type c_731217;
object e_732309 [30];
c_731217.hdr.mark = gc_color_red;
 c_731217.hdr.grayed = 0;
c_731217.tag = closureN_tag;
 c_731217.fn = (function_type)__lambda_20;
c_731217.num_args = 1;
c_731217.num_elements = 30;
c_731217.elements = (object *)e_732309;
c_731217.elements[0] = ((closureN)self_73965)->elements[0];
c_731217.elements[1] = ((closureN)self_73965)->elements[1];
c_731217.elements[2] = ((closureN)self_73965)->elements[2];
c_731217.elements[3] = ((closureN)self_73965)->elements[3];
c_731217.elements[4] = ((closureN)self_73965)->elements[4];
c_731217.elements[5] = ((closureN)self_73965)->elements[5];
c_731217.elements[6] = ((closureN)self_73965)->elements[6];
c_731217.elements[7] = ((closureN)self_73965)->elements[7];
c_731217.elements[8] = ((closureN)self_73965)->elements[8];
c_731217.elements[9] = ((closureN)self_73965)->elements[9];
c_731217.elements[10] = ((closureN)self_73965)->elements[10];
c_731217.elements[11] = ((closureN)self_73965)->elements[11];
c_731217.elements[12] = ((closureN)self_73965)->elements[12];
c_731217.elements[13] = ((closureN)self_73965)->elements[13];
c_731217.elements[14] = ((closureN)self_73965)->elements[14];
c_731217.elements[15] = ((closureN)self_73965)->elements[15];
c_731217.elements[16] = ((closureN)self_73965)->elements[16];
c_731217.elements[17] = ((closureN)self_73965)->elements[17];
c_731217.elements[18] = ((closureN)self_73965)->elements[18];
c_731217.elements[19] = ((closureN)self_73965)->elements[19];
c_731217.elements[20] = ((closureN)self_73965)->elements[20];
c_731217.elements[21] = ((closureN)self_73965)->elements[21];
c_731217.elements[22] = ((closureN)self_73965)->elements[22];
c_731217.elements[23] = ((closureN)self_73965)->elements[23];
c_731217.elements[24] = ((closureN)self_73965)->elements[24];
c_731217.elements[25] = ((closureN)self_73965)->elements[25];
c_731217.elements[26] = ((closureN)self_73965)->elements[26];
c_731217.elements[27] = ((closureN)self_73965)->elements[28];
c_731217.elements[28] = ((closureN)self_73965)->elements[29];
c_731217.elements[29] = ((closureN)self_73965)->elements[30];


closureN_type c_732310;
object e_732335 [2];
c_732310.hdr.mark = gc_color_red;
 c_732310.hdr.grayed = 0;
c_732310.tag = closureN_tag;
 c_732310.fn = (function_type)__lambda_137;
c_732310.num_args = 2;
c_732310.num_elements = 2;
c_732310.elements = (object *)e_732335;
c_732310.elements[0] = ((closureN)self_73965)->elements[8];
c_732310.elements[1] = ((closureN)self_73965)->elements[27];

return_direct_with_clo1(data,(closure)&c_731217,__lambda_20,  &c_732310);; 
}

static void __lambda_137(void *data, object self_73966, int argc, object *args) /* object self_73966, object k_73700, object to_73115_73391, object col_73116_73392 */
 {
 object k_73700 = args[0]; object to_73115_73391 = args[1]; object col_73116_73392 = args[2];
  if( (boolean_f != col_73116_73392) ){ 
    
if( (boolean_f != Cyc_num_fast_lt_op(data, to_73115_73391, col_73116_73392)) ){ 
  


closureN_type c_732317;
object e_732326 [3];
c_732317.hdr.mark = gc_color_red;
 c_732317.hdr.grayed = 0;
c_732317.tag = closureN_tag;
 c_732317.fn = (function_type)__lambda_138;
c_732317.num_args = 1;
c_732317.num_elements = 3;
c_732317.elements = (object *)e_732326;
c_732317.elements[0] = k_73700;
c_732317.elements[1] = ((closureN)self_73966)->elements[1];
c_732317.elements[2] = to_73115_73391;

return_closcall3(data,  car(((closureN)self_73966)->elements[0]),  &c_732317, __glo_genwrite_117newline_91str_scheme_cyclone_pretty_91print, col_73116_73392);
} else { 
  


complex_num_type local_732333; 
return_closcall3(data,  car(((closureN)self_73966)->elements[1]),  k_73700, Cyc_fast_sub(data,&local_732333, to_73115_73391, col_73116_73392), col_73116_73392);}
;
} else { 
  return_direct_with_clo1(data,  k_73700, (((closure)  k_73700)->fn),  boolean_f);}
;; 
}

static void __lambda_138(void *data, object self_73967, int argc, object *args) /* object self_73967, object r_73702 */
 {
 object r_73702 = args[0];
  if( (boolean_f != r_73702) ){ 
  

return_closcall3(data,  car(((closureN)self_73967)->elements[1]),  ((closureN)self_73967)->elements[0], ((closureN)self_73967)->elements[2], obj_int2obj(0));
} else { 
  return_direct_with_clo1(data,  ((closureN)self_73967)->elements[0], (((closure)  ((closureN)self_73967)->elements[0])->fn),  boolean_f);}
;; 
}

static void __lambda_20(void *data, object self_73968, int argc, object *args) /* object self_73968, object r_73699 */
 {
 object r_73699 = args[0];
  
closureN_type c_731219;
object e_732305 [30];
c_731219.hdr.mark = gc_color_red;
 c_731219.hdr.grayed = 0;
c_731219.tag = closureN_tag;
 c_731219.fn = (function_type)__lambda_21;
c_731219.num_args = 1;
c_731219.num_elements = 30;
c_731219.elements = (object *)e_732305;
c_731219.elements[0] = ((closureN)self_73968)->elements[0];
c_731219.elements[1] = ((closureN)self_73968)->elements[1];
c_731219.elements[2] = ((closureN)self_73968)->elements[2];
c_731219.elements[3] = ((closureN)self_73968)->elements[3];
c_731219.elements[4] = ((closureN)self_73968)->elements[4];
c_731219.elements[5] = ((closureN)self_73968)->elements[5];
c_731219.elements[6] = ((closureN)self_73968)->elements[6];
c_731219.elements[7] = ((closureN)self_73968)->elements[7];
c_731219.elements[8] = ((closureN)self_73968)->elements[8];
c_731219.elements[9] = ((closureN)self_73968)->elements[9];
c_731219.elements[10] = ((closureN)self_73968)->elements[10];
c_731219.elements[11] = ((closureN)self_73968)->elements[11];
c_731219.elements[12] = ((closureN)self_73968)->elements[12];
c_731219.elements[13] = ((closureN)self_73968)->elements[13];
c_731219.elements[14] = ((closureN)self_73968)->elements[14];
c_731219.elements[15] = ((closureN)self_73968)->elements[15];
c_731219.elements[16] = ((closureN)self_73968)->elements[16];
c_731219.elements[17] = ((closureN)self_73968)->elements[17];
c_731219.elements[18] = ((closureN)self_73968)->elements[18];
c_731219.elements[19] = ((closureN)self_73968)->elements[19];
c_731219.elements[20] = ((closureN)self_73968)->elements[20];
c_731219.elements[21] = ((closureN)self_73968)->elements[21];
c_731219.elements[22] = ((closureN)self_73968)->elements[22];
c_731219.elements[23] = ((closureN)self_73968)->elements[23];
c_731219.elements[24] = ((closureN)self_73968)->elements[24];
c_731219.elements[25] = ((closureN)self_73968)->elements[25];
c_731219.elements[26] = ((closureN)self_73968)->elements[26];
c_731219.elements[27] = ((closureN)self_73968)->elements[27];
c_731219.elements[28] = ((closureN)self_73968)->elements[28];
c_731219.elements[29] = ((closureN)self_73968)->elements[29];



return_direct_with_clo1(data,(closure)&c_731219,__lambda_21,  Cyc_set_cell(data, ((closureN)self_73968)->elements[2], r_73699));; 
}

static void __lambda_21(void *data, object self_73969, int argc, object *args) /* object self_73969, object r_73517 */
 {

  
closureN_type c_731221;
object e_732142 [28];
c_731221.hdr.mark = gc_color_red;
 c_731221.hdr.grayed = 0;
c_731221.tag = closureN_tag;
 c_731221.fn = (function_type)__lambda_22;
c_731221.num_args = 1;
c_731221.num_elements = 28;
c_731221.elements = (object *)e_732142;
c_731221.elements[0] = ((closureN)self_73969)->elements[0];
c_731221.elements[1] = ((closureN)self_73969)->elements[2];
c_731221.elements[2] = ((closureN)self_73969)->elements[3];
c_731221.elements[3] = ((closureN)self_73969)->elements[4];
c_731221.elements[4] = ((closureN)self_73969)->elements[5];
c_731221.elements[5] = ((closureN)self_73969)->elements[6];
c_731221.elements[6] = ((closureN)self_73969)->elements[7];
c_731221.elements[7] = ((closureN)self_73969)->elements[8];
c_731221.elements[8] = ((closureN)self_73969)->elements[9];
c_731221.elements[9] = ((closureN)self_73969)->elements[10];
c_731221.elements[10] = ((closureN)self_73969)->elements[11];
c_731221.elements[11] = ((closureN)self_73969)->elements[12];
c_731221.elements[12] = ((closureN)self_73969)->elements[13];
c_731221.elements[13] = ((closureN)self_73969)->elements[14];
c_731221.elements[14] = ((closureN)self_73969)->elements[15];
c_731221.elements[15] = ((closureN)self_73969)->elements[16];
c_731221.elements[16] = ((closureN)self_73969)->elements[17];
c_731221.elements[17] = ((closureN)self_73969)->elements[18];
c_731221.elements[18] = ((closureN)self_73969)->elements[19];
c_731221.elements[19] = ((closureN)self_73969)->elements[20];
c_731221.elements[20] = ((closureN)self_73969)->elements[21];
c_731221.elements[21] = ((closureN)self_73969)->elements[22];
c_731221.elements[22] = ((closureN)self_73969)->elements[23];
c_731221.elements[23] = ((closureN)self_73969)->elements[24];
c_731221.elements[24] = ((closureN)self_73969)->elements[25];
c_731221.elements[25] = ((closureN)self_73969)->elements[26];
c_731221.elements[26] = ((closureN)self_73969)->elements[27];
c_731221.elements[27] = ((closureN)self_73969)->elements[29];


closureN_type c_732143;
object e_732304 [7];
c_732143.hdr.mark = gc_color_red;
 c_732143.hdr.grayed = 0;
c_732143.tag = closureN_tag;
 c_732143.fn = (function_type)__lambda_122;
c_732143.num_args = 4;
c_732143.num_elements = 7;
c_732143.elements = (object *)e_732304;
c_732143.elements[0] = ((closureN)self_73969)->elements[1];
c_732143.elements[1] = ((closureN)self_73969)->elements[6];
c_732143.elements[2] = ((closureN)self_73969)->elements[8];
c_732143.elements[3] = ((closureN)self_73969)->elements[19];
c_732143.elements[4] = ((closureN)self_73969)->elements[22];
c_732143.elements[5] = ((closureN)self_73969)->elements[28];
c_732143.elements[6] = ((closureN)self_73969)->elements[29];

return_direct_with_clo1(data,(closure)&c_731221,__lambda_22,  &c_732143);; 
}

static void __lambda_122(void *data, object self_73970, int argc, object *args) /* object self_73970, object k_73676, object obj_73119_73393, object col_73120_73394, object extra_73121_73395, object pp_91pair_73122_73396 */
 {
 object k_73676 = args[0]; object obj_73119_73393 = args[1]; object col_73120_73394 = args[2]; object extra_73121_73395 = args[3]; object pp_91pair_73122_73396 = args[4];
  
closureN_type c_732145;
object e_732162 [1];
c_732145.hdr.mark = gc_color_red;
 c_732145.hdr.grayed = 0;
c_732145.tag = closureN_tag;
 c_732145.fn = (function_type)__lambda_123;
c_732145.num_args = 0;
c_732145.num_elements = 1;
c_732145.elements = (object *)e_732162;
c_732145.elements[0] = obj_73119_73393;


closureN_type c_732163;
object e_732303 [12];
c_732163.hdr.mark = gc_color_red;
 c_732163.hdr.grayed = 0;
c_732163.tag = closureN_tag;
 c_732163.fn = (function_type)__lambda_124;
c_732163.num_args = 1;
c_732163.num_elements = 12;
c_732163.elements = (object *)e_732303;
c_732163.elements[0] = col_73120_73394;
c_732163.elements[1] = ((closureN)self_73970)->elements[0];
c_732163.elements[2] = extra_73121_73395;
c_732163.elements[3] = k_73676;
c_732163.elements[4] = ((closureN)self_73970)->elements[1];
c_732163.elements[5] = obj_73119_73393;
c_732163.elements[6] = ((closureN)self_73970)->elements[2];
c_732163.elements[7] = ((closureN)self_73970)->elements[3];
c_732163.elements[8] = ((closureN)self_73970)->elements[4];
c_732163.elements[9] = pp_91pair_73122_73396;
c_732163.elements[10] = ((closureN)self_73970)->elements[5];
c_732163.elements[11] = ((closureN)self_73970)->elements[6];

return_direct_with_clo1(data,(closure)&c_732145,__lambda_123,  &c_732163);; 
}

static void __lambda_124(void *data, object self_73971, int argc, object *args) /* object self_73971, object r_73677 */
 {
 object r_73677 = args[0];
  if( (boolean_f != r_73677) ){ 
  
closureN_type c_732165;
object e_732280 [9];
c_732165.hdr.mark = gc_color_red;
 c_732165.hdr.grayed = 0;
c_732165.tag = closureN_tag;
 c_732165.fn = (function_type)__lambda_125;
c_732165.num_args = 1;
c_732165.num_elements = 9;
c_732165.elements = (object *)e_732280;
c_732165.elements[0] = ((closureN)self_73971)->elements[0];
c_732165.elements[1] = ((closureN)self_73971)->elements[1];
c_732165.elements[2] = ((closureN)self_73971)->elements[2];
c_732165.elements[3] = ((closureN)self_73971)->elements[3];
c_732165.elements[4] = ((closureN)self_73971)->elements[5];
c_732165.elements[5] = ((closureN)self_73971)->elements[6];
c_732165.elements[6] = ((closureN)self_73971)->elements[7];
c_732165.elements[7] = ((closureN)self_73971)->elements[8];
c_732165.elements[8] = ((closureN)self_73971)->elements[9];


complex_num_type local_732283; 

complex_num_type local_732286; 

complex_num_type local_732289; 


return_direct_with_clo3(data,  __glo_min_scheme_base, (((closure)  __glo_min_scheme_base)->fn),  &c_732165, Cyc_fast_sum(data,&local_732283, Cyc_fast_sub(data,&local_732286, Cyc_fast_sub(data,&local_732289, ((closureN)self_73971)->elements[10], ((closureN)self_73971)->elements[0]), ((closureN)self_73971)->elements[2]), obj_int2obj(1)), car(((closureN)self_73971)->elements[4]));
} else { 
  

return_closcall3(data,  car(((closureN)self_73971)->elements[11]),  ((closureN)self_73971)->elements[3], ((closureN)self_73971)->elements[5], ((closureN)self_73971)->elements[0]);}
;; 
}

static void __lambda_125(void *data, object self_73972, int argc, object *args) /* object self_73972, object r_73679 */
 {
 object r_73679 = args[0];
  
closureN_type c_732167;
object e_732279 [9];
c_732167.hdr.mark = gc_color_red;
 c_732167.hdr.grayed = 0;
c_732167.tag = closureN_tag;
 c_732167.fn = (function_type)__lambda_126;
c_732167.num_args = 2;
c_732167.num_elements = 9;
c_732167.elements = (object *)e_732279;
c_732167.elements[0] = ((closureN)self_73972)->elements[0];
c_732167.elements[1] = ((closureN)self_73972)->elements[1];
c_732167.elements[2] = ((closureN)self_73972)->elements[2];
c_732167.elements[3] = ((closureN)self_73972)->elements[3];
c_732167.elements[4] = ((closureN)self_73972)->elements[4];
c_732167.elements[5] = ((closureN)self_73972)->elements[5];
c_732167.elements[6] = ((closureN)self_73972)->elements[6];
c_732167.elements[7] = ((closureN)self_73972)->elements[7];
c_732167.elements[8] = ((closureN)self_73972)->elements[8];

return_direct_with_clo2(data,(closure)&c_732167,__lambda_126,  NULL, r_73679);; 
}

static void __lambda_126(void *data, object self_73973, int argc, object *args) /* object self_73973, object result_73131_73399, object left_73132_73400 */
 {
 object result_73131_73399 = args[0]; object left_73132_73400 = args[1];
  
closureN_type c_732169;
object e_732275 [10];
c_732169.hdr.mark = gc_color_red;
 c_732169.hdr.grayed = 0;
c_732169.tag = closureN_tag;
 c_732169.fn = (function_type)__lambda_226;
c_732169.num_args = 1;
c_732169.num_elements = 10;
c_732169.elements = (object *)e_732275;
c_732169.elements[0] = ((closureN)self_73973)->elements[0];
c_732169.elements[1] = ((closureN)self_73973)->elements[1];
c_732169.elements[2] = ((closureN)self_73973)->elements[2];
c_732169.elements[3] = ((closureN)self_73973)->elements[3];
c_732169.elements[4] = left_73132_73400;
c_732169.elements[5] = ((closureN)self_73973)->elements[4];
c_732169.elements[6] = ((closureN)self_73973)->elements[5];
c_732169.elements[7] = ((closureN)self_73973)->elements[6];
c_732169.elements[8] = ((closureN)self_73973)->elements[7];
c_732169.elements[9] = ((closureN)self_73973)->elements[8];


pair_type local_732278; 
return_direct_with_clo1(data,(closure)&c_732169,__lambda_226,  set_cell_as_expr(&local_732278, result_73131_73399));; 
}

static void __lambda_226(void *data, object self_73974, int argc, object *args) /* object self_73974, object result_73131_73399 */
 {
 object result_73131_73399 = args[0];
  
closureN_type c_732171;
object e_732270 [10];
c_732171.hdr.mark = gc_color_red;
 c_732171.hdr.grayed = 0;
c_732171.tag = closureN_tag;
 c_732171.fn = (function_type)__lambda_225;
c_732171.num_args = 1;
c_732171.num_elements = 10;
c_732171.elements = (object *)e_732270;
c_732171.elements[0] = ((closureN)self_73974)->elements[0];
c_732171.elements[1] = ((closureN)self_73974)->elements[1];
c_732171.elements[2] = ((closureN)self_73974)->elements[2];
c_732171.elements[3] = ((closureN)self_73974)->elements[3];
c_732171.elements[4] = ((closureN)self_73974)->elements[5];
c_732171.elements[5] = ((closureN)self_73974)->elements[6];
c_732171.elements[6] = ((closureN)self_73974)->elements[7];
c_732171.elements[7] = ((closureN)self_73974)->elements[8];
c_732171.elements[8] = ((closureN)self_73974)->elements[9];
c_732171.elements[9] = result_73131_73399;


pair_type local_732273; 
return_direct_with_clo1(data,(closure)&c_732171,__lambda_225,  set_cell_as_expr(&local_732273, ((closureN)self_73974)->elements[4]));; 
}

static void __lambda_225(void *data, object self_73975, int argc, object *args) /* object self_73975, object left_73132_73400 */
 {
 object left_73132_73400 = args[0];
  
closureN_type c_732173;
object e_732227 [11];
c_732173.hdr.mark = gc_color_red;
 c_732173.hdr.grayed = 0;
c_732173.tag = closureN_tag;
 c_732173.fn = (function_type)__lambda_127;
c_732173.num_args = 1;
c_732173.num_elements = 11;
c_732173.elements = (object *)e_732227;
c_732173.elements[0] = ((closureN)self_73975)->elements[0];
c_732173.elements[1] = ((closureN)self_73975)->elements[1];
c_732173.elements[2] = ((closureN)self_73975)->elements[2];
c_732173.elements[3] = ((closureN)self_73975)->elements[3];
c_732173.elements[4] = left_73132_73400;
c_732173.elements[5] = ((closureN)self_73975)->elements[4];
c_732173.elements[6] = ((closureN)self_73975)->elements[5];
c_732173.elements[7] = ((closureN)self_73975)->elements[6];
c_732173.elements[8] = ((closureN)self_73975)->elements[7];
c_732173.elements[9] = ((closureN)self_73975)->elements[8];
c_732173.elements[10] = ((closureN)self_73975)->elements[9];


closureN_type c_732228;
object e_732269 [2];
c_732228.hdr.mark = gc_color_red;
 c_732228.hdr.grayed = 0;
c_732228.tag = closureN_tag;
 c_732228.fn = (function_type)__lambda_132;
c_732228.num_args = 1;
c_732228.num_elements = 2;
c_732228.elements = (object *)e_732269;
c_732228.elements[0] = left_73132_73400;
c_732228.elements[1] = ((closureN)self_73975)->elements[9];

return_direct_with_clo1(data,(closure)&c_732173,__lambda_127,  &c_732228);; 
}

static void __lambda_132(void *data, object self_73976, int argc, object *args) /* object self_73976, object k_73687, object str_73133_73401 */
 {
 object k_73687 = args[0]; object str_73133_73401 = args[1];
  
closureN_type c_732230;
object e_732262 [4];
c_732230.hdr.mark = gc_color_red;
 c_732230.hdr.grayed = 0;
c_732230.tag = closureN_tag;
 c_732230.fn = (function_type)__lambda_133;
c_732230.num_args = 1;
c_732230.num_elements = 4;
c_732230.elements = (object *)e_732262;
c_732230.elements[0] = k_73687;
c_732230.elements[1] = ((closureN)self_73976)->elements[0];
c_732230.elements[2] = ((closureN)self_73976)->elements[1];
c_732230.elements[3] = str_73133_73401;


pair_type local_732265; 


return_direct_with_clo1(data,(closure)&c_732230,__lambda_133,  set_pair_as_expr(&local_732265, str_73133_73401, car(((closureN)self_73976)->elements[1])));; 
}

static void __lambda_133(void *data, object self_73977, int argc, object *args) /* object self_73977, object r_73692 */
 {
 object r_73692 = args[0];
  
closureN_type c_732232;
object e_732258 [3];
c_732232.hdr.mark = gc_color_red;
 c_732232.hdr.grayed = 0;
c_732232.tag = closureN_tag;
 c_732232.fn = (function_type)__lambda_134;
c_732232.num_args = 1;
c_732232.num_elements = 3;
c_732232.elements = (object *)e_732258;
c_732232.elements[0] = ((closureN)self_73977)->elements[0];
c_732232.elements[1] = ((closureN)self_73977)->elements[1];
c_732232.elements[2] = ((closureN)self_73977)->elements[3];



return_direct_with_clo1(data,(closure)&c_732232,__lambda_134,  Cyc_set_cell(data, ((closureN)self_73977)->elements[2], r_73692));; 
}

static void __lambda_134(void *data, object self_73978, int argc, object *args) /* object self_73978, object r_73688 */
 {

  
closureN_type c_732234;
object e_732248 [2];
c_732234.hdr.mark = gc_color_red;
 c_732234.hdr.grayed = 0;
c_732234.tag = closureN_tag;
 c_732234.fn = (function_type)__lambda_135;
c_732234.num_args = 1;
c_732234.num_elements = 2;
c_732234.elements = (object *)e_732248;
c_732234.elements[0] = ((closureN)self_73978)->elements[0];
c_732234.elements[1] = ((closureN)self_73978)->elements[1];


complex_num_type local_732251; 




return_direct_with_clo1(data,(closure)&c_732234,__lambda_135,  Cyc_fast_sub(data,&local_732251, car(((closureN)self_73978)->elements[1]), Cyc_string_length(data, ((closureN)self_73978)->elements[2])));; 
}

static void __lambda_135(void *data, object self_73979, int argc, object *args) /* object self_73979, object r_73690 */
 {
 object r_73690 = args[0];
  
closureN_type c_732236;
object e_732244 [2];
c_732236.hdr.mark = gc_color_red;
 c_732236.hdr.grayed = 0;
c_732236.tag = closureN_tag;
 c_732236.fn = (function_type)__lambda_136;
c_732236.num_args = 1;
c_732236.num_elements = 2;
c_732236.elements = (object *)e_732244;
c_732236.elements[0] = ((closureN)self_73979)->elements[0];
c_732236.elements[1] = ((closureN)self_73979)->elements[1];



return_direct_with_clo1(data,(closure)&c_732236,__lambda_136,  Cyc_set_cell(data, ((closureN)self_73979)->elements[1], r_73690));; 
}

static void __lambda_136(void *data, object self_73980, int argc, object *args) /* object self_73980, object r_73689 */
 {

  



return_direct_with_clo1(data,  ((closureN)self_73980)->elements[0], (((closure)  ((closureN)self_73980)->elements[0])->fn),  Cyc_num_fast_gt_op(data, car(((closureN)self_73980)->elements[1]), obj_int2obj(0)));; 
}

static void __lambda_127(void *data, object self_73981, int argc, object *args) /* object self_73981, object r_73686 */
 {
 object r_73686 = args[0];
  
closureN_type c_732175;
object e_732224 [10];
c_732175.hdr.mark = gc_color_red;
 c_732175.hdr.grayed = 0;
c_732175.tag = closureN_tag;
 c_732175.fn = (function_type)__lambda_128;
c_732175.num_args = 1;
c_732175.num_elements = 10;
c_732175.elements = (object *)e_732224;
c_732175.elements[0] = ((closureN)self_73981)->elements[0];
c_732175.elements[1] = ((closureN)self_73981)->elements[2];
c_732175.elements[2] = ((closureN)self_73981)->elements[3];
c_732175.elements[3] = ((closureN)self_73981)->elements[4];
c_732175.elements[4] = ((closureN)self_73981)->elements[5];
c_732175.elements[5] = ((closureN)self_73981)->elements[6];
c_732175.elements[6] = ((closureN)self_73981)->elements[7];
c_732175.elements[7] = ((closureN)self_73981)->elements[8];
c_732175.elements[8] = ((closureN)self_73981)->elements[9];
c_732175.elements[9] = ((closureN)self_73981)->elements[10];

return_direct_with_clo5(data,  __glo_generic_91write_scheme_cyclone_pretty_91print, (((closure)  __glo_generic_91write_scheme_cyclone_pretty_91print)->fn),  &c_732175, ((closureN)self_73981)->elements[5], ((closureN)self_73981)->elements[1], boolean_f, r_73686);; 
}

static void __lambda_128(void *data, object self_73982, int argc, object *args) /* object self_73982, object r_73680 */
 {

    
  
if( (boolean_f != Cyc_num_fast_gt_op(data, car(((closureN)self_73982)->elements[3]), obj_int2obj(0))) ){ 
  
closureN_type c_732182;
object e_732189 [3];
c_732182.hdr.mark = gc_color_red;
 c_732182.hdr.grayed = 0;
c_732182.tag = closureN_tag;
 c_732182.fn = (function_type)__lambda_129;
c_732182.num_args = 1;
c_732182.num_elements = 3;
c_732182.elements = (object *)e_732189;
c_732182.elements[0] = ((closureN)self_73982)->elements[0];
c_732182.elements[1] = ((closureN)self_73982)->elements[2];
c_732182.elements[2] = ((closureN)self_73982)->elements[5];



return_direct_with_clo2(data,  __glo_reverse_91string_91append_scheme_cyclone_pretty_91print, (((closure)  __glo_reverse_91string_91append_scheme_cyclone_pretty_91print)->fn),  &c_732182, car(((closureN)self_73982)->elements[9]));
} else { 
    
if( (boolean_f != Cyc_is_pair(((closureN)self_73982)->elements[4])) ){ 
  return_closcall4(data,  ((closureN)self_73982)->elements[8],  ((closureN)self_73982)->elements[2], ((closureN)self_73982)->elements[4], ((closureN)self_73982)->elements[0], ((closureN)self_73982)->elements[1]);
} else { 
  
closureN_type c_732203;
object e_732222 [6];
c_732203.hdr.mark = gc_color_red;
 c_732203.hdr.grayed = 0;
c_732203.tag = closureN_tag;
 c_732203.fn = (function_type)__lambda_130;
c_732203.num_args = 1;
c_732203.num_elements = 6;
c_732203.elements = (object *)e_732222;
c_732203.elements[0] = ((closureN)self_73982)->elements[0];
c_732203.elements[1] = ((closureN)self_73982)->elements[1];
c_732203.elements[2] = ((closureN)self_73982)->elements[2];
c_732203.elements[3] = ((closureN)self_73982)->elements[5];
c_732203.elements[4] = ((closureN)self_73982)->elements[6];
c_732203.elements[5] = ((closureN)self_73982)->elements[7];

return_direct_with_clo2(data,  __glo_vector_91_125list_scheme_base, (((closure)  __glo_vector_91_125list_scheme_base)->fn),  &c_732203, ((closureN)self_73982)->elements[4]);}
;}
;; 
}

static void __lambda_130(void *data, object self_73984, int argc, object *args) /* object self_73984, object r_73684 */
 {
 object r_73684 = args[0];
  


closureN_type c_732208;
object e_732219 [5];
c_732208.hdr.mark = gc_color_red;
 c_732208.hdr.grayed = 0;
c_732208.tag = closureN_tag;
 c_732208.fn = (function_type)__lambda_131;
c_732208.num_args = 1;
c_732208.num_elements = 5;
c_732208.elements = (object *)e_732219;
c_732208.elements[0] = ((closureN)self_73984)->elements[1];
c_732208.elements[1] = ((closureN)self_73984)->elements[2];
c_732208.elements[2] = ((closureN)self_73984)->elements[4];
c_732208.elements[3] = ((closureN)self_73984)->elements[5];
c_732208.elements[4] = r_73684;


make_utf8_string_with_len(c_732220, "#", 1, 1);
return_closcall3(data,  car(((closureN)self_73984)->elements[3]),  &c_732208, &c_732220, ((closureN)self_73984)->elements[0]);; 
}

static void __lambda_131(void *data, object self_73985, int argc, object *args) /* object self_73985, object r_73685 */
 {
 object r_73685 = args[0];
  



return_closcall5(data,  car(((closureN)self_73985)->elements[3]),  ((closureN)self_73985)->elements[1], ((closureN)self_73985)->elements[4], r_73685, ((closureN)self_73985)->elements[0], car(((closureN)self_73985)->elements[2]));; 
}

static void __lambda_129(void *data, object self_73983, int argc, object *args) /* object self_73983, object r_73682 */
 {
 object r_73682 = args[0];
  

return_closcall3(data,  car(((closureN)self_73983)->elements[2]),  ((closureN)self_73983)->elements[1], r_73682, ((closureN)self_73983)->elements[0]);; 
}

static void __lambda_123(void *data, object self_73986, int argc, object *args) /* object self_73986, object k_73697 */
 {
 object k_73697 = args[0];
    
if( (boolean_f != Cyc_is_pair(((closureN)self_73986)->elements[0])) ){ 
  

return_direct_with_clo1(data,  k_73697, (((closure)  k_73697)->fn),  Cyc_is_pair(((closureN)self_73986)->elements[0]));
} else { 
    
if( (boolean_f != Cyc_is_vector_not_record_type(((closureN)self_73986)->elements[0])) ){ 
  

return_direct_with_clo1(data,  k_73697, (((closure)  k_73697)->fn),  Cyc_is_vector_not_record_type(((closureN)self_73986)->elements[0]));
} else { 
  return_direct_with_clo2(data,  __glo_record_127_scheme_base, (((closure)  __glo_record_127_scheme_base)->fn),  k_73697, ((closureN)self_73986)->elements[0]);}
;}
;; 
}

static void __lambda_22(void *data, object self_73987, int argc, object *args) /* object self_73987, object r_73675 */
 {
 object r_73675 = args[0];
  
closureN_type c_731223;
object e_732138 [28];
c_731223.hdr.mark = gc_color_red;
 c_731223.hdr.grayed = 0;
c_731223.tag = closureN_tag;
 c_731223.fn = (function_type)__lambda_23;
c_731223.num_args = 1;
c_731223.num_elements = 28;
c_731223.elements = (object *)e_732138;
c_731223.elements[0] = ((closureN)self_73987)->elements[0];
c_731223.elements[1] = ((closureN)self_73987)->elements[1];
c_731223.elements[2] = ((closureN)self_73987)->elements[2];
c_731223.elements[3] = ((closureN)self_73987)->elements[3];
c_731223.elements[4] = ((closureN)self_73987)->elements[4];
c_731223.elements[5] = ((closureN)self_73987)->elements[5];
c_731223.elements[6] = ((closureN)self_73987)->elements[6];
c_731223.elements[7] = ((closureN)self_73987)->elements[7];
c_731223.elements[8] = ((closureN)self_73987)->elements[8];
c_731223.elements[9] = ((closureN)self_73987)->elements[9];
c_731223.elements[10] = ((closureN)self_73987)->elements[10];
c_731223.elements[11] = ((closureN)self_73987)->elements[11];
c_731223.elements[12] = ((closureN)self_73987)->elements[12];
c_731223.elements[13] = ((closureN)self_73987)->elements[13];
c_731223.elements[14] = ((closureN)self_73987)->elements[14];
c_731223.elements[15] = ((closureN)self_73987)->elements[15];
c_731223.elements[16] = ((closureN)self_73987)->elements[16];
c_731223.elements[17] = ((closureN)self_73987)->elements[17];
c_731223.elements[18] = ((closureN)self_73987)->elements[18];
c_731223.elements[19] = ((closureN)self_73987)->elements[19];
c_731223.elements[20] = ((closureN)self_73987)->elements[20];
c_731223.elements[21] = ((closureN)self_73987)->elements[21];
c_731223.elements[22] = ((closureN)self_73987)->elements[22];
c_731223.elements[23] = ((closureN)self_73987)->elements[23];
c_731223.elements[24] = ((closureN)self_73987)->elements[24];
c_731223.elements[25] = ((closureN)self_73987)->elements[25];
c_731223.elements[26] = ((closureN)self_73987)->elements[26];
c_731223.elements[27] = ((closureN)self_73987)->elements[27];



return_direct_with_clo1(data,(closure)&c_731223,__lambda_23,  Cyc_set_cell(data, ((closureN)self_73987)->elements[22], r_73675));; 
}

static void __lambda_23(void *data, object self_73988, int argc, object *args) /* object self_73988, object r_73518 */
 {

  
closureN_type c_731225;
object e_732032 [25];
c_731225.hdr.mark = gc_color_red;
 c_731225.hdr.grayed = 0;
c_731225.tag = closureN_tag;
 c_731225.fn = (function_type)__lambda_24;
c_731225.num_args = 1;
c_731225.num_elements = 25;
c_731225.elements = (object *)e_732032;
c_731225.elements[0] = ((closureN)self_73988)->elements[0];
c_731225.elements[1] = ((closureN)self_73988)->elements[1];
c_731225.elements[2] = ((closureN)self_73988)->elements[2];
c_731225.elements[3] = ((closureN)self_73988)->elements[3];
c_731225.elements[4] = ((closureN)self_73988)->elements[4];
c_731225.elements[5] = ((closureN)self_73988)->elements[5];
c_731225.elements[6] = ((closureN)self_73988)->elements[6];
c_731225.elements[7] = ((closureN)self_73988)->elements[7];
c_731225.elements[8] = ((closureN)self_73988)->elements[8];
c_731225.elements[9] = ((closureN)self_73988)->elements[9];
c_731225.elements[10] = ((closureN)self_73988)->elements[10];
c_731225.elements[11] = ((closureN)self_73988)->elements[11];
c_731225.elements[12] = ((closureN)self_73988)->elements[12];
c_731225.elements[13] = ((closureN)self_73988)->elements[13];
c_731225.elements[14] = ((closureN)self_73988)->elements[14];
c_731225.elements[15] = ((closureN)self_73988)->elements[15];
c_731225.elements[16] = ((closureN)self_73988)->elements[16];
c_731225.elements[17] = ((closureN)self_73988)->elements[17];
c_731225.elements[18] = ((closureN)self_73988)->elements[18];
c_731225.elements[19] = ((closureN)self_73988)->elements[19];
c_731225.elements[20] = ((closureN)self_73988)->elements[20];
c_731225.elements[21] = ((closureN)self_73988)->elements[21];
c_731225.elements[22] = ((closureN)self_73988)->elements[22];
c_731225.elements[23] = ((closureN)self_73988)->elements[26];
c_731225.elements[24] = ((closureN)self_73988)->elements[27];


closureN_type c_732033;
object e_732137 [11];
c_732033.hdr.mark = gc_color_red;
 c_732033.hdr.grayed = 0;
c_732033.tag = closureN_tag;
 c_732033.fn = (function_type)__lambda_114;
c_732033.num_args = 3;
c_732033.num_elements = 11;
c_732033.elements = (object *)e_732137;
c_732033.elements[0] = ((closureN)self_73988)->elements[4];
c_732033.elements[1] = ((closureN)self_73988)->elements[7];
c_732033.elements[2] = ((closureN)self_73988)->elements[16];
c_732033.elements[3] = ((closureN)self_73988)->elements[18];
c_732033.elements[4] = ((closureN)self_73988)->elements[20];
c_732033.elements[5] = ((closureN)self_73988)->elements[21];
c_732033.elements[6] = ((closureN)self_73988)->elements[22];
c_732033.elements[7] = ((closureN)self_73988)->elements[23];
c_732033.elements[8] = ((closureN)self_73988)->elements[24];
c_732033.elements[9] = ((closureN)self_73988)->elements[25];
c_732033.elements[10] = ((closureN)self_73988)->elements[26];

return_direct_with_clo1(data,(closure)&c_731225,__lambda_24,  &c_732033);; 
}

static void __lambda_114(void *data, object self_73989, int argc, object *args) /* object self_73989, object k_73664, object expr_73134_73402, object col_73135_73403, object extra_73136_73404 */
 {
 object k_73664 = args[0]; object expr_73134_73402 = args[1]; object col_73135_73403 = args[2]; object extra_73136_73404 = args[3];
  


closureN_type c_732038;
object e_732136 [14];
c_732038.hdr.mark = gc_color_red;
 c_732038.hdr.grayed = 0;
c_732038.tag = closureN_tag;
 c_732038.fn = (function_type)__lambda_115;
c_732038.num_args = 1;
c_732038.num_elements = 14;
c_732038.elements = (object *)e_732136;
c_732038.elements[0] = col_73135_73403;
c_732038.elements[1] = expr_73134_73402;
c_732038.elements[2] = extra_73136_73404;
c_732038.elements[3] = k_73664;
c_732038.elements[4] = ((closureN)self_73989)->elements[0];
c_732038.elements[5] = ((closureN)self_73989)->elements[1];
c_732038.elements[6] = ((closureN)self_73989)->elements[2];
c_732038.elements[7] = ((closureN)self_73989)->elements[3];
c_732038.elements[8] = ((closureN)self_73989)->elements[4];
c_732038.elements[9] = ((closureN)self_73989)->elements[5];
c_732038.elements[10] = ((closureN)self_73989)->elements[6];
c_732038.elements[11] = ((closureN)self_73989)->elements[7];
c_732038.elements[12] = ((closureN)self_73989)->elements[8];
c_732038.elements[13] = ((closureN)self_73989)->elements[10];

return_closcall2(data,  car(((closureN)self_73989)->elements[9]),  &c_732038, expr_73134_73402);; 
}

static void __lambda_115(void *data, object self_73990, int argc, object *args) /* object self_73990, object r_73665 */
 {
 object r_73665 = args[0];
  if( (boolean_f != r_73665) ){ 
  


closureN_type c_732043;
object e_732068 [8];
c_732043.hdr.mark = gc_color_red;
 c_732043.hdr.grayed = 0;
c_732043.tag = closureN_tag;
 c_732043.fn = (function_type)__lambda_116;
c_732043.num_args = 1;
c_732043.num_elements = 8;
c_732043.elements = (object *)e_732068;
c_732043.elements[0] = ((closureN)self_73990)->elements[0];
c_732043.elements[1] = ((closureN)self_73990)->elements[1];
c_732043.elements[2] = ((closureN)self_73990)->elements[2];
c_732043.elements[3] = ((closureN)self_73990)->elements[3];
c_732043.elements[4] = ((closureN)self_73990)->elements[5];
c_732043.elements[5] = ((closureN)self_73990)->elements[7];
c_732043.elements[6] = ((closureN)self_73990)->elements[10];
c_732043.elements[7] = ((closureN)self_73990)->elements[12];

return_closcall2(data,  car(((closureN)self_73990)->elements[11]),  &c_732043, ((closureN)self_73990)->elements[1]);
} else { 
  
closureN_type c_732071;
object e_732132 [10];
c_732071.hdr.mark = gc_color_red;
 c_732071.hdr.grayed = 0;
c_732071.tag = closureN_tag;
 c_732071.fn = (function_type)__lambda_119;
c_732071.num_args = 1;
c_732071.num_elements = 10;
c_732071.elements = (object *)e_732132;
c_732071.elements[0] = ((closureN)self_73990)->elements[0];
c_732071.elements[1] = ((closureN)self_73990)->elements[1];
c_732071.elements[2] = ((closureN)self_73990)->elements[2];
c_732071.elements[3] = ((closureN)self_73990)->elements[3];
c_732071.elements[4] = ((closureN)self_73990)->elements[4];
c_732071.elements[5] = ((closureN)self_73990)->elements[6];
c_732071.elements[6] = ((closureN)self_73990)->elements[7];
c_732071.elements[7] = ((closureN)self_73990)->elements[8];
c_732071.elements[8] = ((closureN)self_73990)->elements[9];
c_732071.elements[9] = ((closureN)self_73990)->elements[13];



return_direct_with_clo1(data,(closure)&c_732071,__lambda_119,  Cyc_car(data, ((closureN)self_73990)->elements[1]));}
;; 
}

static void __lambda_119(void *data, object self_73994, int argc, object *args) /* object self_73994, object head_73137_73405 */
 {
 object head_73137_73405 = args[0];
    
if( (boolean_f != Cyc_is_symbol(head_73137_73405)) ){ 
  


closureN_type c_732078;
object e_732120 [9];
c_732078.hdr.mark = gc_color_red;
 c_732078.hdr.grayed = 0;
c_732078.tag = closureN_tag;
 c_732078.fn = (function_type)__lambda_120;
c_732078.num_args = 1;
c_732078.num_elements = 9;
c_732078.elements = (object *)e_732120;
c_732078.elements[0] = ((closureN)self_73994)->elements[0];
c_732078.elements[1] = ((closureN)self_73994)->elements[1];
c_732078.elements[2] = ((closureN)self_73994)->elements[2];
c_732078.elements[3] = head_73137_73405;
c_732078.elements[4] = ((closureN)self_73994)->elements[3];
c_732078.elements[5] = ((closureN)self_73994)->elements[4];
c_732078.elements[6] = ((closureN)self_73994)->elements[5];
c_732078.elements[7] = ((closureN)self_73994)->elements[6];
c_732078.elements[8] = ((closureN)self_73994)->elements[7];

return_closcall2(data,  car(((closureN)self_73994)->elements[9]),  &c_732078, head_73137_73405);
} else { 
  



return_closcall5(data,  car(((closureN)self_73994)->elements[8]),  ((closureN)self_73994)->elements[3], ((closureN)self_73994)->elements[1], ((closureN)self_73994)->elements[0], ((closureN)self_73994)->elements[2], car(((closureN)self_73994)->elements[6]));}
;; 
}

static void __lambda_120(void *data, object self_73995, int argc, object *args) /* object self_73995, object proc_73138_73406 */
 {
 object proc_73138_73406 = args[0];
  if( (boolean_f != proc_73138_73406) ){ 
  return_closcall4(data,  proc_73138_73406,  ((closureN)self_73995)->elements[4], ((closureN)self_73995)->elements[1], ((closureN)self_73995)->elements[0], ((closureN)self_73995)->elements[2]);
} else { 
  
closureN_type c_732085;
object e_732115 [8];
c_732085.hdr.mark = gc_color_red;
 c_732085.hdr.grayed = 0;
c_732085.tag = closureN_tag;
 c_732085.fn = (function_type)__lambda_121;
c_732085.num_args = 1;
c_732085.num_elements = 8;
c_732085.elements = (object *)e_732115;
c_732085.elements[0] = ((closureN)self_73995)->elements[0];
c_732085.elements[1] = ((closureN)self_73995)->elements[1];
c_732085.elements[2] = ((closureN)self_73995)->elements[2];
c_732085.elements[3] = ((closureN)self_73995)->elements[4];
c_732085.elements[4] = ((closureN)self_73995)->elements[5];
c_732085.elements[5] = ((closureN)self_73995)->elements[6];
c_732085.elements[6] = ((closureN)self_73995)->elements[7];
c_732085.elements[7] = ((closureN)self_73995)->elements[8];


object c_732118 = Cyc_symbol2string(data,(closure)&c_732085,((closureN)self_73995)->elements[3]);
return_closcall1(data,(closure)&c_732085,  c_732118);}
;; 
}

static void __lambda_121(void *data, object self_73996, int argc, object *args) /* object self_73996, object r_73674 */
 {
 object r_73674 = args[0];
    
  
  
if( (boolean_f != Cyc_num_fast_gt_op(data, Cyc_string_length(data, r_73674), car(((closureN)self_73996)->elements[4]))) ){ 
  



return_closcall8(data,  car(((closureN)self_73996)->elements[7]),  ((closureN)self_73996)->elements[3], ((closureN)self_73996)->elements[1], ((closureN)self_73996)->elements[0], ((closureN)self_73996)->elements[2], boolean_f, boolean_f, boolean_f, car(((closureN)self_73996)->elements[6]));
} else { 
  



return_closcall5(data,  car(((closureN)self_73996)->elements[5]),  ((closureN)self_73996)->elements[3], ((closureN)self_73996)->elements[1], ((closureN)self_73996)->elements[0], ((closureN)self_73996)->elements[2], car(((closureN)self_73996)->elements[6]));}
;; 
}

static void __lambda_116(void *data, object self_73991, int argc, object *args) /* object self_73991, object r_73666 */
 {
 object r_73666 = args[0];
  


closureN_type c_732048;
object e_732066 [7];
c_732048.hdr.mark = gc_color_red;
 c_732048.hdr.grayed = 0;
c_732048.tag = closureN_tag;
 c_732048.fn = (function_type)__lambda_117;
c_732048.num_args = 1;
c_732048.num_elements = 7;
c_732048.elements = (object *)e_732066;
c_732048.elements[0] = ((closureN)self_73991)->elements[0];
c_732048.elements[1] = ((closureN)self_73991)->elements[2];
c_732048.elements[2] = ((closureN)self_73991)->elements[3];
c_732048.elements[3] = ((closureN)self_73991)->elements[4];
c_732048.elements[4] = ((closureN)self_73991)->elements[5];
c_732048.elements[5] = ((closureN)self_73991)->elements[6];
c_732048.elements[6] = r_73666;

return_closcall2(data,  car(((closureN)self_73991)->elements[7]),  &c_732048, ((closureN)self_73991)->elements[1]);; 
}

static void __lambda_117(void *data, object self_73992, int argc, object *args) /* object self_73992, object r_73668 */
 {
 object r_73668 = args[0];
  


closureN_type c_732053;
object e_732064 [5];
c_732053.hdr.mark = gc_color_red;
 c_732053.hdr.grayed = 0;
c_732053.tag = closureN_tag;
 c_732053.fn = (function_type)__lambda_118;
c_732053.num_args = 1;
c_732053.num_elements = 5;
c_732053.elements = (object *)e_732064;
c_732053.elements[0] = ((closureN)self_73992)->elements[1];
c_732053.elements[1] = ((closureN)self_73992)->elements[2];
c_732053.elements[2] = ((closureN)self_73992)->elements[4];
c_732053.elements[3] = ((closureN)self_73992)->elements[5];
c_732053.elements[4] = ((closureN)self_73992)->elements[6];

return_closcall3(data,  car(((closureN)self_73992)->elements[3]),  &c_732053, r_73668, ((closureN)self_73992)->elements[0]);; 
}

static void __lambda_118(void *data, object self_73993, int argc, object *args) /* object self_73993, object r_73667 */
 {
 object r_73667 = args[0];
  



return_closcall5(data,  car(((closureN)self_73993)->elements[3]),  ((closureN)self_73993)->elements[1], ((closureN)self_73993)->elements[4], r_73667, ((closureN)self_73993)->elements[0], car(((closureN)self_73993)->elements[2]));; 
}

static void __lambda_24(void *data, object self_73997, int argc, object *args) /* object self_73997, object r_73663 */
 {
 object r_73663 = args[0];
  
closureN_type c_731227;
object e_732028 [25];
c_731227.hdr.mark = gc_color_red;
 c_731227.hdr.grayed = 0;
c_731227.tag = closureN_tag;
 c_731227.fn = (function_type)__lambda_25;
c_731227.num_args = 1;
c_731227.num_elements = 25;
c_731227.elements = (object *)e_732028;
c_731227.elements[0] = ((closureN)self_73997)->elements[0];
c_731227.elements[1] = ((closureN)self_73997)->elements[1];
c_731227.elements[2] = ((closureN)self_73997)->elements[2];
c_731227.elements[3] = ((closureN)self_73997)->elements[3];
c_731227.elements[4] = ((closureN)self_73997)->elements[4];
c_731227.elements[5] = ((closureN)self_73997)->elements[5];
c_731227.elements[6] = ((closureN)self_73997)->elements[6];
c_731227.elements[7] = ((closureN)self_73997)->elements[7];
c_731227.elements[8] = ((closureN)self_73997)->elements[8];
c_731227.elements[9] = ((closureN)self_73997)->elements[9];
c_731227.elements[10] = ((closureN)self_73997)->elements[10];
c_731227.elements[11] = ((closureN)self_73997)->elements[11];
c_731227.elements[12] = ((closureN)self_73997)->elements[12];
c_731227.elements[13] = ((closureN)self_73997)->elements[13];
c_731227.elements[14] = ((closureN)self_73997)->elements[14];
c_731227.elements[15] = ((closureN)self_73997)->elements[15];
c_731227.elements[16] = ((closureN)self_73997)->elements[16];
c_731227.elements[17] = ((closureN)self_73997)->elements[17];
c_731227.elements[18] = ((closureN)self_73997)->elements[18];
c_731227.elements[19] = ((closureN)self_73997)->elements[19];
c_731227.elements[20] = ((closureN)self_73997)->elements[20];
c_731227.elements[21] = ((closureN)self_73997)->elements[21];
c_731227.elements[22] = ((closureN)self_73997)->elements[22];
c_731227.elements[23] = ((closureN)self_73997)->elements[23];
c_731227.elements[24] = ((closureN)self_73997)->elements[24];



return_direct_with_clo1(data,(closure)&c_731227,__lambda_25,  Cyc_set_cell(data, ((closureN)self_73997)->elements[18], r_73663));; 
}

static void __lambda_25(void *data, object self_73998, int argc, object *args) /* object self_73998, object r_73519 */
 {

  
closureN_type c_731229;
object e_731993 [25];
c_731229.hdr.mark = gc_color_red;
 c_731229.hdr.grayed = 0;
c_731229.tag = closureN_tag;
 c_731229.fn = (function_type)__lambda_26;
c_731229.num_args = 1;
c_731229.num_elements = 25;
c_731229.elements = (object *)e_731993;
c_731229.elements[0] = ((closureN)self_73998)->elements[0];
c_731229.elements[1] = ((closureN)self_73998)->elements[1];
c_731229.elements[2] = ((closureN)self_73998)->elements[2];
c_731229.elements[3] = ((closureN)self_73998)->elements[3];
c_731229.elements[4] = ((closureN)self_73998)->elements[4];
c_731229.elements[5] = ((closureN)self_73998)->elements[5];
c_731229.elements[6] = ((closureN)self_73998)->elements[6];
c_731229.elements[7] = ((closureN)self_73998)->elements[7];
c_731229.elements[8] = ((closureN)self_73998)->elements[8];
c_731229.elements[9] = ((closureN)self_73998)->elements[9];
c_731229.elements[10] = ((closureN)self_73998)->elements[10];
c_731229.elements[11] = ((closureN)self_73998)->elements[11];
c_731229.elements[12] = ((closureN)self_73998)->elements[12];
c_731229.elements[13] = ((closureN)self_73998)->elements[13];
c_731229.elements[14] = ((closureN)self_73998)->elements[14];
c_731229.elements[15] = ((closureN)self_73998)->elements[15];
c_731229.elements[16] = ((closureN)self_73998)->elements[16];
c_731229.elements[17] = ((closureN)self_73998)->elements[17];
c_731229.elements[18] = ((closureN)self_73998)->elements[18];
c_731229.elements[19] = ((closureN)self_73998)->elements[19];
c_731229.elements[20] = ((closureN)self_73998)->elements[20];
c_731229.elements[21] = ((closureN)self_73998)->elements[21];
c_731229.elements[22] = ((closureN)self_73998)->elements[22];
c_731229.elements[23] = ((closureN)self_73998)->elements[23];
c_731229.elements[24] = ((closureN)self_73998)->elements[24];


closureN_type c_731994;
object e_732027 [3];
c_731994.hdr.mark = gc_color_red;
 c_731994.hdr.grayed = 0;
c_731994.tag = closureN_tag;
 c_731994.fn = (function_type)__lambda_111;
c_731994.num_args = 4;
c_731994.num_elements = 3;
c_731994.elements = (object *)e_732027;
c_731994.elements[0] = ((closureN)self_73998)->elements[7];
c_731994.elements[1] = ((closureN)self_73998)->elements[17];
c_731994.elements[2] = ((closureN)self_73998)->elements[24];

return_direct_with_clo1(data,(closure)&c_731229,__lambda_26,  &c_731994);; 
}

static void __lambda_111(void *data, object self_73999, int argc, object *args) /* object self_73999, object k_73657, object expr_73139_73407, object col_73140_73408, object extra_73141_73409, object pp_91item_73142_73410 */
 {
 object k_73657 = args[0]; object expr_73139_73407 = args[1]; object col_73140_73408 = args[2]; object extra_73141_73409 = args[3]; object pp_91item_73142_73410 = args[4];
  


closureN_type c_731999;
object e_732025 [7];
c_731999.hdr.mark = gc_color_red;
 c_731999.hdr.grayed = 0;
c_731999.tag = closureN_tag;
 c_731999.fn = (function_type)__lambda_112;
c_731999.num_args = 1;
c_731999.num_elements = 7;
c_731999.elements = (object *)e_732025;
c_731999.elements[0] = col_73140_73408;
c_731999.elements[1] = expr_73139_73407;
c_731999.elements[2] = extra_73141_73409;
c_731999.elements[3] = k_73657;
c_731999.elements[4] = ((closureN)self_73999)->elements[1];
c_731999.elements[5] = pp_91item_73142_73410;
c_731999.elements[6] = ((closureN)self_73999)->elements[2];


make_utf8_string_with_len(c_732026, "(", 1, 1);
return_closcall3(data,  car(((closureN)self_73999)->elements[0]),  &c_731999, &c_732026, col_73140_73408);; 
}

static void __lambda_112(void *data, object self_731000, int argc, object *args) /* object self_731000, object r_73662 */
 {
 object r_73662 = args[0];
  


closureN_type c_732004;
object e_732021 [6];
c_732004.hdr.mark = gc_color_red;
 c_732004.hdr.grayed = 0;
c_732004.tag = closureN_tag;
 c_732004.fn = (function_type)__lambda_113;
c_732004.num_args = 1;
c_732004.num_elements = 6;
c_732004.elements = (object *)e_732021;
c_732004.elements[0] = ((closureN)self_731000)->elements[0];
c_732004.elements[1] = ((closureN)self_731000)->elements[1];
c_732004.elements[2] = ((closureN)self_731000)->elements[2];
c_732004.elements[3] = ((closureN)self_731000)->elements[3];
c_732004.elements[4] = ((closureN)self_731000)->elements[4];
c_732004.elements[5] = ((closureN)self_731000)->elements[5];



return_closcall3(data,  car(((closureN)self_731000)->elements[6]),  &c_732004, Cyc_car(data, ((closureN)self_731000)->elements[1]), r_73662);; 
}

static void __lambda_113(void *data, object self_731001, int argc, object *args) /* object self_731001, object col_85_73143_73411 */
 {
 object col_85_73143_73411 = args[0];
  if( (boolean_f != ((closureN)self_731001)->elements[0]) ){ 
  




complex_num_type local_732016; 
return_closcall6(data,  car(((closureN)self_731001)->elements[4]),  ((closureN)self_731001)->elements[3], Cyc_cdr(data, ((closureN)self_731001)->elements[1]), col_85_73143_73411, Cyc_fast_sum(data,&local_732016, col_85_73143_73411, obj_int2obj(1)), ((closureN)self_731001)->elements[2], ((closureN)self_731001)->elements[5]);
} else { 
  return_direct_with_clo1(data,  ((closureN)self_731001)->elements[3], (((closure)  ((closureN)self_731001)->elements[3])->fn),  boolean_f);}
;; 
}

static void __lambda_26(void *data, object self_731002, int argc, object *args) /* object self_731002, object r_73656 */
 {
 object r_73656 = args[0];
  
closureN_type c_731231;
object e_731989 [25];
c_731231.hdr.mark = gc_color_red;
 c_731231.hdr.grayed = 0;
c_731231.tag = closureN_tag;
 c_731231.fn = (function_type)__lambda_27;
c_731231.num_args = 1;
c_731231.num_elements = 25;
c_731231.elements = (object *)e_731989;
c_731231.elements[0] = ((closureN)self_731002)->elements[0];
c_731231.elements[1] = ((closureN)self_731002)->elements[1];
c_731231.elements[2] = ((closureN)self_731002)->elements[2];
c_731231.elements[3] = ((closureN)self_731002)->elements[3];
c_731231.elements[4] = ((closureN)self_731002)->elements[4];
c_731231.elements[5] = ((closureN)self_731002)->elements[5];
c_731231.elements[6] = ((closureN)self_731002)->elements[6];
c_731231.elements[7] = ((closureN)self_731002)->elements[7];
c_731231.elements[8] = ((closureN)self_731002)->elements[8];
c_731231.elements[9] = ((closureN)self_731002)->elements[9];
c_731231.elements[10] = ((closureN)self_731002)->elements[10];
c_731231.elements[11] = ((closureN)self_731002)->elements[11];
c_731231.elements[12] = ((closureN)self_731002)->elements[12];
c_731231.elements[13] = ((closureN)self_731002)->elements[13];
c_731231.elements[14] = ((closureN)self_731002)->elements[14];
c_731231.elements[15] = ((closureN)self_731002)->elements[15];
c_731231.elements[16] = ((closureN)self_731002)->elements[16];
c_731231.elements[17] = ((closureN)self_731002)->elements[17];
c_731231.elements[18] = ((closureN)self_731002)->elements[18];
c_731231.elements[19] = ((closureN)self_731002)->elements[19];
c_731231.elements[20] = ((closureN)self_731002)->elements[20];
c_731231.elements[21] = ((closureN)self_731002)->elements[21];
c_731231.elements[22] = ((closureN)self_731002)->elements[22];
c_731231.elements[23] = ((closureN)self_731002)->elements[23];
c_731231.elements[24] = ((closureN)self_731002)->elements[24];



return_direct_with_clo1(data,(closure)&c_731231,__lambda_27,  Cyc_set_cell(data, ((closureN)self_731002)->elements[16], r_73656));; 
}

static void __lambda_27(void *data, object self_731003, int argc, object *args) /* object self_731003, object r_73520 */
 {

  
closureN_type c_731233;
object e_731971 [25];
c_731233.hdr.mark = gc_color_red;
 c_731233.hdr.grayed = 0;
c_731233.tag = closureN_tag;
 c_731233.fn = (function_type)__lambda_28;
c_731233.num_args = 1;
c_731233.num_elements = 25;
c_731233.elements = (object *)e_731971;
c_731233.elements[0] = ((closureN)self_731003)->elements[0];
c_731233.elements[1] = ((closureN)self_731003)->elements[1];
c_731233.elements[2] = ((closureN)self_731003)->elements[2];
c_731233.elements[3] = ((closureN)self_731003)->elements[3];
c_731233.elements[4] = ((closureN)self_731003)->elements[4];
c_731233.elements[5] = ((closureN)self_731003)->elements[5];
c_731233.elements[6] = ((closureN)self_731003)->elements[6];
c_731233.elements[7] = ((closureN)self_731003)->elements[7];
c_731233.elements[8] = ((closureN)self_731003)->elements[8];
c_731233.elements[9] = ((closureN)self_731003)->elements[9];
c_731233.elements[10] = ((closureN)self_731003)->elements[10];
c_731233.elements[11] = ((closureN)self_731003)->elements[11];
c_731233.elements[12] = ((closureN)self_731003)->elements[12];
c_731233.elements[13] = ((closureN)self_731003)->elements[13];
c_731233.elements[14] = ((closureN)self_731003)->elements[14];
c_731233.elements[15] = ((closureN)self_731003)->elements[15];
c_731233.elements[16] = ((closureN)self_731003)->elements[16];
c_731233.elements[17] = ((closureN)self_731003)->elements[17];
c_731233.elements[18] = ((closureN)self_731003)->elements[18];
c_731233.elements[19] = ((closureN)self_731003)->elements[19];
c_731233.elements[20] = ((closureN)self_731003)->elements[20];
c_731233.elements[21] = ((closureN)self_731003)->elements[21];
c_731233.elements[22] = ((closureN)self_731003)->elements[22];
c_731233.elements[23] = ((closureN)self_731003)->elements[23];
c_731233.elements[24] = ((closureN)self_731003)->elements[24];


closureN_type c_731972;
object e_731988 [2];
c_731972.hdr.mark = gc_color_red;
 c_731972.hdr.grayed = 0;
c_731972.tag = closureN_tag;
 c_731972.fn = (function_type)__lambda_109;
c_731972.num_args = 4;
c_731972.num_elements = 2;
c_731972.elements = (object *)e_731988;
c_731972.elements[0] = ((closureN)self_731003)->elements[7];
c_731972.elements[1] = ((closureN)self_731003)->elements[17];

return_direct_with_clo1(data,(closure)&c_731233,__lambda_28,  &c_731972);; 
}

static void __lambda_109(void *data, object self_731004, int argc, object *args) /* object self_731004, object k_73654, object l_73145_73412, object col_73146_73413, object extra_73147_73414, object pp_91item_73148_73415 */
 {
 object k_73654 = args[0]; object l_73145_73412 = args[1]; object col_73146_73413 = args[2]; object extra_73147_73414 = args[3]; object pp_91item_73148_73415 = args[4];
  


closureN_type c_731977;
object e_731986 [5];
c_731977.hdr.mark = gc_color_red;
 c_731977.hdr.grayed = 0;
c_731977.tag = closureN_tag;
 c_731977.fn = (function_type)__lambda_110;
c_731977.num_args = 1;
c_731977.num_elements = 5;
c_731977.elements = (object *)e_731986;
c_731977.elements[0] = extra_73147_73414;
c_731977.elements[1] = k_73654;
c_731977.elements[2] = l_73145_73412;
c_731977.elements[3] = ((closureN)self_731004)->elements[1];
c_731977.elements[4] = pp_91item_73148_73415;


make_utf8_string_with_len(c_731987, "(", 1, 1);
return_closcall3(data,  car(((closureN)self_731004)->elements[0]),  &c_731977, &c_731987, col_73146_73413);; 
}

static void __lambda_110(void *data, object self_731005, int argc, object *args) /* object self_731005, object col_73149_73416 */
 {
 object col_73149_73416 = args[0];
  

return_closcall6(data,  car(((closureN)self_731005)->elements[3]),  ((closureN)self_731005)->elements[1], ((closureN)self_731005)->elements[2], col_73149_73416, col_73149_73416, ((closureN)self_731005)->elements[0], ((closureN)self_731005)->elements[4]);; 
}

static void __lambda_28(void *data, object self_731006, int argc, object *args) /* object self_731006, object r_73653 */
 {
 object r_73653 = args[0];
  
closureN_type c_731235;
object e_731967 [25];
c_731235.hdr.mark = gc_color_red;
 c_731235.hdr.grayed = 0;
c_731235.tag = closureN_tag;
 c_731235.fn = (function_type)__lambda_29;
c_731235.num_args = 1;
c_731235.num_elements = 25;
c_731235.elements = (object *)e_731967;
c_731235.elements[0] = ((closureN)self_731006)->elements[0];
c_731235.elements[1] = ((closureN)self_731006)->elements[1];
c_731235.elements[2] = ((closureN)self_731006)->elements[2];
c_731235.elements[3] = ((closureN)self_731006)->elements[3];
c_731235.elements[4] = ((closureN)self_731006)->elements[4];
c_731235.elements[5] = ((closureN)self_731006)->elements[5];
c_731235.elements[6] = ((closureN)self_731006)->elements[6];
c_731235.elements[7] = ((closureN)self_731006)->elements[7];
c_731235.elements[8] = ((closureN)self_731006)->elements[8];
c_731235.elements[9] = ((closureN)self_731006)->elements[9];
c_731235.elements[10] = ((closureN)self_731006)->elements[10];
c_731235.elements[11] = ((closureN)self_731006)->elements[11];
c_731235.elements[12] = ((closureN)self_731006)->elements[12];
c_731235.elements[13] = ((closureN)self_731006)->elements[13];
c_731235.elements[14] = ((closureN)self_731006)->elements[14];
c_731235.elements[15] = ((closureN)self_731006)->elements[15];
c_731235.elements[16] = ((closureN)self_731006)->elements[16];
c_731235.elements[17] = ((closureN)self_731006)->elements[17];
c_731235.elements[18] = ((closureN)self_731006)->elements[18];
c_731235.elements[19] = ((closureN)self_731006)->elements[19];
c_731235.elements[20] = ((closureN)self_731006)->elements[20];
c_731235.elements[21] = ((closureN)self_731006)->elements[21];
c_731235.elements[22] = ((closureN)self_731006)->elements[22];
c_731235.elements[23] = ((closureN)self_731006)->elements[23];
c_731235.elements[24] = ((closureN)self_731006)->elements[24];



return_direct_with_clo1(data,(closure)&c_731235,__lambda_29,  Cyc_set_cell(data, ((closureN)self_731006)->elements[21], r_73653));; 
}

static void __lambda_29(void *data, object self_731007, int argc, object *args) /* object self_731007, object r_73521 */
 {

  
closureN_type c_731237;
object e_731844 [25];
c_731237.hdr.mark = gc_color_red;
 c_731237.hdr.grayed = 0;
c_731237.tag = closureN_tag;
 c_731237.fn = (function_type)__lambda_30;
c_731237.num_args = 1;
c_731237.num_elements = 25;
c_731237.elements = (object *)e_731844;
c_731237.elements[0] = ((closureN)self_731007)->elements[0];
c_731237.elements[1] = ((closureN)self_731007)->elements[1];
c_731237.elements[2] = ((closureN)self_731007)->elements[2];
c_731237.elements[3] = ((closureN)self_731007)->elements[3];
c_731237.elements[4] = ((closureN)self_731007)->elements[4];
c_731237.elements[5] = ((closureN)self_731007)->elements[5];
c_731237.elements[6] = ((closureN)self_731007)->elements[6];
c_731237.elements[7] = ((closureN)self_731007)->elements[7];
c_731237.elements[8] = ((closureN)self_731007)->elements[8];
c_731237.elements[9] = ((closureN)self_731007)->elements[9];
c_731237.elements[10] = ((closureN)self_731007)->elements[10];
c_731237.elements[11] = ((closureN)self_731007)->elements[11];
c_731237.elements[12] = ((closureN)self_731007)->elements[12];
c_731237.elements[13] = ((closureN)self_731007)->elements[13];
c_731237.elements[14] = ((closureN)self_731007)->elements[14];
c_731237.elements[15] = ((closureN)self_731007)->elements[15];
c_731237.elements[16] = ((closureN)self_731007)->elements[16];
c_731237.elements[17] = ((closureN)self_731007)->elements[17];
c_731237.elements[18] = ((closureN)self_731007)->elements[18];
c_731237.elements[19] = ((closureN)self_731007)->elements[19];
c_731237.elements[20] = ((closureN)self_731007)->elements[20];
c_731237.elements[21] = ((closureN)self_731007)->elements[21];
c_731237.elements[22] = ((closureN)self_731007)->elements[22];
c_731237.elements[23] = ((closureN)self_731007)->elements[23];
c_731237.elements[24] = ((closureN)self_731007)->elements[24];


closureN_type c_731845;
object e_731966 [3];
c_731845.hdr.mark = gc_color_red;
 c_731845.hdr.grayed = 0;
c_731845.tag = closureN_tag;
 c_731845.fn = (function_type)__lambda_96;
c_731845.num_args = 5;
c_731845.num_elements = 3;
c_731845.elements = (object *)e_731966;
c_731845.elements[0] = ((closureN)self_731007)->elements[1];
c_731845.elements[1] = ((closureN)self_731007)->elements[7];
c_731845.elements[2] = ((closureN)self_731007)->elements[22];

return_direct_with_clo1(data,(closure)&c_731237,__lambda_30,  &c_731845);; 
}

static void __lambda_96(void *data, object self_731008, int argc, object *args) /* object self_731008, object k_73635, object l_73150_73417, object col1_73151_73418, object col2_73152_73419, object extra_73153_73420, object pp_91item_73154_73421 */
 {
 object k_73635 = args[0]; object l_73150_73417 = args[1]; object col1_73151_73418 = args[2]; object col2_73152_73419 = args[3]; object extra_73153_73420 = args[4]; object pp_91item_73154_73421 = args[5];
  
closureN_type c_731847;
object e_731965 [7];
c_731847.hdr.mark = gc_color_red;
 c_731847.hdr.grayed = 0;
c_731847.tag = closureN_tag;
 c_731847.fn = (function_type)__lambda_97;
c_731847.num_args = 2;
c_731847.num_elements = 7;
c_731847.elements = (object *)e_731965;
c_731847.elements[0] = col2_73152_73419;
c_731847.elements[1] = extra_73153_73420;
c_731847.elements[2] = ((closureN)self_731008)->elements[0];
c_731847.elements[3] = k_73635;
c_731847.elements[4] = ((closureN)self_731008)->elements[1];
c_731847.elements[5] = pp_91item_73154_73421;
c_731847.elements[6] = ((closureN)self_731008)->elements[2];

return_direct_with_clo2(data,(closure)&c_731847,__lambda_97,  l_73150_73417, col1_73151_73418);; 
}

static void __lambda_97(void *data, object self_731009, int argc, object *args) /* object self_731009, object l_73156_73422, object col_73157_73423 */
 {
 object l_73156_73422 = args[0]; object col_73157_73423 = args[1];
  
closureN_type c_731849;
object e_731964 [9];
c_731849.hdr.mark = gc_color_red;
 c_731849.hdr.grayed = 0;
c_731849.tag = closureN_tag;
 c_731849.fn = (function_type)__lambda_98;
c_731849.num_args = 1;
c_731849.num_elements = 9;
c_731849.elements = (object *)e_731964;
c_731849.elements[0] = col_73157_73423;
c_731849.elements[1] = ((closureN)self_731009)->elements[0];
c_731849.elements[2] = ((closureN)self_731009)->elements[1];
c_731849.elements[3] = ((closureN)self_731009)->elements[2];
c_731849.elements[4] = ((closureN)self_731009)->elements[3];
c_731849.elements[5] = l_73156_73422;
c_731849.elements[6] = ((closureN)self_731009)->elements[4];
c_731849.elements[7] = ((closureN)self_731009)->elements[5];
c_731849.elements[8] = ((closureN)self_731009)->elements[6];

return_direct_with_clo1(data,(closure)&c_731849,__lambda_98,  boolean_f);; 
}

static void __lambda_98(void *data, object self_731010, int argc, object *args) /* object self_731010, object loop_73158_73424 */
 {
 object loop_73158_73424 = args[0];
  
closureN_type c_731851;
object e_731960 [9];
c_731851.hdr.mark = gc_color_red;
 c_731851.hdr.grayed = 0;
c_731851.tag = closureN_tag;
 c_731851.fn = (function_type)__lambda_224;
c_731851.num_args = 1;
c_731851.num_elements = 9;
c_731851.elements = (object *)e_731960;
c_731851.elements[0] = ((closureN)self_731010)->elements[0];
c_731851.elements[1] = ((closureN)self_731010)->elements[1];
c_731851.elements[2] = ((closureN)self_731010)->elements[2];
c_731851.elements[3] = ((closureN)self_731010)->elements[3];
c_731851.elements[4] = ((closureN)self_731010)->elements[4];
c_731851.elements[5] = ((closureN)self_731010)->elements[5];
c_731851.elements[6] = ((closureN)self_731010)->elements[6];
c_731851.elements[7] = ((closureN)self_731010)->elements[7];
c_731851.elements[8] = ((closureN)self_731010)->elements[8];


pair_type local_731963; 
return_direct_with_clo1(data,(closure)&c_731851,__lambda_224,  set_cell_as_expr(&local_731963, loop_73158_73424));; 
}

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


closureN_type c_731868;
object e_731959 [7];
c_731868.hdr.mark = gc_color_red;
 c_731868.hdr.grayed = 0;
c_731868.tag = closureN_tag;
 c_731868.fn = (function_type)__lambda_101;
c_731868.num_args = 2;
c_731868.num_elements = 7;
c_731868.elements = (object *)e_731959;
c_731868.elements[0] = ((closureN)self_731011)->elements[1];
c_731868.elements[1] = ((closureN)self_731011)->elements[2];
c_731868.elements[2] = ((closureN)self_731011)->elements[3];
c_731868.elements[3] = loop_73158_73424;
c_731868.elements[4] = ((closureN)self_731011)->elements[6];
c_731868.elements[5] = ((closureN)self_731011)->elements[7];
c_731868.elements[6] = ((closureN)self_731011)->elements[8];

return_direct_with_clo1(data,(closure)&c_731853,__lambda_99,  &c_731868);; 
}

static void __lambda_101(void *data, object self_731012, int argc, object *args) /* object self_731012, object k_73638, object l_73159_73425, object col_73160_73426 */
 {
 object k_73638 = args[0]; object l_73159_73425 = args[1]; object col_73160_73426 = args[2];
  if( (boolean_f != col_73160_73426) ){ 
    
if( (boolean_f != Cyc_is_pair(l_73159_73425)) ){ 
  object extra_73166_73428;
    
  
if( (boolean_f != Cyc_is_null(Cyc_cdr(data, l_73159_73425))) ){ 
  object local_731879 = alloca(sizeof(complex_num_type)); 
  extra_73166_73428 = Cyc_fast_sum(data,local_731879, ((closureN)self_731012)->elements[1], obj_int2obj(1));
} else { 
  extra_73166_73428 = obj_int2obj(0);}
;


closureN_type c_731886;
object e_731906 [6];
c_731886.hdr.mark = gc_color_red;
 c_731886.hdr.grayed = 0;
c_731886.tag = closureN_tag;
 c_731886.fn = (function_type)__lambda_102;
c_731886.num_args = 1;
c_731886.num_elements = 6;
c_731886.elements = (object *)e_731906;
c_731886.elements[0] = extra_73166_73428;
c_731886.elements[1] = k_73638;
c_731886.elements[2] = l_73159_73425;
c_731886.elements[3] = ((closureN)self_731012)->elements[3];
c_731886.elements[4] = ((closureN)self_731012)->elements[5];
c_731886.elements[5] = ((closureN)self_731012)->elements[6];

return_closcall3(data,  car(((closureN)self_731012)->elements[2]),  &c_731886, ((closureN)self_731012)->elements[0], col_73160_73426);
} else { 
    
if( (boolean_f != Cyc_is_null(l_73159_73425)) ){ 
  


make_utf8_string_with_len(c_731914, ")", 1, 1);
return_closcall3(data,  car(((closureN)self_731012)->elements[4]),  k_73638, &c_731914, col_73160_73426);
} else { 
  


closureN_type c_731919;
object e_731956 [8];
c_731919.hdr.mark = gc_color_red;
 c_731919.hdr.grayed = 0;
c_731919.tag = closureN_tag;
 c_731919.fn = (function_type)__lambda_104;
c_731919.num_args = 1;
c_731919.num_elements = 8;
c_731919.elements = (object *)e_731956;
c_731919.elements[0] = ((closureN)self_731012)->elements[0];
c_731919.elements[1] = ((closureN)self_731012)->elements[1];
c_731919.elements[2] = ((closureN)self_731012)->elements[2];
c_731919.elements[3] = k_73638;
c_731919.elements[4] = l_73159_73425;
c_731919.elements[5] = ((closureN)self_731012)->elements[4];
c_731919.elements[6] = ((closureN)self_731012)->elements[5];
c_731919.elements[7] = ((closureN)self_731012)->elements[6];

return_closcall3(data,  car(((closureN)self_731012)->elements[2]),  &c_731919, ((closureN)self_731012)->elements[0], col_73160_73426);}
;}
;
} else { 
  return_direct_with_clo1(data,  k_73638, (((closure)  k_73638)->fn),  boolean_f);}
;; 
}

static void __lambda_104(void *data, object self_731015, int argc, object *args) /* object self_731015, object r_73652 */
 {
 object r_73652 = args[0];
  


closureN_type c_731924;
object e_731954 [8];
c_731924.hdr.mark = gc_color_red;
 c_731924.hdr.grayed = 0;
c_731924.tag = closureN_tag;
 c_731924.fn = (function_type)__lambda_105;
c_731924.num_args = 1;
c_731924.num_elements = 8;
c_731924.elements = (object *)e_731954;
c_731924.elements[0] = ((closureN)self_731015)->elements[0];
c_731924.elements[1] = ((closureN)self_731015)->elements[1];
c_731924.elements[2] = ((closureN)self_731015)->elements[2];
c_731924.elements[3] = ((closureN)self_731015)->elements[3];
c_731924.elements[4] = ((closureN)self_731015)->elements[4];
c_731924.elements[5] = ((closureN)self_731015)->elements[5];
c_731924.elements[6] = ((closureN)self_731015)->elements[6];
c_731924.elements[7] = ((closureN)self_731015)->elements[7];


make_utf8_string_with_len(c_731955, ".", 1, 1);
return_closcall3(data,  car(((closureN)self_731015)->elements[5]),  &c_731924, &c_731955, r_73652);; 
}

static void __lambda_105(void *data, object self_731016, int argc, object *args) /* object self_731016, object r_73651 */
 {
 object r_73651 = args[0];
  


closureN_type c_731929;
object e_731952 [6];
c_731929.hdr.mark = gc_color_red;
 c_731929.hdr.grayed = 0;
c_731929.tag = closureN_tag;
 c_731929.fn = (function_type)__lambda_106;
c_731929.num_args = 1;
c_731929.num_elements = 6;
c_731929.elements = (object *)e_731952;
c_731929.elements[0] = ((closureN)self_731016)->elements[1];
c_731929.elements[1] = ((closureN)self_731016)->elements[3];
c_731929.elements[2] = ((closureN)self_731016)->elements[4];
c_731929.elements[3] = ((closureN)self_731016)->elements[5];
c_731929.elements[4] = ((closureN)self_731016)->elements[6];
c_731929.elements[5] = ((closureN)self_731016)->elements[7];

return_closcall3(data,  car(((closureN)self_731016)->elements[2]),  &c_731929, ((closureN)self_731016)->elements[0], r_73651);; 
}

static void __lambda_106(void *data, object self_731017, int argc, object *args) /* object self_731017, object r_73649 */
 {
 object r_73649 = args[0];
  
closureN_type c_731931;
object e_731947 [6];
c_731931.hdr.mark = gc_color_red;
 c_731931.hdr.grayed = 0;
c_731931.tag = closureN_tag;
 c_731931.fn = (function_type)__lambda_107;
c_731931.num_args = 1;
c_731931.num_elements = 6;
c_731931.elements = (object *)e_731947;
c_731931.elements[0] = ((closureN)self_731017)->elements[1];
c_731931.elements[1] = ((closureN)self_731017)->elements[2];
c_731931.elements[2] = ((closureN)self_731017)->elements[3];
c_731931.elements[3] = ((closureN)self_731017)->elements[4];
c_731931.elements[4] = ((closureN)self_731017)->elements[5];
c_731931.elements[5] = r_73649;


complex_num_type local_731950; 
return_direct_with_clo1(data,(closure)&c_731931,__lambda_107,  Cyc_fast_sum(data,&local_731950, ((closureN)self_731017)->elements[0], obj_int2obj(1)));; 
}

static void __lambda_107(void *data, object self_731018, int argc, object *args) /* object self_731018, object r_73650 */
 {
 object r_73650 = args[0];
  


closureN_type c_731936;
object e_731943 [2];
c_731936.hdr.mark = gc_color_red;
 c_731936.hdr.grayed = 0;
c_731936.tag = closureN_tag;
 c_731936.fn = (function_type)__lambda_108;
c_731936.num_args = 1;
c_731936.num_elements = 2;
c_731936.elements = (object *)e_731943;
c_731936.elements[0] = ((closureN)self_731018)->elements[0];
c_731936.elements[1] = ((closureN)self_731018)->elements[2];

return_closcall5(data,  car(((closureN)self_731018)->elements[4]),  &c_731936, ((closureN)self_731018)->elements[1], ((closureN)self_731018)->elements[5], r_73650, ((closureN)self_731018)->elements[3]);; 
}

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


make_utf8_string_with_len(c_731942, ")", 1, 1);
return_closcall3(data,  car(((closureN)self_731019)->elements[1]),  ((closureN)self_731019)->elements[0], &c_731942, r_73648);; 
}

static void __lambda_102(void *data, object self_731013, int argc, object *args) /* object self_731013, object r_73644 */
 {
 object r_73644 = args[0];
  


closureN_type c_731891;
object e_731900 [3];
c_731891.hdr.mark = gc_color_red;
 c_731891.hdr.grayed = 0;
c_731891.tag = closureN_tag;
 c_731891.fn = (function_type)__lambda_103;
c_731891.num_args = 1;
c_731891.num_elements = 3;
c_731891.elements = (object *)e_731900;
c_731891.elements[0] = ((closureN)self_731013)->elements[1];
c_731891.elements[1] = ((closureN)self_731013)->elements[2];
c_731891.elements[2] = ((closureN)self_731013)->elements[3];



return_closcall5(data,  car(((closureN)self_731013)->elements[5]),  &c_731891, Cyc_car(data, ((closureN)self_731013)->elements[2]), r_73644, ((closureN)self_731013)->elements[0], ((closureN)self_731013)->elements[4]);; 
}

static void __lambda_103(void *data, object self_731014, int argc, object *args) /* object self_731014, object r_73642 */
 {
 object r_73642 = args[0];
  



return_closcall3(data,  car(((closureN)self_731014)->elements[2]),  ((closureN)self_731014)->elements[0], Cyc_cdr(data, ((closureN)self_731014)->elements[1]), r_73642);; 
}

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



return_direct_with_clo1(data,(closure)&c_731855,__lambda_100,  Cyc_set_cell(data, ((closureN)self_731020)->elements[3], r_73637));; 
}

static void __lambda_100(void *data, object self_731021, int argc, object *args) /* object self_731021, object r_73636 */
 {

  

return_closcall3(data,  car(((closureN)self_731021)->elements[3]),  ((closureN)self_731021)->elements[1], ((closureN)self_731021)->elements[2], ((closureN)self_731021)->elements[0]);; 
}

static void __lambda_30(void *data, object self_731022, int argc, object *args) /* object self_731022, object r_73634 */
 {
 object r_73634 = args[0];
  
closureN_type c_731239;
object e_731840 [25];
c_731239.hdr.mark = gc_color_red;
 c_731239.hdr.grayed = 0;
c_731239.tag = closureN_tag;
 c_731239.fn = (function_type)__lambda_31;
c_731239.num_args = 1;
c_731239.num_elements = 25;
c_731239.elements = (object *)e_731840;
c_731239.elements[0] = ((closureN)self_731022)->elements[0];
c_731239.elements[1] = ((closureN)self_731022)->elements[1];
c_731239.elements[2] = ((closureN)self_731022)->elements[2];
c_731239.elements[3] = ((closureN)self_731022)->elements[3];
c_731239.elements[4] = ((closureN)self_731022)->elements[4];
c_731239.elements[5] = ((closureN)self_731022)->elements[5];
c_731239.elements[6] = ((closureN)self_731022)->elements[6];
c_731239.elements[7] = ((closureN)self_731022)->elements[7];
c_731239.elements[8] = ((closureN)self_731022)->elements[8];
c_731239.elements[9] = ((closureN)self_731022)->elements[9];
c_731239.elements[10] = ((closureN)self_731022)->elements[10];
c_731239.elements[11] = ((closureN)self_731022)->elements[11];
c_731239.elements[12] = ((closureN)self_731022)->elements[12];
c_731239.elements[13] = ((closureN)self_731022)->elements[13];
c_731239.elements[14] = ((closureN)self_731022)->elements[14];
c_731239.elements[15] = ((closureN)self_731022)->elements[15];
c_731239.elements[16] = ((closureN)self_731022)->elements[16];
c_731239.elements[17] = ((closureN)self_731022)->elements[17];
c_731239.elements[18] = ((closureN)self_731022)->elements[18];
c_731239.elements[19] = ((closureN)self_731022)->elements[19];
c_731239.elements[20] = ((closureN)self_731022)->elements[20];
c_731239.elements[21] = ((closureN)self_731022)->elements[21];
c_731239.elements[22] = ((closureN)self_731022)->elements[22];
c_731239.elements[23] = ((closureN)self_731022)->elements[23];
c_731239.elements[24] = ((closureN)self_731022)->elements[24];



return_direct_with_clo1(data,(closure)&c_731239,__lambda_31,  Cyc_set_cell(data, ((closureN)self_731022)->elements[17], r_73634));; 
}

static void __lambda_31(void *data, object self_731023, int argc, object *args) /* object self_731023, object r_73522 */
 {

  
closureN_type c_731241;
object e_731584 [21];
c_731241.hdr.mark = gc_color_red;
 c_731241.hdr.grayed = 0;
c_731241.tag = closureN_tag;
 c_731241.fn = (function_type)__lambda_32;
c_731241.num_args = 1;
c_731241.num_elements = 21;
c_731241.elements = (object *)e_731584;
c_731241.elements[0] = ((closureN)self_731023)->elements[0];
c_731241.elements[1] = ((closureN)self_731023)->elements[2];
c_731241.elements[2] = ((closureN)self_731023)->elements[3];
c_731241.elements[3] = ((closureN)self_731023)->elements[4];
c_731241.elements[4] = ((closureN)self_731023)->elements[5];
c_731241.elements[5] = ((closureN)self_731023)->elements[6];
c_731241.elements[6] = ((closureN)self_731023)->elements[8];
c_731241.elements[7] = ((closureN)self_731023)->elements[9];
c_731241.elements[8] = ((closureN)self_731023)->elements[10];
c_731241.elements[9] = ((closureN)self_731023)->elements[11];
c_731241.elements[10] = ((closureN)self_731023)->elements[12];
c_731241.elements[11] = ((closureN)self_731023)->elements[13];
c_731241.elements[12] = ((closureN)self_731023)->elements[14];
c_731241.elements[13] = ((closureN)self_731023)->elements[15];
c_731241.elements[14] = ((closureN)self_731023)->elements[16];
c_731241.elements[15] = ((closureN)self_731023)->elements[18];
c_731241.elements[16] = ((closureN)self_731023)->elements[19];
c_731241.elements[17] = ((closureN)self_731023)->elements[20];
c_731241.elements[18] = ((closureN)self_731023)->elements[21];
c_731241.elements[19] = ((closureN)self_731023)->elements[22];
c_731241.elements[20] = ((closureN)self_731023)->elements[23];


closureN_type c_731585;
object e_731839 [6];
c_731585.hdr.mark = gc_color_red;
 c_731585.hdr.grayed = 0;
c_731585.tag = closureN_tag;
 c_731585.fn = (function_type)__lambda_73;
c_731585.num_args = 7;
c_731585.num_elements = 6;
c_731585.elements = (object *)e_731839;
c_731585.elements[0] = ((closureN)self_731023)->elements[1];
c_731585.elements[1] = ((closureN)self_731023)->elements[2];
c_731585.elements[2] = ((closureN)self_731023)->elements[7];
c_731585.elements[3] = ((closureN)self_731023)->elements[17];
c_731585.elements[4] = ((closureN)self_731023)->elements[22];
c_731585.elements[5] = ((closureN)self_731023)->elements[24];

return_direct_with_clo1(data,(closure)&c_731241,__lambda_32,  &c_731585);; 
}

static void __lambda_73(void *data, object self_731024, int argc, object *args) /* object self_731024, object k_73592, object expr_73171_73429, object col_73172_73430, object extra_73173_73431, object named_127_73174_73432, object pp_911_73175_73433, object pp_912_73176_73434, object pp_913_73177_73435 */
 {
 object k_73592 = args[0]; object expr_73171_73429 = args[1]; object col_73172_73430 = args[2]; object extra_73173_73431 = args[3]; object named_127_73174_73432 = args[4]; object pp_911_73175_73433 = args[5]; object pp_912_73176_73434 = args[6]; object pp_913_73177_73435 = args[7];
  
closureN_type c_731587;
object e_731838 [14];
c_731587.hdr.mark = gc_color_red;
 c_731587.hdr.grayed = 0;
c_731587.tag = closureN_tag;
 c_731587.fn = (function_type)__lambda_74;
c_731587.num_args = 3;
c_731587.num_elements = 14;
c_731587.elements = (object *)e_731838;
c_731587.elements[0] = col_73172_73430;
c_731587.elements[1] = expr_73171_73429;
c_731587.elements[2] = extra_73173_73431;
c_731587.elements[3] = ((closureN)self_731024)->elements[0];
c_731587.elements[4] = ((closureN)self_731024)->elements[1];
c_731587.elements[5] = k_73592;
c_731587.elements[6] = named_127_73174_73432;
c_731587.elements[7] = ((closureN)self_731024)->elements[2];
c_731587.elements[8] = pp_911_73175_73433;
c_731587.elements[9] = pp_912_73176_73434;
c_731587.elements[10] = pp_913_73177_73435;
c_731587.elements[11] = ((closureN)self_731024)->elements[3];
c_731587.elements[12] = ((closureN)self_731024)->elements[4];
c_731587.elements[13] = ((closureN)self_731024)->elements[5];

return_direct_with_clo3(data,(closure)&c_731587,__lambda_74,  boolean_f, boolean_f, boolean_f);; 
}

static void __lambda_74(void *data, object self_731025, int argc, object *args) /* object self_731025, object tail1_73436, object tail2_73437, object tail3_73438 */
 {
 object tail1_73436 = args[0]; object tail2_73437 = args[1]; object tail3_73438 = args[2];
  
closureN_type c_731589;
object e_731834 [16];
c_731589.hdr.mark = gc_color_red;
 c_731589.hdr.grayed = 0;
c_731589.tag = closureN_tag;
 c_731589.fn = (function_type)__lambda_223;
c_731589.num_args = 1;
c_731589.num_elements = 16;
c_731589.elements = (object *)e_731834;
c_731589.elements[0] = ((closureN)self_731025)->elements[0];
c_731589.elements[1] = ((closureN)self_731025)->elements[1];
c_731589.elements[2] = ((closureN)self_731025)->elements[2];
c_731589.elements[3] = ((closureN)self_731025)->elements[3];
c_731589.elements[4] = ((closureN)self_731025)->elements[4];
c_731589.elements[5] = ((closureN)self_731025)->elements[5];
c_731589.elements[6] = ((closureN)self_731025)->elements[6];
c_731589.elements[7] = ((closureN)self_731025)->elements[7];
c_731589.elements[8] = ((closureN)self_731025)->elements[8];
c_731589.elements[9] = ((closureN)self_731025)->elements[9];
c_731589.elements[10] = ((closureN)self_731025)->elements[10];
c_731589.elements[11] = ((closureN)self_731025)->elements[11];
c_731589.elements[12] = ((closureN)self_731025)->elements[12];
c_731589.elements[13] = tail2_73437;
c_731589.elements[14] = tail3_73438;
c_731589.elements[15] = ((closureN)self_731025)->elements[13];


pair_type local_731837; 
return_direct_with_clo1(data,(closure)&c_731589,__lambda_223,  set_cell_as_expr(&local_731837, tail1_73436));; 
}

static void __lambda_223(void *data, object self_731026, int argc, object *args) /* object self_731026, object tail1_73436 */
 {
 object tail1_73436 = args[0];
  
closureN_type c_731591;
object e_731829 [16];
c_731591.hdr.mark = gc_color_red;
 c_731591.hdr.grayed = 0;
c_731591.tag = closureN_tag;
 c_731591.fn = (function_type)__lambda_222;
c_731591.num_args = 1;
c_731591.num_elements = 16;
c_731591.elements = (object *)e_731829;
c_731591.elements[0] = ((closureN)self_731026)->elements[0];
c_731591.elements[1] = ((closureN)self_731026)->elements[1];
c_731591.elements[2] = ((closureN)self_731026)->elements[2];
c_731591.elements[3] = ((closureN)self_731026)->elements[3];
c_731591.elements[4] = ((closureN)self_731026)->elements[4];
c_731591.elements[5] = ((closureN)self_731026)->elements[5];
c_731591.elements[6] = ((closureN)self_731026)->elements[6];
c_731591.elements[7] = ((closureN)self_731026)->elements[7];
c_731591.elements[8] = ((closureN)self_731026)->elements[8];
c_731591.elements[9] = ((closureN)self_731026)->elements[9];
c_731591.elements[10] = ((closureN)self_731026)->elements[10];
c_731591.elements[11] = ((closureN)self_731026)->elements[11];
c_731591.elements[12] = ((closureN)self_731026)->elements[12];
c_731591.elements[13] = tail1_73436;
c_731591.elements[14] = ((closureN)self_731026)->elements[14];
c_731591.elements[15] = ((closureN)self_731026)->elements[15];


pair_type local_731832; 
return_direct_with_clo1(data,(closure)&c_731591,__lambda_222,  set_cell_as_expr(&local_731832, ((closureN)self_731026)->elements[13]));; 
}

static void __lambda_222(void *data, object self_731027, int argc, object *args) /* object self_731027, object tail2_73437 */
 {
 object tail2_73437 = args[0];
  
closureN_type c_731593;
object e_731824 [16];
c_731593.hdr.mark = gc_color_red;
 c_731593.hdr.grayed = 0;
c_731593.tag = closureN_tag;
 c_731593.fn = (function_type)__lambda_221;
c_731593.num_args = 1;
c_731593.num_elements = 16;
c_731593.elements = (object *)e_731824;
c_731593.elements[0] = ((closureN)self_731027)->elements[0];
c_731593.elements[1] = ((closureN)self_731027)->elements[1];
c_731593.elements[2] = ((closureN)self_731027)->elements[2];
c_731593.elements[3] = ((closureN)self_731027)->elements[3];
c_731593.elements[4] = ((closureN)self_731027)->elements[4];
c_731593.elements[5] = ((closureN)self_731027)->elements[5];
c_731593.elements[6] = ((closureN)self_731027)->elements[6];
c_731593.elements[7] = ((closureN)self_731027)->elements[7];
c_731593.elements[8] = ((closureN)self_731027)->elements[8];
c_731593.elements[9] = ((closureN)self_731027)->elements[9];
c_731593.elements[10] = ((closureN)self_731027)->elements[10];
c_731593.elements[11] = ((closureN)self_731027)->elements[11];
c_731593.elements[12] = ((closureN)self_731027)->elements[12];
c_731593.elements[13] = ((closureN)self_731027)->elements[13];
c_731593.elements[14] = tail2_73437;
c_731593.elements[15] = ((closureN)self_731027)->elements[15];


pair_type local_731827; 
return_direct_with_clo1(data,(closure)&c_731593,__lambda_221,  set_cell_as_expr(&local_731827, ((closureN)self_731027)->elements[14]));; 
}

static void __lambda_221(void *data, object self_731028, int argc, object *args) /* object self_731028, object tail3_73438 */
 {
 object tail3_73438 = args[0];
  
closureN_type c_731595;
object e_731766 [16];
c_731595.hdr.mark = gc_color_red;
 c_731595.hdr.grayed = 0;
c_731595.tag = closureN_tag;
 c_731595.fn = (function_type)__lambda_75;
c_731595.num_args = 1;
c_731595.num_elements = 16;
c_731595.elements = (object *)e_731766;
c_731595.elements[0] = ((closureN)self_731028)->elements[0];
c_731595.elements[1] = ((closureN)self_731028)->elements[1];
c_731595.elements[2] = ((closureN)self_731028)->elements[2];
c_731595.elements[3] = ((closureN)self_731028)->elements[3];
c_731595.elements[4] = ((closureN)self_731028)->elements[4];
c_731595.elements[5] = ((closureN)self_731028)->elements[5];
c_731595.elements[6] = ((closureN)self_731028)->elements[6];
c_731595.elements[7] = ((closureN)self_731028)->elements[7];
c_731595.elements[8] = ((closureN)self_731028)->elements[9];
c_731595.elements[9] = ((closureN)self_731028)->elements[10];
c_731595.elements[10] = ((closureN)self_731028)->elements[11];
c_731595.elements[11] = ((closureN)self_731028)->elements[12];
c_731595.elements[12] = ((closureN)self_731028)->elements[13];
c_731595.elements[13] = ((closureN)self_731028)->elements[14];
c_731595.elements[14] = tail3_73438;
c_731595.elements[15] = ((closureN)self_731028)->elements[15];


closureN_type c_731767;
object e_731823 [5];
c_731767.hdr.mark = gc_color_red;
 c_731767.hdr.grayed = 0;
c_731767.tag = closureN_tag;
 c_731767.fn = (function_type)__lambda_91;
c_731767.num_args = 4;
c_731767.num_elements = 5;
c_731767.elements = (object *)e_731823;
c_731767.elements[0] = ((closureN)self_731028)->elements[2];
c_731767.elements[1] = ((closureN)self_731028)->elements[3];
c_731767.elements[2] = ((closureN)self_731028)->elements[8];
c_731767.elements[3] = ((closureN)self_731028)->elements[12];
c_731767.elements[4] = ((closureN)self_731028)->elements[14];

return_direct_with_clo1(data,(closure)&c_731595,__lambda_75,  &c_731767);; 
}

static void __lambda_91(void *data, object self_731029, int argc, object *args) /* object self_731029, object k_73624, object rest_73178_73439, object col1_73179_73440, object col2_73180_73441, object col3_73181_73442 */
 {
 object k_73624 = args[0]; object rest_73178_73439 = args[1]; object col1_73179_73440 = args[2]; object col2_73180_73441 = args[3]; object col3_73181_73442 = args[4];
  object r_73625;
  if( (boolean_f != ((closureN)self_731029)->elements[2]) ){ 
  
  r_73625 = Cyc_is_pair(rest_73178_73439);
} else { 
  r_73625 = boolean_f;}
;if( (boolean_f != r_73625) ){ 
  
closureN_type c_731775;
object e_731787 [2];
c_731775.hdr.mark = gc_color_red;
 c_731775.hdr.grayed = 0;
c_731775.tag = closureN_tag;
 c_731775.fn = (function_type)__lambda_92;
c_731775.num_args = 0;
c_731775.num_elements = 2;
c_731775.elements = (object *)e_731787;
c_731775.elements[0] = ((closureN)self_731029)->elements[0];
c_731775.elements[1] = rest_73178_73439;


closureN_type c_731788;
object e_731818 [9];
c_731788.hdr.mark = gc_color_red;
 c_731788.hdr.grayed = 0;
c_731788.tag = closureN_tag;
 c_731788.fn = (function_type)__lambda_93;
c_731788.num_args = 1;
c_731788.num_elements = 9;
c_731788.elements = (object *)e_731818;
c_731788.elements[0] = col1_73179_73440;
c_731788.elements[1] = col2_73180_73441;
c_731788.elements[2] = col3_73181_73442;
c_731788.elements[3] = ((closureN)self_731029)->elements[1];
c_731788.elements[4] = k_73624;
c_731788.elements[5] = ((closureN)self_731029)->elements[2];
c_731788.elements[6] = ((closureN)self_731029)->elements[3];
c_731788.elements[7] = rest_73178_73439;
c_731788.elements[8] = ((closureN)self_731029)->elements[4];

return_direct_with_clo1(data,(closure)&c_731775,__lambda_92,  &c_731788);
} else { 
  

return_closcall5(data,  car(((closureN)self_731029)->elements[4]),  k_73624, rest_73178_73439, col1_73179_73440, col2_73180_73441, col3_73181_73442);}
;; 
}

static void __lambda_93(void *data, object self_731030, int argc, object *args) /* object self_731030, object extra_73191_73445 */
 {
 object extra_73191_73445 = args[0];
  


closureN_type c_731793;
object e_731815 [8];
c_731793.hdr.mark = gc_color_red;
 c_731793.hdr.grayed = 0;
c_731793.tag = closureN_tag;
 c_731793.fn = (function_type)__lambda_94;
c_731793.num_args = 1;
c_731793.num_elements = 8;
c_731793.elements = (object *)e_731815;
c_731793.elements[0] = ((closureN)self_731030)->elements[0];
c_731793.elements[1] = ((closureN)self_731030)->elements[2];
c_731793.elements[2] = extra_73191_73445;
c_731793.elements[3] = ((closureN)self_731030)->elements[4];
c_731793.elements[4] = ((closureN)self_731030)->elements[5];
c_731793.elements[5] = ((closureN)self_731030)->elements[6];
c_731793.elements[6] = ((closureN)self_731030)->elements[7];
c_731793.elements[7] = ((closureN)self_731030)->elements[8];

return_closcall3(data,  car(((closureN)self_731030)->elements[3]),  &c_731793, ((closureN)self_731030)->elements[2], ((closureN)self_731030)->elements[1]);; 
}

static void __lambda_94(void *data, object self_731031, int argc, object *args) /* object self_731031, object r_73630 */
 {
 object r_73630 = args[0];
  


closureN_type c_731798;
object e_731809 [5];
c_731798.hdr.mark = gc_color_red;
 c_731798.hdr.grayed = 0;
c_731798.tag = closureN_tag;
 c_731798.fn = (function_type)__lambda_95;
c_731798.num_args = 1;
c_731798.num_elements = 5;
c_731798.elements = (object *)e_731809;
c_731798.elements[0] = ((closureN)self_731031)->elements[0];
c_731798.elements[1] = ((closureN)self_731031)->elements[1];
c_731798.elements[2] = ((closureN)self_731031)->elements[3];
c_731798.elements[3] = ((closureN)self_731031)->elements[6];
c_731798.elements[4] = ((closureN)self_731031)->elements[7];



return_closcall5(data,  car(((closureN)self_731031)->elements[5]),  &c_731798, Cyc_car(data, ((closureN)self_731031)->elements[6]), r_73630, ((closureN)self_731031)->elements[2], ((closureN)self_731031)->elements[4]);; 
}

static void __lambda_95(void *data, object self_731032, int argc, object *args) /* object self_731032, object r_73629 */
 {
 object r_73629 = args[0];
  



return_closcall5(data,  car(((closureN)self_731032)->elements[4]),  ((closureN)self_731032)->elements[2], Cyc_cdr(data, ((closureN)self_731032)->elements[3]), ((closureN)self_731032)->elements[0], r_73629, ((closureN)self_731032)->elements[1]);; 
}

static void __lambda_92(void *data, object self_731033, int argc, object *args) /* object self_731033, object k_73631 */
 {
 object k_73631 = args[0];
    
  
if( (boolean_f != Cyc_is_null(Cyc_cdr(data, ((closureN)self_731033)->elements[1]))) ){ 
  
complex_num_type local_731784; 
return_direct_with_clo1(data,  k_73631,__lambda_93,  Cyc_fast_sum(data,&local_731784, ((closureN)self_731033)->elements[0], obj_int2obj(1)));
} else { 
  return_direct_with_clo1(data,  k_73631,__lambda_93,  obj_int2obj(0));}
;; 
}

static void __lambda_75(void *data, object self_731034, int argc, object *args) /* object self_731034, object r_73623 */
 {
 object r_73623 = args[0];
  
closureN_type c_731597;
object e_731762 [16];
c_731597.hdr.mark = gc_color_red;
 c_731597.hdr.grayed = 0;
c_731597.tag = closureN_tag;
 c_731597.fn = (function_type)__lambda_76;
c_731597.num_args = 1;
c_731597.num_elements = 16;
c_731597.elements = (object *)e_731762;
c_731597.elements[0] = ((closureN)self_731034)->elements[0];
c_731597.elements[1] = ((closureN)self_731034)->elements[1];
c_731597.elements[2] = ((closureN)self_731034)->elements[2];
c_731597.elements[3] = ((closureN)self_731034)->elements[3];
c_731597.elements[4] = ((closureN)self_731034)->elements[4];
c_731597.elements[5] = ((closureN)self_731034)->elements[5];
c_731597.elements[6] = ((closureN)self_731034)->elements[6];
c_731597.elements[7] = ((closureN)self_731034)->elements[7];
c_731597.elements[8] = ((closureN)self_731034)->elements[8];
c_731597.elements[9] = ((closureN)self_731034)->elements[9];
c_731597.elements[10] = ((closureN)self_731034)->elements[10];
c_731597.elements[11] = ((closureN)self_731034)->elements[11];
c_731597.elements[12] = ((closureN)self_731034)->elements[12];
c_731597.elements[13] = ((closureN)self_731034)->elements[13];
c_731597.elements[14] = ((closureN)self_731034)->elements[14];
c_731597.elements[15] = ((closureN)self_731034)->elements[15];



return_direct_with_clo1(data,(closure)&c_731597,__lambda_76,  Cyc_set_cell(data, ((closureN)self_731034)->elements[12], r_73623));; 
}

static void __lambda_76(void *data, object self_731035, int argc, object *args) /* object self_731035, object r_73593 */
 {

  
closureN_type c_731599;
object e_731705 [13];
c_731599.hdr.mark = gc_color_red;
 c_731599.hdr.grayed = 0;
c_731599.tag = closureN_tag;
 c_731599.fn = (function_type)__lambda_77;
c_731599.num_args = 1;
c_731599.num_elements = 13;
c_731599.elements = (object *)e_731705;
c_731599.elements[0] = ((closureN)self_731035)->elements[0];
c_731599.elements[1] = ((closureN)self_731035)->elements[1];
c_731599.elements[2] = ((closureN)self_731035)->elements[2];
c_731599.elements[3] = ((closureN)self_731035)->elements[4];
c_731599.elements[4] = ((closureN)self_731035)->elements[5];
c_731599.elements[5] = ((closureN)self_731035)->elements[6];
c_731599.elements[6] = ((closureN)self_731035)->elements[7];
c_731599.elements[7] = ((closureN)self_731035)->elements[9];
c_731599.elements[8] = ((closureN)self_731035)->elements[10];
c_731599.elements[9] = ((closureN)self_731035)->elements[12];
c_731599.elements[10] = ((closureN)self_731035)->elements[13];
c_731599.elements[11] = ((closureN)self_731035)->elements[14];
c_731599.elements[12] = ((closureN)self_731035)->elements[15];


closureN_type c_731706;
object e_731761 [5];
c_731706.hdr.mark = gc_color_red;
 c_731706.hdr.grayed = 0;
c_731706.tag = closureN_tag;
 c_731706.fn = (function_type)__lambda_86;
c_731706.num_args = 4;
c_731706.num_elements = 5;
c_731706.elements = (object *)e_731761;
c_731706.elements[0] = ((closureN)self_731035)->elements[2];
c_731706.elements[1] = ((closureN)self_731035)->elements[3];
c_731706.elements[2] = ((closureN)self_731035)->elements[8];
c_731706.elements[3] = ((closureN)self_731035)->elements[11];
c_731706.elements[4] = ((closureN)self_731035)->elements[14];

return_direct_with_clo1(data,(closure)&c_731599,__lambda_77,  &c_731706);; 
}

static void __lambda_86(void *data, object self_731036, int argc, object *args) /* object self_731036, object k_73613, object rest_73193_73446, object col1_73194_73447, object col2_73195_73448, object col3_73196_73449 */
 {
 object k_73613 = args[0]; object rest_73193_73446 = args[1]; object col1_73194_73447 = args[2]; object col2_73195_73448 = args[3]; object col3_73196_73449 = args[4];
  object r_73614;
  if( (boolean_f != ((closureN)self_731036)->elements[2]) ){ 
  
  r_73614 = Cyc_is_pair(rest_73193_73446);
} else { 
  r_73614 = boolean_f;}
;if( (boolean_f != r_73614) ){ 
  
closureN_type c_731714;
object e_731726 [2];
c_731714.hdr.mark = gc_color_red;
 c_731714.hdr.grayed = 0;
c_731714.tag = closureN_tag;
 c_731714.fn = (function_type)__lambda_87;
c_731714.num_args = 0;
c_731714.num_elements = 2;
c_731714.elements = (object *)e_731726;
c_731714.elements[0] = ((closureN)self_731036)->elements[0];
c_731714.elements[1] = rest_73193_73446;


closureN_type c_731727;
object e_731756 [9];
c_731727.hdr.mark = gc_color_red;
 c_731727.hdr.grayed = 0;
c_731727.tag = closureN_tag;
 c_731727.fn = (function_type)__lambda_88;
c_731727.num_args = 1;
c_731727.num_elements = 9;
c_731727.elements = (object *)e_731756;
c_731727.elements[0] = col1_73194_73447;
c_731727.elements[1] = col2_73195_73448;
c_731727.elements[2] = col3_73196_73449;
c_731727.elements[3] = ((closureN)self_731036)->elements[1];
c_731727.elements[4] = k_73613;
c_731727.elements[5] = ((closureN)self_731036)->elements[2];
c_731727.elements[6] = ((closureN)self_731036)->elements[3];
c_731727.elements[7] = rest_73193_73446;
c_731727.elements[8] = ((closureN)self_731036)->elements[4];

return_direct_with_clo1(data,(closure)&c_731714,__lambda_87,  &c_731727);
} else { 
  

return_closcall4(data,  car(((closureN)self_731036)->elements[4]),  k_73613, rest_73193_73446, col1_73194_73447, col2_73195_73448);}
;; 
}

static void __lambda_88(void *data, object self_731037, int argc, object *args) /* object self_731037, object extra_73206_73452 */
 {
 object extra_73206_73452 = args[0];
  


closureN_type c_731732;
object e_731753 [7];
c_731732.hdr.mark = gc_color_red;
 c_731732.hdr.grayed = 0;
c_731732.tag = closureN_tag;
 c_731732.fn = (function_type)__lambda_89;
c_731732.num_args = 1;
c_731732.num_elements = 7;
c_731732.elements = (object *)e_731753;
c_731732.elements[0] = ((closureN)self_731037)->elements[0];
c_731732.elements[1] = extra_73206_73452;
c_731732.elements[2] = ((closureN)self_731037)->elements[4];
c_731732.elements[3] = ((closureN)self_731037)->elements[5];
c_731732.elements[4] = ((closureN)self_731037)->elements[6];
c_731732.elements[5] = ((closureN)self_731037)->elements[7];
c_731732.elements[6] = ((closureN)self_731037)->elements[8];

return_closcall3(data,  car(((closureN)self_731037)->elements[3]),  &c_731732, ((closureN)self_731037)->elements[2], ((closureN)self_731037)->elements[1]);; 
}

static void __lambda_89(void *data, object self_731038, int argc, object *args) /* object self_731038, object r_73619 */
 {
 object r_73619 = args[0];
  


closureN_type c_731737;
object e_731747 [4];
c_731737.hdr.mark = gc_color_red;
 c_731737.hdr.grayed = 0;
c_731737.tag = closureN_tag;
 c_731737.fn = (function_type)__lambda_90;
c_731737.num_args = 1;
c_731737.num_elements = 4;
c_731737.elements = (object *)e_731747;
c_731737.elements[0] = ((closureN)self_731038)->elements[0];
c_731737.elements[1] = ((closureN)self_731038)->elements[2];
c_731737.elements[2] = ((closureN)self_731038)->elements[5];
c_731737.elements[3] = ((closureN)self_731038)->elements[6];



return_closcall5(data,  car(((closureN)self_731038)->elements[4]),  &c_731737, Cyc_car(data, ((closureN)self_731038)->elements[5]), r_73619, ((closureN)self_731038)->elements[1], ((closureN)self_731038)->elements[3]);; 
}

static void __lambda_90(void *data, object self_731039, int argc, object *args) /* object self_731039, object r_73618 */
 {
 object r_73618 = args[0];
  



return_closcall4(data,  car(((closureN)self_731039)->elements[3]),  ((closureN)self_731039)->elements[1], Cyc_cdr(data, ((closureN)self_731039)->elements[2]), ((closureN)self_731039)->elements[0], r_73618);; 
}

static void __lambda_87(void *data, object self_731040, int argc, object *args) /* object self_731040, object k_73620 */
 {
 object k_73620 = args[0];
    
  
if( (boolean_f != Cyc_is_null(Cyc_cdr(data, ((closureN)self_731040)->elements[1]))) ){ 
  
complex_num_type local_731723; 
return_direct_with_clo1(data,  k_73620,__lambda_88,  Cyc_fast_sum(data,&local_731723, ((closureN)self_731040)->elements[0], obj_int2obj(1)));
} else { 
  return_direct_with_clo1(data,  k_73620,__lambda_88,  obj_int2obj(0));}
;; 
}

static void __lambda_77(void *data, object self_731041, int argc, object *args) /* object self_731041, object r_73612 */
 {
 object r_73612 = args[0];
  
closureN_type c_731601;
object e_731701 [12];
c_731601.hdr.mark = gc_color_red;
 c_731601.hdr.grayed = 0;
c_731601.tag = closureN_tag;
 c_731601.fn = (function_type)__lambda_78;
c_731601.num_args = 1;
c_731601.num_elements = 12;
c_731601.elements = (object *)e_731701;
c_731601.elements[0] = ((closureN)self_731041)->elements[0];
c_731601.elements[1] = ((closureN)self_731041)->elements[1];
c_731601.elements[2] = ((closureN)self_731041)->elements[2];
c_731601.elements[3] = ((closureN)self_731041)->elements[3];
c_731601.elements[4] = ((closureN)self_731041)->elements[4];
c_731601.elements[5] = ((closureN)self_731041)->elements[5];
c_731601.elements[6] = ((closureN)self_731041)->elements[6];
c_731601.elements[7] = ((closureN)self_731041)->elements[7];
c_731601.elements[8] = ((closureN)self_731041)->elements[8];
c_731601.elements[9] = ((closureN)self_731041)->elements[9];
c_731601.elements[10] = ((closureN)self_731041)->elements[11];
c_731601.elements[11] = ((closureN)self_731041)->elements[12];



return_direct_with_clo1(data,(closure)&c_731601,__lambda_78,  Cyc_set_cell(data, ((closureN)self_731041)->elements[10], r_73612));; 
}

static void __lambda_78(void *data, object self_731042, int argc, object *args) /* object self_731042, object r_73594 */
 {

  
closureN_type c_731603;
object e_731692 [9];
c_731603.hdr.mark = gc_color_red;
 c_731603.hdr.grayed = 0;
c_731603.tag = closureN_tag;
 c_731603.fn = (function_type)__lambda_79;
c_731603.num_args = 1;
c_731603.num_elements = 9;
c_731603.elements = (object *)e_731692;
c_731603.elements[0] = ((closureN)self_731042)->elements[0];
c_731603.elements[1] = ((closureN)self_731042)->elements[1];
c_731603.elements[2] = ((closureN)self_731042)->elements[3];
c_731603.elements[3] = ((closureN)self_731042)->elements[4];
c_731603.elements[4] = ((closureN)self_731042)->elements[5];
c_731603.elements[5] = ((closureN)self_731042)->elements[6];
c_731603.elements[6] = ((closureN)self_731042)->elements[9];
c_731603.elements[7] = ((closureN)self_731042)->elements[10];
c_731603.elements[8] = ((closureN)self_731042)->elements[11];


closureN_type c_731693;
object e_731700 [3];
c_731693.hdr.mark = gc_color_red;
 c_731693.hdr.grayed = 0;
c_731693.tag = closureN_tag;
 c_731693.fn = (function_type)__lambda_85;
c_731693.num_args = 3;
c_731693.num_elements = 3;
c_731693.elements = (object *)e_731700;
c_731693.elements[0] = ((closureN)self_731042)->elements[2];
c_731693.elements[1] = ((closureN)self_731042)->elements[7];
c_731693.elements[2] = ((closureN)self_731042)->elements[8];

return_direct_with_clo1(data,(closure)&c_731603,__lambda_79,  &c_731693);; 
}

static void __lambda_85(void *data, object self_731043, int argc, object *args) /* object self_731043, object k_73611, object rest_73208_73453, object col1_73209_73454, object col2_73210_73455 */
 {
 object k_73611 = args[0]; object rest_73208_73453 = args[1]; object col1_73209_73454 = args[2]; object col2_73210_73455 = args[3];
  

return_closcall6(data,  car(((closureN)self_731043)->elements[2]),  k_73611, rest_73208_73453, col2_73210_73455, col1_73209_73454, ((closureN)self_731043)->elements[0], ((closureN)self_731043)->elements[1]);; 
}

static void __lambda_79(void *data, object self_731044, int argc, object *args) /* object self_731044, object r_73610 */
 {
 object r_73610 = args[0];
  
closureN_type c_731605;
object e_731688 [8];
c_731605.hdr.mark = gc_color_red;
 c_731605.hdr.grayed = 0;
c_731605.tag = closureN_tag;
 c_731605.fn = (function_type)__lambda_80;
c_731605.num_args = 1;
c_731605.num_elements = 8;
c_731605.elements = (object *)e_731688;
c_731605.elements[0] = ((closureN)self_731044)->elements[0];
c_731605.elements[1] = ((closureN)self_731044)->elements[1];
c_731605.elements[2] = ((closureN)self_731044)->elements[2];
c_731605.elements[3] = ((closureN)self_731044)->elements[3];
c_731605.elements[4] = ((closureN)self_731044)->elements[4];
c_731605.elements[5] = ((closureN)self_731044)->elements[5];
c_731605.elements[6] = ((closureN)self_731044)->elements[6];
c_731605.elements[7] = ((closureN)self_731044)->elements[8];



return_direct_with_clo1(data,(closure)&c_731605,__lambda_80,  Cyc_set_cell(data, ((closureN)self_731044)->elements[7], r_73610));; 
}

static void __lambda_80(void *data, object self_731045, int argc, object *args) /* object self_731045, object r_73595 */
 {

  


closureN_type c_731610;
object e_731685 [8];
c_731610.hdr.mark = gc_color_red;
 c_731610.hdr.grayed = 0;
c_731610.tag = closureN_tag;
 c_731610.fn = (function_type)__lambda_81;
c_731610.num_args = 1;
c_731610.num_elements = 8;
c_731610.elements = (object *)e_731685;
c_731610.elements[0] = ((closureN)self_731045)->elements[0];
c_731610.elements[1] = ((closureN)self_731045)->elements[1];
c_731610.elements[2] = ((closureN)self_731045)->elements[2];
c_731610.elements[3] = ((closureN)self_731045)->elements[3];
c_731610.elements[4] = ((closureN)self_731045)->elements[4];
c_731610.elements[5] = ((closureN)self_731045)->elements[5];
c_731610.elements[6] = ((closureN)self_731045)->elements[6];
c_731610.elements[7] = ((closureN)self_731045)->elements[7];


make_utf8_string_with_len(c_731686, "(", 1, 1);
return_closcall3(data,  car(((closureN)self_731045)->elements[5]),  &c_731610, &c_731686, ((closureN)self_731045)->elements[0]);; 
}

static void __lambda_81(void *data, object self_731046, int argc, object *args) /* object self_731046, object r_73609 */
 {
 object r_73609 = args[0];
  


closureN_type c_731615;
object e_731681 [8];
c_731615.hdr.mark = gc_color_red;
 c_731615.hdr.grayed = 0;
c_731615.tag = closureN_tag;
 c_731615.fn = (function_type)__lambda_82;
c_731615.num_args = 1;
c_731615.num_elements = 8;
c_731615.elements = (object *)e_731681;
c_731615.elements[0] = ((closureN)self_731046)->elements[0];
c_731615.elements[1] = ((closureN)self_731046)->elements[1];
c_731615.elements[2] = ((closureN)self_731046)->elements[2];
c_731615.elements[3] = ((closureN)self_731046)->elements[3];
c_731615.elements[4] = ((closureN)self_731046)->elements[4];
c_731615.elements[5] = ((closureN)self_731046)->elements[5];
c_731615.elements[6] = ((closureN)self_731046)->elements[6];
c_731615.elements[7] = ((closureN)self_731046)->elements[7];



return_closcall3(data,  car(((closureN)self_731046)->elements[7]),  &c_731615, Cyc_car(data, ((closureN)self_731046)->elements[1]), r_73609);; 
}

static void __lambda_82(void *data, object self_731047, int argc, object *args) /* object self_731047, object col_85_73219_73458 */
 {
 object col_85_73219_73458 = args[0];
  object r_73599;
  if( (boolean_f != ((closureN)self_731047)->elements[4]) ){ 
  
  
  r_73599 = Cyc_is_pair(Cyc_cdr(data, ((closureN)self_731047)->elements[1]));
} else { 
  r_73599 = boolean_f;}
;if( (boolean_f != r_73599) ){ 
  


closureN_type c_731629;
object e_731661 [6];
c_731629.hdr.mark = gc_color_red;
 c_731629.hdr.grayed = 0;
c_731629.tag = closureN_tag;
 c_731629.fn = (function_type)__lambda_83;
c_731629.num_args = 1;
c_731629.num_elements = 6;
c_731629.elements = (object *)e_731661;
c_731629.elements[0] = ((closureN)self_731047)->elements[0];
c_731629.elements[1] = ((closureN)self_731047)->elements[1];
c_731629.elements[2] = ((closureN)self_731047)->elements[2];
c_731629.elements[3] = ((closureN)self_731047)->elements[3];
c_731629.elements[4] = ((closureN)self_731047)->elements[6];
c_731629.elements[5] = ((closureN)self_731047)->elements[7];


make_utf8_string_with_len(c_731662, " ", 1, 1);
return_closcall3(data,  car(((closureN)self_731047)->elements[5]),  &c_731629, &c_731662, col_85_73219_73458);
} else { 
  




complex_num_type local_731673; 



complex_num_type local_731680; 
return_closcall5(data,  car(((closureN)self_731047)->elements[6]),  ((closureN)self_731047)->elements[3], Cyc_cdr(data, ((closureN)self_731047)->elements[1]), Cyc_fast_sum(data,&local_731673, ((closureN)self_731047)->elements[0], car(((closureN)self_731047)->elements[2])), col_85_73219_73458, Cyc_fast_sum(data,&local_731680, col_85_73219_73458, obj_int2obj(1)));}
;; 
}

static void __lambda_83(void *data, object self_731048, int argc, object *args) /* object self_731048, object r_73605 */
 {
 object r_73605 = args[0];
  


closureN_type c_731634;
object e_731655 [5];
c_731634.hdr.mark = gc_color_red;
 c_731634.hdr.grayed = 0;
c_731634.tag = closureN_tag;
 c_731634.fn = (function_type)__lambda_84;
c_731634.num_args = 1;
c_731634.num_elements = 5;
c_731634.elements = (object *)e_731655;
c_731634.elements[0] = ((closureN)self_731048)->elements[0];
c_731634.elements[1] = ((closureN)self_731048)->elements[1];
c_731634.elements[2] = ((closureN)self_731048)->elements[2];
c_731634.elements[3] = ((closureN)self_731048)->elements[3];
c_731634.elements[4] = ((closureN)self_731048)->elements[4];





return_closcall3(data,  car(((closureN)self_731048)->elements[5]),  &c_731634, Cyc_car(data, Cyc_cdr(data, ((closureN)self_731048)->elements[1])), r_73605);; 
}

static void __lambda_84(void *data, object self_731049, int argc, object *args) /* object self_731049, object col_85_85_73230_73461 */
 {
 object col_85_85_73230_73461 = args[0];
  






complex_num_type local_731647; 



complex_num_type local_731654; 
return_closcall5(data,  car(((closureN)self_731049)->elements[4]),  ((closureN)self_731049)->elements[3], Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_731049)->elements[1])), Cyc_fast_sum(data,&local_731647, ((closureN)self_731049)->elements[0], car(((closureN)self_731049)->elements[2])), col_85_85_73230_73461, Cyc_fast_sum(data,&local_731654, col_85_85_73230_73461, obj_int2obj(1)));; 
}

static void __lambda_32(void *data, object self_731050, int argc, object *args) /* object self_731050, object r_73591 */
 {
 object r_73591 = args[0];
  
closureN_type c_731243;
object e_731580 [21];
c_731243.hdr.mark = gc_color_red;
 c_731243.hdr.grayed = 0;
c_731243.tag = closureN_tag;
 c_731243.fn = (function_type)__lambda_33;
c_731243.num_args = 1;
c_731243.num_elements = 21;
c_731243.elements = (object *)e_731580;
c_731243.elements[0] = ((closureN)self_731050)->elements[0];
c_731243.elements[1] = ((closureN)self_731050)->elements[1];
c_731243.elements[2] = ((closureN)self_731050)->elements[2];
c_731243.elements[3] = ((closureN)self_731050)->elements[3];
c_731243.elements[4] = ((closureN)self_731050)->elements[4];
c_731243.elements[5] = ((closureN)self_731050)->elements[5];
c_731243.elements[6] = ((closureN)self_731050)->elements[6];
c_731243.elements[7] = ((closureN)self_731050)->elements[7];
c_731243.elements[8] = ((closureN)self_731050)->elements[8];
c_731243.elements[9] = ((closureN)self_731050)->elements[9];
c_731243.elements[10] = ((closureN)self_731050)->elements[10];
c_731243.elements[11] = ((closureN)self_731050)->elements[11];
c_731243.elements[12] = ((closureN)self_731050)->elements[12];
c_731243.elements[13] = ((closureN)self_731050)->elements[13];
c_731243.elements[14] = ((closureN)self_731050)->elements[14];
c_731243.elements[15] = ((closureN)self_731050)->elements[15];
c_731243.elements[16] = ((closureN)self_731050)->elements[16];
c_731243.elements[17] = ((closureN)self_731050)->elements[17];
c_731243.elements[18] = ((closureN)self_731050)->elements[18];
c_731243.elements[19] = ((closureN)self_731050)->elements[19];
c_731243.elements[20] = ((closureN)self_731050)->elements[20];



return_direct_with_clo1(data,(closure)&c_731243,__lambda_33,  Cyc_set_cell(data, ((closureN)self_731050)->elements[17], r_73591));; 
}

static void __lambda_33(void *data, object self_731051, int argc, object *args) /* object self_731051, object r_73523 */
 {

  
closureN_type c_731245;
object e_731570 [20];
c_731245.hdr.mark = gc_color_red;
 c_731245.hdr.grayed = 0;
c_731245.tag = closureN_tag;
 c_731245.fn = (function_type)__lambda_34;
c_731245.num_args = 1;
c_731245.num_elements = 20;
c_731245.elements = (object *)e_731570;
c_731245.elements[0] = ((closureN)self_731051)->elements[0];
c_731245.elements[1] = ((closureN)self_731051)->elements[1];
c_731245.elements[2] = ((closureN)self_731051)->elements[2];
c_731245.elements[3] = ((closureN)self_731051)->elements[3];
c_731245.elements[4] = ((closureN)self_731051)->elements[4];
c_731245.elements[5] = ((closureN)self_731051)->elements[5];
c_731245.elements[6] = ((closureN)self_731051)->elements[6];
c_731245.elements[7] = ((closureN)self_731051)->elements[7];
c_731245.elements[8] = ((closureN)self_731051)->elements[8];
c_731245.elements[9] = ((closureN)self_731051)->elements[9];
c_731245.elements[10] = ((closureN)self_731051)->elements[10];
c_731245.elements[11] = ((closureN)self_731051)->elements[11];
c_731245.elements[12] = ((closureN)self_731051)->elements[12];
c_731245.elements[13] = ((closureN)self_731051)->elements[13];
c_731245.elements[14] = ((closureN)self_731051)->elements[14];
c_731245.elements[15] = ((closureN)self_731051)->elements[15];
c_731245.elements[16] = ((closureN)self_731051)->elements[16];
c_731245.elements[17] = ((closureN)self_731051)->elements[17];
c_731245.elements[18] = ((closureN)self_731051)->elements[19];
c_731245.elements[19] = ((closureN)self_731051)->elements[20];


closureN_type c_731571;
object e_731579 [2];
c_731571.hdr.mark = gc_color_red;
 c_731571.hdr.grayed = 0;
c_731571.tag = closureN_tag;
 c_731571.fn = (function_type)__lambda_72;
c_731571.num_args = 3;
c_731571.num_elements = 2;
c_731571.elements = (object *)e_731579;
c_731571.elements[0] = ((closureN)self_731051)->elements[15];
c_731571.elements[1] = ((closureN)self_731051)->elements[18];

return_direct_with_clo1(data,(closure)&c_731245,__lambda_34,  &c_731571);; 
}

static void __lambda_72(void *data, object self_731052, int argc, object *args) /* object self_731052, object k_73590, object l_73232_73462, object col_73233_73463, object extra_73234_73464 */
 {
 object k_73590 = args[0]; object l_73232_73462 = args[1]; object col_73233_73463 = args[2]; object extra_73234_73464 = args[3];
  



return_closcall5(data,  car(((closureN)self_731052)->elements[1]),  k_73590, l_73232_73462, col_73233_73463, extra_73234_73464, car(((closureN)self_731052)->elements[0]));; 
}

static void __lambda_34(void *data, object self_731053, int argc, object *args) /* object self_731053, object r_73589 */
 {
 object r_73589 = args[0];
  
closureN_type c_731247;
object e_731566 [20];
c_731247.hdr.mark = gc_color_red;
 c_731247.hdr.grayed = 0;
c_731247.tag = closureN_tag;
 c_731247.fn = (function_type)__lambda_35;
c_731247.num_args = 1;
c_731247.num_elements = 20;
c_731247.elements = (object *)e_731566;
c_731247.elements[0] = ((closureN)self_731053)->elements[0];
c_731247.elements[1] = ((closureN)self_731053)->elements[1];
c_731247.elements[2] = ((closureN)self_731053)->elements[2];
c_731247.elements[3] = ((closureN)self_731053)->elements[3];
c_731247.elements[4] = ((closureN)self_731053)->elements[4];
c_731247.elements[5] = ((closureN)self_731053)->elements[5];
c_731247.elements[6] = ((closureN)self_731053)->elements[6];
c_731247.elements[7] = ((closureN)self_731053)->elements[7];
c_731247.elements[8] = ((closureN)self_731053)->elements[8];
c_731247.elements[9] = ((closureN)self_731053)->elements[9];
c_731247.elements[10] = ((closureN)self_731053)->elements[10];
c_731247.elements[11] = ((closureN)self_731053)->elements[11];
c_731247.elements[12] = ((closureN)self_731053)->elements[12];
c_731247.elements[13] = ((closureN)self_731053)->elements[13];
c_731247.elements[14] = ((closureN)self_731053)->elements[14];
c_731247.elements[15] = ((closureN)self_731053)->elements[15];
c_731247.elements[16] = ((closureN)self_731053)->elements[16];
c_731247.elements[17] = ((closureN)self_731053)->elements[17];
c_731247.elements[18] = ((closureN)self_731053)->elements[18];
c_731247.elements[19] = ((closureN)self_731053)->elements[19];



return_direct_with_clo1(data,(closure)&c_731247,__lambda_35,  Cyc_set_cell(data, ((closureN)self_731053)->elements[16], r_73589));; 
}

static void __lambda_35(void *data, object self_731054, int argc, object *args) /* object self_731054, object r_73524 */
 {

  
closureN_type c_731249;
object e_731553 [20];
c_731249.hdr.mark = gc_color_red;
 c_731249.hdr.grayed = 0;
c_731249.tag = closureN_tag;
 c_731249.fn = (function_type)__lambda_36;
c_731249.num_args = 1;
c_731249.num_elements = 20;
c_731249.elements = (object *)e_731553;
c_731249.elements[0] = ((closureN)self_731054)->elements[0];
c_731249.elements[1] = ((closureN)self_731054)->elements[1];
c_731249.elements[2] = ((closureN)self_731054)->elements[2];
c_731249.elements[3] = ((closureN)self_731054)->elements[3];
c_731249.elements[4] = ((closureN)self_731054)->elements[4];
c_731249.elements[5] = ((closureN)self_731054)->elements[5];
c_731249.elements[6] = ((closureN)self_731054)->elements[6];
c_731249.elements[7] = ((closureN)self_731054)->elements[7];
c_731249.elements[8] = ((closureN)self_731054)->elements[8];
c_731249.elements[9] = ((closureN)self_731054)->elements[9];
c_731249.elements[10] = ((closureN)self_731054)->elements[10];
c_731249.elements[11] = ((closureN)self_731054)->elements[11];
c_731249.elements[12] = ((closureN)self_731054)->elements[12];
c_731249.elements[13] = ((closureN)self_731054)->elements[13];
c_731249.elements[14] = ((closureN)self_731054)->elements[14];
c_731249.elements[15] = ((closureN)self_731054)->elements[15];
c_731249.elements[16] = ((closureN)self_731054)->elements[16];
c_731249.elements[17] = ((closureN)self_731054)->elements[17];
c_731249.elements[18] = ((closureN)self_731054)->elements[18];
c_731249.elements[19] = ((closureN)self_731054)->elements[19];


closureN_type c_731554;
object e_731565 [3];
c_731554.hdr.mark = gc_color_red;
 c_731554.hdr.grayed = 0;
c_731554.tag = closureN_tag;
 c_731554.fn = (function_type)__lambda_71;
c_731554.num_args = 3;
c_731554.num_elements = 3;
c_731554.elements = (object *)e_731565;
c_731554.elements[0] = ((closureN)self_731054)->elements[15];
c_731554.elements[1] = ((closureN)self_731054)->elements[16];
c_731554.elements[2] = ((closureN)self_731054)->elements[17];

return_direct_with_clo1(data,(closure)&c_731249,__lambda_36,  &c_731554);; 
}

static void __lambda_71(void *data, object self_731055, int argc, object *args) /* object self_731055, object k_73588, object expr_73235_73465, object col_73236_73466, object extra_73237_73467 */
 {
 object k_73588 = args[0]; object expr_73235_73465 = args[1]; object col_73236_73466 = args[2]; object extra_73237_73467 = args[3];
  





return_closcall8(data,  car(((closureN)self_731055)->elements[2]),  k_73588, expr_73235_73465, col_73236_73466, extra_73237_73467, boolean_f, car(((closureN)self_731055)->elements[1]), boolean_f, car(((closureN)self_731055)->elements[0]));; 
}

static void __lambda_36(void *data, object self_731056, int argc, object *args) /* object self_731056, object r_73587 */
 {
 object r_73587 = args[0];
  
closureN_type c_731251;
object e_731549 [20];
c_731251.hdr.mark = gc_color_red;
 c_731251.hdr.grayed = 0;
c_731251.tag = closureN_tag;
 c_731251.fn = (function_type)__lambda_37;
c_731251.num_args = 1;
c_731251.num_elements = 20;
c_731251.elements = (object *)e_731549;
c_731251.elements[0] = ((closureN)self_731056)->elements[0];
c_731251.elements[1] = ((closureN)self_731056)->elements[1];
c_731251.elements[2] = ((closureN)self_731056)->elements[2];
c_731251.elements[3] = ((closureN)self_731056)->elements[3];
c_731251.elements[4] = ((closureN)self_731056)->elements[4];
c_731251.elements[5] = ((closureN)self_731056)->elements[5];
c_731251.elements[6] = ((closureN)self_731056)->elements[6];
c_731251.elements[7] = ((closureN)self_731056)->elements[7];
c_731251.elements[8] = ((closureN)self_731056)->elements[8];
c_731251.elements[9] = ((closureN)self_731056)->elements[9];
c_731251.elements[10] = ((closureN)self_731056)->elements[10];
c_731251.elements[11] = ((closureN)self_731056)->elements[11];
c_731251.elements[12] = ((closureN)self_731056)->elements[12];
c_731251.elements[13] = ((closureN)self_731056)->elements[13];
c_731251.elements[14] = ((closureN)self_731056)->elements[14];
c_731251.elements[15] = ((closureN)self_731056)->elements[15];
c_731251.elements[16] = ((closureN)self_731056)->elements[16];
c_731251.elements[17] = ((closureN)self_731056)->elements[17];
c_731251.elements[18] = ((closureN)self_731056)->elements[18];
c_731251.elements[19] = ((closureN)self_731056)->elements[19];



return_direct_with_clo1(data,(closure)&c_731251,__lambda_37,  Cyc_set_cell(data, ((closureN)self_731056)->elements[12], r_73587));; 
}

static void __lambda_37(void *data, object self_731057, int argc, object *args) /* object self_731057, object r_73525 */
 {

  
closureN_type c_731253;
object e_731536 [20];
c_731253.hdr.mark = gc_color_red;
 c_731253.hdr.grayed = 0;
c_731253.tag = closureN_tag;
 c_731253.fn = (function_type)__lambda_38;
c_731253.num_args = 1;
c_731253.num_elements = 20;
c_731253.elements = (object *)e_731536;
c_731253.elements[0] = ((closureN)self_731057)->elements[0];
c_731253.elements[1] = ((closureN)self_731057)->elements[1];
c_731253.elements[2] = ((closureN)self_731057)->elements[2];
c_731253.elements[3] = ((closureN)self_731057)->elements[3];
c_731253.elements[4] = ((closureN)self_731057)->elements[4];
c_731253.elements[5] = ((closureN)self_731057)->elements[5];
c_731253.elements[6] = ((closureN)self_731057)->elements[6];
c_731253.elements[7] = ((closureN)self_731057)->elements[7];
c_731253.elements[8] = ((closureN)self_731057)->elements[8];
c_731253.elements[9] = ((closureN)self_731057)->elements[9];
c_731253.elements[10] = ((closureN)self_731057)->elements[10];
c_731253.elements[11] = ((closureN)self_731057)->elements[11];
c_731253.elements[12] = ((closureN)self_731057)->elements[12];
c_731253.elements[13] = ((closureN)self_731057)->elements[13];
c_731253.elements[14] = ((closureN)self_731057)->elements[14];
c_731253.elements[15] = ((closureN)self_731057)->elements[15];
c_731253.elements[16] = ((closureN)self_731057)->elements[16];
c_731253.elements[17] = ((closureN)self_731057)->elements[17];
c_731253.elements[18] = ((closureN)self_731057)->elements[18];
c_731253.elements[19] = ((closureN)self_731057)->elements[19];


closureN_type c_731537;
object e_731548 [2];
c_731537.hdr.mark = gc_color_red;
 c_731537.hdr.grayed = 0;
c_731537.tag = closureN_tag;
 c_731537.fn = (function_type)__lambda_70;
c_731537.num_args = 3;
c_731537.num_elements = 2;
c_731537.elements = (object *)e_731548;
c_731537.elements[0] = ((closureN)self_731057)->elements[15];
c_731537.elements[1] = ((closureN)self_731057)->elements[17];

return_direct_with_clo1(data,(closure)&c_731253,__lambda_38,  &c_731537);; 
}

static void __lambda_70(void *data, object self_731058, int argc, object *args) /* object self_731058, object k_73586, object expr_73238_73468, object col_73239_73469, object extra_73240_73470 */
 {
 object k_73586 = args[0]; object expr_73238_73468 = args[1]; object col_73239_73469 = args[2]; object extra_73240_73470 = args[3];
  





return_closcall8(data,  car(((closureN)self_731058)->elements[1]),  k_73586, expr_73238_73468, col_73239_73469, extra_73240_73470, boolean_f, car(((closureN)self_731058)->elements[0]), boolean_f, car(((closureN)self_731058)->elements[0]));; 
}

static void __lambda_38(void *data, object self_731059, int argc, object *args) /* object self_731059, object r_73585 */
 {
 object r_73585 = args[0];
  
closureN_type c_731255;
object e_731532 [20];
c_731255.hdr.mark = gc_color_red;
 c_731255.hdr.grayed = 0;
c_731255.tag = closureN_tag;
 c_731255.fn = (function_type)__lambda_39;
c_731255.num_args = 1;
c_731255.num_elements = 20;
c_731255.elements = (object *)e_731532;
c_731255.elements[0] = ((closureN)self_731059)->elements[0];
c_731255.elements[1] = ((closureN)self_731059)->elements[1];
c_731255.elements[2] = ((closureN)self_731059)->elements[2];
c_731255.elements[3] = ((closureN)self_731059)->elements[3];
c_731255.elements[4] = ((closureN)self_731059)->elements[4];
c_731255.elements[5] = ((closureN)self_731059)->elements[5];
c_731255.elements[6] = ((closureN)self_731059)->elements[6];
c_731255.elements[7] = ((closureN)self_731059)->elements[7];
c_731255.elements[8] = ((closureN)self_731059)->elements[8];
c_731255.elements[9] = ((closureN)self_731059)->elements[9];
c_731255.elements[10] = ((closureN)self_731059)->elements[10];
c_731255.elements[11] = ((closureN)self_731059)->elements[11];
c_731255.elements[12] = ((closureN)self_731059)->elements[12];
c_731255.elements[13] = ((closureN)self_731059)->elements[13];
c_731255.elements[14] = ((closureN)self_731059)->elements[14];
c_731255.elements[15] = ((closureN)self_731059)->elements[15];
c_731255.elements[16] = ((closureN)self_731059)->elements[16];
c_731255.elements[17] = ((closureN)self_731059)->elements[17];
c_731255.elements[18] = ((closureN)self_731059)->elements[18];
c_731255.elements[19] = ((closureN)self_731059)->elements[19];



return_direct_with_clo1(data,(closure)&c_731255,__lambda_39,  Cyc_set_cell(data, ((closureN)self_731059)->elements[11], r_73585));; 
}

static void __lambda_39(void *data, object self_731060, int argc, object *args) /* object self_731060, object r_73526 */
 {

  
closureN_type c_731257;
object e_731522 [20];
c_731257.hdr.mark = gc_color_red;
 c_731257.hdr.grayed = 0;
c_731257.tag = closureN_tag;
 c_731257.fn = (function_type)__lambda_40;
c_731257.num_args = 1;
c_731257.num_elements = 20;
c_731257.elements = (object *)e_731522;
c_731257.elements[0] = ((closureN)self_731060)->elements[0];
c_731257.elements[1] = ((closureN)self_731060)->elements[1];
c_731257.elements[2] = ((closureN)self_731060)->elements[2];
c_731257.elements[3] = ((closureN)self_731060)->elements[3];
c_731257.elements[4] = ((closureN)self_731060)->elements[4];
c_731257.elements[5] = ((closureN)self_731060)->elements[5];
c_731257.elements[6] = ((closureN)self_731060)->elements[6];
c_731257.elements[7] = ((closureN)self_731060)->elements[7];
c_731257.elements[8] = ((closureN)self_731060)->elements[8];
c_731257.elements[9] = ((closureN)self_731060)->elements[9];
c_731257.elements[10] = ((closureN)self_731060)->elements[10];
c_731257.elements[11] = ((closureN)self_731060)->elements[11];
c_731257.elements[12] = ((closureN)self_731060)->elements[12];
c_731257.elements[13] = ((closureN)self_731060)->elements[13];
c_731257.elements[14] = ((closureN)self_731060)->elements[14];
c_731257.elements[15] = ((closureN)self_731060)->elements[15];
c_731257.elements[16] = ((closureN)self_731060)->elements[16];
c_731257.elements[17] = ((closureN)self_731060)->elements[17];
c_731257.elements[18] = ((closureN)self_731060)->elements[18];
c_731257.elements[19] = ((closureN)self_731060)->elements[19];


closureN_type c_731523;
object e_731531 [2];
c_731523.hdr.mark = gc_color_red;
 c_731523.hdr.grayed = 0;
c_731523.tag = closureN_tag;
 c_731523.fn = (function_type)__lambda_69;
c_731523.num_args = 3;
c_731523.num_elements = 2;
c_731523.elements = (object *)e_731531;
c_731523.elements[0] = ((closureN)self_731060)->elements[14];
c_731523.elements[1] = ((closureN)self_731060)->elements[16];

return_direct_with_clo1(data,(closure)&c_731257,__lambda_40,  &c_731523);; 
}

static void __lambda_69(void *data, object self_731061, int argc, object *args) /* object self_731061, object k_73584, object expr_73241_73471, object col_73242_73472, object extra_73243_73473 */
 {
 object k_73584 = args[0]; object expr_73241_73471 = args[1]; object col_73242_73472 = args[2]; object extra_73243_73473 = args[3];
  



return_closcall5(data,  car(((closureN)self_731061)->elements[0]),  k_73584, expr_73241_73471, col_73242_73472, extra_73243_73473, car(((closureN)self_731061)->elements[1]));; 
}

static void __lambda_40(void *data, object self_731062, int argc, object *args) /* object self_731062, object r_73583 */
 {
 object r_73583 = args[0];
  
closureN_type c_731259;
object e_731518 [20];
c_731259.hdr.mark = gc_color_red;
 c_731259.hdr.grayed = 0;
c_731259.tag = closureN_tag;
 c_731259.fn = (function_type)__lambda_41;
c_731259.num_args = 1;
c_731259.num_elements = 20;
c_731259.elements = (object *)e_731518;
c_731259.elements[0] = ((closureN)self_731062)->elements[0];
c_731259.elements[1] = ((closureN)self_731062)->elements[1];
c_731259.elements[2] = ((closureN)self_731062)->elements[2];
c_731259.elements[3] = ((closureN)self_731062)->elements[3];
c_731259.elements[4] = ((closureN)self_731062)->elements[4];
c_731259.elements[5] = ((closureN)self_731062)->elements[5];
c_731259.elements[6] = ((closureN)self_731062)->elements[6];
c_731259.elements[7] = ((closureN)self_731062)->elements[7];
c_731259.elements[8] = ((closureN)self_731062)->elements[8];
c_731259.elements[9] = ((closureN)self_731062)->elements[9];
c_731259.elements[10] = ((closureN)self_731062)->elements[10];
c_731259.elements[11] = ((closureN)self_731062)->elements[11];
c_731259.elements[12] = ((closureN)self_731062)->elements[12];
c_731259.elements[13] = ((closureN)self_731062)->elements[13];
c_731259.elements[14] = ((closureN)self_731062)->elements[14];
c_731259.elements[15] = ((closureN)self_731062)->elements[15];
c_731259.elements[16] = ((closureN)self_731062)->elements[16];
c_731259.elements[17] = ((closureN)self_731062)->elements[17];
c_731259.elements[18] = ((closureN)self_731062)->elements[18];
c_731259.elements[19] = ((closureN)self_731062)->elements[19];



return_direct_with_clo1(data,(closure)&c_731259,__lambda_41,  Cyc_set_cell(data, ((closureN)self_731062)->elements[9], r_73583));; 
}

static void __lambda_41(void *data, object self_731063, int argc, object *args) /* object self_731063, object r_73527 */
 {

  
closureN_type c_731261;
object e_731505 [20];
c_731261.hdr.mark = gc_color_red;
 c_731261.hdr.grayed = 0;
c_731261.tag = closureN_tag;
 c_731261.fn = (function_type)__lambda_42;
c_731261.num_args = 1;
c_731261.num_elements = 20;
c_731261.elements = (object *)e_731505;
c_731261.elements[0] = ((closureN)self_731063)->elements[0];
c_731261.elements[1] = ((closureN)self_731063)->elements[1];
c_731261.elements[2] = ((closureN)self_731063)->elements[2];
c_731261.elements[3] = ((closureN)self_731063)->elements[3];
c_731261.elements[4] = ((closureN)self_731063)->elements[4];
c_731261.elements[5] = ((closureN)self_731063)->elements[5];
c_731261.elements[6] = ((closureN)self_731063)->elements[6];
c_731261.elements[7] = ((closureN)self_731063)->elements[7];
c_731261.elements[8] = ((closureN)self_731063)->elements[8];
c_731261.elements[9] = ((closureN)self_731063)->elements[9];
c_731261.elements[10] = ((closureN)self_731063)->elements[10];
c_731261.elements[11] = ((closureN)self_731063)->elements[11];
c_731261.elements[12] = ((closureN)self_731063)->elements[12];
c_731261.elements[13] = ((closureN)self_731063)->elements[13];
c_731261.elements[14] = ((closureN)self_731063)->elements[14];
c_731261.elements[15] = ((closureN)self_731063)->elements[15];
c_731261.elements[16] = ((closureN)self_731063)->elements[16];
c_731261.elements[17] = ((closureN)self_731063)->elements[17];
c_731261.elements[18] = ((closureN)self_731063)->elements[18];
c_731261.elements[19] = ((closureN)self_731063)->elements[19];


closureN_type c_731506;
object e_731517 [3];
c_731506.hdr.mark = gc_color_red;
 c_731506.hdr.grayed = 0;
c_731506.tag = closureN_tag;
 c_731506.fn = (function_type)__lambda_68;
c_731506.num_args = 3;
c_731506.num_elements = 3;
c_731506.elements = (object *)e_731517;
c_731506.elements[0] = ((closureN)self_731063)->elements[15];
c_731506.elements[1] = ((closureN)self_731063)->elements[16];
c_731506.elements[2] = ((closureN)self_731063)->elements[17];

return_direct_with_clo1(data,(closure)&c_731261,__lambda_42,  &c_731506);; 
}

static void __lambda_68(void *data, object self_731064, int argc, object *args) /* object self_731064, object k_73582, object expr_73244_73474, object col_73245_73475, object extra_73246_73476 */
 {
 object k_73582 = args[0]; object expr_73244_73474 = args[1]; object col_73245_73475 = args[2]; object extra_73246_73476 = args[3];
  





return_closcall8(data,  car(((closureN)self_731064)->elements[2]),  k_73582, expr_73244_73474, col_73245_73475, extra_73246_73476, boolean_f, car(((closureN)self_731064)->elements[0]), boolean_f, car(((closureN)self_731064)->elements[1]));; 
}

static void __lambda_42(void *data, object self_731065, int argc, object *args) /* object self_731065, object r_73581 */
 {
 object r_73581 = args[0];
  
closureN_type c_731263;
object e_731501 [20];
c_731263.hdr.mark = gc_color_red;
 c_731263.hdr.grayed = 0;
c_731263.tag = closureN_tag;
 c_731263.fn = (function_type)__lambda_43;
c_731263.num_args = 1;
c_731263.num_elements = 20;
c_731263.elements = (object *)e_731501;
c_731263.elements[0] = ((closureN)self_731065)->elements[0];
c_731263.elements[1] = ((closureN)self_731065)->elements[1];
c_731263.elements[2] = ((closureN)self_731065)->elements[2];
c_731263.elements[3] = ((closureN)self_731065)->elements[3];
c_731263.elements[4] = ((closureN)self_731065)->elements[4];
c_731263.elements[5] = ((closureN)self_731065)->elements[5];
c_731263.elements[6] = ((closureN)self_731065)->elements[6];
c_731263.elements[7] = ((closureN)self_731065)->elements[7];
c_731263.elements[8] = ((closureN)self_731065)->elements[8];
c_731263.elements[9] = ((closureN)self_731065)->elements[9];
c_731263.elements[10] = ((closureN)self_731065)->elements[10];
c_731263.elements[11] = ((closureN)self_731065)->elements[11];
c_731263.elements[12] = ((closureN)self_731065)->elements[12];
c_731263.elements[13] = ((closureN)self_731065)->elements[13];
c_731263.elements[14] = ((closureN)self_731065)->elements[14];
c_731263.elements[15] = ((closureN)self_731065)->elements[15];
c_731263.elements[16] = ((closureN)self_731065)->elements[16];
c_731263.elements[17] = ((closureN)self_731065)->elements[17];
c_731263.elements[18] = ((closureN)self_731065)->elements[18];
c_731263.elements[19] = ((closureN)self_731065)->elements[19];



return_direct_with_clo1(data,(closure)&c_731263,__lambda_43,  Cyc_set_cell(data, ((closureN)self_731065)->elements[8], r_73581));; 
}

static void __lambda_43(void *data, object self_731066, int argc, object *args) /* object self_731066, object r_73528 */
 {

  
closureN_type c_731265;
object e_731491 [19];
c_731265.hdr.mark = gc_color_red;
 c_731265.hdr.grayed = 0;
c_731265.tag = closureN_tag;
 c_731265.fn = (function_type)__lambda_44;
c_731265.num_args = 1;
c_731265.num_elements = 19;
c_731265.elements = (object *)e_731491;
c_731265.elements[0] = ((closureN)self_731066)->elements[0];
c_731265.elements[1] = ((closureN)self_731066)->elements[1];
c_731265.elements[2] = ((closureN)self_731066)->elements[2];
c_731265.elements[3] = ((closureN)self_731066)->elements[3];
c_731265.elements[4] = ((closureN)self_731066)->elements[4];
c_731265.elements[5] = ((closureN)self_731066)->elements[5];
c_731265.elements[6] = ((closureN)self_731066)->elements[6];
c_731265.elements[7] = ((closureN)self_731066)->elements[7];
c_731265.elements[8] = ((closureN)self_731066)->elements[8];
c_731265.elements[9] = ((closureN)self_731066)->elements[9];
c_731265.elements[10] = ((closureN)self_731066)->elements[10];
c_731265.elements[11] = ((closureN)self_731066)->elements[11];
c_731265.elements[12] = ((closureN)self_731066)->elements[12];
c_731265.elements[13] = ((closureN)self_731066)->elements[13];
c_731265.elements[14] = ((closureN)self_731066)->elements[15];
c_731265.elements[15] = ((closureN)self_731066)->elements[16];
c_731265.elements[16] = ((closureN)self_731066)->elements[17];
c_731265.elements[17] = ((closureN)self_731066)->elements[18];
c_731265.elements[18] = ((closureN)self_731066)->elements[19];


closureN_type c_731492;
object e_731500 [2];
c_731492.hdr.mark = gc_color_red;
 c_731492.hdr.grayed = 0;
c_731492.tag = closureN_tag;
 c_731492.fn = (function_type)__lambda_67;
c_731492.num_args = 3;
c_731492.num_elements = 2;
c_731492.elements = (object *)e_731500;
c_731492.elements[0] = ((closureN)self_731066)->elements[14];
c_731492.elements[1] = ((closureN)self_731066)->elements[15];

return_direct_with_clo1(data,(closure)&c_731265,__lambda_44,  &c_731492);; 
}

static void __lambda_67(void *data, object self_731067, int argc, object *args) /* object self_731067, object k_73580, object expr_73247_73477, object col_73248_73478, object extra_73249_73479 */
 {
 object k_73580 = args[0]; object expr_73247_73477 = args[1]; object col_73248_73478 = args[2]; object extra_73249_73479 = args[3];
  



return_closcall5(data,  car(((closureN)self_731067)->elements[0]),  k_73580, expr_73247_73477, col_73248_73478, extra_73249_73479, car(((closureN)self_731067)->elements[1]));; 
}

static void __lambda_44(void *data, object self_731068, int argc, object *args) /* object self_731068, object r_73579 */
 {
 object r_73579 = args[0];
  
closureN_type c_731267;
object e_731487 [19];
c_731267.hdr.mark = gc_color_red;
 c_731267.hdr.grayed = 0;
c_731267.tag = closureN_tag;
 c_731267.fn = (function_type)__lambda_45;
c_731267.num_args = 1;
c_731267.num_elements = 19;
c_731267.elements = (object *)e_731487;
c_731267.elements[0] = ((closureN)self_731068)->elements[0];
c_731267.elements[1] = ((closureN)self_731068)->elements[1];
c_731267.elements[2] = ((closureN)self_731068)->elements[2];
c_731267.elements[3] = ((closureN)self_731068)->elements[3];
c_731267.elements[4] = ((closureN)self_731068)->elements[4];
c_731267.elements[5] = ((closureN)self_731068)->elements[5];
c_731267.elements[6] = ((closureN)self_731068)->elements[6];
c_731267.elements[7] = ((closureN)self_731068)->elements[7];
c_731267.elements[8] = ((closureN)self_731068)->elements[8];
c_731267.elements[9] = ((closureN)self_731068)->elements[9];
c_731267.elements[10] = ((closureN)self_731068)->elements[10];
c_731267.elements[11] = ((closureN)self_731068)->elements[11];
c_731267.elements[12] = ((closureN)self_731068)->elements[12];
c_731267.elements[13] = ((closureN)self_731068)->elements[13];
c_731267.elements[14] = ((closureN)self_731068)->elements[14];
c_731267.elements[15] = ((closureN)self_731068)->elements[15];
c_731267.elements[16] = ((closureN)self_731068)->elements[16];
c_731267.elements[17] = ((closureN)self_731068)->elements[17];
c_731267.elements[18] = ((closureN)self_731068)->elements[18];



return_direct_with_clo1(data,(closure)&c_731267,__lambda_45,  Cyc_set_cell(data, ((closureN)self_731068)->elements[6], r_73579));; 
}

static void __lambda_45(void *data, object self_731069, int argc, object *args) /* object self_731069, object r_73529 */
 {

  
closureN_type c_731269;
object e_731456 [19];
c_731269.hdr.mark = gc_color_red;
 c_731269.hdr.grayed = 0;
c_731269.tag = closureN_tag;
 c_731269.fn = (function_type)__lambda_46;
c_731269.num_args = 1;
c_731269.num_elements = 19;
c_731269.elements = (object *)e_731456;
c_731269.elements[0] = ((closureN)self_731069)->elements[0];
c_731269.elements[1] = ((closureN)self_731069)->elements[1];
c_731269.elements[2] = ((closureN)self_731069)->elements[2];
c_731269.elements[3] = ((closureN)self_731069)->elements[3];
c_731269.elements[4] = ((closureN)self_731069)->elements[4];
c_731269.elements[5] = ((closureN)self_731069)->elements[5];
c_731269.elements[6] = ((closureN)self_731069)->elements[6];
c_731269.elements[7] = ((closureN)self_731069)->elements[7];
c_731269.elements[8] = ((closureN)self_731069)->elements[8];
c_731269.elements[9] = ((closureN)self_731069)->elements[9];
c_731269.elements[10] = ((closureN)self_731069)->elements[10];
c_731269.elements[11] = ((closureN)self_731069)->elements[11];
c_731269.elements[12] = ((closureN)self_731069)->elements[12];
c_731269.elements[13] = ((closureN)self_731069)->elements[13];
c_731269.elements[14] = ((closureN)self_731069)->elements[14];
c_731269.elements[15] = ((closureN)self_731069)->elements[15];
c_731269.elements[16] = ((closureN)self_731069)->elements[16];
c_731269.elements[17] = ((closureN)self_731069)->elements[17];
c_731269.elements[18] = ((closureN)self_731069)->elements[18];


closureN_type c_731457;
object e_731486 [3];
c_731457.hdr.mark = gc_color_red;
 c_731457.hdr.grayed = 0;
c_731457.tag = closureN_tag;
 c_731457.fn = (function_type)__lambda_65;
c_731457.num_args = 3;
c_731457.num_elements = 3;
c_731457.elements = (object *)e_731486;
c_731457.elements[0] = ((closureN)self_731069)->elements[14];
c_731457.elements[1] = ((closureN)self_731069)->elements[15];
c_731457.elements[2] = ((closureN)self_731069)->elements[16];

return_direct_with_clo1(data,(closure)&c_731269,__lambda_46,  &c_731457);; 
}

static void __lambda_65(void *data, object self_731070, int argc, object *args) /* object self_731070, object k_73573, object expr_73250_73480, object col_73251_73481, object extra_73252_73482 */
 {
 object k_73573 = args[0]; object expr_73250_73480 = args[1]; object col_73251_73481 = args[2]; object extra_73252_73482 = args[3];
  
closureN_type c_731459;
object e_731483 [7];
c_731459.hdr.mark = gc_color_red;
 c_731459.hdr.grayed = 0;
c_731459.tag = closureN_tag;
 c_731459.fn = (function_type)__lambda_66;
c_731459.num_args = 1;
c_731459.num_elements = 7;
c_731459.elements = (object *)e_731483;
c_731459.elements[0] = col_73251_73481;
c_731459.elements[1] = expr_73250_73480;
c_731459.elements[2] = extra_73252_73482;
c_731459.elements[3] = k_73573;
c_731459.elements[4] = ((closureN)self_731070)->elements[0];
c_731459.elements[5] = ((closureN)self_731070)->elements[1];
c_731459.elements[6] = ((closureN)self_731070)->elements[2];



return_direct_with_clo1(data,(closure)&c_731459,__lambda_66,  Cyc_cdr(data, expr_73250_73480));; 
}

static void __lambda_66(void *data, object self_731071, int argc, object *args) /* object self_731071, object rest_73255_73483 */
 {
 object rest_73255_73483 = args[0];
  object named_127_73258_73484;
    
if( (boolean_f != Cyc_is_pair(rest_73255_73483)) ){ 
  
  
  named_127_73258_73484 = Cyc_is_symbol(Cyc_car(data, rest_73255_73483));
} else { 
  named_127_73258_73484 = boolean_f;}
;





return_closcall8(data,  car(((closureN)self_731071)->elements[6]),  ((closureN)self_731071)->elements[3], ((closureN)self_731071)->elements[1], ((closureN)self_731071)->elements[0], ((closureN)self_731071)->elements[2], named_127_73258_73484, car(((closureN)self_731071)->elements[5]), boolean_f, car(((closureN)self_731071)->elements[4]));; 
}

static void __lambda_46(void *data, object self_731072, int argc, object *args) /* object self_731072, object r_73572 */
 {
 object r_73572 = args[0];
  
closureN_type c_731271;
object e_731452 [19];
c_731271.hdr.mark = gc_color_red;
 c_731271.hdr.grayed = 0;
c_731271.tag = closureN_tag;
 c_731271.fn = (function_type)__lambda_47;
c_731271.num_args = 1;
c_731271.num_elements = 19;
c_731271.elements = (object *)e_731452;
c_731271.elements[0] = ((closureN)self_731072)->elements[0];
c_731271.elements[1] = ((closureN)self_731072)->elements[1];
c_731271.elements[2] = ((closureN)self_731072)->elements[2];
c_731271.elements[3] = ((closureN)self_731072)->elements[3];
c_731271.elements[4] = ((closureN)self_731072)->elements[4];
c_731271.elements[5] = ((closureN)self_731072)->elements[5];
c_731271.elements[6] = ((closureN)self_731072)->elements[6];
c_731271.elements[7] = ((closureN)self_731072)->elements[7];
c_731271.elements[8] = ((closureN)self_731072)->elements[8];
c_731271.elements[9] = ((closureN)self_731072)->elements[9];
c_731271.elements[10] = ((closureN)self_731072)->elements[10];
c_731271.elements[11] = ((closureN)self_731072)->elements[11];
c_731271.elements[12] = ((closureN)self_731072)->elements[12];
c_731271.elements[13] = ((closureN)self_731072)->elements[13];
c_731271.elements[14] = ((closureN)self_731072)->elements[14];
c_731271.elements[15] = ((closureN)self_731072)->elements[15];
c_731271.elements[16] = ((closureN)self_731072)->elements[16];
c_731271.elements[17] = ((closureN)self_731072)->elements[17];
c_731271.elements[18] = ((closureN)self_731072)->elements[18];



return_direct_with_clo1(data,(closure)&c_731271,__lambda_47,  Cyc_set_cell(data, ((closureN)self_731072)->elements[13], r_73572));; 
}

static void __lambda_47(void *data, object self_731073, int argc, object *args) /* object self_731073, object r_73530 */
 {

  
closureN_type c_731273;
object e_731442 [19];
c_731273.hdr.mark = gc_color_red;
 c_731273.hdr.grayed = 0;
c_731273.tag = closureN_tag;
 c_731273.fn = (function_type)__lambda_48;
c_731273.num_args = 1;
c_731273.num_elements = 19;
c_731273.elements = (object *)e_731442;
c_731273.elements[0] = ((closureN)self_731073)->elements[0];
c_731273.elements[1] = ((closureN)self_731073)->elements[1];
c_731273.elements[2] = ((closureN)self_731073)->elements[2];
c_731273.elements[3] = ((closureN)self_731073)->elements[3];
c_731273.elements[4] = ((closureN)self_731073)->elements[4];
c_731273.elements[5] = ((closureN)self_731073)->elements[5];
c_731273.elements[6] = ((closureN)self_731073)->elements[6];
c_731273.elements[7] = ((closureN)self_731073)->elements[7];
c_731273.elements[8] = ((closureN)self_731073)->elements[8];
c_731273.elements[9] = ((closureN)self_731073)->elements[9];
c_731273.elements[10] = ((closureN)self_731073)->elements[10];
c_731273.elements[11] = ((closureN)self_731073)->elements[11];
c_731273.elements[12] = ((closureN)self_731073)->elements[12];
c_731273.elements[13] = ((closureN)self_731073)->elements[13];
c_731273.elements[14] = ((closureN)self_731073)->elements[14];
c_731273.elements[15] = ((closureN)self_731073)->elements[15];
c_731273.elements[16] = ((closureN)self_731073)->elements[16];
c_731273.elements[17] = ((closureN)self_731073)->elements[17];
c_731273.elements[18] = ((closureN)self_731073)->elements[18];


closureN_type c_731443;
object e_731451 [2];
c_731443.hdr.mark = gc_color_red;
 c_731443.hdr.grayed = 0;
c_731443.tag = closureN_tag;
 c_731443.fn = (function_type)__lambda_64;
c_731443.num_args = 3;
c_731443.num_elements = 2;
c_731443.elements = (object *)e_731451;
c_731443.elements[0] = ((closureN)self_731073)->elements[14];
c_731443.elements[1] = ((closureN)self_731073)->elements[16];

return_direct_with_clo1(data,(closure)&c_731273,__lambda_48,  &c_731443);; 
}

static void __lambda_64(void *data, object self_731074, int argc, object *args) /* object self_731074, object k_73571, object expr_73261_73485, object col_73262_73486, object extra_73263_73487 */
 {
 object k_73571 = args[0]; object expr_73261_73485 = args[1]; object col_73262_73486 = args[2]; object extra_73263_73487 = args[3];
  



return_closcall8(data,  car(((closureN)self_731074)->elements[1]),  k_73571, expr_73261_73485, col_73262_73486, extra_73263_73487, boolean_f, boolean_f, boolean_f, car(((closureN)self_731074)->elements[0]));; 
}

static void __lambda_48(void *data, object self_731075, int argc, object *args) /* object self_731075, object r_73570 */
 {
 object r_73570 = args[0];
  
closureN_type c_731275;
object e_731438 [19];
c_731275.hdr.mark = gc_color_red;
 c_731275.hdr.grayed = 0;
c_731275.tag = closureN_tag;
 c_731275.fn = (function_type)__lambda_49;
c_731275.num_args = 1;
c_731275.num_elements = 19;
c_731275.elements = (object *)e_731438;
c_731275.elements[0] = ((closureN)self_731075)->elements[0];
c_731275.elements[1] = ((closureN)self_731075)->elements[1];
c_731275.elements[2] = ((closureN)self_731075)->elements[2];
c_731275.elements[3] = ((closureN)self_731075)->elements[3];
c_731275.elements[4] = ((closureN)self_731075)->elements[4];
c_731275.elements[5] = ((closureN)self_731075)->elements[5];
c_731275.elements[6] = ((closureN)self_731075)->elements[6];
c_731275.elements[7] = ((closureN)self_731075)->elements[7];
c_731275.elements[8] = ((closureN)self_731075)->elements[8];
c_731275.elements[9] = ((closureN)self_731075)->elements[9];
c_731275.elements[10] = ((closureN)self_731075)->elements[10];
c_731275.elements[11] = ((closureN)self_731075)->elements[11];
c_731275.elements[12] = ((closureN)self_731075)->elements[12];
c_731275.elements[13] = ((closureN)self_731075)->elements[13];
c_731275.elements[14] = ((closureN)self_731075)->elements[14];
c_731275.elements[15] = ((closureN)self_731075)->elements[15];
c_731275.elements[16] = ((closureN)self_731075)->elements[16];
c_731275.elements[17] = ((closureN)self_731075)->elements[17];
c_731275.elements[18] = ((closureN)self_731075)->elements[18];



return_direct_with_clo1(data,(closure)&c_731275,__lambda_49,  Cyc_set_cell(data, ((closureN)self_731075)->elements[7], r_73570));; 
}

static void __lambda_49(void *data, object self_731076, int argc, object *args) /* object self_731076, object r_73531 */
 {

  
closureN_type c_731277;
object e_731422 [17];
c_731277.hdr.mark = gc_color_red;
 c_731277.hdr.grayed = 0;
c_731277.tag = closureN_tag;
 c_731277.fn = (function_type)__lambda_50;
c_731277.num_args = 1;
c_731277.num_elements = 17;
c_731277.elements = (object *)e_731422;
c_731277.elements[0] = ((closureN)self_731076)->elements[0];
c_731277.elements[1] = ((closureN)self_731076)->elements[1];
c_731277.elements[2] = ((closureN)self_731076)->elements[2];
c_731277.elements[3] = ((closureN)self_731076)->elements[3];
c_731277.elements[4] = ((closureN)self_731076)->elements[4];
c_731277.elements[5] = ((closureN)self_731076)->elements[5];
c_731277.elements[6] = ((closureN)self_731076)->elements[6];
c_731277.elements[7] = ((closureN)self_731076)->elements[7];
c_731277.elements[8] = ((closureN)self_731076)->elements[8];
c_731277.elements[9] = ((closureN)self_731076)->elements[9];
c_731277.elements[10] = ((closureN)self_731076)->elements[10];
c_731277.elements[11] = ((closureN)self_731076)->elements[11];
c_731277.elements[12] = ((closureN)self_731076)->elements[12];
c_731277.elements[13] = ((closureN)self_731076)->elements[13];
c_731277.elements[14] = ((closureN)self_731076)->elements[14];
c_731277.elements[15] = ((closureN)self_731076)->elements[17];
c_731277.elements[16] = ((closureN)self_731076)->elements[18];


closureN_type c_731423;
object e_731437 [3];
c_731423.hdr.mark = gc_color_red;
 c_731423.hdr.grayed = 0;
c_731423.tag = closureN_tag;
 c_731423.fn = (function_type)__lambda_63;
c_731423.num_args = 3;
c_731423.num_elements = 3;
c_731423.elements = (object *)e_731437;
c_731423.elements[0] = ((closureN)self_731076)->elements[14];
c_731423.elements[1] = ((closureN)self_731076)->elements[15];
c_731423.elements[2] = ((closureN)self_731076)->elements[16];

return_direct_with_clo1(data,(closure)&c_731277,__lambda_50,  &c_731423);; 
}

static void __lambda_63(void *data, object self_731077, int argc, object *args) /* object self_731077, object k_73569, object expr_73264_73488, object col_73265_73489, object extra_73266_73490 */
 {
 object k_73569 = args[0]; object expr_73264_73488 = args[1]; object col_73265_73489 = args[2]; object extra_73266_73490 = args[3];
  







return_closcall8(data,  car(((closureN)self_731077)->elements[2]),  k_73569, expr_73264_73488, col_73265_73489, extra_73266_73490, boolean_f, car(((closureN)self_731077)->elements[1]), car(((closureN)self_731077)->elements[1]), car(((closureN)self_731077)->elements[0]));; 
}

static void __lambda_50(void *data, object self_731078, int argc, object *args) /* object self_731078, object r_73568 */
 {
 object r_73568 = args[0];
  
closureN_type c_731279;
object e_731418 [17];
c_731279.hdr.mark = gc_color_red;
 c_731279.hdr.grayed = 0;
c_731279.tag = closureN_tag;
 c_731279.fn = (function_type)__lambda_51;
c_731279.num_args = 1;
c_731279.num_elements = 17;
c_731279.elements = (object *)e_731418;
c_731279.elements[0] = ((closureN)self_731078)->elements[0];
c_731279.elements[1] = ((closureN)self_731078)->elements[1];
c_731279.elements[2] = ((closureN)self_731078)->elements[2];
c_731279.elements[3] = ((closureN)self_731078)->elements[3];
c_731279.elements[4] = ((closureN)self_731078)->elements[4];
c_731279.elements[5] = ((closureN)self_731078)->elements[5];
c_731279.elements[6] = ((closureN)self_731078)->elements[6];
c_731279.elements[7] = ((closureN)self_731078)->elements[7];
c_731279.elements[8] = ((closureN)self_731078)->elements[8];
c_731279.elements[9] = ((closureN)self_731078)->elements[9];
c_731279.elements[10] = ((closureN)self_731078)->elements[10];
c_731279.elements[11] = ((closureN)self_731078)->elements[11];
c_731279.elements[12] = ((closureN)self_731078)->elements[12];
c_731279.elements[13] = ((closureN)self_731078)->elements[13];
c_731279.elements[14] = ((closureN)self_731078)->elements[14];
c_731279.elements[15] = ((closureN)self_731078)->elements[15];
c_731279.elements[16] = ((closureN)self_731078)->elements[16];



return_direct_with_clo1(data,(closure)&c_731279,__lambda_51,  Cyc_set_cell(data, ((closureN)self_731078)->elements[10], r_73568));; 
}

static void __lambda_51(void *data, object self_731079, int argc, object *args) /* object self_731079, object r_73532 */
 {

  
closureN_type c_731281;
object e_731414 [16];
c_731281.hdr.mark = gc_color_red;
 c_731281.hdr.grayed = 0;
c_731281.tag = closureN_tag;
 c_731281.fn = (function_type)__lambda_52;
c_731281.num_args = 1;
c_731281.num_elements = 16;
c_731281.elements = (object *)e_731414;
c_731281.elements[0] = ((closureN)self_731079)->elements[0];
c_731281.elements[1] = ((closureN)self_731079)->elements[2];
c_731281.elements[2] = ((closureN)self_731079)->elements[3];
c_731281.elements[3] = ((closureN)self_731079)->elements[4];
c_731281.elements[4] = ((closureN)self_731079)->elements[5];
c_731281.elements[5] = ((closureN)self_731079)->elements[6];
c_731281.elements[6] = ((closureN)self_731079)->elements[7];
c_731281.elements[7] = ((closureN)self_731079)->elements[8];
c_731281.elements[8] = ((closureN)self_731079)->elements[9];
c_731281.elements[9] = ((closureN)self_731079)->elements[10];
c_731281.elements[10] = ((closureN)self_731079)->elements[11];
c_731281.elements[11] = ((closureN)self_731079)->elements[12];
c_731281.elements[12] = ((closureN)self_731079)->elements[13];
c_731281.elements[13] = ((closureN)self_731079)->elements[14];
c_731281.elements[14] = ((closureN)self_731079)->elements[15];
c_731281.elements[15] = ((closureN)self_731079)->elements[16];



return_direct_with_clo1(data,(closure)&c_731281,__lambda_52,  Cyc_set_cell(data, ((closureN)self_731079)->elements[1], obj_int2obj(2)));; 
}

static void __lambda_52(void *data, object self_731080, int argc, object *args) /* object self_731080, object r_73533 */
 {

  
closureN_type c_731283;
object e_731410 [15];
c_731283.hdr.mark = gc_color_red;
 c_731283.hdr.grayed = 0;
c_731283.tag = closureN_tag;
 c_731283.fn = (function_type)__lambda_53;
c_731283.num_args = 1;
c_731283.num_elements = 15;
c_731283.elements = (object *)e_731410;
c_731283.elements[0] = ((closureN)self_731080)->elements[0];
c_731283.elements[1] = ((closureN)self_731080)->elements[1];
c_731283.elements[2] = ((closureN)self_731080)->elements[3];
c_731283.elements[3] = ((closureN)self_731080)->elements[4];
c_731283.elements[4] = ((closureN)self_731080)->elements[5];
c_731283.elements[5] = ((closureN)self_731080)->elements[6];
c_731283.elements[6] = ((closureN)self_731080)->elements[7];
c_731283.elements[7] = ((closureN)self_731080)->elements[8];
c_731283.elements[8] = ((closureN)self_731080)->elements[9];
c_731283.elements[9] = ((closureN)self_731080)->elements[10];
c_731283.elements[10] = ((closureN)self_731080)->elements[11];
c_731283.elements[11] = ((closureN)self_731080)->elements[12];
c_731283.elements[12] = ((closureN)self_731080)->elements[13];
c_731283.elements[13] = ((closureN)self_731080)->elements[14];
c_731283.elements[14] = ((closureN)self_731080)->elements[15];



return_direct_with_clo1(data,(closure)&c_731283,__lambda_53,  Cyc_set_cell(data, ((closureN)self_731080)->elements[2], obj_int2obj(5)));; 
}

static void __lambda_53(void *data, object self_731081, int argc, object *args) /* object self_731081, object r_73534 */
 {

  
closureN_type c_731285;
object e_731406 [14];
c_731285.hdr.mark = gc_color_red;
 c_731285.hdr.grayed = 0;
c_731285.tag = closureN_tag;
 c_731285.fn = (function_type)__lambda_54;
c_731285.num_args = 1;
c_731285.num_elements = 14;
c_731285.elements = (object *)e_731406;
c_731285.elements[0] = ((closureN)self_731081)->elements[0];
c_731285.elements[1] = ((closureN)self_731081)->elements[1];
c_731285.elements[2] = ((closureN)self_731081)->elements[3];
c_731285.elements[3] = ((closureN)self_731081)->elements[4];
c_731285.elements[4] = ((closureN)self_731081)->elements[5];
c_731285.elements[5] = ((closureN)self_731081)->elements[6];
c_731285.elements[6] = ((closureN)self_731081)->elements[7];
c_731285.elements[7] = ((closureN)self_731081)->elements[8];
c_731285.elements[8] = ((closureN)self_731081)->elements[9];
c_731285.elements[9] = ((closureN)self_731081)->elements[10];
c_731285.elements[10] = ((closureN)self_731081)->elements[11];
c_731285.elements[11] = ((closureN)self_731081)->elements[12];
c_731285.elements[12] = ((closureN)self_731081)->elements[13];
c_731285.elements[13] = ((closureN)self_731081)->elements[14];



return_direct_with_clo1(data,(closure)&c_731285,__lambda_54,  Cyc_set_cell(data, ((closureN)self_731081)->elements[2], obj_int2obj(50)));; 
}

static void __lambda_54(void *data, object self_731082, int argc, object *args) /* object self_731082, object r_73535 */
 {

  
closureN_type c_731287;
object e_731304 [6];
c_731287.hdr.mark = gc_color_red;
 c_731287.hdr.grayed = 0;
c_731287.tag = closureN_tag;
 c_731287.fn = (function_type)__lambda_55;
c_731287.num_args = 1;
c_731287.num_elements = 6;
c_731287.elements = (object *)e_731304;
c_731287.elements[0] = ((closureN)self_731082)->elements[0];
c_731287.elements[1] = ((closureN)self_731082)->elements[1];
c_731287.elements[2] = ((closureN)self_731082)->elements[2];
c_731287.elements[3] = ((closureN)self_731082)->elements[11];
c_731287.elements[4] = ((closureN)self_731082)->elements[12];
c_731287.elements[5] = ((closureN)self_731082)->elements[13];


closureN_type c_731305;
object e_731405 [8];
c_731305.hdr.mark = gc_color_red;
 c_731305.hdr.grayed = 0;
c_731305.tag = closureN_tag;
 c_731305.fn = (function_type)__lambda_57;
c_731305.num_args = 1;
c_731305.num_elements = 8;
c_731305.elements = (object *)e_731405;
c_731305.elements[0] = ((closureN)self_731082)->elements[3];
c_731305.elements[1] = ((closureN)self_731082)->elements[4];
c_731305.elements[2] = ((closureN)self_731082)->elements[5];
c_731305.elements[3] = ((closureN)self_731082)->elements[6];
c_731305.elements[4] = ((closureN)self_731082)->elements[7];
c_731305.elements[5] = ((closureN)self_731082)->elements[8];
c_731305.elements[6] = ((closureN)self_731082)->elements[9];
c_731305.elements[7] = ((closureN)self_731082)->elements[10];

return_direct_with_clo1(data,(closure)&c_731287,__lambda_55,  &c_731305);; 
}

static void __lambda_57(void *data, object self_731083, int argc, object *args) /* object self_731083, object k_73538, object head_73267_73491 */
 {
 object k_73538 = args[0]; object head_73267_73491 = args[1];
  
closureN_type c_731307;
object e_731404 [9];
c_731307.hdr.mark = gc_color_red;
 c_731307.hdr.grayed = 0;
c_731307.tag = closureN_tag;
 c_731307.fn = (function_type)__lambda_58;
c_731307.num_args = 1;
c_731307.num_elements = 9;
c_731307.elements = (object *)e_731404;
c_731307.elements[0] = k_73538;
c_731307.elements[1] = ((closureN)self_731083)->elements[0];
c_731307.elements[2] = ((closureN)self_731083)->elements[1];
c_731307.elements[3] = ((closureN)self_731083)->elements[2];
c_731307.elements[4] = ((closureN)self_731083)->elements[3];
c_731307.elements[5] = ((closureN)self_731083)->elements[4];
c_731307.elements[6] = ((closureN)self_731083)->elements[5];
c_731307.elements[7] = ((closureN)self_731083)->elements[6];
c_731307.elements[8] = ((closureN)self_731083)->elements[7];

return_direct_with_clo1(data,(closure)&c_731307,__lambda_58,  head_73267_73491);; 
}

static void __lambda_58(void *data, object self_731084, int argc, object *args) /* object self_731084, object tmp_73268_73271_73492 */
 {
 object tmp_73268_73271_73492 = args[0];
  object r_73539;
    
if( (boolean_f != Cyc_eq(tmp_73268_73271_73492, quote_lambda)) ){ 
  r_73539 = boolean_t;
} else { 
    
if( (boolean_f != Cyc_eq(tmp_73268_73271_73492, quote_let_85)) ){ 
  r_73539 = boolean_t;
} else { 
    
if( (boolean_f != Cyc_eq(tmp_73268_73271_73492, quote_letrec)) ){ 
  r_73539 = boolean_t;
} else { 
  
  r_73539 = Cyc_eq(tmp_73268_73271_73492, quote_define);}
;}
;}
;if( (boolean_f != r_73539) ){ 
  

return_direct_with_clo1(data,  ((closureN)self_731084)->elements[0], (((closure)  ((closureN)self_731084)->elements[0])->fn),  car(((closureN)self_731084)->elements[7]));
} else { 
  
closureN_type c_731327;
object e_731336 [1];
c_731327.hdr.mark = gc_color_red;
 c_731327.hdr.grayed = 0;
c_731327.tag = closureN_tag;
 c_731327.fn = (function_type)__lambda_59;
c_731327.num_args = 0;
c_731327.num_elements = 1;
c_731327.elements = (object *)e_731336;
c_731327.elements[0] = tmp_73268_73271_73492;


closureN_type c_731337;
object e_731403 [9];
c_731337.hdr.mark = gc_color_red;
 c_731337.hdr.grayed = 0;
c_731337.tag = closureN_tag;
 c_731337.fn = (function_type)__lambda_60;
c_731337.num_args = 1;
c_731337.num_elements = 9;
c_731337.elements = (object *)e_731403;
c_731337.elements[0] = ((closureN)self_731084)->elements[0];
c_731337.elements[1] = ((closureN)self_731084)->elements[1];
c_731337.elements[2] = ((closureN)self_731084)->elements[2];
c_731337.elements[3] = ((closureN)self_731084)->elements[3];
c_731337.elements[4] = ((closureN)self_731084)->elements[4];
c_731337.elements[5] = ((closureN)self_731084)->elements[5];
c_731337.elements[6] = ((closureN)self_731084)->elements[6];
c_731337.elements[7] = ((closureN)self_731084)->elements[8];
c_731337.elements[8] = tmp_73268_73271_73492;

return_direct_with_clo1(data,(closure)&c_731327,__lambda_59,  &c_731337);}
;; 
}

static void __lambda_60(void *data, object self_731085, int argc, object *args) /* object self_731085, object r_73540 */
 {
 object r_73540 = args[0];
  if( (boolean_f != r_73540) ){ 
  

return_direct_with_clo1(data,  ((closureN)self_731085)->elements[0], (((closure)  ((closureN)self_731085)->elements[0])->fn),  car(((closureN)self_731085)->elements[6]));
} else { 
    
if( (boolean_f != Cyc_eqv(((closureN)self_731085)->elements[8], quote_cond)) ){ 
  

return_direct_with_clo1(data,  ((closureN)self_731085)->elements[0], (((closure)  ((closureN)self_731085)->elements[0])->fn),  car(((closureN)self_731085)->elements[4]));
} else { 
    
if( (boolean_f != Cyc_eqv(((closureN)self_731085)->elements[8], quote__case)) ){ 
  

return_direct_with_clo1(data,  ((closureN)self_731085)->elements[0], (((closure)  ((closureN)self_731085)->elements[0])->fn),  car(((closureN)self_731085)->elements[3]));
} else { 
  
closureN_type c_731360;
object e_731369 [1];
c_731360.hdr.mark = gc_color_red;
 c_731360.hdr.grayed = 0;
c_731360.tag = closureN_tag;
 c_731360.fn = (function_type)__lambda_61;
c_731360.num_args = 0;
c_731360.num_elements = 1;
c_731360.elements = (object *)e_731369;
c_731360.elements[0] = ((closureN)self_731085)->elements[8];


closureN_type c_731370;
object e_731402 [6];
c_731370.hdr.mark = gc_color_red;
 c_731370.hdr.grayed = 0;
c_731370.tag = closureN_tag;
 c_731370.fn = (function_type)__lambda_62;
c_731370.num_args = 1;
c_731370.num_elements = 6;
c_731370.elements = (object *)e_731402;
c_731370.elements[0] = ((closureN)self_731085)->elements[0];
c_731370.elements[1] = ((closureN)self_731085)->elements[1];
c_731370.elements[2] = ((closureN)self_731085)->elements[2];
c_731370.elements[3] = ((closureN)self_731085)->elements[5];
c_731370.elements[4] = ((closureN)self_731085)->elements[7];
c_731370.elements[5] = ((closureN)self_731085)->elements[8];

return_direct_with_clo1(data,(closure)&c_731360,__lambda_61,  &c_731370);}
;}
;}
;; 
}

static void __lambda_62(void *data, object self_731086, int argc, object *args) /* object self_731086, object r_73543 */
 {
 object r_73543 = args[0];
  if( (boolean_f != r_73543) ){ 
  

return_direct_with_clo1(data,  ((closureN)self_731086)->elements[0], (((closure)  ((closureN)self_731086)->elements[0])->fn),  car(((closureN)self_731086)->elements[1]));
} else { 
    
if( (boolean_f != Cyc_eqv(((closureN)self_731086)->elements[5], quote_let)) ){ 
  

return_direct_with_clo1(data,  ((closureN)self_731086)->elements[0], (((closure)  ((closureN)self_731086)->elements[0])->fn),  car(((closureN)self_731086)->elements[4]));
} else { 
    
if( (boolean_f != Cyc_eqv(((closureN)self_731086)->elements[5], quote_begin)) ){ 
  

return_direct_with_clo1(data,  ((closureN)self_731086)->elements[0], (((closure)  ((closureN)self_731086)->elements[0])->fn),  car(((closureN)self_731086)->elements[2]));
} else { 
    
if( (boolean_f != Cyc_eqv(((closureN)self_731086)->elements[5], quote__do)) ){ 
  

return_direct_with_clo1(data,  ((closureN)self_731086)->elements[0], (((closure)  ((closureN)self_731086)->elements[0])->fn),  car(((closureN)self_731086)->elements[3]));
} else { 
  return_direct_with_clo1(data,  ((closureN)self_731086)->elements[0], (((closure)  ((closureN)self_731086)->elements[0])->fn),  boolean_f);}
;}
;}
;}
;; 
}

static void __lambda_61(void *data, object self_731087, int argc, object *args) /* object self_731087, object k_73550 */
 {
 object k_73550 = args[0];
    
if( (boolean_f != Cyc_eq(((closureN)self_731087)->elements[0], quote_and)) ){ 
  return_direct_with_clo1(data,  k_73550,__lambda_62,  boolean_t);
} else { 
  

return_direct_with_clo1(data,  k_73550,__lambda_62,  Cyc_eq(((closureN)self_731087)->elements[0], quote_or));}
;; 
}

static void __lambda_59(void *data, object self_731088, int argc, object *args) /* object self_731088, object k_73556 */
 {
 object k_73556 = args[0];
    
if( (boolean_f != Cyc_eq(((closureN)self_731088)->elements[0], quote__if)) ){ 
  return_direct_with_clo1(data,  k_73556,__lambda_60,  boolean_t);
} else { 
  

return_direct_with_clo1(data,  k_73556,__lambda_60,  Cyc_eq(((closureN)self_731088)->elements[0], quote_set_67));}
;; 
}

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



return_direct_with_clo1(data,(closure)&c_731289,__lambda_56,  Cyc_set_cell(data, ((closureN)self_731089)->elements[5], r_73537));; 
}

static void __lambda_56(void *data, object self_731090, int argc, object *args) /* object self_731090, object r_73536 */
 {

  



return_closcall5(data,  car(((closureN)self_731090)->elements[4]),  ((closureN)self_731090)->elements[1], ((closureN)self_731090)->elements[2], ((closureN)self_731090)->elements[0], obj_int2obj(0), car(((closureN)self_731090)->elements[3]));; 
}

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



return_direct_with_clo1(data,(closure)&c_731142,__lambda_14,  Cyc_set_cell(data, ((closureN)self_731091)->elements[3], r_73514));; 
}

static void __lambda_14(void *data, object self_731092, int argc, object *args) /* object self_731092, object r_73512 */
 {

  if( (boolean_f != ((closureN)self_731092)->elements[4]) ){ 
  


closureN_type c_731148;
object e_731154 [2];
c_731148.hdr.mark = gc_color_red;
 c_731148.hdr.grayed = 0;
c_731148.tag = closureN_tag;
 c_731148.fn = (function_type)__lambda_15;
c_731148.num_args = 1;
c_731148.num_elements = 2;
c_731148.elements = (object *)e_731154;
c_731148.elements[0] = ((closureN)self_731092)->elements[0];
c_731148.elements[1] = ((closureN)self_731092)->elements[2];

return_closcall3(data,  car(((closureN)self_731092)->elements[3]),  &c_731148, ((closureN)self_731092)->elements[1], obj_int2obj(0));
} else { 
  

return_closcall3(data,  car(((closureN)self_731092)->elements[5]),  ((closureN)self_731092)->elements[0], ((closureN)self_731092)->elements[1], obj_int2obj(0));}
;; 
}

static void __lambda_15(void *data, object self_731093, int argc, object *args) /* object self_731093, object r_73513 */
 {
 object r_73513 = args[0];
  

return_closcall3(data,  car(((closureN)self_731093)->elements[1]),  ((closureN)self_731093)->elements[0], __glo_genwrite_117newline_91str_scheme_cyclone_pretty_91print, r_73513);; 
}

void c_schemecyclonepretty_91print_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_schemecyclonepretty_91print_entry_pt_first_lambda(void *data, object clo, int argc, object *args){ 
Cyc_set_globals_changed((gc_thread_data *)data);
  quote_genwrite_117newline_91str = find_or_add_symbol("genwrite:newline-str");
  quote_spp = find_or_add_symbol("spp");
  quote_pretty_91print = find_or_add_symbol("pretty-print");
  quote_unquote_91splicing = find_or_add_symbol("unquote-splicing");
  quote_unquote = find_or_add_symbol("unquote");
  quote_quasiquote = find_or_add_symbol("quasiquote");
  quote_quote = find_or_add_symbol("quote");
  quote__do = find_or_add_symbol("do");
  quote_begin = find_or_add_symbol("begin");
  quote_let = find_or_add_symbol("let");
  quote_or = find_or_add_symbol("or");
  quote_and = find_or_add_symbol("and");
  quote__case = find_or_add_symbol("case");
  quote_cond = find_or_add_symbol("cond");
  quote_set_67 = find_or_add_symbol("set!");
  quote__if = find_or_add_symbol("if");
  quote_define = find_or_add_symbol("define");
  quote_letrec = find_or_add_symbol("letrec");
  quote_let_85 = find_or_add_symbol("let*");
  quote_lambda = find_or_add_symbol("lambda");

  add_global("__glo_lib_91init_117schemecyclonepretty_19191print_scheme_cyclone_pretty_91print", (object *) &__glo_lib_91init_117schemecyclonepretty_19191print_scheme_cyclone_pretty_91print);
  add_global("__glo_spp_scheme_cyclone_pretty_91print", (object *) &__glo_spp_scheme_cyclone_pretty_91print);
  add_global("__glo_sexp_91pretty_91print_scheme_cyclone_pretty_91print", (object *) &__glo_sexp_91pretty_91print_scheme_cyclone_pretty_91print);
  add_global("__glo_reverse_91string_91append_scheme_cyclone_pretty_91print", (object *) &__glo_reverse_91string_91append_scheme_cyclone_pretty_91print);
  add_global("__glo_generic_91write_scheme_cyclone_pretty_91print", (object *) &__glo_generic_91write_scheme_cyclone_pretty_91print);
  add_global("__glo_genwrite_117newline_91str_scheme_cyclone_pretty_91print", (object *) &__glo_genwrite_117newline_91str_scheme_cyclone_pretty_91print);
  add_global("__glo_pp_91width_scheme_cyclone_pretty_91print", (object *) &__glo_pp_91width_scheme_cyclone_pretty_91print);
  add_global("__glo_pretty_91print_scheme_cyclone_pretty_91print", (object *) &__glo_pretty_91print_scheme_cyclone_pretty_91print);
  mclosure0(c_733262, (function_type)__lambda_217);c_733262.num_args = 0; 
  __glo_lib_91init_117schemecyclonepretty_19191print_scheme_cyclone_pretty_91print = &c_733262; 
  mclosure0(c_733230, (function_type)__lambda_210);c_733230.num_args = 1; 
  __glo_sexp_91pretty_91print_scheme_cyclone_pretty_91print = &c_733230; 
  mclosure0(c_733221, (function_type)__lambda_208);c_733221.num_args = 1; 
  __glo_reverse_91string_91append_scheme_cyclone_pretty_91print = &c_733221; 
  mclosure0(c_731104, (function_type)__lambda_1);c_731104.num_args = 4; 
  __glo_generic_91write_scheme_cyclone_pretty_91print = &c_731104; 
  __glo_spp_scheme_cyclone_pretty_91print = boolean_f; 
  __glo_genwrite_117newline_91str_scheme_cyclone_pretty_91print = boolean_f; 
  __glo_pp_91width_scheme_cyclone_pretty_91print = obj_int2obj(80); 
  __glo_pretty_91print_scheme_cyclone_pretty_91print = boolean_f; 

  mclosure0(clo_733284, c_schemecyclonepretty_91print_inlinable_lambdas); make_pair(pair_733283, find_or_add_symbol("c_schemecyclonepretty_91print_inlinable_lambdas"), &clo_733284);
  make_cvar(cvar_733285, (object *)&__glo_lib_91init_117schemecyclonepretty_19191print_scheme_cyclone_pretty_91print);make_pair(pair_733286, find_or_add_symbol("lib-init:schemecyclonepretty_91print"), &cvar_733285);
  make_cvar(cvar_733287, (object *)&__glo_spp_scheme_cyclone_pretty_91print);make_pair(pair_733288, find_or_add_symbol("spp"), &cvar_733287);
  make_cvar(cvar_733289, (object *)&__glo_sexp_91pretty_91print_scheme_cyclone_pretty_91print);make_pair(pair_733290, find_or_add_symbol("sexp-pretty-print"), &cvar_733289);
  make_cvar(cvar_733291, (object *)&__glo_reverse_91string_91append_scheme_cyclone_pretty_91print);make_pair(pair_733292, find_or_add_symbol("reverse-string-append"), &cvar_733291);
  make_cvar(cvar_733293, (object *)&__glo_generic_91write_scheme_cyclone_pretty_91print);make_pair(pair_733294, find_or_add_symbol("generic-write"), &cvar_733293);
  make_cvar(cvar_733295, (object *)&__glo_genwrite_117newline_91str_scheme_cyclone_pretty_91print);make_pair(pair_733296, find_or_add_symbol("genwrite:newline-str"), &cvar_733295);
  make_cvar(cvar_733297, (object *)&__glo_pp_91width_scheme_cyclone_pretty_91print);make_pair(pair_733298, find_or_add_symbol("pp-width"), &cvar_733297);
  make_cvar(cvar_733299, (object *)&__glo_pretty_91print_scheme_cyclone_pretty_91print);make_pair(pair_733300, find_or_add_symbol("pretty-print"), &cvar_733299);
make_pair(c_733309, &pair_733283,Cyc_global_variables);
make_pair(c_733308, &pair_733286, &c_733309);
make_pair(c_733307, &pair_733288, &c_733308);
make_pair(c_733306, &pair_733290, &c_733307);
make_pair(c_733305, &pair_733292, &c_733306);
make_pair(c_733304, &pair_733294, &c_733305);
make_pair(c_733303, &pair_733296, &c_733304);
make_pair(c_733302, &pair_733298, &c_733303);
make_pair(c_733301, &pair_733300, &c_733302);
Cyc_global_variables = &c_733301;
object buf[1]; buf[0] = ((closure1_type *)clo)->element;
(((closure)__glo_lib_91init_117schemecyclonepretty_19191print_scheme_cyclone_pretty_91print)->fn)(data, buf[0], 1, buf);
}
void c_schemecyclonepretty_91print_entry_pt(void *data, object cont, int argc, object value){ 
  register_library("scheme_cyclone_pretty_91print");
  c_schemecyclonepretty_91print_entry_pt_first_lambda(data, cont, argc, value);
}
