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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

#include "cyclone/types.h"
object __glo_lib_91init_117srfi143_srfi_143 = NULL;
object __glo_fxbit_91field_91reverse_srfi_143 = NULL;
object __glo_fxreverse_srfi_143 = NULL;
object __glo_fxbit_91field_91rotate_srfi_143 = NULL;
object __glo_fxbit_91field_srfi_143 = NULL;
object __glo_fxfirst_91set_91bit_srfi_143 = NULL;
object __glo_mask_srfi_143 = NULL;
object __glo_fxcopy_91bit_srfi_143 = NULL;
object __glo__75fxbit_91set_127_srfi_143 = NULL;
object __glo_fxbit_91set_127_srfi_143 = NULL;
object __glo_fxif_srfi_143 = NULL;
object __glo_fxlength_srfi_143 = NULL;
object __glo_fxbit_91count_srfi_143 = NULL;
object __glo_fxarithmetic_91shift_srfi_143 = NULL;
object __glo_fxnot_srfi_143 = NULL;
object __glo_fxabs_srfi_143 = NULL;
object __glo_fxneg_srfi_143 = NULL;
object __glo_fxsquare_srfi_143 = NULL;
object __glo_fxsqrt_srfi_143 = NULL;
object __glo_fxmin_srfi_143 = NULL;
object __glo_fxmax_srfi_143 = NULL;
object __glo_fxeven_127_srfi_143 = NULL;
object __glo_fxodd_127_srfi_143 = NULL;
object __glo_fxnegative_127_srfi_143 = NULL;
object __glo_fxpositive_127_srfi_143 = NULL;
object __glo_fxzero_127_srfi_143 = NULL;
object __glo_fixnum_127_srfi_143 = NULL;
object __glo_fx_125_123_127_srfi_143 = NULL;
object __glo_fx_121_123_127_srfi_143 = NULL;
object __glo_fx_125_127_srfi_143 = NULL;
object __glo_fx_121_127_srfi_143 = NULL;
object __glo_fx_123_127_srfi_143 = NULL;
object __glo_fxarithmetic_91shift_91right_srfi_143 = NULL;
object __glo_fxarithmetic_91shift_91left_srfi_143 = NULL;
object __glo_fxxor_srfi_143 = NULL;
object __glo_fxior_srfi_143 = NULL;
object __glo_fxand_srfi_143 = NULL;
object __glo_fxremainder_srfi_143 = NULL;
object __glo_fxquotient_srfi_143 = NULL;
object __glo_fx_85_srfi_143 = NULL;
object __glo_fx_91_srfi_143 = NULL;
object __glo_fx_87_srfi_143 = NULL;
object __glo_cmp_91op_srfi_143 = NULL;
object __glo_bin_91num_91op_srfi_143 = NULL;
object __glo_fx_91least_srfi_143 = NULL;
object __glo_fx_91greatest_srfi_143 = NULL;
object __glo_fx_91width_srfi_143 = 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_acos_scheme_inexact;
extern object __glo_asin_scheme_inexact;
extern object __glo_atan_scheme_inexact;
extern object __glo_cos_scheme_inexact;
extern object __glo_exp_scheme_inexact;
extern object __glo_finite_127_scheme_inexact;
extern object __glo_infinite_127_scheme_inexact;
extern object __glo_log_scheme_inexact;
extern object __glo_nan_127_scheme_inexact;
extern object __glo_sin_scheme_inexact;
extern object __glo_sqrt_scheme_inexact;
extern object __glo_tan_scheme_inexact;
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_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(fxsqrt);
defsymbol(define_91c);
static void __lambda_104(void *data, object clo, int argc, object *args) ;/*closure _,object k_73745*/
static void __lambda_90(void *data, object clo, int argc, object *args) ;/*closure _,object k_73730, object n_73491_73561, object start_73492_73562, object end_73493_73563*/
static void __lambda_91(void *data, object clo, int argc, object *args) ;/*object self_73831, object width_73565*/
static void __lambda_110(void *data, object clo, int argc, object *args) ;/*object self_73832, object width_73565*/
static void __lambda_92(void *data, object clo, int argc, object *args) ;/*object self_73833, object r_73731*/
static void __lambda_93(void *data, object clo, int argc, object *args) ;/*object self_73834, object r_73741*/
static void __lambda_94(void *data, object clo, int argc, object *args) ;/*object self_73835, object mask_73494_73568*/
static void __lambda_95(void *data, object clo, int argc, object *args) ;/*object self_73836, object zn_73569*/
static void __lambda_109(void *data, object clo, int argc, object *args) ;/*object self_73837, object zn_73569*/
static void __lambda_96(void *data, object clo, int argc, object *args) ;/*object self_73838, object r_73740*/
static void __lambda_97(void *data, object clo, int argc, object *args) ;/*object self_73839, object r_73739*/
static void __lambda_98(void *data, object clo, int argc, object *args) ;/*object self_73840, object r_73733*/
static void __lambda_99(void *data, object clo, int argc, object *args) ;/*object self_73841, object r_73738*/
static void __lambda_100(void *data, object clo, int argc, object *args) ;/*object self_73842, object r_73734*/
static void __lambda_101(void *data, object clo, int argc, object *args) ;/*object self_73843, object r_73737*/
static void __lambda_102(void *data, object clo, int argc, object *args) ;/*object self_73844, object r_73736*/
static void __lambda_103(void *data, object clo, int argc, object *args) ;/*object self_73845, object r_73735*/
static void __lambda_73(void *data, object clo, int argc, object *args) ;/*closure _,object k_73713, object k_73479_73552, object n_73480_73553*/
static void __lambda_76(void *data, object clo, int argc, object *args) ;/*object self_73814, object r_73714*/
static void __lambda_77(void *data, object clo, int argc, object *args) ;/*object self_73815, object r_73715*/
static void __lambda_78(void *data, object clo, int argc, object *args) ;/*object self_73816, object m_73484_73554, object k_73485_73555*/
static void __lambda_79(void *data, object clo, int argc, object *args) ;/*object self_73817, object lp_73481_73487_73557*/
static void __lambda_108(void *data, object clo, int argc, object *args) ;/*object self_73818, object lp_73481_73487_73557*/
static void __lambda_82(void *data, object clo, int argc, object *args) ;/*object self_73819, object k_73718, object m_73488_73558, object k_73489_73559, object rvs_73490_73560*/
static void __lambda_83(void *data, object clo, int argc, object *args) ;/*object self_73820, object r_73719_73750*/
static void __lambda_85(void *data, object clo, int argc, object *args) ;/*object self_73822, object r_73721_73752*/
static void __lambda_86(void *data, object clo, int argc, object *args) ;/*object self_73823, object r_73722_73753*/
static void __lambda_87(void *data, object clo, int argc, object *args) ;/*object self_73824, object r_73724_73754*/
static void __lambda_88(void *data, object clo, int argc, object *args) ;/*object self_73825, object r_73725_73755*/
static void __lambda_89(void *data, object clo, int argc, object *args) ;/*object self_73826, object r_73723_73756*/
static void __lambda_84(void *data, object clo, int argc, object *args) ;/*object self_73821, object r_73720_73751_73757*/
static void __lambda_80(void *data, object clo, int argc, object *args) ;/*object self_73827, object r_73717*/
static void __lambda_81(void *data, object clo, int argc, object *args) ;/*object self_73828, object r_73716*/
static void __lambda_74(void *data, object clo, int argc, object *args) ;/*object self_73829, object k_73726*/
static void __lambda_75(void *data, object clo, int argc, object *args) ;/*object self_73830, object r_73727*/
static void __lambda_52(void *data, object clo, int argc, object *args) ;/*closure _,object k_73691, object n_73474_73542, object count_73475_73543, object start_73476_73544, object end_73477_73545*/
static void __lambda_107(void *data, object clo, int argc, object *args) ;/*object self_73791, object count_73475_73543*/
static void __lambda_53(void *data, object clo, int argc, object *args) ;/*object self_73792, object width_73547*/
static void __lambda_106(void *data, object clo, int argc, object *args) ;/*object self_73793, object width_73547*/
static void __lambda_54(void *data, object clo, int argc, object *args) ;/*object self_73794, object r_73710*/
static void __lambda_55(void *data, object clo, int argc, object *args) ;/*object self_73795, object r_73692*/
static void __lambda_56(void *data, object clo, int argc, object *args) ;/*object self_73796, object r_73709*/
static void __lambda_57(void *data, object clo, int argc, object *args) ;/*object self_73797, object r_73693*/
static void __lambda_58(void *data, object clo, int argc, object *args) ;/*object self_73798, object r_73708*/
static void __lambda_59(void *data, object clo, int argc, object *args) ;/*object self_73799, object mask_73478_73550*/
static void __lambda_60(void *data, object clo, int argc, object *args) ;/*object self_73800, object zn_73551*/
static void __lambda_105(void *data, object clo, int argc, object *args) ;/*object self_73801, object zn_73551*/
static void __lambda_61(void *data, object clo, int argc, object *args) ;/*object self_73802, object r_73706*/
static void __lambda_62(void *data, object clo, int argc, object *args) ;/*object self_73803, object r_73705*/
static void __lambda_63(void *data, object clo, int argc, object *args) ;/*object self_73804, object r_73695*/
static void __lambda_64(void *data, object clo, int argc, object *args) ;/*object self_73805, object r_73704*/
static void __lambda_65(void *data, object clo, int argc, object *args) ;/*object self_73806, object r_73701*/
static void __lambda_66(void *data, object clo, int argc, object *args) ;/*object self_73807, object r_73703*/
static void __lambda_67(void *data, object clo, int argc, object *args) ;/*object self_73808, object r_73702*/
static void __lambda_68(void *data, object clo, int argc, object *args) ;/*object self_73809, object r_73700*/
static void __lambda_69(void *data, object clo, int argc, object *args) ;/*object self_73810, object r_73696*/
static void __lambda_70(void *data, object clo, int argc, object *args) ;/*object self_73811, object r_73699*/
static void __lambda_71(void *data, object clo, int argc, object *args) ;/*object self_73812, object r_73698*/
static void __lambda_72(void *data, object clo, int argc, object *args) ;/*object self_73813, object r_73697*/
static void __lambda_49(void *data, object clo, int argc, object *args) ;/*closure _,object k_73685, object n_73471_73539, object start_73472_73540, object end_73473_73541*/
static void __lambda_50(void *data, object clo, int argc, object *args) ;/*object self_73789, object r_73686*/
static void __lambda_51(void *data, object clo, int argc, object *args) ;/*object self_73790, object r_73687*/
static void __lambda_45(void *data, object clo, int argc, object *args) ;/*closure _,object k_73678, object i_73470_73538*/
static void __lambda_46(void *data, object clo, int argc, object *args) ;/*object self_73786, object r_73679*/
static void __lambda_47(void *data, object clo, int argc, object *args) ;/*object self_73787, object r_73681*/
static void __lambda_48(void *data, object clo, int argc, object *args) ;/*object self_73788, object r_73680*/
static void __lambda_43(void *data, object clo, int argc, object *args) ;/*closure _,object k_73673, object start_73468_73536, object end_73469_73537*/
static void __lambda_44(void *data, object clo, int argc, object *args) ;/*object self_73785, object r_73674*/
static void __lambda_39(void *data, object clo, int argc, object *args) ;/*closure _,object k_73667, object index_73465_73533, object to_73466_73534, object bool_73467_73535*/
static void __lambda_41(void *data, object clo, int argc, object *args) ;/*object self_73783, object r_73670*/
static void __lambda_42(void *data, object clo, int argc, object *args) ;/*object self_73784, object r_73669*/
static void __lambda_40(void *data, object clo, int argc, object *args) ;/*object self_73782, object r_73668*/
static void __lambda_131(void *data, object clo, int argc, object *args) ;/*(void* data, int argc, closure _, object k, object index, object i)*/
static void __lambda_36(void *data, object clo, int argc, object *args) ;/*closure _,object k_73661, object index_73458_73530, object i_73459_73531*/
static void __lambda_37(void *data, object clo, int argc, object *args) ;/*object self_73780, object tmp_73461_73463_73532*/
static void __lambda_38(void *data, object clo, int argc, object *args) ;/*object self_73781, object r_73664*/
static void __lambda_32(void *data, object clo, int argc, object *args) ;/*closure _,object k_73655, object mask_73455_73527, object n0_73456_73528, object n1_73457_73529*/
static void __lambda_33(void *data, object clo, int argc, object *args) ;/*object self_73777, object r_73656*/
static void __lambda_34(void *data, object clo, int argc, object *args) ;/*object self_73778, object r_73658*/
static void __lambda_35(void *data, object clo, int argc, object *args) ;/*object self_73779, object r_73657*/
static void __lambda_26(void *data, object clo, int argc, object *args) ;/*closure _,object k_73645, object i_73454_73526*/
static void __lambda_29(void *data, object clo, int argc, object *args) ;/*object self_73772, object r_73650*/
static void __lambda_30(void *data, object clo, int argc, object *args) ;/*object self_73773, object r_73648*/
static void __lambda_31(void *data, object clo, int argc, object *args) ;/*object self_73774, object r_73649*/
static void __lambda_27(void *data, object clo, int argc, object *args) ;/*object self_73775, object k_73651*/
static void __lambda_28(void *data, object clo, int argc, object *args) ;/*object self_73776, object r_73652_73749*/
static void __lambda_130(void *data, object clo, int argc, object *args) ;/*(void* data, int argc, closure _, object k, object i)*/
static void __lambda_23(void *data, object clo, int argc, object *args) ;/*closure _,object k_73640, object i_73452_73524, object count_73453_73525*/
static void __lambda_24(void *data, object clo, int argc, object *args) ;/*object self_73770, object r_73641*/
static void __lambda_25(void *data, object clo, int argc, object *args) ;/*object self_73771, object r_73642_73748*/
static void __lambda_129(void *data, object clo, int argc, object *args) ;/*(void* data, int argc, closure _, object k, object i)*/
static void __lambda_21(void *data, object clo, int argc, object *args) ;/*closure _,object k_73636, object i_73451_73523*/
static void __lambda_22(void *data, object clo, int argc, object *args) ;/*object self_73769, object r_73637_73747*/
static void __lambda_20(void *data, object clo, int argc, object *args) ;/*closure _,object k_73633, object i_73450_73522*/
static void __lambda_19(void *data, object clo, int argc, object *args) ;/*closure _,object k_73630, object i_73449_73521*/
static void __lambda_15(void *data, object clo, int argc, object *args) ;/*closure _,object k_73622, object first_73445_73517, object rest_73446_73518_raw, ...*/
static void __lambda_17(void *data, object clo, int argc, object *args) ;/*object self_73766, object k_73624, object old_73447_73519, object new_73448_73520*/
static void __lambda_18(void *data, object clo, int argc, object *args) ;/*object self_73767, object r_73625*/
static void __lambda_16(void *data, object clo, int argc, object *args) ;/*object self_73768, object r_73623*/
static void __lambda_11(void *data, object clo, int argc, object *args) ;/*closure _,object k_73616, object first_73441_73513, object rest_73442_73514_raw, ...*/
static void __lambda_13(void *data, object clo, int argc, object *args) ;/*object self_73763, object k_73618, object old_73443_73515, object new_73444_73516*/
static void __lambda_14(void *data, object clo, int argc, object *args) ;/*object self_73764, object r_73619*/
static void __lambda_12(void *data, object clo, int argc, object *args) ;/*object self_73765, object r_73617*/
static void __lambda_9(void *data, object clo, int argc, object *args) ;/*closure _,object k_73612, object i_73440_73512*/
static void __lambda_10(void *data, object clo, int argc, object *args) ;/*object self_73762, object r_73613*/
static void __lambda_128(void *data, object clo, int argc, object *args) ;/*(void* data, int argc, closure _, object k, object i)*/
static void __lambda_8(void *data, object clo, int argc, object *args) ;/*closure _,object k_73609, object i_73439_73511*/
static void __lambda_7(void *data, object clo, int argc, object *args) ;/*closure _,object k_73606, object i_73438_73510*/
static void __lambda_127(void *data, object clo, int argc, object *args) ;/*(void* data, int argc, closure _, object k, object i)*/
static void __lambda_126(void *data, object clo, int argc, object *args) ;/*(void *data, int argc, closure _, object k, object obj)*/
static void __lambda_125(void *data, object clo, int argc, object *args) ;/*(void* data, int argc, closure _, object k, object i, object j)*/
static void __lambda_124(void *data, object clo, int argc, object *args) ;/*(void* data, int argc, closure _, object k, object i, object j)*/
static void __lambda_123(void *data, object clo, int argc, object *args) ;/*(void* data, int argc, closure _, object k, object i, object j)*/
static void __lambda_122(void *data, object clo, int argc, object *args) ;/*(void* data, int argc, closure _, object k, object i, object j)*/
static void __lambda_121(void *data, object clo, int argc, object *args) ;/*(void* data, int argc, closure _, object k, object i, object j)*/
static void __lambda_120(void *data, object clo, int argc, object *args) ;/*(void* data, int argc, closure _, object k, object i, object j)*/
static void __lambda_119(void *data, object clo, int argc, object *args) ;/*(void* data, int argc, closure _, object k, object i, object j)*/
static void __lambda_118(void *data, object clo, int argc, object *args) ;/*(void* data, int argc, closure _, object k, object i, object j)*/
static void __lambda_117(void *data, object clo, int argc, object *args) ;/*(void* data, int argc, closure _, object k, object i, object j)*/
static void __lambda_116(void *data, object clo, int argc, object *args) ;/*(void* data, int argc, closure _, object k, object i, object j)*/
static void __lambda_115(void *data, object clo, int argc, object *args) ;/*(void* data, int argc, closure _, object k, object i, object j)*/
static void __lambda_114(void *data, object clo, int argc, object *args) ;/*(void* data, int argc, closure _, object k, object i, object j)*/
static void __lambda_113(void *data, object clo, int argc, object *args) ;/*(void* data, int argc, closure _, object k, object i, object j)*/
static void __lambda_112(void *data, object clo, int argc, object *args) ;/*(void* data, int argc, closure _, object k, object i, object j)*/
static void __lambda_111(void *data, object clo, int argc, object *args) ;/*(void* data, int argc, closure _, object k, object i, object j)*/
static void __lambda_5(void *data, object clo, int argc, object *args) ;/*closure _,object k_73595, object expr_7324_73503, object rename_7325_73504, object compare_7326_73505*/
static void __lambda_6(void *data, object clo, int argc, object *args) ;/*object self_73761, object body_7338_73509*/
static void __lambda_1(void *data, object clo, int argc, object *args) ;/*closure _,object k_73578, object expr_731_73495, object rename_732_73496, object compare_733_73497*/
static void __lambda_3(void *data, object clo, int argc, object *args) ;/*object self_73758, object r_73588*/
static void __lambda_4(void *data, object clo, int argc, object *args) ;/*object self_73759, object body_7318_73502*/
static void __lambda_2(void *data, object clo, int argc, object *args) ;/*object self_73760, object k_73589*/

static void __lambda_104(void *data, object _, int argc, object *args) /* closure _,object k_73745 */
 {
object k_73745 = args[0];
  Cyc_st_add(data, "srfi/143.sld:lib-init:srfi143");

object c_731466 = global_set_cps_id(data,  k_73745,"__glo_fxsqrt_srfi_143", __glo_fxsqrt_srfi_143, __glo_exact_91integer_91sqrt_scheme_base);
return_direct_with_clo1(data,  k_73745, (((closure)  k_73745)->fn),  c_731466);; 
}

static void __lambda_90(void *data, object _, int argc, object *args) /* closure _,object k_73730, object n_73491_73561, object start_73492_73562, object end_73493_73563 */
 {
object k_73730 = args[0]; object n_73491_73561 = args[1]; object start_73492_73562 = args[2]; object end_73493_73563 = args[3];
  Cyc_st_add(data, "srfi/143.sld:fxbit-field-reverse");

closureN_type c_731383;
object e_731461 [4];
c_731383.hdr.mark = gc_color_red;
 c_731383.hdr.grayed = 0;
c_731383.tag = closureN_tag;
 c_731383.fn = (function_type)__lambda_91;
c_731383.num_args = 1;
c_731383.num_elements = 4;
c_731383.elements = (object *)e_731461;
c_731383.elements[0] = end_73493_73563;
c_731383.elements[1] = k_73730;
c_731383.elements[2] = n_73491_73561;
c_731383.elements[3] = start_73492_73562;

return_direct_with_clo1(data,(closure)&c_731383,__lambda_91,  boolean_f);; 
}

static void __lambda_91(void *data, object self_73831, int argc, object *args) /* object self_73831, object width_73565 */
 {
 object width_73565 = args[0];
  
closureN_type c_731385;
object e_731457 [4];
c_731385.hdr.mark = gc_color_red;
 c_731385.hdr.grayed = 0;
c_731385.tag = closureN_tag;
 c_731385.fn = (function_type)__lambda_110;
c_731385.num_args = 1;
c_731385.num_elements = 4;
c_731385.elements = (object *)e_731457;
c_731385.elements[0] = ((closureN)self_73831)->elements[0];
c_731385.elements[1] = ((closureN)self_73831)->elements[1];
c_731385.elements[2] = ((closureN)self_73831)->elements[2];
c_731385.elements[3] = ((closureN)self_73831)->elements[3];


pair_type local_731460; 
return_direct_with_clo1(data,(closure)&c_731385,__lambda_110,  set_cell_as_expr(&local_731460, width_73565));; 
}

static void __lambda_110(void *data, object self_73832, int argc, object *args) /* object self_73832, object width_73565 */
 {
 object width_73565 = args[0];
  
closureN_type c_731387;
object e_731449 [4];
c_731387.hdr.mark = gc_color_red;
 c_731387.hdr.grayed = 0;
c_731387.tag = closureN_tag;
 c_731387.fn = (function_type)__lambda_92;
c_731387.num_args = 1;
c_731387.num_elements = 4;
c_731387.elements = (object *)e_731449;
c_731387.elements[0] = ((closureN)self_73832)->elements[1];
c_731387.elements[1] = ((closureN)self_73832)->elements[2];
c_731387.elements[2] = ((closureN)self_73832)->elements[3];
c_731387.elements[3] = width_73565;




complex_num_type local_731454; 
return_direct_with_clo1(data,(closure)&c_731387,__lambda_92,  Cyc_set_cell(data, width_73565, Cyc_fast_sub(data,&local_731454, ((closureN)self_73832)->elements[0], ((closureN)self_73832)->elements[3])));; 
}

static void __lambda_92(void *data, object self_73833, int argc, object *args) /* object self_73833, object r_73731 */
 {

  
closureN_type c_731389;
object e_731445 [4];
c_731389.hdr.mark = gc_color_red;
 c_731389.hdr.grayed = 0;
c_731389.tag = closureN_tag;
 c_731389.fn = (function_type)__lambda_93;
c_731389.num_args = 1;
c_731389.num_elements = 4;
c_731389.elements = (object *)e_731445;
c_731389.elements[0] = ((closureN)self_73833)->elements[0];
c_731389.elements[1] = ((closureN)self_73833)->elements[1];
c_731389.elements[2] = ((closureN)self_73833)->elements[2];
c_731389.elements[3] = ((closureN)self_73833)->elements[3];



return_direct_with_clo3(data,  __glo_fxarithmetic_91shift_91left_srfi_143, (((closure)  __glo_fxarithmetic_91shift_91left_srfi_143)->fn),  &c_731389, obj_int2obj(-1), car(((closureN)self_73833)->elements[3]));; 
}

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

return_direct_with_clo2(data,  __glo_fxnot_srfi_143, (((closure)  __glo_fxnot_srfi_143)->fn),  &c_731391, r_73741);; 
}

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

return_direct_with_clo1(data,(closure)&c_731393,__lambda_95,  boolean_f);; 
}

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


pair_type local_731442; 
return_direct_with_clo1(data,(closure)&c_731395,__lambda_109,  set_cell_as_expr(&local_731442, zn_73569));; 
}

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

return_direct_with_clo3(data,  __glo_fxarithmetic_91shift_91right_srfi_143, (((closure)  __glo_fxarithmetic_91shift_91right_srfi_143)->fn),  &c_731397, ((closureN)self_73837)->elements[2], ((closureN)self_73837)->elements[3]);; 
}

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

return_direct_with_clo3(data,  __glo_fxand_srfi_143, (((closure)  __glo_fxand_srfi_143)->fn),  &c_731399, ((closureN)self_73838)->elements[1], r_73740);; 
}

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



return_direct_with_clo1(data,(closure)&c_731401,__lambda_98,  Cyc_set_cell(data, ((closureN)self_73839)->elements[5], r_73739));; 
}

static void __lambda_98(void *data, object self_73840, int argc, object *args) /* object self_73840, object r_73733 */
 {

  
closureN_type c_731403;
object e_731423 [4];
c_731403.hdr.mark = gc_color_red;
 c_731403.hdr.grayed = 0;
c_731403.tag = closureN_tag;
 c_731403.fn = (function_type)__lambda_99;
c_731403.num_args = 1;
c_731403.num_elements = 4;
c_731403.elements = (object *)e_731423;
c_731403.elements[0] = ((closureN)self_73840)->elements[0];
c_731403.elements[1] = ((closureN)self_73840)->elements[1];
c_731403.elements[2] = ((closureN)self_73840)->elements[2];
c_731403.elements[3] = ((closureN)self_73840)->elements[3];





return_direct_with_clo3(data,  __glo_fxreverse_srfi_143, (((closure)  __glo_fxreverse_srfi_143)->fn),  &c_731403, car(((closureN)self_73840)->elements[4]), car(((closureN)self_73840)->elements[5]));; 
}

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

return_direct_with_clo3(data,  __glo_fxarithmetic_91shift_91left_srfi_143, (((closure)  __glo_fxarithmetic_91shift_91left_srfi_143)->fn),  &c_731405, r_73738, ((closureN)self_73841)->elements[3]);; 
}

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

return_direct_with_clo3(data,  __glo_fxarithmetic_91shift_91left_srfi_143, (((closure)  __glo_fxarithmetic_91shift_91left_srfi_143)->fn),  &c_731407, ((closureN)self_73842)->elements[1], ((closureN)self_73842)->elements[3]);; 
}

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

return_direct_with_clo2(data,  __glo_fxnot_srfi_143, (((closure)  __glo_fxnot_srfi_143)->fn),  &c_731409, r_73737);; 
}

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

return_direct_with_clo3(data,  __glo_fxand_srfi_143, (((closure)  __glo_fxand_srfi_143)->fn),  &c_731411, r_73736, ((closureN)self_73844)->elements[1]);; 
}

static void __lambda_103(void *data, object self_73845, int argc, object *args) /* object self_73845, object r_73735 */
 {
 object r_73735 = args[0];
  return_direct_with_clo3(data,  __glo_fxior_srfi_143, (((closure)  __glo_fxior_srfi_143)->fn),  ((closureN)self_73845)->elements[0], ((closureN)self_73845)->elements[1], r_73735);; 
}

static void __lambda_73(void *data, object _, int argc, object *args) /* closure _,object k_73713, object k_73479_73552, object n_73480_73553 */
 {
object k_73713 = args[0]; object k_73479_73552 = args[1]; object n_73480_73553 = args[2];
  Cyc_st_add(data, "srfi/143.sld:fxreverse");

closureN_type c_731289;
object e_731303 [1];
c_731289.hdr.mark = gc_color_red;
 c_731289.hdr.grayed = 0;
c_731289.tag = closureN_tag;
 c_731289.fn = (function_type)__lambda_74;
c_731289.num_args = 0;
c_731289.num_elements = 1;
c_731289.elements = (object *)e_731303;
c_731289.elements[0] = n_73480_73553;


closureN_type c_731304;
object e_731380 [3];
c_731304.hdr.mark = gc_color_red;
 c_731304.hdr.grayed = 0;
c_731304.tag = closureN_tag;
 c_731304.fn = (function_type)__lambda_76;
c_731304.num_args = 1;
c_731304.num_elements = 3;
c_731304.elements = (object *)e_731380;
c_731304.elements[0] = k_73479_73552;
c_731304.elements[1] = k_73713;
c_731304.elements[2] = n_73480_73553;

return_direct_with_clo1(data,(closure)&c_731289,__lambda_74,  &c_731304);; 
}

static void __lambda_76(void *data, object self_73814, int argc, object *args) /* object self_73814, object r_73714 */
 {
 object r_73714 = args[0];
  
closureN_type c_731306;
object e_731378 [3];
c_731306.hdr.mark = gc_color_red;
 c_731306.hdr.grayed = 0;
c_731306.tag = closureN_tag;
 c_731306.fn = (function_type)__lambda_77;
c_731306.num_args = 1;
c_731306.num_elements = 3;
c_731306.elements = (object *)e_731378;
c_731306.elements[0] = ((closureN)self_73814)->elements[1];
c_731306.elements[1] = ((closureN)self_73814)->elements[2];
c_731306.elements[2] = r_73714;

return_direct_with_clo3(data,  __glo_fx_87_srfi_143, (((closure)  __glo_fx_87_srfi_143)->fn),  &c_731306, obj_int2obj(-1), ((closureN)self_73814)->elements[0]);; 
}

static void __lambda_77(void *data, object self_73815, int argc, object *args) /* object self_73815, object r_73715 */
 {
 object r_73715 = args[0];
  
closureN_type c_731308;
object e_731376 [2];
c_731308.hdr.mark = gc_color_red;
 c_731308.hdr.grayed = 0;
c_731308.tag = closureN_tag;
 c_731308.fn = (function_type)__lambda_78;
c_731308.num_args = 2;
c_731308.num_elements = 2;
c_731308.elements = (object *)e_731376;
c_731308.elements[0] = ((closureN)self_73815)->elements[0];
c_731308.elements[1] = ((closureN)self_73815)->elements[1];

return_direct_with_clo2(data,(closure)&c_731308,__lambda_78,  ((closureN)self_73815)->elements[2], r_73715);; 
}

static void __lambda_78(void *data, object self_73816, int argc, object *args) /* object self_73816, object m_73484_73554, object k_73485_73555 */
 {
 object m_73484_73554 = args[0]; object k_73485_73555 = args[1];
  
closureN_type c_731310;
object e_731375 [4];
c_731310.hdr.mark = gc_color_red;
 c_731310.hdr.grayed = 0;
c_731310.tag = closureN_tag;
 c_731310.fn = (function_type)__lambda_79;
c_731310.num_args = 1;
c_731310.num_elements = 4;
c_731310.elements = (object *)e_731375;
c_731310.elements[0] = k_73485_73555;
c_731310.elements[1] = ((closureN)self_73816)->elements[0];
c_731310.elements[2] = m_73484_73554;
c_731310.elements[3] = ((closureN)self_73816)->elements[1];

return_direct_with_clo1(data,(closure)&c_731310,__lambda_79,  boolean_f);; 
}

static void __lambda_79(void *data, object self_73817, int argc, object *args) /* object self_73817, object lp_73481_73487_73557 */
 {
 object lp_73481_73487_73557 = args[0];
  
closureN_type c_731312;
object e_731371 [4];
c_731312.hdr.mark = gc_color_red;
 c_731312.hdr.grayed = 0;
c_731312.tag = closureN_tag;
 c_731312.fn = (function_type)__lambda_108;
c_731312.num_args = 1;
c_731312.num_elements = 4;
c_731312.elements = (object *)e_731371;
c_731312.elements[0] = ((closureN)self_73817)->elements[0];
c_731312.elements[1] = ((closureN)self_73817)->elements[1];
c_731312.elements[2] = ((closureN)self_73817)->elements[2];
c_731312.elements[3] = ((closureN)self_73817)->elements[3];


pair_type local_731374; 
return_direct_with_clo1(data,(closure)&c_731312,__lambda_108,  set_cell_as_expr(&local_731374, lp_73481_73487_73557));; 
}

static void __lambda_108(void *data, object self_73818, int argc, object *args) /* object self_73818, object lp_73481_73487_73557 */
 {
 object lp_73481_73487_73557 = args[0];
  
closureN_type c_731314;
object e_731328 [4];
c_731314.hdr.mark = gc_color_red;
 c_731314.hdr.grayed = 0;
c_731314.tag = closureN_tag;
 c_731314.fn = (function_type)__lambda_80;
c_731314.num_args = 1;
c_731314.num_elements = 4;
c_731314.elements = (object *)e_731328;
c_731314.elements[0] = ((closureN)self_73818)->elements[0];
c_731314.elements[1] = ((closureN)self_73818)->elements[1];
c_731314.elements[2] = lp_73481_73487_73557;
c_731314.elements[3] = ((closureN)self_73818)->elements[2];


closureN_type c_731329;
object e_731370 [2];
c_731329.hdr.mark = gc_color_red;
 c_731329.hdr.grayed = 0;
c_731329.tag = closureN_tag;
 c_731329.fn = (function_type)__lambda_82;
c_731329.num_args = 3;
c_731329.num_elements = 2;
c_731329.elements = (object *)e_731370;
c_731329.elements[0] = lp_73481_73487_73557;
c_731329.elements[1] = ((closureN)self_73818)->elements[3];

return_direct_with_clo1(data,(closure)&c_731314,__lambda_80,  &c_731329);; 
}

static void __lambda_82(void *data, object self_73819, int argc, object *args) /* object self_73819, object k_73718, object m_73488_73558, object k_73489_73559, object rvs_73490_73560 */
 {
 object k_73718 = args[0]; object m_73488_73558 = args[1]; object k_73489_73559 = args[2]; object rvs_73490_73560 = args[3];
  
closureN_type c_731331;
object e_731369 [6];
c_731331.hdr.mark = gc_color_red;
 c_731331.hdr.grayed = 0;
c_731331.tag = closureN_tag;
 c_731331.fn = (function_type)__lambda_83;
c_731331.num_args = 1;
c_731331.num_elements = 6;
c_731331.elements = (object *)e_731369;
c_731331.elements[0] = k_73489_73559;
c_731331.elements[1] = k_73718;
c_731331.elements[2] = ((closureN)self_73819)->elements[0];
c_731331.elements[3] = m_73488_73558;
c_731331.elements[4] = ((closureN)self_73819)->elements[1];
c_731331.elements[5] = rvs_73490_73560;

return_direct_with_clo3(data,  __glo_fx_121_127_srfi_143, (((closure)  __glo_fx_121_127_srfi_143)->fn),  &c_731331, k_73489_73559, obj_int2obj(0));; 
}

static void __lambda_83(void *data, object self_73820, int argc, object *args) /* object self_73820, object r_73719_73750 */
 {
 object r_73719_73750 = args[0];
  if( (boolean_f != r_73719_73750) ){ 
  
closureN_type c_731333;
object e_731340 [2];
c_731333.hdr.mark = gc_color_red;
 c_731333.hdr.grayed = 0;
c_731333.tag = closureN_tag;
 c_731333.fn = (function_type)__lambda_84;
c_731333.num_args = 1;
c_731333.num_elements = 2;
c_731333.elements = (object *)e_731340;
c_731333.elements[0] = ((closureN)self_73820)->elements[1];
c_731333.elements[1] = ((closureN)self_73820)->elements[5];

return_direct_with_clo3(data,  __glo_fx_121_127_srfi_143, (((closure)  __glo_fx_121_127_srfi_143)->fn),  &c_731333, ((closureN)self_73820)->elements[4], obj_int2obj(0));
} else { 
  
closureN_type c_731343;
object e_731367 [5];
c_731343.hdr.mark = gc_color_red;
 c_731343.hdr.grayed = 0;
c_731343.tag = closureN_tag;
 c_731343.fn = (function_type)__lambda_85;
c_731343.num_args = 1;
c_731343.num_elements = 5;
c_731343.elements = (object *)e_731367;
c_731343.elements[0] = ((closureN)self_73820)->elements[0];
c_731343.elements[1] = ((closureN)self_73820)->elements[1];
c_731343.elements[2] = ((closureN)self_73820)->elements[2];
c_731343.elements[3] = ((closureN)self_73820)->elements[3];
c_731343.elements[4] = ((closureN)self_73820)->elements[5];

return_direct_with_clo3(data,  __glo_fxarithmetic_91shift_91right_srfi_143, (((closure)  __glo_fxarithmetic_91shift_91right_srfi_143)->fn),  &c_731343, ((closureN)self_73820)->elements[3], obj_int2obj(1));}
;; 
}

static void __lambda_85(void *data, object self_73822, int argc, object *args) /* object self_73822, object r_73721_73752 */
 {
 object r_73721_73752 = args[0];
  
closureN_type c_731345;
object e_731365 [5];
c_731345.hdr.mark = gc_color_red;
 c_731345.hdr.grayed = 0;
c_731345.tag = closureN_tag;
 c_731345.fn = (function_type)__lambda_86;
c_731345.num_args = 1;
c_731345.num_elements = 5;
c_731345.elements = (object *)e_731365;
c_731345.elements[0] = ((closureN)self_73822)->elements[1];
c_731345.elements[1] = ((closureN)self_73822)->elements[2];
c_731345.elements[2] = ((closureN)self_73822)->elements[3];
c_731345.elements[3] = r_73721_73752;
c_731345.elements[4] = ((closureN)self_73822)->elements[4];

return_direct_with_clo3(data,  __glo_fx_87_srfi_143, (((closure)  __glo_fx_87_srfi_143)->fn),  &c_731345, obj_int2obj(-1), ((closureN)self_73822)->elements[0]);; 
}

static void __lambda_86(void *data, object self_73823, int argc, object *args) /* object self_73823, object r_73722_73753 */
 {
 object r_73722_73753 = args[0];
  
closureN_type c_731347;
object e_731363 [5];
c_731347.hdr.mark = gc_color_red;
 c_731347.hdr.grayed = 0;
c_731347.tag = closureN_tag;
 c_731347.fn = (function_type)__lambda_87;
c_731347.num_args = 1;
c_731347.num_elements = 5;
c_731347.elements = (object *)e_731363;
c_731347.elements[0] = ((closureN)self_73823)->elements[0];
c_731347.elements[1] = ((closureN)self_73823)->elements[1];
c_731347.elements[2] = ((closureN)self_73823)->elements[2];
c_731347.elements[3] = ((closureN)self_73823)->elements[3];
c_731347.elements[4] = r_73722_73753;

return_direct_with_clo3(data,  __glo_fxarithmetic_91shift_91left_srfi_143, (((closure)  __glo_fxarithmetic_91shift_91left_srfi_143)->fn),  &c_731347, ((closureN)self_73823)->elements[4], obj_int2obj(1));; 
}

static void __lambda_87(void *data, object self_73824, int argc, object *args) /* object self_73824, object r_73724_73754 */
 {
 object r_73724_73754 = args[0];
  
closureN_type c_731349;
object e_731361 [5];
c_731349.hdr.mark = gc_color_red;
 c_731349.hdr.grayed = 0;
c_731349.tag = closureN_tag;
 c_731349.fn = (function_type)__lambda_88;
c_731349.num_args = 1;
c_731349.num_elements = 5;
c_731349.elements = (object *)e_731361;
c_731349.elements[0] = ((closureN)self_73824)->elements[0];
c_731349.elements[1] = ((closureN)self_73824)->elements[1];
c_731349.elements[2] = ((closureN)self_73824)->elements[3];
c_731349.elements[3] = ((closureN)self_73824)->elements[4];
c_731349.elements[4] = r_73724_73754;

return_direct_with_clo3(data,  __glo_fxand_srfi_143, (((closure)  __glo_fxand_srfi_143)->fn),  &c_731349, obj_int2obj(1), ((closureN)self_73824)->elements[2]);; 
}

static void __lambda_88(void *data, object self_73825, int argc, object *args) /* object self_73825, object r_73725_73755 */
 {
 object r_73725_73755 = args[0];
  
closureN_type c_731351;
object e_731359 [4];
c_731351.hdr.mark = gc_color_red;
 c_731351.hdr.grayed = 0;
c_731351.tag = closureN_tag;
 c_731351.fn = (function_type)__lambda_89;
c_731351.num_args = 1;
c_731351.num_elements = 4;
c_731351.elements = (object *)e_731359;
c_731351.elements[0] = ((closureN)self_73825)->elements[0];
c_731351.elements[1] = ((closureN)self_73825)->elements[1];
c_731351.elements[2] = ((closureN)self_73825)->elements[2];
c_731351.elements[3] = ((closureN)self_73825)->elements[3];

return_direct_with_clo3(data,  __glo_fxior_srfi_143, (((closure)  __glo_fxior_srfi_143)->fn),  &c_731351, ((closureN)self_73825)->elements[4], r_73725_73755);; 
}

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

return_closcall4(data,  car(((closureN)self_73826)->elements[1]),  ((closureN)self_73826)->elements[0], ((closureN)self_73826)->elements[2], ((closureN)self_73826)->elements[3], r_73723_73756);; 
}

static void __lambda_84(void *data, object self_73821, int argc, object *args) /* object self_73821, object r_73720_73751_73757 */
 {
 object r_73720_73751_73757 = args[0];
  if( (boolean_f != r_73720_73751_73757) ){ 
  return_direct_with_clo2(data,  __glo_fxnot_srfi_143, (((closure)  __glo_fxnot_srfi_143)->fn),  ((closureN)self_73821)->elements[0], ((closureN)self_73821)->elements[1]);
} else { 
  return_direct_with_clo1(data,  ((closureN)self_73821)->elements[0], (((closure)  ((closureN)self_73821)->elements[0])->fn),  ((closureN)self_73821)->elements[1]);}
;; 
}

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



return_direct_with_clo1(data,(closure)&c_731316,__lambda_81,  Cyc_set_cell(data, ((closureN)self_73827)->elements[2], r_73717));; 
}

static void __lambda_81(void *data, object self_73828, int argc, object *args) /* object self_73828, object r_73716 */
 {

  

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

static void __lambda_74(void *data, object self_73829, int argc, object *args) /* object self_73829, object k_73726 */
 {
 object k_73726 = args[0];
  
closureN_type c_731291;
object e_731298 [2];
c_731291.hdr.mark = gc_color_red;
 c_731291.hdr.grayed = 0;
c_731291.tag = closureN_tag;
 c_731291.fn = (function_type)__lambda_75;
c_731291.num_args = 1;
c_731291.num_elements = 2;
c_731291.elements = (object *)e_731298;
c_731291.elements[0] = k_73726;
c_731291.elements[1] = ((closureN)self_73829)->elements[0];


complex_num_type local_731301; 
return_direct_with_clo1(data,(closure)&c_731291,__lambda_75,  ((inline_function_type)
                   ((closure)__glo_negative_127_191_191inline_191_191_scheme_base)->fn)(data,&local_731301, ((closureN)self_73829)->elements[0]));; 
}

static void __lambda_75(void *data, object self_73830, int argc, object *args) /* object self_73830, object r_73727 */
 {
 object r_73727 = args[0];
  if( (boolean_f != r_73727) ){ 
  return_direct_with_clo2(data,  __glo_fxnot_srfi_143, (((closure)  __glo_fxnot_srfi_143)->fn),  ((closureN)self_73830)->elements[0], ((closureN)self_73830)->elements[1]);
} else { 
  return_direct_with_clo1(data,  ((closureN)self_73830)->elements[0], (((closure)  ((closureN)self_73830)->elements[0])->fn),  ((closureN)self_73830)->elements[1]);}
;; 
}

static void __lambda_52(void *data, object _, int argc, object *args) /* closure _,object k_73691, object n_73474_73542, object count_73475_73543, object start_73476_73544, object end_73477_73545 */
 {
object k_73691 = args[0]; object n_73474_73542 = args[1]; object count_73475_73543 = args[2]; object start_73476_73544 = args[3]; object end_73477_73545 = args[4];
  Cyc_st_add(data, "srfi/143.sld:fxbit-field-rotate");

closureN_type c_731157;
object e_731283 [4];
c_731157.hdr.mark = gc_color_red;
 c_731157.hdr.grayed = 0;
c_731157.tag = closureN_tag;
 c_731157.fn = (function_type)__lambda_107;
c_731157.num_args = 1;
c_731157.num_elements = 4;
c_731157.elements = (object *)e_731283;
c_731157.elements[0] = end_73477_73545;
c_731157.elements[1] = k_73691;
c_731157.elements[2] = n_73474_73542;
c_731157.elements[3] = start_73476_73544;


pair_type local_731286; 
return_direct_with_clo1(data,(closure)&c_731157,__lambda_107,  set_cell_as_expr(&local_731286, count_73475_73543));; 
}

static void __lambda_107(void *data, object self_73791, int argc, object *args) /* object self_73791, object count_73475_73543 */
 {
 object count_73475_73543 = args[0];
  
closureN_type c_731159;
object e_731282 [5];
c_731159.hdr.mark = gc_color_red;
 c_731159.hdr.grayed = 0;
c_731159.tag = closureN_tag;
 c_731159.fn = (function_type)__lambda_53;
c_731159.num_args = 1;
c_731159.num_elements = 5;
c_731159.elements = (object *)e_731282;
c_731159.elements[0] = count_73475_73543;
c_731159.elements[1] = ((closureN)self_73791)->elements[0];
c_731159.elements[2] = ((closureN)self_73791)->elements[1];
c_731159.elements[3] = ((closureN)self_73791)->elements[2];
c_731159.elements[4] = ((closureN)self_73791)->elements[3];

return_direct_with_clo1(data,(closure)&c_731159,__lambda_53,  boolean_f);; 
}

static void __lambda_53(void *data, object self_73792, int argc, object *args) /* object self_73792, object width_73547 */
 {
 object width_73547 = args[0];
  
closureN_type c_731161;
object e_731278 [5];
c_731161.hdr.mark = gc_color_red;
 c_731161.hdr.grayed = 0;
c_731161.tag = closureN_tag;
 c_731161.fn = (function_type)__lambda_106;
c_731161.num_args = 1;
c_731161.num_elements = 5;
c_731161.elements = (object *)e_731278;
c_731161.elements[0] = ((closureN)self_73792)->elements[0];
c_731161.elements[1] = ((closureN)self_73792)->elements[1];
c_731161.elements[2] = ((closureN)self_73792)->elements[2];
c_731161.elements[3] = ((closureN)self_73792)->elements[3];
c_731161.elements[4] = ((closureN)self_73792)->elements[4];


pair_type local_731281; 
return_direct_with_clo1(data,(closure)&c_731161,__lambda_106,  set_cell_as_expr(&local_731281, width_73547));; 
}

static void __lambda_106(void *data, object self_73793, int argc, object *args) /* object self_73793, object width_73547 */
 {
 object width_73547 = args[0];
  
closureN_type c_731163;
object e_731275 [5];
c_731163.hdr.mark = gc_color_red;
 c_731163.hdr.grayed = 0;
c_731163.tag = closureN_tag;
 c_731163.fn = (function_type)__lambda_54;
c_731163.num_args = 1;
c_731163.num_elements = 5;
c_731163.elements = (object *)e_731275;
c_731163.elements[0] = ((closureN)self_73793)->elements[0];
c_731163.elements[1] = ((closureN)self_73793)->elements[2];
c_731163.elements[2] = ((closureN)self_73793)->elements[3];
c_731163.elements[3] = ((closureN)self_73793)->elements[4];
c_731163.elements[4] = width_73547;

return_direct_with_clo3(data,  __glo_fx_91_srfi_143, (((closure)  __glo_fx_91_srfi_143)->fn),  &c_731163, ((closureN)self_73793)->elements[1], ((closureN)self_73793)->elements[4]);; 
}

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



return_direct_with_clo1(data,(closure)&c_731165,__lambda_55,  Cyc_set_cell(data, ((closureN)self_73794)->elements[4], r_73710));; 
}

static void __lambda_55(void *data, object self_73795, int argc, object *args) /* object self_73795, object r_73692 */
 {

  
closureN_type c_731167;
object e_731264 [5];
c_731167.hdr.mark = gc_color_red;
 c_731167.hdr.grayed = 0;
c_731167.tag = closureN_tag;
 c_731167.fn = (function_type)__lambda_56;
c_731167.num_args = 1;
c_731167.num_elements = 5;
c_731167.elements = (object *)e_731264;
c_731167.elements[0] = ((closureN)self_73795)->elements[0];
c_731167.elements[1] = ((closureN)self_73795)->elements[1];
c_731167.elements[2] = ((closureN)self_73795)->elements[2];
c_731167.elements[3] = ((closureN)self_73795)->elements[3];
c_731167.elements[4] = ((closureN)self_73795)->elements[4];





return_direct_with_clo3(data,  __glo_modulo_scheme_base, (((closure)  __glo_modulo_scheme_base)->fn),  &c_731167, car(((closureN)self_73795)->elements[0]), car(((closureN)self_73795)->elements[4]));; 
}

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



return_direct_with_clo1(data,(closure)&c_731169,__lambda_57,  Cyc_set_cell(data, ((closureN)self_73796)->elements[0], r_73709));; 
}

static void __lambda_57(void *data, object self_73797, int argc, object *args) /* object self_73797, object r_73693 */
 {

  
closureN_type c_731171;
object e_731256 [5];
c_731171.hdr.mark = gc_color_red;
 c_731171.hdr.grayed = 0;
c_731171.tag = closureN_tag;
 c_731171.fn = (function_type)__lambda_58;
c_731171.num_args = 1;
c_731171.num_elements = 5;
c_731171.elements = (object *)e_731256;
c_731171.elements[0] = ((closureN)self_73797)->elements[0];
c_731171.elements[1] = ((closureN)self_73797)->elements[1];
c_731171.elements[2] = ((closureN)self_73797)->elements[2];
c_731171.elements[3] = ((closureN)self_73797)->elements[3];
c_731171.elements[4] = ((closureN)self_73797)->elements[4];



return_direct_with_clo3(data,  __glo_fxarithmetic_91shift_srfi_143, (((closure)  __glo_fxarithmetic_91shift_srfi_143)->fn),  &c_731171, obj_int2obj(-1), car(((closureN)self_73797)->elements[4]));; 
}

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

return_direct_with_clo2(data,  __glo_fxnot_srfi_143, (((closure)  __glo_fxnot_srfi_143)->fn),  &c_731173, r_73708);; 
}

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

return_direct_with_clo1(data,(closure)&c_731175,__lambda_60,  boolean_f);; 
}

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


pair_type local_731253; 
return_direct_with_clo1(data,(closure)&c_731177,__lambda_105,  set_cell_as_expr(&local_731253, zn_73551));; 
}

static void __lambda_105(void *data, object self_73801, int argc, object *args) /* object self_73801, object zn_73551 */
 {
 object zn_73551 = args[0];
  
closureN_type c_731179;
object e_731244 [7];
c_731179.hdr.mark = gc_color_red;
 c_731179.hdr.grayed = 0;
c_731179.tag = closureN_tag;
 c_731179.fn = (function_type)__lambda_61;
c_731179.num_args = 1;
c_731179.num_elements = 7;
c_731179.elements = (object *)e_731244;
c_731179.elements[0] = ((closureN)self_73801)->elements[0];
c_731179.elements[1] = ((closureN)self_73801)->elements[1];
c_731179.elements[2] = ((closureN)self_73801)->elements[2];
c_731179.elements[3] = ((closureN)self_73801)->elements[3];
c_731179.elements[4] = ((closureN)self_73801)->elements[4];
c_731179.elements[5] = ((closureN)self_73801)->elements[5];
c_731179.elements[6] = zn_73551;


complex_num_type local_731248; 
return_direct_with_clo3(data,  __glo_fxarithmetic_91shift_srfi_143, (((closure)  __glo_fxarithmetic_91shift_srfi_143)->fn),  &c_731179, ((closureN)self_73801)->elements[3], Cyc_fast_sub(data,&local_731248, obj_int2obj(0), ((closureN)self_73801)->elements[4]));; 
}

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

return_direct_with_clo3(data,  __glo_fxand_srfi_143, (((closure)  __glo_fxand_srfi_143)->fn),  &c_731181, ((closureN)self_73802)->elements[2], r_73706);; 
}

static void __lambda_62(void *data, object self_73803, int argc, object *args) /* object self_73803, object r_73705 */
 {
 object r_73705 = args[0];
  
closureN_type c_731183;
object e_731238 [7];
c_731183.hdr.mark = gc_color_red;
 c_731183.hdr.grayed = 0;
c_731183.tag = closureN_tag;
 c_731183.fn = (function_type)__lambda_63;
c_731183.num_args = 1;
c_731183.num_elements = 7;
c_731183.elements = (object *)e_731238;
c_731183.elements[0] = ((closureN)self_73803)->elements[0];
c_731183.elements[1] = ((closureN)self_73803)->elements[1];
c_731183.elements[2] = ((closureN)self_73803)->elements[2];
c_731183.elements[3] = ((closureN)self_73803)->elements[3];
c_731183.elements[4] = ((closureN)self_73803)->elements[4];
c_731183.elements[5] = ((closureN)self_73803)->elements[5];
c_731183.elements[6] = ((closureN)self_73803)->elements[6];



return_direct_with_clo1(data,(closure)&c_731183,__lambda_63,  Cyc_set_cell(data, ((closureN)self_73803)->elements[6], r_73705));; 
}

static void __lambda_63(void *data, object self_73804, int argc, object *args) /* object self_73804, object r_73695 */
 {

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





return_direct_with_clo3(data,  __glo_fxarithmetic_91shift_srfi_143, (((closure)  __glo_fxarithmetic_91shift_srfi_143)->fn),  &c_731185, car(((closureN)self_73804)->elements[6]), car(((closureN)self_73804)->elements[0]));; 
}

static void __lambda_64(void *data, object self_73805, int argc, object *args) /* object self_73805, object r_73704 */
 {
 object r_73704 = args[0];
  
closureN_type c_731187;
object e_731229 [7];
c_731187.hdr.mark = gc_color_red;
 c_731187.hdr.grayed = 0;
c_731187.tag = closureN_tag;
 c_731187.fn = (function_type)__lambda_65;
c_731187.num_args = 1;
c_731187.num_elements = 7;
c_731187.elements = (object *)e_731229;
c_731187.elements[0] = ((closureN)self_73805)->elements[0];
c_731187.elements[1] = ((closureN)self_73805)->elements[1];
c_731187.elements[2] = ((closureN)self_73805)->elements[2];
c_731187.elements[3] = ((closureN)self_73805)->elements[3];
c_731187.elements[4] = ((closureN)self_73805)->elements[4];
c_731187.elements[5] = ((closureN)self_73805)->elements[5];
c_731187.elements[6] = ((closureN)self_73805)->elements[6];

return_direct_with_clo3(data,  __glo_fxand_srfi_143, (((closure)  __glo_fxand_srfi_143)->fn),  &c_731187, ((closureN)self_73805)->elements[2], r_73704);; 
}

static void __lambda_65(void *data, object self_73806, int argc, object *args) /* object self_73806, object r_73701 */
 {
 object r_73701 = args[0];
  
closureN_type c_731189;
object e_731219 [6];
c_731189.hdr.mark = gc_color_red;
 c_731189.hdr.grayed = 0;
c_731189.tag = closureN_tag;
 c_731189.fn = (function_type)__lambda_66;
c_731189.num_args = 1;
c_731189.num_elements = 6;
c_731189.elements = (object *)e_731219;
c_731189.elements[0] = ((closureN)self_73806)->elements[1];
c_731189.elements[1] = ((closureN)self_73806)->elements[2];
c_731189.elements[2] = ((closureN)self_73806)->elements[3];
c_731189.elements[3] = r_73701;
c_731189.elements[4] = ((closureN)self_73806)->elements[4];
c_731189.elements[5] = ((closureN)self_73806)->elements[6];


complex_num_type local_731222; 




return_direct_with_clo1(data,(closure)&c_731189,__lambda_66,  Cyc_fast_sub(data,&local_731222, car(((closureN)self_73806)->elements[0]), car(((closureN)self_73806)->elements[5])));; 
}

static void __lambda_66(void *data, object self_73807, int argc, object *args) /* object self_73807, object r_73703 */
 {
 object r_73703 = args[0];
  
closureN_type c_731191;
object e_731215 [5];
c_731191.hdr.mark = gc_color_red;
 c_731191.hdr.grayed = 0;
c_731191.tag = closureN_tag;
 c_731191.fn = (function_type)__lambda_67;
c_731191.num_args = 1;
c_731191.num_elements = 5;
c_731191.elements = (object *)e_731215;
c_731191.elements[0] = ((closureN)self_73807)->elements[0];
c_731191.elements[1] = ((closureN)self_73807)->elements[1];
c_731191.elements[2] = ((closureN)self_73807)->elements[2];
c_731191.elements[3] = ((closureN)self_73807)->elements[3];
c_731191.elements[4] = ((closureN)self_73807)->elements[4];



return_direct_with_clo3(data,  __glo_fxarithmetic_91shift_srfi_143, (((closure)  __glo_fxarithmetic_91shift_srfi_143)->fn),  &c_731191, car(((closureN)self_73807)->elements[5]), r_73703);; 
}

static void __lambda_67(void *data, object self_73808, int argc, object *args) /* object self_73808, object r_73702 */
 {
 object r_73702 = args[0];
  
closureN_type c_731193;
object e_731213 [4];
c_731193.hdr.mark = gc_color_red;
 c_731193.hdr.grayed = 0;
c_731193.tag = closureN_tag;
 c_731193.fn = (function_type)__lambda_68;
c_731193.num_args = 1;
c_731193.num_elements = 4;
c_731193.elements = (object *)e_731213;
c_731193.elements[0] = ((closureN)self_73808)->elements[0];
c_731193.elements[1] = ((closureN)self_73808)->elements[1];
c_731193.elements[2] = ((closureN)self_73808)->elements[2];
c_731193.elements[3] = ((closureN)self_73808)->elements[4];

return_direct_with_clo3(data,  __glo_fxior_srfi_143, (((closure)  __glo_fxior_srfi_143)->fn),  &c_731193, ((closureN)self_73808)->elements[3], r_73702);; 
}

static void __lambda_68(void *data, object self_73809, int argc, object *args) /* object self_73809, object r_73700 */
 {
 object r_73700 = args[0];
  
closureN_type c_731195;
object e_731211 [4];
c_731195.hdr.mark = gc_color_red;
 c_731195.hdr.grayed = 0;
c_731195.tag = closureN_tag;
 c_731195.fn = (function_type)__lambda_69;
c_731195.num_args = 1;
c_731195.num_elements = 4;
c_731195.elements = (object *)e_731211;
c_731195.elements[0] = ((closureN)self_73809)->elements[0];
c_731195.elements[1] = ((closureN)self_73809)->elements[1];
c_731195.elements[2] = ((closureN)self_73809)->elements[2];
c_731195.elements[3] = ((closureN)self_73809)->elements[3];

return_direct_with_clo3(data,  __glo_fxarithmetic_91shift_srfi_143, (((closure)  __glo_fxarithmetic_91shift_srfi_143)->fn),  &c_731195, r_73700, ((closureN)self_73809)->elements[3]);; 
}

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

return_direct_with_clo3(data,  __glo_fxarithmetic_91shift_srfi_143, (((closure)  __glo_fxarithmetic_91shift_srfi_143)->fn),  &c_731197, ((closureN)self_73810)->elements[1], ((closureN)self_73810)->elements[3]);; 
}

static void __lambda_70(void *data, object self_73811, int argc, object *args) /* object self_73811, object r_73699 */
 {
 object r_73699 = args[0];
  
closureN_type c_731199;
object e_731207 [3];
c_731199.hdr.mark = gc_color_red;
 c_731199.hdr.grayed = 0;
c_731199.tag = closureN_tag;
 c_731199.fn = (function_type)__lambda_71;
c_731199.num_args = 1;
c_731199.num_elements = 3;
c_731199.elements = (object *)e_731207;
c_731199.elements[0] = ((closureN)self_73811)->elements[0];
c_731199.elements[1] = ((closureN)self_73811)->elements[1];
c_731199.elements[2] = ((closureN)self_73811)->elements[2];

return_direct_with_clo2(data,  __glo_fxnot_srfi_143, (((closure)  __glo_fxnot_srfi_143)->fn),  &c_731199, r_73699);; 
}

static void __lambda_71(void *data, object self_73812, int argc, object *args) /* object self_73812, object r_73698 */
 {
 object r_73698 = args[0];
  
closureN_type c_731201;
object e_731205 [2];
c_731201.hdr.mark = gc_color_red;
 c_731201.hdr.grayed = 0;
c_731201.tag = closureN_tag;
 c_731201.fn = (function_type)__lambda_72;
c_731201.num_args = 1;
c_731201.num_elements = 2;
c_731201.elements = (object *)e_731205;
c_731201.elements[0] = ((closureN)self_73812)->elements[0];
c_731201.elements[1] = ((closureN)self_73812)->elements[2];

return_direct_with_clo3(data,  __glo_fxand_srfi_143, (((closure)  __glo_fxand_srfi_143)->fn),  &c_731201, r_73698, ((closureN)self_73812)->elements[1]);; 
}

static void __lambda_72(void *data, object self_73813, int argc, object *args) /* object self_73813, object r_73697 */
 {
 object r_73697 = args[0];
  return_direct_with_clo3(data,  __glo_fxior_srfi_143, (((closure)  __glo_fxior_srfi_143)->fn),  ((closureN)self_73813)->elements[0], ((closureN)self_73813)->elements[1], r_73697);; 
}

static void __lambda_49(void *data, object _, int argc, object *args) /* closure _,object k_73685, object n_73471_73539, object start_73472_73540, object end_73473_73541 */
 {
object k_73685 = args[0]; object n_73471_73539 = args[1]; object start_73472_73540 = args[2]; object end_73473_73541 = args[3];
  Cyc_st_add(data, "srfi/143.sld:fxbit-field");

closureN_type c_731142;
object e_731154 [3];
c_731142.hdr.mark = gc_color_red;
 c_731142.hdr.grayed = 0;
c_731142.tag = closureN_tag;
 c_731142.fn = (function_type)__lambda_50;
c_731142.num_args = 1;
c_731142.num_elements = 3;
c_731142.elements = (object *)e_731154;
c_731142.elements[0] = k_73685;
c_731142.elements[1] = n_73471_73539;
c_731142.elements[2] = start_73472_73540;

return_direct_with_clo3(data,  __glo_mask_srfi_143, (((closure)  __glo_mask_srfi_143)->fn),  &c_731142, start_73472_73540, end_73473_73541);; 
}

static void __lambda_50(void *data, object self_73789, int argc, object *args) /* object self_73789, object r_73686 */
 {
 object r_73686 = args[0];
  
closureN_type c_731144;
object e_731148 [2];
c_731144.hdr.mark = gc_color_red;
 c_731144.hdr.grayed = 0;
c_731144.tag = closureN_tag;
 c_731144.fn = (function_type)__lambda_51;
c_731144.num_args = 1;
c_731144.num_elements = 2;
c_731144.elements = (object *)e_731148;
c_731144.elements[0] = ((closureN)self_73789)->elements[0];
c_731144.elements[1] = r_73686;


complex_num_type local_731152; 
return_direct_with_clo3(data,  __glo_fxarithmetic_91shift_srfi_143, (((closure)  __glo_fxarithmetic_91shift_srfi_143)->fn),  &c_731144, ((closureN)self_73789)->elements[1], Cyc_fast_sub(data,&local_731152, obj_int2obj(0), ((closureN)self_73789)->elements[2]));; 
}

static void __lambda_51(void *data, object self_73790, int argc, object *args) /* object self_73790, object r_73687 */
 {
 object r_73687 = args[0];
  return_direct_with_clo3(data,  __glo_fxand_srfi_143, (((closure)  __glo_fxand_srfi_143)->fn),  ((closureN)self_73790)->elements[0], ((closureN)self_73790)->elements[1], r_73687);; 
}

static void __lambda_45(void *data, object _, int argc, object *args) /* closure _,object k_73678, object i_73470_73538 */
 {
object k_73678 = args[0]; object i_73470_73538 = args[1];
  Cyc_st_add(data, "srfi/143.sld:fxfirst-set-bit");

closureN_type c_731120;
object e_731139 [2];
c_731120.hdr.mark = gc_color_red;
 c_731120.hdr.grayed = 0;
c_731120.tag = closureN_tag;
 c_731120.fn = (function_type)__lambda_46;
c_731120.num_args = 1;
c_731120.num_elements = 2;
c_731120.elements = (object *)e_731139;
c_731120.elements[0] = i_73470_73538;
c_731120.elements[1] = k_73678;

return_direct_with_clo2(data,  __glo_fxzero_127_srfi_143, (((closure)  __glo_fxzero_127_srfi_143)->fn),  &c_731120, i_73470_73538);; 
}

static void __lambda_46(void *data, object self_73786, int argc, object *args) /* object self_73786, object r_73679 */
 {
 object r_73679 = args[0];
  if( (boolean_f != r_73679) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73786)->elements[1], (((closure)  ((closureN)self_73786)->elements[1])->fn),  obj_int2obj(-1));
} else { 
  
closureN_type c_731124;
object e_731133 [1];
c_731124.hdr.mark = gc_color_red;
 c_731124.hdr.grayed = 0;
c_731124.tag = closureN_tag;
 c_731124.fn = (function_type)__lambda_47;
c_731124.num_args = 1;
c_731124.num_elements = 1;
c_731124.elements = (object *)e_731133;
c_731124.elements[0] = ((closureN)self_73786)->elements[1];


complex_num_type local_731137; 
return_direct_with_clo3(data,  __glo_fxxor_srfi_143, (((closure)  __glo_fxxor_srfi_143)->fn),  &c_731124, ((closureN)self_73786)->elements[0], Cyc_fast_sub(data,&local_731137, ((closureN)self_73786)->elements[0], obj_int2obj(1)));}
;; 
}

static void __lambda_47(void *data, object self_73787, int argc, object *args) /* object self_73787, object r_73681 */
 {
 object r_73681 = args[0];
  
closureN_type c_731126;
object e_731132 [1];
c_731126.hdr.mark = gc_color_red;
 c_731126.hdr.grayed = 0;
c_731126.tag = closureN_tag;
 c_731126.fn = (function_type)__lambda_48;
c_731126.num_args = 1;
c_731126.num_elements = 1;
c_731126.elements = (object *)e_731132;
c_731126.elements[0] = ((closureN)self_73787)->elements[0];

return_direct_with_clo2(data,  __glo_fxbit_91count_srfi_143, (((closure)  __glo_fxbit_91count_srfi_143)->fn),  &c_731126, r_73681);; 
}

static void __lambda_48(void *data, object self_73788, int argc, object *args) /* object self_73788, object r_73680 */
 {
 object r_73680 = args[0];
  
complex_num_type local_731131; 
return_direct_with_clo1(data,  ((closureN)self_73788)->elements[0], (((closure)  ((closureN)self_73788)->elements[0])->fn),  Cyc_fast_sub(data,&local_731131, r_73680, obj_int2obj(1)));; 
}

static void __lambda_43(void *data, object _, int argc, object *args) /* closure _,object k_73673, object start_73468_73536, object end_73469_73537 */
 {
object k_73673 = args[0]; object start_73468_73536 = args[1]; object end_73469_73537 = args[2];
  Cyc_st_add(data, "srfi/143.sld:mask");

closureN_type c_731111;
object e_731114 [1];
c_731111.hdr.mark = gc_color_red;
 c_731111.hdr.grayed = 0;
c_731111.tag = closureN_tag;
 c_731111.fn = (function_type)__lambda_44;
c_731111.num_args = 1;
c_731111.num_elements = 1;
c_731111.elements = (object *)e_731114;
c_731111.elements[0] = k_73673;


complex_num_type local_731117; 
return_direct_with_clo3(data,  __glo_fxarithmetic_91shift_91left_srfi_143, (((closure)  __glo_fxarithmetic_91shift_91left_srfi_143)->fn),  &c_731111, obj_int2obj(-1), Cyc_fast_sub(data,&local_731117, end_73469_73537, start_73468_73536));; 
}

static void __lambda_44(void *data, object self_73785, int argc, object *args) /* object self_73785, object r_73674 */
 {
 object r_73674 = args[0];
  return_direct_with_clo2(data,  __glo_fxnot_srfi_143, (((closure)  __glo_fxnot_srfi_143)->fn),  ((closureN)self_73785)->elements[0], r_73674);; 
}

static void __lambda_39(void *data, object _, int argc, object *args) /* closure _,object k_73667, object index_73465_73533, object to_73466_73534, object bool_73467_73535 */
 {
object k_73667 = args[0]; object index_73465_73533 = args[1]; object to_73466_73534 = args[2]; object bool_73467_73535 = args[3];
  Cyc_st_add(data, "srfi/143.sld:fxcopy-bit");
if( (boolean_f != bool_73467_73535) ){ 
  
closureN_type c_731095;
object e_731099 [2];
c_731095.hdr.mark = gc_color_red;
 c_731095.hdr.grayed = 0;
c_731095.tag = closureN_tag;
 c_731095.fn = (function_type)__lambda_40;
c_731095.num_args = 1;
c_731095.num_elements = 2;
c_731095.elements = (object *)e_731099;
c_731095.elements[0] = k_73667;
c_731095.elements[1] = to_73466_73534;

return_direct_with_clo3(data,  __glo_fxarithmetic_91shift_91left_srfi_143, (((closure)  __glo_fxarithmetic_91shift_91left_srfi_143)->fn),  &c_731095, obj_int2obj(1), index_73465_73533);
} else { 
  
closureN_type c_731101;
object e_731108 [2];
c_731101.hdr.mark = gc_color_red;
 c_731101.hdr.grayed = 0;
c_731101.tag = closureN_tag;
 c_731101.fn = (function_type)__lambda_41;
c_731101.num_args = 1;
c_731101.num_elements = 2;
c_731101.elements = (object *)e_731108;
c_731101.elements[0] = k_73667;
c_731101.elements[1] = to_73466_73534;

return_direct_with_clo3(data,  __glo_fxarithmetic_91shift_91left_srfi_143, (((closure)  __glo_fxarithmetic_91shift_91left_srfi_143)->fn),  &c_731101, obj_int2obj(1), index_73465_73533);}
;; 
}

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

return_direct_with_clo2(data,  __glo_fxnot_srfi_143, (((closure)  __glo_fxnot_srfi_143)->fn),  &c_731103, r_73670);; 
}

static void __lambda_42(void *data, object self_73784, int argc, object *args) /* object self_73784, object r_73669 */
 {
 object r_73669 = args[0];
  return_direct_with_clo3(data,  __glo_fxand_srfi_143, (((closure)  __glo_fxand_srfi_143)->fn),  ((closureN)self_73784)->elements[0], ((closureN)self_73784)->elements[1], r_73669);; 
}

static void __lambda_40(void *data, object self_73782, int argc, object *args) /* object self_73782, object r_73668 */
 {
 object r_73668 = args[0];
  return_direct_with_clo3(data,  __glo_fxior_srfi_143, (((closure)  __glo_fxior_srfi_143)->fn),  ((closureN)self_73782)->elements[0], ((closureN)self_73782)->elements[1], r_73668);; 
}

static void __lambda_131(void *data, object _, int argc, object *args) {object k = args[0];object index = args[1];object i = args[2]; Cyc_check_fixnum(data, index);
         Cyc_check_fixnum(data, i);
         int result = ((obj_obj2int(i)) & (1 << (obj_obj2int(index))));
         return_closcall1(data, k, result ? boolean_t : boolean_f);  }
static void __lambda_36(void *data, object _, int argc, object *args) /* closure _,object k_73661, object index_73458_73530, object i_73459_73531 */
 {
object k_73661 = args[0]; object index_73458_73530 = args[1]; object i_73459_73531 = args[2];
  Cyc_st_add(data, "srfi/143.sld:fxbit-set?");

closureN_type c_731073;
object e_731091 [3];
c_731073.hdr.mark = gc_color_red;
 c_731073.hdr.grayed = 0;
c_731073.tag = closureN_tag;
 c_731073.fn = (function_type)__lambda_37;
c_731073.num_args = 1;
c_731073.num_elements = 3;
c_731073.elements = (object *)e_731091;
c_731073.elements[0] = i_73459_73531;
c_731073.elements[1] = index_73458_73530;
c_731073.elements[2] = k_73661;

return_direct_with_clo3(data,  __glo__75fxbit_91set_127_srfi_143, (((closure)  __glo__75fxbit_91set_127_srfi_143)->fn),  &c_731073, index_73458_73530, i_73459_73531);; 
}

static void __lambda_37(void *data, object self_73780, int argc, object *args) /* object self_73780, object tmp_73461_73463_73532 */
 {
 object tmp_73461_73463_73532 = args[0];
  if( (boolean_f != tmp_73461_73463_73532) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73780)->elements[2], (((closure)  ((closureN)self_73780)->elements[2])->fn),  tmp_73461_73463_73532);
} else { 
    complex_num_type local_731078; 
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_negative_127_191_191inline_191_191_scheme_base)->fn)(data,&local_731078, ((closureN)self_73780)->elements[0])) ){ 
  
closureN_type c_731081;
object e_731087 [2];
c_731081.hdr.mark = gc_color_red;
 c_731081.hdr.grayed = 0;
c_731081.tag = closureN_tag;
 c_731081.fn = (function_type)__lambda_38;
c_731081.num_args = 1;
c_731081.num_elements = 2;
c_731081.elements = (object *)e_731087;
c_731081.elements[0] = ((closureN)self_73780)->elements[1];
c_731081.elements[1] = ((closureN)self_73780)->elements[2];

return_direct_with_clo2(data,  __glo_fxlength_srfi_143, (((closure)  __glo_fxlength_srfi_143)->fn),  &c_731081, ((closureN)self_73780)->elements[0]);
} else { 
  return_direct_with_clo1(data,  ((closureN)self_73780)->elements[2], (((closure)  ((closureN)self_73780)->elements[2])->fn),  boolean_f);}
;}
;; 
}

static void __lambda_38(void *data, object self_73781, int argc, object *args) /* object self_73781, object r_73664 */
 {
 object r_73664 = args[0];
  

return_direct_with_clo1(data,  ((closureN)self_73781)->elements[1], (((closure)  ((closureN)self_73781)->elements[1])->fn),  Cyc_num_fast_gte_op(data, ((closureN)self_73781)->elements[0], r_73664));; 
}

static void __lambda_32(void *data, object _, int argc, object *args) /* closure _,object k_73655, object mask_73455_73527, object n0_73456_73528, object n1_73457_73529 */
 {
object k_73655 = args[0]; object mask_73455_73527 = args[1]; object n0_73456_73528 = args[2]; object n1_73457_73529 = args[3];
  Cyc_st_add(data, "srfi/143.sld:fxif");

closureN_type c_731058;
object e_731070 [3];
c_731058.hdr.mark = gc_color_red;
 c_731058.hdr.grayed = 0;
c_731058.tag = closureN_tag;
 c_731058.fn = (function_type)__lambda_33;
c_731058.num_args = 1;
c_731058.num_elements = 3;
c_731058.elements = (object *)e_731070;
c_731058.elements[0] = k_73655;
c_731058.elements[1] = mask_73455_73527;
c_731058.elements[2] = n1_73457_73529;

return_direct_with_clo3(data,  __glo_fxand_srfi_143, (((closure)  __glo_fxand_srfi_143)->fn),  &c_731058, mask_73455_73527, n0_73456_73528);; 
}

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

return_direct_with_clo2(data,  __glo_fxnot_srfi_143, (((closure)  __glo_fxnot_srfi_143)->fn),  &c_731060, ((closureN)self_73777)->elements[1]);; 
}

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

return_direct_with_clo3(data,  __glo_fxand_srfi_143, (((closure)  __glo_fxand_srfi_143)->fn),  &c_731062, r_73658, ((closureN)self_73778)->elements[1]);; 
}

static void __lambda_35(void *data, object self_73779, int argc, object *args) /* object self_73779, object r_73657 */
 {
 object r_73657 = args[0];
  return_direct_with_clo3(data,  __glo_fxior_srfi_143, (((closure)  __glo_fxior_srfi_143)->fn),  ((closureN)self_73779)->elements[0], ((closureN)self_73779)->elements[1], r_73657);; 
}

static void __lambda_26(void *data, object _, int argc, object *args) /* closure _,object k_73645, object i_73454_73526 */
 {
object k_73645 = args[0]; object i_73454_73526 = args[1];
  Cyc_st_add(data, "srfi/143.sld:fxlength");

closureN_type c_731024;
object e_731035 [1];
c_731024.hdr.mark = gc_color_red;
 c_731024.hdr.grayed = 0;
c_731024.tag = closureN_tag;
 c_731024.fn = (function_type)__lambda_27;
c_731024.num_args = 0;
c_731024.num_elements = 1;
c_731024.elements = (object *)e_731035;
c_731024.elements[0] = i_73454_73526;


closureN_type c_731036;
object e_731055 [1];
c_731036.hdr.mark = gc_color_red;
 c_731036.hdr.grayed = 0;
c_731036.tag = closureN_tag;
 c_731036.fn = (function_type)__lambda_29;
c_731036.num_args = 1;
c_731036.num_elements = 1;
c_731036.elements = (object *)e_731055;
c_731036.elements[0] = k_73645;

return_direct_with_clo1(data,(closure)&c_731024,__lambda_27,  &c_731036);; 
}

static void __lambda_29(void *data, object self_73772, int argc, object *args) /* object self_73772, object r_73650 */
 {
 object r_73650 = args[0];
  
closureN_type c_731038;
object e_731054 [1];
c_731038.hdr.mark = gc_color_red;
 c_731038.hdr.grayed = 0;
c_731038.tag = closureN_tag;
 c_731038.fn = (function_type)__lambda_30;
c_731038.num_args = 1;
c_731038.num_elements = 1;
c_731038.elements = (object *)e_731054;
c_731038.elements[0] = ((closureN)self_73772)->elements[0];

return_direct_with_clo2(data,  __glo_log_scheme_inexact, (((closure)  __glo_log_scheme_inexact)->fn),  &c_731038, r_73650);; 
}

static void __lambda_30(void *data, object self_73773, int argc, object *args) /* object self_73773, object r_73648 */
 {
 object r_73648 = args[0];
  
closureN_type c_731040;
object e_731053 [2];
c_731040.hdr.mark = gc_color_red;
 c_731040.hdr.grayed = 0;
c_731040.tag = closureN_tag;
 c_731040.fn = (function_type)__lambda_31;
c_731040.num_args = 1;
c_731040.num_elements = 2;
c_731040.elements = (object *)e_731053;
c_731040.elements[0] = ((closureN)self_73773)->elements[0];
c_731040.elements[1] = r_73648;

return_direct_with_clo2(data,  __glo_log_scheme_inexact, (((closure)  __glo_log_scheme_inexact)->fn),  &c_731040, obj_int2obj(2));; 
}

static void __lambda_31(void *data, object self_73774, int argc, object *args) /* object self_73774, object r_73649 */
 {
 object r_73649 = args[0];
  
complex_num_type local_731045; 

complex_num_type local_731048; 

complex_num_type local_731051; 
return_direct_with_clo1(data,  ((closureN)self_73774)->elements[0], (((closure)  ((closureN)self_73774)->elements[0])->fn),  ((inline_function_type)
                   ((closure)__glo_exact_191_191inline_191_191_scheme_base)->fn)(data,&local_731045, ((inline_function_type)
                   ((closure)__glo_ceiling_191_191inline_191_191_scheme_base)->fn)(data,&local_731048, Cyc_fast_div(data,&local_731051, ((closureN)self_73774)->elements[1], r_73649))));; 
}

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

return_direct_with_clo3(data,  __glo_fx_121_127_srfi_143, (((closure)  __glo_fx_121_127_srfi_143)->fn),  &c_731026, ((closureN)self_73775)->elements[0], obj_int2obj(0));; 
}

static void __lambda_28(void *data, object self_73776, int argc, object *args) /* object self_73776, object r_73652_73749 */
 {
 object r_73652_73749 = args[0];
  if( (boolean_f != r_73652_73749) ){ 
  return_direct_with_clo3(data,  __glo_fx_91_srfi_143, (((closure)  __glo_fx_91_srfi_143)->fn),  ((closureN)self_73776)->elements[1], obj_int2obj(0), ((closureN)self_73776)->elements[0]);
} else { 
  return_direct_with_clo3(data,  __glo_fx_87_srfi_143, (((closure)  __glo_fx_87_srfi_143)->fn),  ((closureN)self_73776)->elements[1], obj_int2obj(1), ((closureN)self_73776)->elements[0]);}
;; 
}

static void __lambda_130(void *data, object _, int argc, object *args) {object k = args[0];object i = args[1]; Cyc_check_fixnum(data, i);
         unsigned int count = 0;
         int n = obj_obj2int(i);
         while (n) {
           n &= (n - 1);
           count++;
         }
         return_closcall1(data, k, obj_int2obj(count)); }
static void __lambda_23(void *data, object _, int argc, object *args) /* closure _,object k_73640, object i_73452_73524, object count_73453_73525 */
 {
object k_73640 = args[0]; object i_73452_73524 = args[1]; object count_73453_73525 = args[2];
  Cyc_st_add(data, "srfi/143.sld:fxarithmetic-shift");

closureN_type c_731008;
object e_731020 [3];
c_731008.hdr.mark = gc_color_red;
 c_731008.hdr.grayed = 0;
c_731008.tag = closureN_tag;
 c_731008.fn = (function_type)__lambda_24;
c_731008.num_args = 1;
c_731008.num_elements = 3;
c_731008.elements = (object *)e_731020;
c_731008.elements[0] = count_73453_73525;
c_731008.elements[1] = i_73452_73524;
c_731008.elements[2] = k_73640;

return_direct_with_clo3(data,  __glo_fx_125_127_srfi_143, (((closure)  __glo_fx_125_127_srfi_143)->fn),  &c_731008, count_73453_73525, obj_int2obj(0));; 
}

static void __lambda_24(void *data, object self_73770, int argc, object *args) /* object self_73770, object r_73641 */
 {
 object r_73641 = args[0];
  if( (boolean_f != r_73641) ){ 
  return_direct_with_clo3(data,  __glo_fxarithmetic_91shift_91left_srfi_143, (((closure)  __glo_fxarithmetic_91shift_91left_srfi_143)->fn),  ((closureN)self_73770)->elements[2], ((closureN)self_73770)->elements[1], ((closureN)self_73770)->elements[0]);
} else { 
  
closureN_type c_731014;
object e_731018 [2];
c_731014.hdr.mark = gc_color_red;
 c_731014.hdr.grayed = 0;
c_731014.tag = closureN_tag;
 c_731014.fn = (function_type)__lambda_25;
c_731014.num_args = 1;
c_731014.num_elements = 2;
c_731014.elements = (object *)e_731018;
c_731014.elements[0] = ((closureN)self_73770)->elements[1];
c_731014.elements[1] = ((closureN)self_73770)->elements[2];

return_direct_with_clo3(data,  __glo_fx_91_srfi_143, (((closure)  __glo_fx_91_srfi_143)->fn),  &c_731014, obj_int2obj(0), ((closureN)self_73770)->elements[0]);}
;; 
}

static void __lambda_25(void *data, object self_73771, int argc, object *args) /* object self_73771, object r_73642_73748 */
 {
 object r_73642_73748 = args[0];
  return_direct_with_clo3(data,  __glo_fxarithmetic_91shift_91right_srfi_143, (((closure)  __glo_fxarithmetic_91shift_91right_srfi_143)->fn),  ((closureN)self_73771)->elements[1], ((closureN)self_73771)->elements[0], r_73642_73748);; 
}

static void __lambda_129(void *data, object _, int argc, object *args) {object k = args[0];object i = args[1]; Cyc_check_fixnum(data, i);
         object result = obj_int2obj(~(int)(obj_obj2int(i)));
         return_closcall1(data, k, result);  }
static void __lambda_21(void *data, object _, int argc, object *args) /* closure _,object k_73636, object i_73451_73523 */
 {
object k_73636 = args[0]; object i_73451_73523 = args[1];
  Cyc_st_add(data, "srfi/143.sld:fxabs");

closureN_type c_73997;
object e_731004 [2];
c_73997.hdr.mark = gc_color_red;
 c_73997.hdr.grayed = 0;
c_73997.tag = closureN_tag;
 c_73997.fn = (function_type)__lambda_22;
c_73997.num_args = 1;
c_73997.num_elements = 2;
c_73997.elements = (object *)e_731004;
c_73997.elements[0] = i_73451_73523;
c_73997.elements[1] = k_73636;

return_direct_with_clo3(data,  __glo_fx_121_127_srfi_143, (((closure)  __glo_fx_121_127_srfi_143)->fn),  &c_73997, i_73451_73523, obj_int2obj(0));; 
}

static void __lambda_22(void *data, object self_73769, int argc, object *args) /* object self_73769, object r_73637_73747 */
 {
 object r_73637_73747 = args[0];
  if( (boolean_f != r_73637_73747) ){ 
  return_direct_with_clo3(data,  __glo_fx_91_srfi_143, (((closure)  __glo_fx_91_srfi_143)->fn),  ((closureN)self_73769)->elements[1], obj_int2obj(0), ((closureN)self_73769)->elements[0]);
} else { 
  return_direct_with_clo1(data,  ((closureN)self_73769)->elements[1], (((closure)  ((closureN)self_73769)->elements[1])->fn),  ((closureN)self_73769)->elements[0]);}
;; 
}

static void __lambda_20(void *data, object _, int argc, object *args) /* closure _,object k_73633, object i_73450_73522 */
 {
object k_73633 = args[0]; object i_73450_73522 = args[1];
  Cyc_st_add(data, "srfi/143.sld:fxneg");
return_direct_with_clo3(data,  __glo_fx_91_srfi_143, (((closure)  __glo_fx_91_srfi_143)->fn),  k_73633, obj_int2obj(0), i_73450_73522);; 
}

static void __lambda_19(void *data, object _, int argc, object *args) /* closure _,object k_73630, object i_73449_73521 */
 {
object k_73630 = args[0]; object i_73449_73521 = args[1];
  Cyc_st_add(data, "srfi/143.sld:fxsquare");
return_direct_with_clo3(data,  __glo_fx_85_srfi_143, (((closure)  __glo_fx_85_srfi_143)->fn),  k_73630, i_73449_73521, i_73449_73521);; 
}

static void __lambda_15(void *data, object _, int argc, object *args) /* closure _,object k_73622, object first_73445_73517, object rest_73446_73518_raw, ... */
 {
object k_73622 = args[0]; object first_73445_73517 = args[1];
load_varargs(rest_73446_73518, args, 2, argc - 2);
  Cyc_st_add(data, "srfi/143.sld:fxmin");

closureN_type c_73975;
object e_73980 [3];
c_73975.hdr.mark = gc_color_red;
 c_73975.hdr.grayed = 0;
c_73975.tag = closureN_tag;
 c_73975.fn = (function_type)__lambda_16;
c_73975.num_args = 1;
c_73975.num_elements = 3;
c_73975.elements = (object *)e_73980;
c_73975.elements[0] = first_73445_73517;
c_73975.elements[1] = k_73622;
c_73975.elements[2] = rest_73446_73518;


mclosure0(c_73981, (function_type)__lambda_17);c_73981.num_args = 2;
return_direct_with_clo1(data,(closure)&c_73975,__lambda_16,  &c_73981);; 
}

static void __lambda_17(void *data, object self_73766, int argc, object *args) /* object self_73766, object k_73624, object old_73447_73519, object new_73448_73520 */
 {
 object k_73624 = args[0]; object old_73447_73519 = args[1]; object new_73448_73520 = args[2];
  
closureN_type c_73983;
object e_73990 [3];
c_73983.hdr.mark = gc_color_red;
 c_73983.hdr.grayed = 0;
c_73983.tag = closureN_tag;
 c_73983.fn = (function_type)__lambda_18;
c_73983.num_args = 1;
c_73983.num_elements = 3;
c_73983.elements = (object *)e_73990;
c_73983.elements[0] = k_73624;
c_73983.elements[1] = new_73448_73520;
c_73983.elements[2] = old_73447_73519;

return_direct_with_clo3(data,  __glo_fx_121_127_srfi_143, (((closure)  __glo_fx_121_127_srfi_143)->fn),  &c_73983, old_73447_73519, new_73448_73520);; 
}

static void __lambda_18(void *data, object self_73767, int argc, object *args) /* object self_73767, object r_73625 */
 {
 object r_73625 = args[0];
  if( (boolean_f != r_73625) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73767)->elements[0], (((closure)  ((closureN)self_73767)->elements[0])->fn),  ((closureN)self_73767)->elements[2]);
} else { 
  return_direct_with_clo1(data,  ((closureN)self_73767)->elements[0], (((closure)  ((closureN)self_73767)->elements[0])->fn),  ((closureN)self_73767)->elements[1]);}
;; 
}

static void __lambda_16(void *data, object self_73768, int argc, object *args) /* object self_73768, object r_73623 */
 {
 object r_73623 = args[0];
  return_direct_with_clo4(data,  __glo_foldl_scheme_base, (((closure)  __glo_foldl_scheme_base)->fn),  ((closureN)self_73768)->elements[1], r_73623, ((closureN)self_73768)->elements[0], ((closureN)self_73768)->elements[2]);; 
}

static void __lambda_11(void *data, object _, int argc, object *args) /* closure _,object k_73616, object first_73441_73513, object rest_73442_73514_raw, ... */
 {
object k_73616 = args[0]; object first_73441_73513 = args[1];
load_varargs(rest_73442_73514, args, 2, argc - 2);
  Cyc_st_add(data, "srfi/143.sld:fxmax");

closureN_type c_73957;
object e_73962 [3];
c_73957.hdr.mark = gc_color_red;
 c_73957.hdr.grayed = 0;
c_73957.tag = closureN_tag;
 c_73957.fn = (function_type)__lambda_12;
c_73957.num_args = 1;
c_73957.num_elements = 3;
c_73957.elements = (object *)e_73962;
c_73957.elements[0] = first_73441_73513;
c_73957.elements[1] = k_73616;
c_73957.elements[2] = rest_73442_73514;


mclosure0(c_73963, (function_type)__lambda_13);c_73963.num_args = 2;
return_direct_with_clo1(data,(closure)&c_73957,__lambda_12,  &c_73963);; 
}

static void __lambda_13(void *data, object self_73763, int argc, object *args) /* object self_73763, object k_73618, object old_73443_73515, object new_73444_73516 */
 {
 object k_73618 = args[0]; object old_73443_73515 = args[1]; object new_73444_73516 = args[2];
  
closureN_type c_73965;
object e_73972 [3];
c_73965.hdr.mark = gc_color_red;
 c_73965.hdr.grayed = 0;
c_73965.tag = closureN_tag;
 c_73965.fn = (function_type)__lambda_14;
c_73965.num_args = 1;
c_73965.num_elements = 3;
c_73965.elements = (object *)e_73972;
c_73965.elements[0] = k_73618;
c_73965.elements[1] = new_73444_73516;
c_73965.elements[2] = old_73443_73515;

return_direct_with_clo3(data,  __glo_fx_125_127_srfi_143, (((closure)  __glo_fx_125_127_srfi_143)->fn),  &c_73965, old_73443_73515, new_73444_73516);; 
}

static void __lambda_14(void *data, object self_73764, int argc, object *args) /* object self_73764, object r_73619 */
 {
 object r_73619 = args[0];
  if( (boolean_f != r_73619) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73764)->elements[0], (((closure)  ((closureN)self_73764)->elements[0])->fn),  ((closureN)self_73764)->elements[2]);
} else { 
  return_direct_with_clo1(data,  ((closureN)self_73764)->elements[0], (((closure)  ((closureN)self_73764)->elements[0])->fn),  ((closureN)self_73764)->elements[1]);}
;; 
}

static void __lambda_12(void *data, object self_73765, int argc, object *args) /* object self_73765, object r_73617 */
 {
 object r_73617 = args[0];
  return_direct_with_clo4(data,  __glo_foldl_scheme_base, (((closure)  __glo_foldl_scheme_base)->fn),  ((closureN)self_73765)->elements[1], r_73617, ((closureN)self_73765)->elements[0], ((closureN)self_73765)->elements[2]);; 
}

static void __lambda_9(void *data, object _, int argc, object *args) /* closure _,object k_73612, object i_73440_73512 */
 {
object k_73612 = args[0]; object i_73440_73512 = args[1];
  Cyc_st_add(data, "srfi/143.sld:fxeven?");

closureN_type c_73949;
object e_73954 [1];
c_73949.hdr.mark = gc_color_red;
 c_73949.hdr.grayed = 0;
c_73949.tag = closureN_tag;
 c_73949.fn = (function_type)__lambda_10;
c_73949.num_args = 1;
c_73949.num_elements = 1;
c_73949.elements = (object *)e_73954;
c_73949.elements[0] = k_73612;

return_direct_with_clo2(data,  __glo_fxodd_127_srfi_143, (((closure)  __glo_fxodd_127_srfi_143)->fn),  &c_73949, i_73440_73512);; 
}

static void __lambda_10(void *data, object self_73762, int argc, object *args) /* object self_73762, object r_73613 */
 {
 object r_73613 = args[0];
  if( (boolean_f != r_73613) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73762)->elements[0], (((closure)  ((closureN)self_73762)->elements[0])->fn),  boolean_f);
} else { 
  return_direct_with_clo1(data,  ((closureN)self_73762)->elements[0], (((closure)  ((closureN)self_73762)->elements[0])->fn),  boolean_t);}
;; 
}

static void __lambda_128(void *data, object _, int argc, object *args) {object k = args[0];object i = args[1]; Cyc_check_fixnum(data, i);
        return_closcall1(data, k, obj_obj2int(i) % 2 ? boolean_t : boolean_f);  }
static void __lambda_8(void *data, object _, int argc, object *args) /* closure _,object k_73609, object i_73439_73511 */
 {
object k_73609 = args[0]; object i_73439_73511 = args[1];
  Cyc_st_add(data, "srfi/143.sld:fxnegative?");
return_direct_with_clo3(data,  __glo_fx_121_127_srfi_143, (((closure)  __glo_fx_121_127_srfi_143)->fn),  k_73609, i_73439_73511, obj_int2obj(0));; 
}

static void __lambda_7(void *data, object _, int argc, object *args) /* closure _,object k_73606, object i_73438_73510 */
 {
object k_73606 = args[0]; object i_73438_73510 = args[1];
  Cyc_st_add(data, "srfi/143.sld:fxpositive?");
return_direct_with_clo3(data,  __glo_fx_125_127_srfi_143, (((closure)  __glo_fx_125_127_srfi_143)->fn),  k_73606, i_73438_73510, obj_int2obj(0));; 
}

static void __lambda_127(void *data, object _, int argc, object *args) {object k = args[0];object i = args[1]; Cyc_check_fixnum(data, i);
        return_closcall1(data, k, obj_obj2int(i) == 0 ? boolean_t : boolean_f);  }
static void __lambda_126(void *data, object _, int argc, object *args) {object k = args[0];object obj = args[1]; return_closcall1(data, k, 
          obj_is_int(obj) ? boolean_t : boolean_f);  }
static void __lambda_125(void *data, object _, int argc, object *args) {object k = args[0];object i = args[1];object j = args[2]; Cyc_check_fixnum(data, i);
                      Cyc_check_fixnum(data, j);
                      object result = (obj_obj2int(i) >= obj_obj2int(j)) ? boolean_t : boolean_f;
                      return_closcall1(data, k, result);  }
static void __lambda_124(void *data, object _, int argc, object *args) {object k = args[0];object i = args[1];object j = args[2]; Cyc_check_fixnum(data, i);
                      Cyc_check_fixnum(data, j);
                      object result = (obj_obj2int(i) <= obj_obj2int(j)) ? boolean_t : boolean_f;
                      return_closcall1(data, k, result);  }
static void __lambda_123(void *data, object _, int argc, object *args) {object k = args[0];object i = args[1];object j = args[2]; Cyc_check_fixnum(data, i);
                      Cyc_check_fixnum(data, j);
                      object result = (obj_obj2int(i) > obj_obj2int(j)) ? boolean_t : boolean_f;
                      return_closcall1(data, k, result);  }
static void __lambda_122(void *data, object _, int argc, object *args) {object k = args[0];object i = args[1];object j = args[2]; Cyc_check_fixnum(data, i);
                      Cyc_check_fixnum(data, j);
                      object result = (obj_obj2int(i) < obj_obj2int(j)) ? boolean_t : boolean_f;
                      return_closcall1(data, k, result);  }
static void __lambda_121(void *data, object _, int argc, object *args) {object k = args[0];object i = args[1];object j = args[2]; Cyc_check_fixnum(data, i);
                      Cyc_check_fixnum(data, j);
                      object result = (obj_obj2int(i) == obj_obj2int(j)) ? boolean_t : boolean_f;
                      return_closcall1(data, k, result);  }
static void __lambda_120(void *data, object _, int argc, object *args) {object k = args[0];object i = args[1];object j = args[2]; Cyc_check_fixnum(data, i);
                      Cyc_check_fixnum(data, j);  object result = obj_int2obj(obj_obj2int(i) >> obj_obj2int(j));
                      return_closcall1(data, k, result);  }
static void __lambda_119(void *data, object _, int argc, object *args) {object k = args[0];object i = args[1];object j = args[2]; Cyc_check_fixnum(data, i);
                      Cyc_check_fixnum(data, j);  object result = obj_int2obj(obj_obj2int(i) << obj_obj2int(j));
                      return_closcall1(data, k, result);  }
static void __lambda_118(void *data, object _, int argc, object *args) {object k = args[0];object i = args[1];object j = args[2]; Cyc_check_fixnum(data, i);
                      Cyc_check_fixnum(data, j);  object result = obj_int2obj(obj_obj2int(i) ^ obj_obj2int(j));
                      return_closcall1(data, k, result);  }
static void __lambda_117(void *data, object _, int argc, object *args) {object k = args[0];object i = args[1];object j = args[2]; Cyc_check_fixnum(data, i);
                      Cyc_check_fixnum(data, j);  object result = obj_int2obj(obj_obj2int(i) | obj_obj2int(j));
                      return_closcall1(data, k, result);  }
static void __lambda_116(void *data, object _, int argc, object *args) {object k = args[0];object i = args[1];object j = args[2]; Cyc_check_fixnum(data, i);
                      Cyc_check_fixnum(data, j);  object result = obj_int2obj(obj_obj2int(i) & obj_obj2int(j));
                      return_closcall1(data, k, result);  }
static void __lambda_115(void *data, object _, int argc, object *args) {object k = args[0];object i = args[1];object j = args[2]; Cyc_check_fixnum(data, i);
                      Cyc_check_fixnum(data, j);  if (obj_obj2int(j) == 0) { Cyc_rt_raise_msg(data, "Divide by zero");} object result = obj_int2obj(obj_obj2int(i) % obj_obj2int(j));
                      return_closcall1(data, k, result);  }
static void __lambda_114(void *data, object _, int argc, object *args) {object k = args[0];object i = args[1];object j = args[2]; Cyc_check_fixnum(data, i);
                      Cyc_check_fixnum(data, j);  if (obj_obj2int(j) == 0) { Cyc_rt_raise_msg(data, "Divide by zero");} object result = obj_int2obj(obj_obj2int(i) / obj_obj2int(j));
                      return_closcall1(data, k, result);  }
static void __lambda_113(void *data, object _, int argc, object *args) {object k = args[0];object i = args[1];object j = args[2]; Cyc_check_fixnum(data, i);
                      Cyc_check_fixnum(data, j);  object result = obj_int2obj(obj_obj2int(i) * obj_obj2int(j));
                      return_closcall1(data, k, result);  }
static void __lambda_112(void *data, object _, int argc, object *args) {object k = args[0];object i = args[1];object j = args[2]; Cyc_check_fixnum(data, i);
                      Cyc_check_fixnum(data, j);  object result = obj_int2obj(obj_obj2int(i) - obj_obj2int(j));
                      return_closcall1(data, k, result);  }
static void __lambda_111(void *data, object _, int argc, object *args) {object k = args[0];object i = args[1];object j = args[2]; Cyc_check_fixnum(data, i);
                      Cyc_check_fixnum(data, j);  object result = obj_int2obj(obj_obj2int(i) + obj_obj2int(j));
                      return_closcall1(data, k, result);  }
static void __lambda_5(void *data, object _, int argc, object *args) /* closure _,object k_73595, object expr_7324_73503, object rename_7325_73504, object compare_7326_73505 */
 {
object k_73595 = args[0]; object expr_7324_73503 = args[1];
  Cyc_st_add(data, "srfi/143.sld:cmp-op");

closureN_type c_73898;
object e_73917 [2];
c_73898.hdr.mark = gc_color_red;
 c_73898.hdr.grayed = 0;
c_73898.tag = closureN_tag;
 c_73898.fn = (function_type)__lambda_6;
c_73898.num_args = 1;
c_73898.num_elements = 2;
c_73898.elements = (object *)e_73917;
c_73898.elements[0] = expr_7324_73503;
c_73898.elements[1] = k_73595;


make_utf8_string_with_len(c_73921, " Cyc_check_fixnum(data, i);\n                      Cyc_check_fixnum(data, j);\n                      object result = (obj_obj2int(i) ", 131, 131);



make_utf8_string_with_len(c_73924, " obj_obj2int(j)) \? boolean_t : boolean_f;\n                      return_closcall1(data, k, result); ", 99, 99);

object c_73920 = Cyc_string_append(data,(closure)&c_73898,3,&c_73921, Cyc_caddr(data, expr_7324_73503), &c_73924);
return_closcall1(data,(closure)&c_73898,  c_73920);; 
}

static void __lambda_6(void *data, object self_73761, int argc, object *args) /* object self_73761, object body_7338_73509 */
 {
 object body_7338_73509 = args[0];
  
pair_type local_73903; 

pair_type local_73906; 



pair_type local_73912; 

make_utf8_string_with_len(c_73913, "(void* data, int argc, closure _, object k, object i, object j)", 63, 63);

pair_type local_73916; 
return_direct_with_clo1(data,  ((closureN)self_73761)->elements[1], (((closure)  ((closureN)self_73761)->elements[1])->fn),  set_pair_as_expr(&local_73903, quote_define_91c, set_pair_as_expr(&local_73906, Cyc_cadr(data, ((closureN)self_73761)->elements[0]), set_pair_as_expr(&local_73912, &c_73913, set_pair_as_expr(&local_73916, body_7338_73509, NULL)))));; 
}

static void __lambda_1(void *data, object _, int argc, object *args) /* closure _,object k_73578, object expr_731_73495, object rename_732_73496, object compare_733_73497 */
 {
object k_73578 = args[0]; object expr_731_73495 = args[1];
  object zero_91check_127_7312_73500;
  Cyc_st_add(data, "srfi/143.sld:bin-num-op");
  
  
if( (boolean_f != Cyc_num_fast_gt_op(data, Cyc_length(data, expr_731_73495), obj_int2obj(3))) ){ 
  
  zero_91check_127_7312_73500 = Cyc_cadddr(data, expr_731_73495);
} else { 
  zero_91check_127_7312_73500 = boolean_f;}
;
closureN_type c_73857;
object e_73863 [1];
c_73857.hdr.mark = gc_color_red;
 c_73857.hdr.grayed = 0;
c_73857.tag = closureN_tag;
 c_73857.fn = (function_type)__lambda_2;
c_73857.num_args = 0;
c_73857.num_elements = 1;
c_73857.elements = (object *)e_73863;
c_73857.elements[0] = zero_91check_127_7312_73500;


closureN_type c_73864;
object e_73895 [2];
c_73864.hdr.mark = gc_color_red;
 c_73864.hdr.grayed = 0;
c_73864.tag = closureN_tag;
 c_73864.fn = (function_type)__lambda_3;
c_73864.num_args = 1;
c_73864.num_elements = 2;
c_73864.elements = (object *)e_73895;
c_73864.elements[0] = expr_731_73495;
c_73864.elements[1] = k_73578;

return_direct_with_clo1(data,(closure)&c_73857,__lambda_2,  &c_73864);; 
}

static void __lambda_3(void *data, object self_73758, int argc, object *args) /* object self_73758, object r_73588 */
 {
 object r_73588 = args[0];
  
closureN_type c_73866;
object e_73885 [2];
c_73866.hdr.mark = gc_color_red;
 c_73866.hdr.grayed = 0;
c_73866.tag = closureN_tag;
 c_73866.fn = (function_type)__lambda_4;
c_73866.num_args = 1;
c_73866.num_elements = 2;
c_73866.elements = (object *)e_73885;
c_73866.elements[0] = ((closureN)self_73758)->elements[0];
c_73866.elements[1] = ((closureN)self_73758)->elements[1];


make_utf8_string_with_len(c_73889, " Cyc_check_fixnum(data, i);\n                      Cyc_check_fixnum(data, j); ", 77, 77);

make_utf8_string_with_len(c_73890, " object result = obj_int2obj(obj_obj2int(i) ", 44, 44);



make_utf8_string_with_len(c_73894, " obj_obj2int(j));\n                      return_closcall1(data, k, result); ", 75, 75);

object c_73888 = Cyc_string_append(data,(closure)&c_73866,5,&c_73889, r_73588, &c_73890, Cyc_caddr(data, ((closureN)self_73758)->elements[0]), &c_73894);
return_closcall1(data,(closure)&c_73866,  c_73888);; 
}

static void __lambda_4(void *data, object self_73759, int argc, object *args) /* object self_73759, object body_7318_73502 */
 {
 object body_7318_73502 = args[0];
  
pair_type local_73871; 

pair_type local_73874; 



pair_type local_73880; 

make_utf8_string_with_len(c_73881, "(void* data, int argc, closure _, object k, object i, object j)", 63, 63);

pair_type local_73884; 
return_direct_with_clo1(data,  ((closureN)self_73759)->elements[1], (((closure)  ((closureN)self_73759)->elements[1])->fn),  set_pair_as_expr(&local_73871, quote_define_91c, set_pair_as_expr(&local_73874, Cyc_cadr(data, ((closureN)self_73759)->elements[0]), set_pair_as_expr(&local_73880, &c_73881, set_pair_as_expr(&local_73884, body_7318_73502, NULL)))));; 
}

static void __lambda_2(void *data, object self_73760, int argc, object *args) /* object self_73760, object k_73589 */
 {
 object k_73589 = args[0];
  if( (boolean_f != ((closureN)self_73760)->elements[0]) ){ 
  
make_utf8_string_with_len(c_73860, " if (obj_obj2int(j) == 0) { Cyc_rt_raise_msg(data, \"Divide by zero\");}", 70, 70);
return_direct_with_clo1(data,  k_73589,__lambda_3,  &c_73860);
} else { 
  
make_utf8_string_with_len(c_73862, "", 0, 0);
return_direct_with_clo1(data,  k_73589,__lambda_3,  &c_73862);}
;; 
}

void c_srfi143_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_srfi143_entry_pt_first_lambda(void *data, object clo, int argc, object *args){ 
Cyc_set_globals_changed((gc_thread_data *)data);
  quote_fxsqrt = find_or_add_symbol("fxsqrt");
  quote_define_91c = find_or_add_symbol("define-c");

  add_global("__glo_lib_91init_117srfi143_srfi_143", (object *) &__glo_lib_91init_117srfi143_srfi_143);
  add_global("__glo_fxbit_91field_91reverse_srfi_143", (object *) &__glo_fxbit_91field_91reverse_srfi_143);
  add_global("__glo_fxreverse_srfi_143", (object *) &__glo_fxreverse_srfi_143);
  add_global("__glo_fxbit_91field_91rotate_srfi_143", (object *) &__glo_fxbit_91field_91rotate_srfi_143);
  add_global("__glo_fxbit_91field_srfi_143", (object *) &__glo_fxbit_91field_srfi_143);
  add_global("__glo_fxfirst_91set_91bit_srfi_143", (object *) &__glo_fxfirst_91set_91bit_srfi_143);
  add_global("__glo_mask_srfi_143", (object *) &__glo_mask_srfi_143);
  add_global("__glo_fxcopy_91bit_srfi_143", (object *) &__glo_fxcopy_91bit_srfi_143);
  add_global("__glo__75fxbit_91set_127_srfi_143", (object *) &__glo__75fxbit_91set_127_srfi_143);
  add_global("__glo_fxbit_91set_127_srfi_143", (object *) &__glo_fxbit_91set_127_srfi_143);
  add_global("__glo_fxif_srfi_143", (object *) &__glo_fxif_srfi_143);
  add_global("__glo_fxlength_srfi_143", (object *) &__glo_fxlength_srfi_143);
  add_global("__glo_fxbit_91count_srfi_143", (object *) &__glo_fxbit_91count_srfi_143);
  add_global("__glo_fxarithmetic_91shift_srfi_143", (object *) &__glo_fxarithmetic_91shift_srfi_143);
  add_global("__glo_fxnot_srfi_143", (object *) &__glo_fxnot_srfi_143);
  add_global("__glo_fxabs_srfi_143", (object *) &__glo_fxabs_srfi_143);
  add_global("__glo_fxneg_srfi_143", (object *) &__glo_fxneg_srfi_143);
  add_global("__glo_fxsquare_srfi_143", (object *) &__glo_fxsquare_srfi_143);
  add_global("__glo_fxsqrt_srfi_143", (object *) &__glo_fxsqrt_srfi_143);
  add_global("__glo_fxmin_srfi_143", (object *) &__glo_fxmin_srfi_143);
  add_global("__glo_fxmax_srfi_143", (object *) &__glo_fxmax_srfi_143);
  add_global("__glo_fxeven_127_srfi_143", (object *) &__glo_fxeven_127_srfi_143);
  add_global("__glo_fxodd_127_srfi_143", (object *) &__glo_fxodd_127_srfi_143);
  add_global("__glo_fxnegative_127_srfi_143", (object *) &__glo_fxnegative_127_srfi_143);
  add_global("__glo_fxpositive_127_srfi_143", (object *) &__glo_fxpositive_127_srfi_143);
  add_global("__glo_fxzero_127_srfi_143", (object *) &__glo_fxzero_127_srfi_143);
  add_global("__glo_fixnum_127_srfi_143", (object *) &__glo_fixnum_127_srfi_143);
  add_global("__glo_fx_125_123_127_srfi_143", (object *) &__glo_fx_125_123_127_srfi_143);
  add_global("__glo_fx_121_123_127_srfi_143", (object *) &__glo_fx_121_123_127_srfi_143);
  add_global("__glo_fx_125_127_srfi_143", (object *) &__glo_fx_125_127_srfi_143);
  add_global("__glo_fx_121_127_srfi_143", (object *) &__glo_fx_121_127_srfi_143);
  add_global("__glo_fx_123_127_srfi_143", (object *) &__glo_fx_123_127_srfi_143);
  add_global("__glo_fxarithmetic_91shift_91right_srfi_143", (object *) &__glo_fxarithmetic_91shift_91right_srfi_143);
  add_global("__glo_fxarithmetic_91shift_91left_srfi_143", (object *) &__glo_fxarithmetic_91shift_91left_srfi_143);
  add_global("__glo_fxxor_srfi_143", (object *) &__glo_fxxor_srfi_143);
  add_global("__glo_fxior_srfi_143", (object *) &__glo_fxior_srfi_143);
  add_global("__glo_fxand_srfi_143", (object *) &__glo_fxand_srfi_143);
  add_global("__glo_fxremainder_srfi_143", (object *) &__glo_fxremainder_srfi_143);
  add_global("__glo_fxquotient_srfi_143", (object *) &__glo_fxquotient_srfi_143);
  add_global("__glo_fx_85_srfi_143", (object *) &__glo_fx_85_srfi_143);
  add_global("__glo_fx_91_srfi_143", (object *) &__glo_fx_91_srfi_143);
  add_global("__glo_fx_87_srfi_143", (object *) &__glo_fx_87_srfi_143);
  add_global("__glo_cmp_91op_srfi_143", (object *) &__glo_cmp_91op_srfi_143);
  add_global("__glo_bin_91num_91op_srfi_143", (object *) &__glo_bin_91num_91op_srfi_143);
  add_global("__glo_fx_91least_srfi_143", (object *) &__glo_fx_91least_srfi_143);
  add_global("__glo_fx_91greatest_srfi_143", (object *) &__glo_fx_91greatest_srfi_143);
  add_global("__glo_fx_91width_srfi_143", (object *) &__glo_fx_91width_srfi_143);
  mclosure0(c_731462, (function_type)__lambda_104);c_731462.num_args = 0; 
  __glo_lib_91init_117srfi143_srfi_143 = &c_731462; 
  mclosure0(c_731381, (function_type)__lambda_90);c_731381.num_args = 3; 
  __glo_fxbit_91field_91reverse_srfi_143 = &c_731381; 
  mclosure0(c_731287, (function_type)__lambda_73);c_731287.num_args = 2; 
  __glo_fxreverse_srfi_143 = &c_731287; 
  mclosure0(c_731155, (function_type)__lambda_52);c_731155.num_args = 4; 
  __glo_fxbit_91field_91rotate_srfi_143 = &c_731155; 
  mclosure0(c_731140, (function_type)__lambda_49);c_731140.num_args = 3; 
  __glo_fxbit_91field_srfi_143 = &c_731140; 
  mclosure0(c_731118, (function_type)__lambda_45);c_731118.num_args = 1; 
  __glo_fxfirst_91set_91bit_srfi_143 = &c_731118; 
  mclosure0(c_731109, (function_type)__lambda_43);c_731109.num_args = 2; 
  __glo_mask_srfi_143 = &c_731109; 
  mclosure0(c_731093, (function_type)__lambda_39);c_731093.num_args = 3; 
  __glo_fxcopy_91bit_srfi_143 = &c_731093; 
  mclosure0(c_731092, (function_type)__lambda_131);c_731092.num_args = 2; 
  __glo__75fxbit_91set_127_srfi_143 = &c_731092; 
  mclosure0(c_731071, (function_type)__lambda_36);c_731071.num_args = 2; 
  __glo_fxbit_91set_127_srfi_143 = &c_731071; 
  mclosure0(c_731056, (function_type)__lambda_32);c_731056.num_args = 3; 
  __glo_fxif_srfi_143 = &c_731056; 
  mclosure0(c_731022, (function_type)__lambda_26);c_731022.num_args = 1; 
  __glo_fxlength_srfi_143 = &c_731022; 
  mclosure0(c_731021, (function_type)__lambda_130);c_731021.num_args = 1; 
  __glo_fxbit_91count_srfi_143 = &c_731021; 
  mclosure0(c_731006, (function_type)__lambda_23);c_731006.num_args = 2; 
  __glo_fxarithmetic_91shift_srfi_143 = &c_731006; 
  mclosure0(c_731005, (function_type)__lambda_129);c_731005.num_args = 1; 
  __glo_fxnot_srfi_143 = &c_731005; 
  mclosure0(c_73995, (function_type)__lambda_21);c_73995.num_args = 1; 
  __glo_fxabs_srfi_143 = &c_73995; 
  mclosure0(c_73993, (function_type)__lambda_20);c_73993.num_args = 1; 
  __glo_fxneg_srfi_143 = &c_73993; 
  mclosure0(c_73991, (function_type)__lambda_19);c_73991.num_args = 1; 
  __glo_fxsquare_srfi_143 = &c_73991; 
  mclosure0(c_73973, (function_type)__lambda_15);c_73973.num_args = 1; 
  __glo_fxmin_srfi_143 = &c_73973; 
  mclosure0(c_73955, (function_type)__lambda_11);c_73955.num_args = 1; 
  __glo_fxmax_srfi_143 = &c_73955; 
  mclosure0(c_73947, (function_type)__lambda_9);c_73947.num_args = 1; 
  __glo_fxeven_127_srfi_143 = &c_73947; 
  mclosure0(c_73946, (function_type)__lambda_128);c_73946.num_args = 1; 
  __glo_fxodd_127_srfi_143 = &c_73946; 
  mclosure0(c_73944, (function_type)__lambda_8);c_73944.num_args = 1; 
  __glo_fxnegative_127_srfi_143 = &c_73944; 
  mclosure0(c_73942, (function_type)__lambda_7);c_73942.num_args = 1; 
  __glo_fxpositive_127_srfi_143 = &c_73942; 
  mclosure0(c_73941, (function_type)__lambda_127);c_73941.num_args = 1; 
  __glo_fxzero_127_srfi_143 = &c_73941; 
  mclosure0(c_73940, (function_type)__lambda_126);c_73940.num_args = 1; 
  __glo_fixnum_127_srfi_143 = &c_73940; 
  mclosure0(c_73939, (function_type)__lambda_125);c_73939.num_args = 2; 
  __glo_fx_125_123_127_srfi_143 = &c_73939; 
  mclosure0(c_73938, (function_type)__lambda_124);c_73938.num_args = 2; 
  __glo_fx_121_123_127_srfi_143 = &c_73938; 
  mclosure0(c_73937, (function_type)__lambda_123);c_73937.num_args = 2; 
  __glo_fx_125_127_srfi_143 = &c_73937; 
  mclosure0(c_73936, (function_type)__lambda_122);c_73936.num_args = 2; 
  __glo_fx_121_127_srfi_143 = &c_73936; 
  mclosure0(c_73935, (function_type)__lambda_121);c_73935.num_args = 2; 
  __glo_fx_123_127_srfi_143 = &c_73935; 
  mclosure0(c_73934, (function_type)__lambda_120);c_73934.num_args = 2; 
  __glo_fxarithmetic_91shift_91right_srfi_143 = &c_73934; 
  mclosure0(c_73933, (function_type)__lambda_119);c_73933.num_args = 2; 
  __glo_fxarithmetic_91shift_91left_srfi_143 = &c_73933; 
  mclosure0(c_73932, (function_type)__lambda_118);c_73932.num_args = 2; 
  __glo_fxxor_srfi_143 = &c_73932; 
  mclosure0(c_73931, (function_type)__lambda_117);c_73931.num_args = 2; 
  __glo_fxior_srfi_143 = &c_73931; 
  mclosure0(c_73930, (function_type)__lambda_116);c_73930.num_args = 2; 
  __glo_fxand_srfi_143 = &c_73930; 
  mclosure0(c_73929, (function_type)__lambda_115);c_73929.num_args = 2; 
  __glo_fxremainder_srfi_143 = &c_73929; 
  mclosure0(c_73928, (function_type)__lambda_114);c_73928.num_args = 2; 
  __glo_fxquotient_srfi_143 = &c_73928; 
  mclosure0(c_73927, (function_type)__lambda_113);c_73927.num_args = 2; 
  __glo_fx_85_srfi_143 = &c_73927; 
  mclosure0(c_73926, (function_type)__lambda_112);c_73926.num_args = 2; 
  __glo_fx_91_srfi_143 = &c_73926; 
  mclosure0(c_73925, (function_type)__lambda_111);c_73925.num_args = 2; 
  __glo_fx_87_srfi_143 = &c_73925; 
  mmacro(c_73896, (function_type)__lambda_5);c_73896.num_args = 3; 
  __glo_cmp_91op_srfi_143 = &c_73896; 
  mmacro(c_73846, (function_type)__lambda_1);c_73846.num_args = 3; 
  __glo_bin_91num_91op_srfi_143 = &c_73846; 
  __glo_fxsqrt_srfi_143 = boolean_f; 
  __glo_fx_91least_srfi_143 = obj_int2obj(-1073741824); 
  __glo_fx_91greatest_srfi_143 = obj_int2obj(1073741823); 
  __glo_fx_91width_srfi_143 = obj_int2obj(31); 

  mclosure0(clo_731468, c_srfi143_inlinable_lambdas); make_pair(pair_731467, find_or_add_symbol("c_srfi143_inlinable_lambdas"), &clo_731468);
  make_cvar(cvar_731469, (object *)&__glo_lib_91init_117srfi143_srfi_143);make_pair(pair_731470, find_or_add_symbol("lib-init:srfi143"), &cvar_731469);
  make_cvar(cvar_731471, (object *)&__glo_fxbit_91field_91reverse_srfi_143);make_pair(pair_731472, find_or_add_symbol("fxbit-field-reverse"), &cvar_731471);
  make_cvar(cvar_731473, (object *)&__glo_fxreverse_srfi_143);make_pair(pair_731474, find_or_add_symbol("fxreverse"), &cvar_731473);
  make_cvar(cvar_731475, (object *)&__glo_fxbit_91field_91rotate_srfi_143);make_pair(pair_731476, find_or_add_symbol("fxbit-field-rotate"), &cvar_731475);
  make_cvar(cvar_731477, (object *)&__glo_fxbit_91field_srfi_143);make_pair(pair_731478, find_or_add_symbol("fxbit-field"), &cvar_731477);
  make_cvar(cvar_731479, (object *)&__glo_fxfirst_91set_91bit_srfi_143);make_pair(pair_731480, find_or_add_symbol("fxfirst-set-bit"), &cvar_731479);
  make_cvar(cvar_731481, (object *)&__glo_mask_srfi_143);make_pair(pair_731482, find_or_add_symbol("mask"), &cvar_731481);
  make_cvar(cvar_731483, (object *)&__glo_fxcopy_91bit_srfi_143);make_pair(pair_731484, find_or_add_symbol("fxcopy-bit"), &cvar_731483);
  make_cvar(cvar_731485, (object *)&__glo__75fxbit_91set_127_srfi_143);make_pair(pair_731486, find_or_add_symbol("%fxbit-set?"), &cvar_731485);
  make_cvar(cvar_731487, (object *)&__glo_fxbit_91set_127_srfi_143);make_pair(pair_731488, find_or_add_symbol("fxbit-set?"), &cvar_731487);
  make_cvar(cvar_731489, (object *)&__glo_fxif_srfi_143);make_pair(pair_731490, find_or_add_symbol("fxif"), &cvar_731489);
  make_cvar(cvar_731491, (object *)&__glo_fxlength_srfi_143);make_pair(pair_731492, find_or_add_symbol("fxlength"), &cvar_731491);
  make_cvar(cvar_731493, (object *)&__glo_fxbit_91count_srfi_143);make_pair(pair_731494, find_or_add_symbol("fxbit-count"), &cvar_731493);
  make_cvar(cvar_731495, (object *)&__glo_fxarithmetic_91shift_srfi_143);make_pair(pair_731496, find_or_add_symbol("fxarithmetic-shift"), &cvar_731495);
  make_cvar(cvar_731497, (object *)&__glo_fxnot_srfi_143);make_pair(pair_731498, find_or_add_symbol("fxnot"), &cvar_731497);
  make_cvar(cvar_731499, (object *)&__glo_fxabs_srfi_143);make_pair(pair_731500, find_or_add_symbol("fxabs"), &cvar_731499);
  make_cvar(cvar_731501, (object *)&__glo_fxneg_srfi_143);make_pair(pair_731502, find_or_add_symbol("fxneg"), &cvar_731501);
  make_cvar(cvar_731503, (object *)&__glo_fxsquare_srfi_143);make_pair(pair_731504, find_or_add_symbol("fxsquare"), &cvar_731503);
  make_cvar(cvar_731505, (object *)&__glo_fxsqrt_srfi_143);make_pair(pair_731506, find_or_add_symbol("fxsqrt"), &cvar_731505);
  make_cvar(cvar_731507, (object *)&__glo_fxmin_srfi_143);make_pair(pair_731508, find_or_add_symbol("fxmin"), &cvar_731507);
  make_cvar(cvar_731509, (object *)&__glo_fxmax_srfi_143);make_pair(pair_731510, find_or_add_symbol("fxmax"), &cvar_731509);
  make_cvar(cvar_731511, (object *)&__glo_fxeven_127_srfi_143);make_pair(pair_731512, find_or_add_symbol("fxeven?"), &cvar_731511);
  make_cvar(cvar_731513, (object *)&__glo_fxodd_127_srfi_143);make_pair(pair_731514, find_or_add_symbol("fxodd?"), &cvar_731513);
  make_cvar(cvar_731515, (object *)&__glo_fxnegative_127_srfi_143);make_pair(pair_731516, find_or_add_symbol("fxnegative?"), &cvar_731515);
  make_cvar(cvar_731517, (object *)&__glo_fxpositive_127_srfi_143);make_pair(pair_731518, find_or_add_symbol("fxpositive?"), &cvar_731517);
  make_cvar(cvar_731519, (object *)&__glo_fxzero_127_srfi_143);make_pair(pair_731520, find_or_add_symbol("fxzero?"), &cvar_731519);
  make_cvar(cvar_731521, (object *)&__glo_fixnum_127_srfi_143);make_pair(pair_731522, find_or_add_symbol("fixnum?"), &cvar_731521);
  make_cvar(cvar_731523, (object *)&__glo_fx_125_123_127_srfi_143);make_pair(pair_731524, find_or_add_symbol("fx>=?"), &cvar_731523);
  make_cvar(cvar_731525, (object *)&__glo_fx_121_123_127_srfi_143);make_pair(pair_731526, find_or_add_symbol("fx<=?"), &cvar_731525);
  make_cvar(cvar_731527, (object *)&__glo_fx_125_127_srfi_143);make_pair(pair_731528, find_or_add_symbol("fx>?"), &cvar_731527);
  make_cvar(cvar_731529, (object *)&__glo_fx_121_127_srfi_143);make_pair(pair_731530, find_or_add_symbol("fx<?"), &cvar_731529);
  make_cvar(cvar_731531, (object *)&__glo_fx_123_127_srfi_143);make_pair(pair_731532, find_or_add_symbol("fx=?"), &cvar_731531);
  make_cvar(cvar_731533, (object *)&__glo_fxarithmetic_91shift_91right_srfi_143);make_pair(pair_731534, find_or_add_symbol("fxarithmetic-shift-right"), &cvar_731533);
  make_cvar(cvar_731535, (object *)&__glo_fxarithmetic_91shift_91left_srfi_143);make_pair(pair_731536, find_or_add_symbol("fxarithmetic-shift-left"), &cvar_731535);
  make_cvar(cvar_731537, (object *)&__glo_fxxor_srfi_143);make_pair(pair_731538, find_or_add_symbol("fxxor"), &cvar_731537);
  make_cvar(cvar_731539, (object *)&__glo_fxior_srfi_143);make_pair(pair_731540, find_or_add_symbol("fxior"), &cvar_731539);
  make_cvar(cvar_731541, (object *)&__glo_fxand_srfi_143);make_pair(pair_731542, find_or_add_symbol("fxand"), &cvar_731541);
  make_cvar(cvar_731543, (object *)&__glo_fxremainder_srfi_143);make_pair(pair_731544, find_or_add_symbol("fxremainder"), &cvar_731543);
  make_cvar(cvar_731545, (object *)&__glo_fxquotient_srfi_143);make_pair(pair_731546, find_or_add_symbol("fxquotient"), &cvar_731545);
  make_cvar(cvar_731547, (object *)&__glo_fx_85_srfi_143);make_pair(pair_731548, find_or_add_symbol("fx*"), &cvar_731547);
  make_cvar(cvar_731549, (object *)&__glo_fx_91_srfi_143);make_pair(pair_731550, find_or_add_symbol("fx-"), &cvar_731549);
  make_cvar(cvar_731551, (object *)&__glo_fx_87_srfi_143);make_pair(pair_731552, find_or_add_symbol("fx+"), &cvar_731551);
  make_cvar(cvar_731553, (object *)&__glo_cmp_91op_srfi_143);make_pair(pair_731554, find_or_add_symbol("cmp-op"), &cvar_731553);
  make_cvar(cvar_731555, (object *)&__glo_bin_91num_91op_srfi_143);make_pair(pair_731556, find_or_add_symbol("bin-num-op"), &cvar_731555);
  make_cvar(cvar_731557, (object *)&__glo_fx_91least_srfi_143);make_pair(pair_731558, find_or_add_symbol("fx-least"), &cvar_731557);
  make_cvar(cvar_731559, (object *)&__glo_fx_91greatest_srfi_143);make_pair(pair_731560, find_or_add_symbol("fx-greatest"), &cvar_731559);
  make_cvar(cvar_731561, (object *)&__glo_fx_91width_srfi_143);make_pair(pair_731562, find_or_add_symbol("fx-width"), &cvar_731561);
make_pair(c_731610, &pair_731467,Cyc_global_variables);
make_pair(c_731609, &pair_731470, &c_731610);
make_pair(c_731608, &pair_731472, &c_731609);
make_pair(c_731607, &pair_731474, &c_731608);
make_pair(c_731606, &pair_731476, &c_731607);
make_pair(c_731605, &pair_731478, &c_731606);
make_pair(c_731604, &pair_731480, &c_731605);
make_pair(c_731603, &pair_731482, &c_731604);
make_pair(c_731602, &pair_731484, &c_731603);
make_pair(c_731601, &pair_731486, &c_731602);
make_pair(c_731600, &pair_731488, &c_731601);
make_pair(c_731599, &pair_731490, &c_731600);
make_pair(c_731598, &pair_731492, &c_731599);
make_pair(c_731597, &pair_731494, &c_731598);
make_pair(c_731596, &pair_731496, &c_731597);
make_pair(c_731595, &pair_731498, &c_731596);
make_pair(c_731594, &pair_731500, &c_731595);
make_pair(c_731593, &pair_731502, &c_731594);
make_pair(c_731592, &pair_731504, &c_731593);
make_pair(c_731591, &pair_731506, &c_731592);
make_pair(c_731590, &pair_731508, &c_731591);
make_pair(c_731589, &pair_731510, &c_731590);
make_pair(c_731588, &pair_731512, &c_731589);
make_pair(c_731587, &pair_731514, &c_731588);
make_pair(c_731586, &pair_731516, &c_731587);
make_pair(c_731585, &pair_731518, &c_731586);
make_pair(c_731584, &pair_731520, &c_731585);
make_pair(c_731583, &pair_731522, &c_731584);
make_pair(c_731582, &pair_731524, &c_731583);
make_pair(c_731581, &pair_731526, &c_731582);
make_pair(c_731580, &pair_731528, &c_731581);
make_pair(c_731579, &pair_731530, &c_731580);
make_pair(c_731578, &pair_731532, &c_731579);
make_pair(c_731577, &pair_731534, &c_731578);
make_pair(c_731576, &pair_731536, &c_731577);
make_pair(c_731575, &pair_731538, &c_731576);
make_pair(c_731574, &pair_731540, &c_731575);
make_pair(c_731573, &pair_731542, &c_731574);
make_pair(c_731572, &pair_731544, &c_731573);
make_pair(c_731571, &pair_731546, &c_731572);
make_pair(c_731570, &pair_731548, &c_731571);
make_pair(c_731569, &pair_731550, &c_731570);
make_pair(c_731568, &pair_731552, &c_731569);
make_pair(c_731567, &pair_731554, &c_731568);
make_pair(c_731566, &pair_731556, &c_731567);
make_pair(c_731565, &pair_731558, &c_731566);
make_pair(c_731564, &pair_731560, &c_731565);
make_pair(c_731563, &pair_731562, &c_731564);
Cyc_global_variables = &c_731563;
object buf[1]; buf[0] = ((closure1_type *)clo)->element;
(((closure)__glo_lib_91init_117srfi143_srfi_143)->fn)(data, buf[0], 1, buf);
}
void c_srfi143_entry_pt(void *data, object cont, int argc, object value){ 
  register_library("srfi_143");
  c_srfi143_entry_pt_first_lambda(data, cont, argc, value);
}
