/**
 ** 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_117srfi27_srfi_27 = NULL;
object __glo_random_91source_91randomize_67_srfi_27 = NULL;
object __glo_random_91source_91pseudo_91randomize_67_srfi_27 = NULL;
object __glo_random_91source_91state_91set_67_srfi_27 = NULL;
object __glo_random_91source_91state_91ref_srfi_27 = NULL;
object __glo_random_91real_srfi_27 = NULL;
object __glo_random_91integer_srfi_27 = NULL;
object __glo_default_91random_91source_srfi_27 = NULL;
object __glo_random_91source_91make_91reals_srfi_27 = NULL;
object __glo_random_91source_91make_91integers_srfi_27 = NULL;
object __glo_make_91random_91source_srfi_27 = NULL;
object __glo_raw_91random_91source_srfi_27 = NULL;
object __glo_set_91random_91source_91val_67_srfi_27 = NULL;
object __glo_random_91source_91val_srfi_27 = NULL;
object __glo_random_91souce_127_srfi_27 = NULL;
object __glo__121random_91source_125_srfi_27 = NULL;
object __glo_next_91mrg32k3a_srfi_27 = NULL;
object __glo_next_91lcg_srfi_27 = NULL;
object __glo_m_srfi_27 = NULL;
object __glo_incr_srfi_27 = 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_case_91lambda_scheme_case_91lambda;
extern object __glo_current_91second_scheme_time;
extern object __glo_current_91jiffy_scheme_time;
extern object __glo_jiffies_91per_91second_scheme_time;
extern object __glo_fast_91string_123_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_121_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_121_123_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_125_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_125_123_127_191_191inline_191_191_scheme_base;
extern object __glo__75write_91bytevector_191_191inline_191_191_scheme_base;
extern object __glo_not_191_191inline_191_191_scheme_base;
extern object __glo_list_127_191_191inline_191_191_scheme_base;
extern object __glo_zero_127_191_191inline_191_191_scheme_base;
extern object __glo_positive_127_191_191inline_191_191_scheme_base;
extern object __glo_negative_127_191_191inline_191_191_scheme_base;
extern object __glo_floor_191_191inline_191_191_scheme_base;
extern object __glo_ceiling_191_191inline_191_191_scheme_base;
extern object __glo_truncate_191_191inline_191_191_scheme_base;
extern object __glo_round_191_191inline_191_191_scheme_base;
extern object __glo_exact_191_191inline_191_191_scheme_base;
extern object __glo_inexact_191_191inline_191_191_scheme_base;
extern object __glo_sqrt_191_191inline_191_191_scheme_base;
extern object __glo_exact_91integer_127_191_191inline_191_191_scheme_base;
extern object __glo_exact_127_191_191inline_191_191_scheme_base;
extern object __glo_complex_127_191_191inline_191_191_scheme_base;
extern object __glo_fixnum_127_191_191inline_191_191_scheme_base;
extern object __glo_quotient_191_191inline_191_191_scheme_base;
extern object __glo_square_191_191inline_191_191_scheme_base;
extern object __glo_eof_91object_191_191inline_191_191_scheme_base;
extern object __glo_void_191_191inline_191_191_scheme_base;
extern object __glo_make_91record_91marker_191_191inline_191_191_scheme_base;
#include "cyclone/runtime.h"
defsymbol(incr);
defsymbol(random_91souce_127);
defsymbol(random_91source_91val);
defsymbol(n);
defsymbol(set_91random_91source_91val_67);
defsymbol(default_91random_91source);
defsymbol(random_91integer);
defsymbol(random_91real);
defsymbol(unit);
defsymbol(s);
defsymbol(_121random_91source_125);
static void __lambda_39(void *data, object clo, int argc, object *args) ;/*closure _,object k_73143*/
static void __lambda_40(void *data, object clo, int argc, object *args) ;/*object self_73207, object r_73169*/
static void __lambda_41(void *data, object clo, int argc, object *args) ;/*object self_73208, object r_73145*/
static void __lambda_42(void *data, object clo, int argc, object *args) ;/*object self_73209, object r_73165*/
static void __lambda_43(void *data, object clo, int argc, object *args) ;/*object self_73210, object r_73146*/
static void __lambda_44(void *data, object clo, int argc, object *args) ;/*object self_73211, object r_73163*/
static void __lambda_45(void *data, object clo, int argc, object *args) ;/*object self_73212, object r_73147*/
static void __lambda_46(void *data, object clo, int argc, object *args) ;/*object self_73213, object r_73161*/
static void __lambda_47(void *data, object clo, int argc, object *args) ;/*object self_73214, object r_73159*/
static void __lambda_48(void *data, object clo, int argc, object *args) ;/*object self_73215, object r_73148*/
static void __lambda_49(void *data, object clo, int argc, object *args) ;/*object self_73216, object r_73157*/
static void __lambda_50(void *data, object clo, int argc, object *args) ;/*object self_73217, object r_73155*/
static void __lambda_51(void *data, object clo, int argc, object *args) ;/*object self_73218, object r_73149*/
static void __lambda_52(void *data, object clo, int argc, object *args) ;/*object self_73219, object r_73154*/
static void __lambda_53(void *data, object clo, int argc, object *args) ;/*object self_73220, object r_73150*/
static void __lambda_54(void *data, object clo, int argc, object *args) ;/*object self_73221, object r_73153*/
static void __lambda_55(void *data, object clo, int argc, object *args) ;/*object self_73222, object r_73151*/
static void __lambda_56(void *data, object clo, int argc, object *args) ;/*object self_73223, object r_73152*/
static void __lambda_33(void *data, object clo, int argc, object *args) ;/*closure _,object k_73135, object s_7323_7352*/
static void __lambda_34(void *data, object clo, int argc, object *args) ;/*object self_73200, object i_7355, object j_7356*/
static void __lambda_63(void *data, object clo, int argc, object *args) ;/*object self_73201, object i_7355*/
static void __lambda_62(void *data, object clo, int argc, object *args) ;/*object self_73202, object j_7356*/
static void __lambda_35(void *data, object clo, int argc, object *args) ;/*object self_73203, object r_73140*/
static void __lambda_36(void *data, object clo, int argc, object *args) ;/*object self_73204, object r_73136*/
static void __lambda_37(void *data, object clo, int argc, object *args) ;/*object self_73205, object r_73139*/
static void __lambda_38(void *data, object clo, int argc, object *args) ;/*object self_73206, object r_73137*/
static void __lambda_27(void *data, object clo, int argc, object *args) ;/*closure _,object k_73127, object s_7320_7340, object i_7321_7341, object j_7322_7342*/
static void __lambda_28(void *data, object clo, int argc, object *args) ;/*object self_73192, object n1_7346, object n2_7347, object n3_7348*/
static void __lambda_61(void *data, object clo, int argc, object *args) ;/*object self_73193, object n1_7346*/
static void __lambda_60(void *data, object clo, int argc, object *args) ;/*object self_73194, object n2_7347*/
static void __lambda_59(void *data, object clo, int argc, object *args) ;/*object self_73195, object n3_7348*/
static void __lambda_29(void *data, object clo, int argc, object *args) ;/*object self_73196, object r_73128*/
static void __lambda_30(void *data, object clo, int argc, object *args) ;/*object self_73197, object r_73129*/
static void __lambda_31(void *data, object clo, int argc, object *args) ;/*object self_73198, object r_73131*/
static void __lambda_32(void *data, object clo, int argc, object *args) ;/*object self_73199, object r_73130*/
static void __lambda_26(void *data, object clo, int argc, object *args) ;/*closure _,object k_73124, object s_7318_7338, object state_7319_7339*/
static void __lambda_25(void *data, object clo, int argc, object *args) ;/*closure _,object k_73121, object s_7317_7337*/
static void __lambda_12(void *data, object clo, int argc, object *args) ;/*closure _,object k_7390, object args_735_739_7329_raw, ...*/
static void __lambda_16(void *data, object clo, int argc, object *args) ;/*object self_73181, object k_7398, object s_7314_7333, object unit_7315_7334*/
static void __lambda_19(void *data, object clo, int argc, object *args) ;/*object self_73182, object r_7399*/
static void __lambda_20(void *data, object clo, int argc, object *args) ;/*object self_73183, object numgen_7316_7335*/
static void __lambda_21(void *data, object clo, int argc, object *args) ;/*object self_73184, object r_7336*/
static void __lambda_58(void *data, object clo, int argc, object *args) ;/*object self_73185, object r_7336*/
static void __lambda_22(void *data, object clo, int argc, object *args) ;/*object self_73186, object r_73101*/
static void __lambda_23(void *data, object clo, int argc, object *args) ;/*object self_73187, object k_73102*/
static void __lambda_24(void *data, object clo, int argc, object *args) ;/*object self_73188, object r_73103*/
static void __lambda_17(void *data, object clo, int argc, object *args) ;/*object self_73189, object k_73107*/
static void __lambda_18(void *data, object clo, int argc, object *args) ;/*object self_73190, object r_73108*/
static void __lambda_15(void *data, object clo, int argc, object *args) ;/*object self_73191, object r_7397*/
static void __lambda_14(void *data, object clo, int argc, object *args) ;/*object self_73179, object k_7394, object s_7312_7332*/
static void __lambda_13(void *data, object clo, int argc, object *args) ;/*object self_73180, object r_7393*/
static void __lambda_5(void *data, object clo, int argc, object *args) ;/*closure _,object k_7382, object s_733_7325*/
static void __lambda_6(void *data, object clo, int argc, object *args) ;/*object self_73172, object k_7383, object n_734_7327*/
static void __lambda_7(void *data, object clo, int argc, object *args) ;/*object self_73173, object nextval_7328*/
static void __lambda_57(void *data, object clo, int argc, object *args) ;/*object self_73174, object nextval_7328*/
static void __lambda_8(void *data, object clo, int argc, object *args) ;/*object self_73175, object r_7387*/
static void __lambda_9(void *data, object clo, int argc, object *args) ;/*object self_73176, object r_7386*/
static void __lambda_10(void *data, object clo, int argc, object *args) ;/*object self_73177, object r_7384*/
static void __lambda_11(void *data, object clo, int argc, object *args) ;/*object self_73178, object r_7385*/
static void __lambda_4(void *data, object clo, int argc, object *args) ;/*closure _,object k_7379*/
static void __lambda_1(void *data, object clo, int argc, object *args) ;/*closure _,object k_7373, object n_732_7324*/
static void __lambda_2(void *data, object clo, int argc, object *args) ;/*object self_73170, object r_7374*/
static void __lambda_3(void *data, object clo, int argc, object *args) ;/*object self_73171, object r_7376*/
static void __lambda_65(void *data, object clo, int argc, object *args) ;/*(void *data, int argc, closure _, object k, object seed)*/
static void __lambda_64(void *data, object clo, int argc, object *args) ;/*(void *data, int argc, closure _, object k, object seed)*/

static void __lambda_39(void *data, object _, int argc, object *args) /* closure _,object k_73143 */
 {
object k_73143 = args[0];
  Cyc_st_add(data, "srfi/27.sld:lib-init:srfi27");

closureN_type c_73508;
object e_73589 [1];
c_73508.hdr.mark = gc_color_red;
 c_73508.hdr.grayed = 0;
c_73508.tag = closureN_tag;
 c_73508.fn = (function_type)__lambda_40;
c_73508.num_args = 1;
c_73508.num_elements = 1;
c_73508.elements = (object *)e_73589;
c_73508.elements[0] = k_73143;

return_direct_with_clo1(data,  __glo_current_91second_scheme_time, (((closure)  __glo_current_91second_scheme_time)->fn),  &c_73508);; 
}

static void __lambda_40(void *data, object self_73207, int argc, object *args) /* object self_73207, object r_73169 */
 {
 object r_73169 = args[0];
  
closureN_type c_73510;
object e_73582 [1];
c_73510.hdr.mark = gc_color_red;
 c_73510.hdr.grayed = 0;
c_73510.tag = closureN_tag;
 c_73510.fn = (function_type)__lambda_41;
c_73510.num_args = 1;
c_73510.num_elements = 1;
c_73510.elements = (object *)e_73582;
c_73510.elements[0] = ((closureN)self_73207)->elements[0];


complex_num_type local_73588; 

object c_73585 = global_set_cps_id(data,(closure)&c_73510,"__glo_incr_srfi_27", __glo_incr_srfi_27, ((inline_function_type)
                   ((closure)__glo_exact_191_191inline_191_191_scheme_base)->fn)(data,&local_73588, r_73169));
return_closcall1(data,(closure)&c_73510,  c_73585);; 
}

static void __lambda_41(void *data, object self_73208, int argc, object *args) /* object self_73208, object r_73145 */
 {

  
closureN_type c_73512;
object e_73580 [1];
c_73512.hdr.mark = gc_color_red;
 c_73512.hdr.grayed = 0;
c_73512.tag = closureN_tag;
 c_73512.fn = (function_type)__lambda_42;
c_73512.num_args = 1;
c_73512.num_elements = 1;
c_73512.elements = (object *)e_73580;
c_73512.elements[0] = ((closureN)self_73208)->elements[0];


make_pair(c_73581,quote_n,NULL);c_73581.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_register_91simple_91type_scheme_base, (((closure)  __glo_register_91simple_91type_scheme_base)->fn),  &c_73512, quote__121random_91source_125, boolean_f, &c_73581);; 
}

static void __lambda_42(void *data, object self_73209, int argc, object *args) /* object self_73209, object r_73165 */
 {
 object r_73165 = args[0];
  
closureN_type c_73514;
object e_73576 [1];
c_73514.hdr.mark = gc_color_red;
 c_73514.hdr.grayed = 0;
c_73514.tag = closureN_tag;
 c_73514.fn = (function_type)__lambda_43;
c_73514.num_args = 1;
c_73514.num_elements = 1;
c_73514.elements = (object *)e_73576;
c_73514.elements[0] = ((closureN)self_73209)->elements[0];


object c_73579 = global_set_cps_id(data,(closure)&c_73514,"__glo__121random_91source_125_srfi_27", __glo__121random_91source_125_srfi_27, r_73165);
return_closcall1(data,(closure)&c_73514,  c_73579);; 
}

static void __lambda_43(void *data, object self_73210, int argc, object *args) /* object self_73210, object r_73146 */
 {

  
closureN_type c_73516;
object e_73575 [1];
c_73516.hdr.mark = gc_color_red;
 c_73516.hdr.grayed = 0;
c_73516.tag = closureN_tag;
 c_73516.fn = (function_type)__lambda_44;
c_73516.num_args = 1;
c_73516.num_elements = 1;
c_73516.elements = (object *)e_73575;
c_73516.elements[0] = ((closureN)self_73210)->elements[0];

return_direct_with_clo3(data,  __glo_make_91type_91predicate_scheme_base, (((closure)  __glo_make_91type_91predicate_scheme_base)->fn),  &c_73516, obj_int2obj(0), quote__121random_91source_125);; 
}

static void __lambda_44(void *data, object self_73211, int argc, object *args) /* object self_73211, object r_73163 */
 {
 object r_73163 = args[0];
  
closureN_type c_73518;
object e_73571 [1];
c_73518.hdr.mark = gc_color_red;
 c_73518.hdr.grayed = 0;
c_73518.tag = closureN_tag;
 c_73518.fn = (function_type)__lambda_45;
c_73518.num_args = 1;
c_73518.num_elements = 1;
c_73518.elements = (object *)e_73571;
c_73518.elements[0] = ((closureN)self_73211)->elements[0];


object c_73574 = global_set_cps_id(data,(closure)&c_73518,"__glo_random_91souce_127_srfi_27", __glo_random_91souce_127_srfi_27, r_73163);
return_closcall1(data,(closure)&c_73518,  c_73574);; 
}

static void __lambda_45(void *data, object self_73212, int argc, object *args) /* object self_73212, object r_73147 */
 {

  
closureN_type c_73520;
object e_73570 [1];
c_73520.hdr.mark = gc_color_red;
 c_73520.hdr.grayed = 0;
c_73520.tag = closureN_tag;
 c_73520.fn = (function_type)__lambda_46;
c_73520.num_args = 1;
c_73520.num_elements = 1;
c_73520.elements = (object *)e_73570;
c_73520.elements[0] = ((closureN)self_73212)->elements[0];

return_direct_with_clo3(data,  __glo_type_91slot_91offset_scheme_base, (((closure)  __glo_type_91slot_91offset_scheme_base)->fn),  &c_73520, __glo__121random_91source_125_srfi_27, quote_n);; 
}

static void __lambda_46(void *data, object self_73213, int argc, object *args) /* object self_73213, object r_73161 */
 {
 object r_73161 = args[0];
  
closureN_type c_73522;
object e_73568 [1];
c_73522.hdr.mark = gc_color_red;
 c_73522.hdr.grayed = 0;
c_73522.tag = closureN_tag;
 c_73522.fn = (function_type)__lambda_47;
c_73522.num_args = 1;
c_73522.num_elements = 1;
c_73522.elements = (object *)e_73568;
c_73522.elements[0] = ((closureN)self_73213)->elements[0];


make_utf8_string_with_len(c_73569, "random-source-val", 17, 17);
return_direct_with_clo4(data,  __glo_make_91getter_scheme_base, (((closure)  __glo_make_91getter_scheme_base)->fn),  &c_73522, &c_73569, quote__121random_91source_125, r_73161);; 
}

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


object c_73567 = global_set_cps_id(data,(closure)&c_73524,"__glo_random_91source_91val_srfi_27", __glo_random_91source_91val_srfi_27, r_73159);
return_closcall1(data,(closure)&c_73524,  c_73567);; 
}

static void __lambda_48(void *data, object self_73215, int argc, object *args) /* object self_73215, object r_73148 */
 {

  
closureN_type c_73526;
object e_73563 [1];
c_73526.hdr.mark = gc_color_red;
 c_73526.hdr.grayed = 0;
c_73526.tag = closureN_tag;
 c_73526.fn = (function_type)__lambda_49;
c_73526.num_args = 1;
c_73526.num_elements = 1;
c_73526.elements = (object *)e_73563;
c_73526.elements[0] = ((closureN)self_73215)->elements[0];

return_direct_with_clo3(data,  __glo_type_91slot_91offset_scheme_base, (((closure)  __glo_type_91slot_91offset_scheme_base)->fn),  &c_73526, __glo__121random_91source_125_srfi_27, quote_n);; 
}

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


make_utf8_string_with_len(c_73562, "set-random-source-val!", 22, 22);
return_direct_with_clo4(data,  __glo_make_91setter_scheme_base, (((closure)  __glo_make_91setter_scheme_base)->fn),  &c_73528, &c_73562, quote__121random_91source_125, r_73157);; 
}

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


object c_73560 = global_set_cps_id(data,(closure)&c_73530,"__glo_set_91random_91source_91val_67_srfi_27", __glo_set_91random_91source_91val_67_srfi_27, r_73155);
return_closcall1(data,(closure)&c_73530,  c_73560);; 
}

static void __lambda_51(void *data, object self_73218, int argc, object *args) /* object self_73218, object r_73149 */
 {

  
closureN_type c_73532;
object e_73556 [1];
c_73532.hdr.mark = gc_color_red;
 c_73532.hdr.grayed = 0;
c_73532.tag = closureN_tag;
 c_73532.fn = (function_type)__lambda_52;
c_73532.num_args = 1;
c_73532.num_elements = 1;
c_73532.elements = (object *)e_73556;
c_73532.elements[0] = ((closureN)self_73218)->elements[0];

return_direct_with_clo2(data,  __glo_raw_91random_91source_srfi_27, (((closure)  __glo_raw_91random_91source_srfi_27)->fn),  &c_73532, __glo_incr_srfi_27);; 
}

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


object c_73555 = global_set_cps_id(data,(closure)&c_73534,"__glo_default_91random_91source_srfi_27", __glo_default_91random_91source_srfi_27, r_73154);
return_closcall1(data,(closure)&c_73534,  c_73555);; 
}

static void __lambda_53(void *data, object self_73220, int argc, object *args) /* object self_73220, object r_73150 */
 {

  
closureN_type c_73536;
object e_73551 [1];
c_73536.hdr.mark = gc_color_red;
 c_73536.hdr.grayed = 0;
c_73536.tag = closureN_tag;
 c_73536.fn = (function_type)__lambda_54;
c_73536.num_args = 1;
c_73536.num_elements = 1;
c_73536.elements = (object *)e_73551;
c_73536.elements[0] = ((closureN)self_73220)->elements[0];

return_direct_with_clo2(data,  __glo_random_91source_91make_91integers_srfi_27, (((closure)  __glo_random_91source_91make_91integers_srfi_27)->fn),  &c_73536, __glo_default_91random_91source_srfi_27);; 
}

static void __lambda_54(void *data, object self_73221, int argc, object *args) /* object self_73221, object r_73153 */
 {
 object r_73153 = args[0];
  
closureN_type c_73538;
object e_73547 [1];
c_73538.hdr.mark = gc_color_red;
 c_73538.hdr.grayed = 0;
c_73538.tag = closureN_tag;
 c_73538.fn = (function_type)__lambda_55;
c_73538.num_args = 1;
c_73538.num_elements = 1;
c_73538.elements = (object *)e_73547;
c_73538.elements[0] = ((closureN)self_73221)->elements[0];


object c_73550 = global_set_cps_id(data,(closure)&c_73538,"__glo_random_91integer_srfi_27", __glo_random_91integer_srfi_27, r_73153);
return_closcall1(data,(closure)&c_73538,  c_73550);; 
}

static void __lambda_55(void *data, object self_73222, int argc, object *args) /* object self_73222, object r_73151 */
 {

  
closureN_type c_73540;
object e_73546 [1];
c_73540.hdr.mark = gc_color_red;
 c_73540.hdr.grayed = 0;
c_73540.tag = closureN_tag;
 c_73540.fn = (function_type)__lambda_56;
c_73540.num_args = 1;
c_73540.num_elements = 1;
c_73540.elements = (object *)e_73546;
c_73540.elements[0] = ((closureN)self_73222)->elements[0];

return_direct_with_clo2(data,  __glo_random_91source_91make_91reals_srfi_27, (((closure)  __glo_random_91source_91make_91reals_srfi_27)->fn),  &c_73540, __glo_default_91random_91source_srfi_27);; 
}

static void __lambda_56(void *data, object self_73223, int argc, object *args) /* object self_73223, object r_73152 */
 {
 object r_73152 = args[0];
  
object c_73545 = global_set_cps_id(data,  ((closureN)self_73223)->elements[0],"__glo_random_91real_srfi_27", __glo_random_91real_srfi_27, r_73152);
return_direct_with_clo1(data,  ((closureN)self_73223)->elements[0], (((closure)  ((closureN)self_73223)->elements[0])->fn),  c_73545);; 
}

static void __lambda_33(void *data, object _, int argc, object *args) /* closure _,object k_73135, object s_7323_7352 */
 {
object k_73135 = args[0]; object s_7323_7352 = args[1];
  Cyc_st_add(data, "srfi/27.sld:random-source-randomize!");

closureN_type c_73461;
object e_73505 [2];
c_73461.hdr.mark = gc_color_red;
 c_73461.hdr.grayed = 0;
c_73461.tag = closureN_tag;
 c_73461.fn = (function_type)__lambda_34;
c_73461.num_args = 2;
c_73461.num_elements = 2;
c_73461.elements = (object *)e_73505;
c_73461.elements[0] = k_73135;
c_73461.elements[1] = s_7323_7352;

return_direct_with_clo2(data,(closure)&c_73461,__lambda_34,  boolean_f, boolean_f);; 
}

static void __lambda_34(void *data, object self_73200, int argc, object *args) /* object self_73200, object i_7355, object j_7356 */
 {
 object i_7355 = args[0]; object j_7356 = args[1];
  
closureN_type c_73463;
object e_73501 [3];
c_73463.hdr.mark = gc_color_red;
 c_73463.hdr.grayed = 0;
c_73463.tag = closureN_tag;
 c_73463.fn = (function_type)__lambda_63;
c_73463.num_args = 1;
c_73463.num_elements = 3;
c_73463.elements = (object *)e_73501;
c_73463.elements[0] = j_7356;
c_73463.elements[1] = ((closureN)self_73200)->elements[0];
c_73463.elements[2] = ((closureN)self_73200)->elements[1];


pair_type local_73504; 
return_direct_with_clo1(data,(closure)&c_73463,__lambda_63,  set_cell_as_expr(&local_73504, i_7355));; 
}

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


pair_type local_73499; 
return_direct_with_clo1(data,(closure)&c_73465,__lambda_62,  set_cell_as_expr(&local_73499, ((closureN)self_73201)->elements[0]));; 
}

static void __lambda_62(void *data, object self_73202, int argc, object *args) /* object self_73202, object j_7356 */
 {
 object j_7356 = args[0];
  
closureN_type c_73467;
object e_73495 [4];
c_73467.hdr.mark = gc_color_red;
 c_73467.hdr.grayed = 0;
c_73467.tag = closureN_tag;
 c_73467.fn = (function_type)__lambda_35;
c_73467.num_args = 1;
c_73467.num_elements = 4;
c_73467.elements = (object *)e_73495;
c_73467.elements[0] = ((closureN)self_73202)->elements[0];
c_73467.elements[1] = j_7356;
c_73467.elements[2] = ((closureN)self_73202)->elements[1];
c_73467.elements[3] = ((closureN)self_73202)->elements[2];

return_direct_with_clo1(data,  __glo_current_91second_scheme_time, (((closure)  __glo_current_91second_scheme_time)->fn),  &c_73467);; 
}

static void __lambda_35(void *data, object self_73203, int argc, object *args) /* object self_73203, object r_73140 */
 {
 object r_73140 = args[0];
  
closureN_type c_73469;
object e_73491 [4];
c_73469.hdr.mark = gc_color_red;
 c_73469.hdr.grayed = 0;
c_73469.tag = closureN_tag;
 c_73469.fn = (function_type)__lambda_36;
c_73469.num_args = 1;
c_73469.num_elements = 4;
c_73469.elements = (object *)e_73491;
c_73469.elements[0] = ((closureN)self_73203)->elements[0];
c_73469.elements[1] = ((closureN)self_73203)->elements[1];
c_73469.elements[2] = ((closureN)self_73203)->elements[2];
c_73469.elements[3] = ((closureN)self_73203)->elements[3];



return_direct_with_clo1(data,(closure)&c_73469,__lambda_36,  Cyc_set_cell(data, ((closureN)self_73203)->elements[0], r_73140));; 
}

static void __lambda_36(void *data, object self_73204, int argc, object *args) /* object self_73204, object r_73136 */
 {

  
closureN_type c_73471;
object e_73490 [4];
c_73471.hdr.mark = gc_color_red;
 c_73471.hdr.grayed = 0;
c_73471.tag = closureN_tag;
 c_73471.fn = (function_type)__lambda_37;
c_73471.num_args = 1;
c_73471.num_elements = 4;
c_73471.elements = (object *)e_73490;
c_73471.elements[0] = ((closureN)self_73204)->elements[0];
c_73471.elements[1] = ((closureN)self_73204)->elements[1];
c_73471.elements[2] = ((closureN)self_73204)->elements[2];
c_73471.elements[3] = ((closureN)self_73204)->elements[3];

return_direct_with_clo1(data,  __glo_current_91second_scheme_time, (((closure)  __glo_current_91second_scheme_time)->fn),  &c_73471);; 
}

static void __lambda_37(void *data, object self_73205, int argc, object *args) /* object self_73205, object r_73139 */
 {
 object r_73139 = args[0];
  
closureN_type c_73473;
object e_73483 [4];
c_73473.hdr.mark = gc_color_red;
 c_73473.hdr.grayed = 0;
c_73473.tag = closureN_tag;
 c_73473.fn = (function_type)__lambda_38;
c_73473.num_args = 1;
c_73473.num_elements = 4;
c_73473.elements = (object *)e_73483;
c_73473.elements[0] = ((closureN)self_73205)->elements[0];
c_73473.elements[1] = ((closureN)self_73205)->elements[1];
c_73473.elements[2] = ((closureN)self_73205)->elements[2];
c_73473.elements[3] = ((closureN)self_73205)->elements[3];




complex_num_type local_73489; 
return_direct_with_clo1(data,(closure)&c_73473,__lambda_38,  Cyc_set_cell(data, ((closureN)self_73205)->elements[1], Cyc_fast_sum(data,&local_73489, r_73139, obj_int2obj(2))));; 
}

static void __lambda_38(void *data, object self_73206, int argc, object *args) /* object self_73206, object r_73137 */
 {

  



return_direct_with_clo4(data,  __glo_random_91source_91pseudo_91randomize_67_srfi_27, (((closure)  __glo_random_91source_91pseudo_91randomize_67_srfi_27)->fn),  ((closureN)self_73206)->elements[2], ((closureN)self_73206)->elements[3], car(((closureN)self_73206)->elements[0]), car(((closureN)self_73206)->elements[1]));; 
}

static void __lambda_27(void *data, object _, int argc, object *args) /* closure _,object k_73127, object s_7320_7340, object i_7321_7341, object j_7322_7342 */
 {
object k_73127 = args[0]; object s_7320_7340 = args[1]; object i_7321_7341 = args[2]; object j_7322_7342 = args[3];
  Cyc_st_add(data, "srfi/27.sld:random-source-pseudo-randomize!");

closureN_type c_73399;
object e_73458 [4];
c_73399.hdr.mark = gc_color_red;
 c_73399.hdr.grayed = 0;
c_73399.tag = closureN_tag;
 c_73399.fn = (function_type)__lambda_28;
c_73399.num_args = 3;
c_73399.num_elements = 4;
c_73399.elements = (object *)e_73458;
c_73399.elements[0] = i_7321_7341;
c_73399.elements[1] = j_7322_7342;
c_73399.elements[2] = k_73127;
c_73399.elements[3] = s_7320_7340;

return_direct_with_clo3(data,(closure)&c_73399,__lambda_28,  boolean_f, boolean_f, boolean_f);; 
}

static void __lambda_28(void *data, object self_73192, int argc, object *args) /* object self_73192, object n1_7346, object n2_7347, object n3_7348 */
 {
 object n1_7346 = args[0]; object n2_7347 = args[1]; object n3_7348 = args[2];
  
closureN_type c_73401;
object e_73454 [6];
c_73401.hdr.mark = gc_color_red;
 c_73401.hdr.grayed = 0;
c_73401.tag = closureN_tag;
 c_73401.fn = (function_type)__lambda_61;
c_73401.num_args = 1;
c_73401.num_elements = 6;
c_73401.elements = (object *)e_73454;
c_73401.elements[0] = ((closureN)self_73192)->elements[0];
c_73401.elements[1] = ((closureN)self_73192)->elements[1];
c_73401.elements[2] = ((closureN)self_73192)->elements[2];
c_73401.elements[3] = n2_7347;
c_73401.elements[4] = n3_7348;
c_73401.elements[5] = ((closureN)self_73192)->elements[3];


pair_type local_73457; 
return_direct_with_clo1(data,(closure)&c_73401,__lambda_61,  set_cell_as_expr(&local_73457, n1_7346));; 
}

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


pair_type local_73452; 
return_direct_with_clo1(data,(closure)&c_73403,__lambda_60,  set_cell_as_expr(&local_73452, ((closureN)self_73193)->elements[3]));; 
}

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


pair_type local_73447; 
return_direct_with_clo1(data,(closure)&c_73405,__lambda_59,  set_cell_as_expr(&local_73447, ((closureN)self_73194)->elements[4]));; 
}

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



return_direct_with_clo1(data,(closure)&c_73407,__lambda_29,  Cyc_set_cell(data, ((closureN)self_73195)->elements[3], ((closureN)self_73195)->elements[0]));; 
}

static void __lambda_29(void *data, object self_73196, int argc, object *args) /* object self_73196, object r_73128 */
 {

  
closureN_type c_73409;
object e_73434 [5];
c_73409.hdr.mark = gc_color_red;
 c_73409.hdr.grayed = 0;
c_73409.tag = closureN_tag;
 c_73409.fn = (function_type)__lambda_30;
c_73409.num_args = 1;
c_73409.num_elements = 5;
c_73409.elements = (object *)e_73434;
c_73409.elements[0] = ((closureN)self_73196)->elements[1];
c_73409.elements[1] = ((closureN)self_73196)->elements[2];
c_73409.elements[2] = ((closureN)self_73196)->elements[3];
c_73409.elements[3] = ((closureN)self_73196)->elements[4];
c_73409.elements[4] = ((closureN)self_73196)->elements[5];



return_direct_with_clo1(data,(closure)&c_73409,__lambda_30,  Cyc_set_cell(data, ((closureN)self_73196)->elements[3], ((closureN)self_73196)->elements[0]));; 
}

static void __lambda_30(void *data, object self_73197, int argc, object *args) /* object self_73197, object r_73129 */
 {

  
closureN_type c_73411;
object e_73424 [3];
c_73411.hdr.mark = gc_color_red;
 c_73411.hdr.grayed = 0;
c_73411.tag = closureN_tag;
 c_73411.fn = (function_type)__lambda_31;
c_73411.num_args = 1;
c_73411.num_elements = 3;
c_73411.elements = (object *)e_73424;
c_73411.elements[0] = ((closureN)self_73197)->elements[0];
c_73411.elements[1] = ((closureN)self_73197)->elements[3];
c_73411.elements[2] = ((closureN)self_73197)->elements[4];


complex_num_type local_73427; 




return_direct_with_clo2(data,  __glo_abs_scheme_base, (((closure)  __glo_abs_scheme_base)->fn),  &c_73411, Cyc_fast_sum(data,&local_73427, car(((closureN)self_73197)->elements[1]), car(((closureN)self_73197)->elements[2])));; 
}

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



return_direct_with_clo1(data,(closure)&c_73413,__lambda_32,  Cyc_set_cell(data, ((closureN)self_73198)->elements[1], r_73131));; 
}

static void __lambda_32(void *data, object self_73199, int argc, object *args) /* object self_73199, object r_73130 */
 {

  

return_direct_with_clo3(data,  __glo_set_91random_91source_91val_67_srfi_27, (((closure)  __glo_set_91random_91source_91val_67_srfi_27)->fn),  ((closureN)self_73199)->elements[0], ((closureN)self_73199)->elements[2], car(((closureN)self_73199)->elements[1]));; 
}

static void __lambda_26(void *data, object _, int argc, object *args) /* closure _,object k_73124, object s_7318_7338, object state_7319_7339 */
 {
object k_73124 = args[0]; object s_7318_7338 = args[1]; object state_7319_7339 = args[2];
  Cyc_st_add(data, "srfi/27.sld:random-source-state-set!");
return_direct_with_clo3(data,  __glo_set_91random_91source_91val_67_srfi_27, (((closure)  __glo_set_91random_91source_91val_67_srfi_27)->fn),  k_73124, s_7318_7338, state_7319_7339);; 
}

static void __lambda_25(void *data, object _, int argc, object *args) /* closure _,object k_73121, object s_7317_7337 */
 {
object k_73121 = args[0]; object s_7317_7337 = args[1];
  Cyc_st_add(data, "srfi/27.sld:random-source-state-ref");
return_direct_with_clo2(data,  __glo_random_91source_91val_srfi_27, (((closure)  __glo_random_91source_91val_srfi_27)->fn),  k_73121, s_7317_7337);; 
}

static void __lambda_12(void *data, object _, int argc, object *args) /* closure _,object k_7390, object args_735_739_7329_raw, ... */
 {
object k_7390 = args[0];
load_varargs(args_735_739_7329, args, 1, argc - 1);
  Cyc_st_add(data, "srfi/27.sld:random-source-make-reals");
  
  
  
  make_pair(c_73291,quote_s,NULL);c_73291.hdr.immutable = 1;
if( (boolean_f != Cyc_num_fast_eq_op(data, Cyc_length(data, args_735_739_7329), Cyc_length(data, &c_73291))) ){ 
  
closureN_type c_73293;
object e_73300 [2];
c_73293.hdr.mark = gc_color_red;
 c_73293.hdr.grayed = 0;
c_73293.tag = closureN_tag;
 c_73293.fn = (function_type)__lambda_13;
c_73293.num_args = 1;
c_73293.num_elements = 2;
c_73293.elements = (object *)e_73300;
c_73293.elements[0] = args_735_739_7329;
c_73293.elements[1] = k_7390;


mclosure0(c_73301, (function_type)__lambda_14);c_73301.num_args = 1;
return_direct_with_clo1(data,(closure)&c_73293,__lambda_13,  &c_73301);
} else { 
    
  
  
  make_pair(c_73314,quote_unit,NULL);c_73314.hdr.immutable = 1;
  make_pair(c_73313,quote_s,&c_73314);c_73313.hdr.immutable = 1;
if( (boolean_f != Cyc_num_fast_eq_op(data, Cyc_length(data, args_735_739_7329), Cyc_length(data, &c_73313))) ){ 
  
closureN_type c_73316;
object e_73323 [2];
c_73316.hdr.mark = gc_color_red;
 c_73316.hdr.grayed = 0;
c_73316.tag = closureN_tag;
 c_73316.fn = (function_type)__lambda_15;
c_73316.num_args = 1;
c_73316.num_elements = 2;
c_73316.elements = (object *)e_73323;
c_73316.elements[0] = args_735_739_7329;
c_73316.elements[1] = k_7390;


mclosure0(c_73324, (function_type)__lambda_16);c_73324.num_args = 2;
return_direct_with_clo1(data,(closure)&c_73316,__lambda_15,  &c_73324);
} else { 
  
make_utf8_string_with_len(c_73392, "case-lambda: no cases matched", 29, 29);
return_direct_with_clo2(data,  __glo_error_scheme_base, (((closure)  __glo_error_scheme_base)->fn),  k_7390, &c_73392);}
;}
;; 
}

static void __lambda_16(void *data, object self_73181, int argc, object *args) /* object self_73181, object k_7398, object s_7314_7333, object unit_7315_7334 */
 {
 object k_7398 = args[0]; object s_7314_7333 = args[1]; object unit_7315_7334 = args[2];
  
closureN_type c_73326;
object e_73342 [1];
c_73326.hdr.mark = gc_color_red;
 c_73326.hdr.grayed = 0;
c_73326.tag = closureN_tag;
 c_73326.fn = (function_type)__lambda_17;
c_73326.num_args = 0;
c_73326.num_elements = 1;
c_73326.elements = (object *)e_73342;
c_73326.elements[0] = unit_7315_7334;


closureN_type c_73343;
object e_73390 [3];
c_73343.hdr.mark = gc_color_red;
 c_73343.hdr.grayed = 0;
c_73343.tag = closureN_tag;
 c_73343.fn = (function_type)__lambda_19;
c_73343.num_args = 1;
c_73343.num_elements = 3;
c_73343.elements = (object *)e_73390;
c_73343.elements[0] = k_7398;
c_73343.elements[1] = s_7314_7333;
c_73343.elements[2] = unit_7315_7334;

return_direct_with_clo1(data,(closure)&c_73326,__lambda_17,  &c_73343);; 
}

static void __lambda_19(void *data, object self_73182, int argc, object *args) /* object self_73182, object r_7399 */
 {

  
closureN_type c_73345;
object e_73388 [2];
c_73345.hdr.mark = gc_color_red;
 c_73345.hdr.grayed = 0;
c_73345.tag = closureN_tag;
 c_73345.fn = (function_type)__lambda_20;
c_73345.num_args = 1;
c_73345.num_elements = 2;
c_73345.elements = (object *)e_73388;
c_73345.elements[0] = ((closureN)self_73182)->elements[0];
c_73345.elements[1] = ((closureN)self_73182)->elements[2];

return_direct_with_clo2(data,  __glo_random_91source_91make_91integers_srfi_27, (((closure)  __glo_random_91source_91make_91integers_srfi_27)->fn),  &c_73345, ((closureN)self_73182)->elements[1]);; 
}

static void __lambda_20(void *data, object self_73183, int argc, object *args) /* object self_73183, object numgen_7316_7335 */
 {
 object numgen_7316_7335 = args[0];
  
closureN_type c_73347;
object e_73387 [3];
c_73347.hdr.mark = gc_color_red;
 c_73347.hdr.grayed = 0;
c_73347.tag = closureN_tag;
 c_73347.fn = (function_type)__lambda_21;
c_73347.num_args = 1;
c_73347.num_elements = 3;
c_73347.elements = (object *)e_73387;
c_73347.elements[0] = ((closureN)self_73183)->elements[0];
c_73347.elements[1] = numgen_7316_7335;
c_73347.elements[2] = ((closureN)self_73183)->elements[1];

return_direct_with_clo1(data,(closure)&c_73347,__lambda_21,  boolean_f);; 
}

static void __lambda_21(void *data, object self_73184, int argc, object *args) /* object self_73184, object r_7336 */
 {
 object r_7336 = args[0];
  
closureN_type c_73349;
object e_73383 [3];
c_73349.hdr.mark = gc_color_red;
 c_73349.hdr.grayed = 0;
c_73349.tag = closureN_tag;
 c_73349.fn = (function_type)__lambda_58;
c_73349.num_args = 1;
c_73349.num_elements = 3;
c_73349.elements = (object *)e_73383;
c_73349.elements[0] = ((closureN)self_73184)->elements[0];
c_73349.elements[1] = ((closureN)self_73184)->elements[1];
c_73349.elements[2] = ((closureN)self_73184)->elements[2];


pair_type local_73386; 
return_direct_with_clo1(data,(closure)&c_73349,__lambda_58,  set_cell_as_expr(&local_73386, r_7336));; 
}

static void __lambda_58(void *data, object self_73185, int argc, object *args) /* object self_73185, object r_7336 */
 {
 object r_7336 = args[0];
  
closureN_type c_73351;
object e_73369 [4];
c_73351.hdr.mark = gc_color_red;
 c_73351.hdr.grayed = 0;
c_73351.tag = closureN_tag;
 c_73351.fn = (function_type)__lambda_22;
c_73351.num_args = 1;
c_73351.num_elements = 4;
c_73351.elements = (object *)e_73369;
c_73351.elements[0] = ((closureN)self_73185)->elements[0];
c_73351.elements[1] = ((closureN)self_73185)->elements[1];
c_73351.elements[2] = r_7336;
c_73351.elements[3] = ((closureN)self_73185)->elements[2];




complex_num_type local_73374; 

complex_num_type local_73377; 

complex_num_type local_73380; 

make_double(c_73381, 1.0);
return_direct_with_clo1(data,(closure)&c_73351,__lambda_22,  Cyc_set_cell(data, r_7336, ((inline_function_type)
                   ((closure)__glo_exact_191_191inline_191_191_scheme_base)->fn)(data,&local_73374, ((inline_function_type)
                   ((closure)__glo_floor_191_191inline_191_191_scheme_base)->fn)(data,&local_73377, Cyc_fast_div(data,&local_73380, &c_73381, ((closureN)self_73185)->elements[2])))));; 
}

static void __lambda_22(void *data, object self_73186, int argc, object *args) /* object self_73186, object r_73101 */
 {

  
closureN_type c_73354;
object e_73368 [3];
c_73354.hdr.mark = gc_color_red;
 c_73354.hdr.grayed = 0;
c_73354.tag = closureN_tag;
 c_73354.fn = (function_type)__lambda_23;
c_73354.num_args = 0;
c_73354.num_elements = 3;
c_73354.elements = (object *)e_73368;
c_73354.elements[0] = ((closureN)self_73186)->elements[1];
c_73354.elements[1] = ((closureN)self_73186)->elements[2];
c_73354.elements[2] = ((closureN)self_73186)->elements[3];

return_direct_with_clo1(data,  ((closureN)self_73186)->elements[0], (((closure)  ((closureN)self_73186)->elements[0])->fn),  &c_73354);; 
}

static void __lambda_23(void *data, object self_73187, int argc, object *args) /* object self_73187, object k_73102 */
 {
 object k_73102 = args[0];
  
closureN_type c_73357;
object e_73364 [2];
c_73357.hdr.mark = gc_color_red;
 c_73357.hdr.grayed = 0;
c_73357.tag = closureN_tag;
 c_73357.fn = (function_type)__lambda_24;
c_73357.num_args = 1;
c_73357.num_elements = 2;
c_73357.elements = (object *)e_73364;
c_73357.elements[0] = k_73102;
c_73357.elements[1] = ((closureN)self_73187)->elements[2];



return_closcall2(data,  ((closureN)self_73187)->elements[0],  &c_73357, car(((closureN)self_73187)->elements[1]));; 
}

static void __lambda_24(void *data, object self_73188, int argc, object *args) /* object self_73188, object r_73103 */
 {
 object r_73103 = args[0];
  
complex_num_type local_73362; 
return_direct_with_clo1(data,  ((closureN)self_73188)->elements[0], (((closure)  ((closureN)self_73188)->elements[0])->fn),  Cyc_fast_mul(data,&local_73362, r_73103, ((closureN)self_73188)->elements[1]));; 
}

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


make_double(c_73339, 0.0);

make_double(c_73341, 1.0);

object c_73338 = Cyc_num_lt(data,(closure)&c_73328,3,&c_73339, ((closureN)self_73189)->elements[0], &c_73341);
return_closcall1(data,(closure)&c_73328,  c_73338);; 
}

static void __lambda_18(void *data, object self_73190, int argc, object *args) /* object self_73190, object r_73108 */
 {
 object r_73108 = args[0];
  if( (boolean_f != r_73108) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73190)->elements[0], (((closure)  ((closureN)self_73190)->elements[0])->fn),  Cyc_VOID);
} else { 
  
make_utf8_string_with_len(c_73333, "unit must be between 0.0 and 1.0 (exclusive), but got ", 54, 54);
return_direct_with_clo3(data,  __glo_error_scheme_base, (((closure)  __glo_error_scheme_base)->fn),  ((closureN)self_73190)->elements[0], &c_73333, ((closureN)self_73190)->elements[1]);}
;; 
}

static void __lambda_15(void *data, object self_73191, int argc, object *args) /* object self_73191, object r_7397 */
 {
 object r_7397 = args[0];
  
object c_73321 = apply(data,  ((closureN)self_73191)->elements[1],r_7397, ((closureN)self_73191)->elements[0]);
return_direct_with_clo1(data,  ((closureN)self_73191)->elements[1], (((closure)  ((closureN)self_73191)->elements[1])->fn),  c_73321);; 
}

static void __lambda_14(void *data, object self_73179, int argc, object *args) /* object self_73179, object k_7394, object s_7312_7332 */
 {
 object k_7394 = args[0]; object s_7312_7332 = args[1];
  
complex_num_type local_73305; 

make_double(c_73306, 1.0);
return_direct_with_clo3(data,  __glo_random_91source_91make_91reals_srfi_27, (((closure)  __glo_random_91source_91make_91reals_srfi_27)->fn),  k_7394, s_7312_7332, Cyc_fast_div(data,&local_73305, &c_73306, __glo_m_srfi_27));; 
}

static void __lambda_13(void *data, object self_73180, int argc, object *args) /* object self_73180, object r_7393 */
 {
 object r_7393 = args[0];
  
object c_73298 = apply(data,  ((closureN)self_73180)->elements[1],r_7393, ((closureN)self_73180)->elements[0]);
return_direct_with_clo1(data,  ((closureN)self_73180)->elements[1], (((closure)  ((closureN)self_73180)->elements[1])->fn),  c_73298);; 
}

static void __lambda_5(void *data, object _, int argc, object *args) /* closure _,object k_7382, object s_733_7325 */
 {
object k_7382 = args[0]; object s_733_7325 = args[1];
  Cyc_st_add(data, "srfi/27.sld:random-source-make-integers");

closureN_type c_73247;
object e_73283 [1];
c_73247.hdr.mark = gc_color_red;
 c_73247.hdr.grayed = 0;
c_73247.tag = closureN_tag;
 c_73247.fn = (function_type)__lambda_6;
c_73247.num_args = 1;
c_73247.num_elements = 1;
c_73247.elements = (object *)e_73283;
c_73247.elements[0] = s_733_7325;

return_direct_with_clo1(data,  k_7382, (((closure)  k_7382)->fn),  &c_73247);; 
}

static void __lambda_6(void *data, object self_73172, int argc, object *args) /* object self_73172, object k_7383, object n_734_7327 */
 {
 object k_7383 = args[0]; object n_734_7327 = args[1];
  
closureN_type c_73249;
object e_73282 [3];
c_73249.hdr.mark = gc_color_red;
 c_73249.hdr.grayed = 0;
c_73249.tag = closureN_tag;
 c_73249.fn = (function_type)__lambda_7;
c_73249.num_args = 1;
c_73249.num_elements = 3;
c_73249.elements = (object *)e_73282;
c_73249.elements[0] = k_7383;
c_73249.elements[1] = n_734_7327;
c_73249.elements[2] = ((closureN)self_73172)->elements[0];

return_direct_with_clo1(data,(closure)&c_73249,__lambda_7,  boolean_f);; 
}

static void __lambda_7(void *data, object self_73173, int argc, object *args) /* object self_73173, object nextval_7328 */
 {
 object nextval_7328 = args[0];
  
closureN_type c_73251;
object e_73278 [3];
c_73251.hdr.mark = gc_color_red;
 c_73251.hdr.grayed = 0;
c_73251.tag = closureN_tag;
 c_73251.fn = (function_type)__lambda_57;
c_73251.num_args = 1;
c_73251.num_elements = 3;
c_73251.elements = (object *)e_73278;
c_73251.elements[0] = ((closureN)self_73173)->elements[0];
c_73251.elements[1] = ((closureN)self_73173)->elements[1];
c_73251.elements[2] = ((closureN)self_73173)->elements[2];


pair_type local_73281; 
return_direct_with_clo1(data,(closure)&c_73251,__lambda_57,  set_cell_as_expr(&local_73281, nextval_7328));; 
}

static void __lambda_57(void *data, object self_73174, int argc, object *args) /* object self_73174, object nextval_7328 */
 {
 object nextval_7328 = args[0];
  
closureN_type c_73253;
object e_73276 [4];
c_73253.hdr.mark = gc_color_red;
 c_73253.hdr.grayed = 0;
c_73253.tag = closureN_tag;
 c_73253.fn = (function_type)__lambda_8;
c_73253.num_args = 1;
c_73253.num_elements = 4;
c_73253.elements = (object *)e_73276;
c_73253.elements[0] = ((closureN)self_73174)->elements[0];
c_73253.elements[1] = ((closureN)self_73174)->elements[1];
c_73253.elements[2] = nextval_7328;
c_73253.elements[3] = ((closureN)self_73174)->elements[2];

return_direct_with_clo2(data,  __glo_random_91source_91val_srfi_27, (((closure)  __glo_random_91source_91val_srfi_27)->fn),  &c_73253, ((closureN)self_73174)->elements[2]);; 
}

static void __lambda_8(void *data, object self_73175, int argc, object *args) /* object self_73175, object r_7387 */
 {
 object r_7387 = args[0];
  
closureN_type c_73255;
object e_73275 [4];
c_73255.hdr.mark = gc_color_red;
 c_73255.hdr.grayed = 0;
c_73255.tag = closureN_tag;
 c_73255.fn = (function_type)__lambda_9;
c_73255.num_args = 1;
c_73255.num_elements = 4;
c_73255.elements = (object *)e_73275;
c_73255.elements[0] = ((closureN)self_73175)->elements[0];
c_73255.elements[1] = ((closureN)self_73175)->elements[1];
c_73255.elements[2] = ((closureN)self_73175)->elements[2];
c_73255.elements[3] = ((closureN)self_73175)->elements[3];

return_direct_with_clo2(data,  __glo_next_91lcg_srfi_27, (((closure)  __glo_next_91lcg_srfi_27)->fn),  &c_73255, r_7387);; 
}

static void __lambda_9(void *data, object self_73176, int argc, object *args) /* object self_73176, object r_7386 */
 {
 object r_7386 = args[0];
  
closureN_type c_73257;
object e_73271 [4];
c_73257.hdr.mark = gc_color_red;
 c_73257.hdr.grayed = 0;
c_73257.tag = closureN_tag;
 c_73257.fn = (function_type)__lambda_10;
c_73257.num_args = 1;
c_73257.num_elements = 4;
c_73257.elements = (object *)e_73271;
c_73257.elements[0] = ((closureN)self_73176)->elements[0];
c_73257.elements[1] = ((closureN)self_73176)->elements[1];
c_73257.elements[2] = ((closureN)self_73176)->elements[2];
c_73257.elements[3] = ((closureN)self_73176)->elements[3];



return_direct_with_clo1(data,(closure)&c_73257,__lambda_10,  Cyc_set_cell(data, ((closureN)self_73176)->elements[2], r_7386));; 
}

static void __lambda_10(void *data, object self_73177, int argc, object *args) /* object self_73177, object r_7384 */
 {

  
closureN_type c_73259;
object e_73266 [3];
c_73259.hdr.mark = gc_color_red;
 c_73259.hdr.grayed = 0;
c_73259.tag = closureN_tag;
 c_73259.fn = (function_type)__lambda_11;
c_73259.num_args = 1;
c_73259.num_elements = 3;
c_73259.elements = (object *)e_73266;
c_73259.elements[0] = ((closureN)self_73177)->elements[0];
c_73259.elements[1] = ((closureN)self_73177)->elements[1];
c_73259.elements[2] = ((closureN)self_73177)->elements[2];



return_direct_with_clo3(data,  __glo_set_91random_91source_91val_67_srfi_27, (((closure)  __glo_set_91random_91source_91val_67_srfi_27)->fn),  &c_73259, ((closureN)self_73177)->elements[3], car(((closureN)self_73177)->elements[2]));; 
}

static void __lambda_11(void *data, object self_73178, int argc, object *args) /* object self_73178, object r_7385 */
 {

  

return_direct_with_clo3(data,  __glo_modulo_scheme_base, (((closure)  __glo_modulo_scheme_base)->fn),  ((closureN)self_73178)->elements[0], car(((closureN)self_73178)->elements[2]), ((closureN)self_73178)->elements[1]);; 
}

static void __lambda_4(void *data, object _, int argc, object *args) /* closure _,object k_7379 */
 {
object k_7379 = args[0];
  Cyc_st_add(data, "srfi/27.sld:make-random-source");
return_direct_with_clo2(data,  __glo_raw_91random_91source_srfi_27, (((closure)  __glo_raw_91random_91source_srfi_27)->fn),  k_7379, __glo_incr_srfi_27);; 
}

static void __lambda_1(void *data, object _, int argc, object *args) /* closure _,object k_7373, object n_732_7324 */
 {
object k_7373 = args[0]; object n_732_7324 = args[1];
  Cyc_st_add(data, "srfi/27.sld:raw-random-source");

closureN_type c_73228;
object e_73239 [2];
c_73228.hdr.mark = gc_color_red;
 c_73228.hdr.grayed = 0;
c_73228.tag = closureN_tag;
 c_73228.fn = (function_type)__lambda_2;
c_73228.num_args = 1;
c_73228.num_elements = 2;
c_73228.elements = (object *)e_73239;
c_73228.elements[0] = k_7373;
c_73228.elements[1] = n_732_7324;


complex_num_type local_73242; 
return_direct_with_clo1(data,(closure)&c_73228,__lambda_2,  ((inline_function_type)
                   ((closure)__glo_make_91record_91marker_191_191inline_191_191_scheme_base)->fn)(data,&local_73242));; 
}

static void __lambda_2(void *data, object self_73170, int argc, object *args) /* object self_73170, object r_7374 */
 {
 object r_7374 = args[0];
  
closureN_type c_73230;
object e_73237 [2];
c_73230.hdr.mark = gc_color_red;
 c_73230.hdr.grayed = 0;
c_73230.tag = closureN_tag;
 c_73230.fn = (function_type)__lambda_3;
c_73230.num_args = 1;
c_73230.num_elements = 2;
c_73230.elements = (object *)e_73237;
c_73230.elements[0] = ((closureN)self_73170)->elements[0];
c_73230.elements[1] = r_7374;

return_direct_with_clo2(data,  __glo_vector_scheme_base, (((closure)  __glo_vector_scheme_base)->fn),  &c_73230, ((closureN)self_73170)->elements[1]);; 
}

static void __lambda_3(void *data, object self_73171, int argc, object *args) /* object self_73171, object r_7376 */
 {
 object r_7376 = args[0];
  
vector_3_type local_73235; 
return_direct_with_clo1(data,  ((closureN)self_73171)->elements[0], (((closure)  ((closureN)self_73171)->elements[0])->fn),  Cyc_fast_vector_3(&local_73235, ((closureN)self_73171)->elements[1], quote__121random_91source_125, r_7376));; 
}

static void __lambda_65(void *data, object _, int argc, object *args) {object k = args[0];object seed = args[1];double dval = MRG32k3a( double_value(seed) );
       {
        make_double(result, dval);
        return_closcall1(data, k, &result);
       } }
static void __lambda_64(void *data, object _, int argc, object *args) {object k = args[0];object seed = args[1];object result = NULL;
       unsigned int s = obj_obj2int(seed);
       unsigned int mult = 1103515245;
       unsigned int incr = 12345;
       unsigned int m = 536870912;
       unsigned int next_seed = ((s * mult) + incr) % m;
       result = obj_int2obj(next_seed);
       return_closcall1(data, k, result); }
void c_srfi27_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_srfi27_entry_pt_first_lambda(void *data, object clo, int argc, object *args){ 
Cyc_set_globals_changed((gc_thread_data *)data);
  quote_incr = find_or_add_symbol("incr");
  quote_random_91souce_127 = find_or_add_symbol("random-souce?");
  quote_random_91source_91val = find_or_add_symbol("random-source-val");
  quote_n = find_or_add_symbol("n");
  quote_set_91random_91source_91val_67 = find_or_add_symbol("set-random-source-val!");
  quote_default_91random_91source = find_or_add_symbol("default-random-source");
  quote_random_91integer = find_or_add_symbol("random-integer");
  quote_random_91real = find_or_add_symbol("random-real");
  quote_unit = find_or_add_symbol("unit");
  quote_s = find_or_add_symbol("s");
  quote__121random_91source_125 = find_or_add_symbol("<random-source>");

  add_global("__glo_lib_91init_117srfi27_srfi_27", (object *) &__glo_lib_91init_117srfi27_srfi_27);
  add_global("__glo_random_91source_91randomize_67_srfi_27", (object *) &__glo_random_91source_91randomize_67_srfi_27);
  add_global("__glo_random_91source_91pseudo_91randomize_67_srfi_27", (object *) &__glo_random_91source_91pseudo_91randomize_67_srfi_27);
  add_global("__glo_random_91source_91state_91set_67_srfi_27", (object *) &__glo_random_91source_91state_91set_67_srfi_27);
  add_global("__glo_random_91source_91state_91ref_srfi_27", (object *) &__glo_random_91source_91state_91ref_srfi_27);
  add_global("__glo_random_91real_srfi_27", (object *) &__glo_random_91real_srfi_27);
  add_global("__glo_random_91integer_srfi_27", (object *) &__glo_random_91integer_srfi_27);
  add_global("__glo_default_91random_91source_srfi_27", (object *) &__glo_default_91random_91source_srfi_27);
  add_global("__glo_random_91source_91make_91reals_srfi_27", (object *) &__glo_random_91source_91make_91reals_srfi_27);
  add_global("__glo_random_91source_91make_91integers_srfi_27", (object *) &__glo_random_91source_91make_91integers_srfi_27);
  add_global("__glo_make_91random_91source_srfi_27", (object *) &__glo_make_91random_91source_srfi_27);
  add_global("__glo_raw_91random_91source_srfi_27", (object *) &__glo_raw_91random_91source_srfi_27);
  add_global("__glo_set_91random_91source_91val_67_srfi_27", (object *) &__glo_set_91random_91source_91val_67_srfi_27);
  add_global("__glo_random_91source_91val_srfi_27", (object *) &__glo_random_91source_91val_srfi_27);
  add_global("__glo_random_91souce_127_srfi_27", (object *) &__glo_random_91souce_127_srfi_27);
  add_global("__glo__121random_91source_125_srfi_27", (object *) &__glo__121random_91source_125_srfi_27);
  add_global("__glo_next_91mrg32k3a_srfi_27", (object *) &__glo_next_91mrg32k3a_srfi_27);
  add_global("__glo_next_91lcg_srfi_27", (object *) &__glo_next_91lcg_srfi_27);
  add_global("__glo_m_srfi_27", (object *) &__glo_m_srfi_27);
  add_global("__glo_incr_srfi_27", (object *) &__glo_incr_srfi_27);
  mclosure0(c_73506, (function_type)__lambda_39);c_73506.num_args = 0; 
  __glo_lib_91init_117srfi27_srfi_27 = &c_73506; 
  mclosure0(c_73459, (function_type)__lambda_33);c_73459.num_args = 1; 
  __glo_random_91source_91randomize_67_srfi_27 = &c_73459; 
  mclosure0(c_73397, (function_type)__lambda_27);c_73397.num_args = 3; 
  __glo_random_91source_91pseudo_91randomize_67_srfi_27 = &c_73397; 
  mclosure0(c_73395, (function_type)__lambda_26);c_73395.num_args = 2; 
  __glo_random_91source_91state_91set_67_srfi_27 = &c_73395; 
  mclosure0(c_73393, (function_type)__lambda_25);c_73393.num_args = 1; 
  __glo_random_91source_91state_91ref_srfi_27 = &c_73393; 
  mclosure0(c_73284, (function_type)__lambda_12);c_73284.num_args = 0; 
  __glo_random_91source_91make_91reals_srfi_27 = &c_73284; 
  mclosure0(c_73245, (function_type)__lambda_5);c_73245.num_args = 1; 
  __glo_random_91source_91make_91integers_srfi_27 = &c_73245; 
  mclosure0(c_73243, (function_type)__lambda_4);c_73243.num_args = 0; 
  __glo_make_91random_91source_srfi_27 = &c_73243; 
  mclosure0(c_73226, (function_type)__lambda_1);c_73226.num_args = 1; 
  __glo_raw_91random_91source_srfi_27 = &c_73226; 
  mclosure0(c_73225, (function_type)__lambda_65);c_73225.num_args = 1; 
  __glo_next_91mrg32k3a_srfi_27 = &c_73225; 
  mclosure0(c_73224, (function_type)__lambda_64);c_73224.num_args = 1; 
  __glo_next_91lcg_srfi_27 = &c_73224; 
  __glo_random_91real_srfi_27 = boolean_f; 
  __glo_random_91integer_srfi_27 = boolean_f; 
  __glo_default_91random_91source_srfi_27 = boolean_f; 
  __glo_set_91random_91source_91val_67_srfi_27 = boolean_f; 
  __glo_random_91source_91val_srfi_27 = boolean_f; 
  __glo_random_91souce_127_srfi_27 = boolean_f; 
  __glo__121random_91source_125_srfi_27 = boolean_f; 
  __glo_m_srfi_27 = obj_int2obj(536870912); 
  __glo_incr_srfi_27 = boolean_f; 

  mclosure0(clo_73591, c_srfi27_inlinable_lambdas); make_pair(pair_73590, find_or_add_symbol("c_srfi27_inlinable_lambdas"), &clo_73591);
  make_cvar(cvar_73592, (object *)&__glo_lib_91init_117srfi27_srfi_27);make_pair(pair_73593, find_or_add_symbol("lib-init:srfi27"), &cvar_73592);
  make_cvar(cvar_73594, (object *)&__glo_random_91source_91randomize_67_srfi_27);make_pair(pair_73595, find_or_add_symbol("random-source-randomize!"), &cvar_73594);
  make_cvar(cvar_73596, (object *)&__glo_random_91source_91pseudo_91randomize_67_srfi_27);make_pair(pair_73597, find_or_add_symbol("random-source-pseudo-randomize!"), &cvar_73596);
  make_cvar(cvar_73598, (object *)&__glo_random_91source_91state_91set_67_srfi_27);make_pair(pair_73599, find_or_add_symbol("random-source-state-set!"), &cvar_73598);
  make_cvar(cvar_73600, (object *)&__glo_random_91source_91state_91ref_srfi_27);make_pair(pair_73601, find_or_add_symbol("random-source-state-ref"), &cvar_73600);
  make_cvar(cvar_73602, (object *)&__glo_random_91real_srfi_27);make_pair(pair_73603, find_or_add_symbol("random-real"), &cvar_73602);
  make_cvar(cvar_73604, (object *)&__glo_random_91integer_srfi_27);make_pair(pair_73605, find_or_add_symbol("random-integer"), &cvar_73604);
  make_cvar(cvar_73606, (object *)&__glo_default_91random_91source_srfi_27);make_pair(pair_73607, find_or_add_symbol("default-random-source"), &cvar_73606);
  make_cvar(cvar_73608, (object *)&__glo_random_91source_91make_91reals_srfi_27);make_pair(pair_73609, find_or_add_symbol("random-source-make-reals"), &cvar_73608);
  make_cvar(cvar_73610, (object *)&__glo_random_91source_91make_91integers_srfi_27);make_pair(pair_73611, find_or_add_symbol("random-source-make-integers"), &cvar_73610);
  make_cvar(cvar_73612, (object *)&__glo_make_91random_91source_srfi_27);make_pair(pair_73613, find_or_add_symbol("make-random-source"), &cvar_73612);
  make_cvar(cvar_73614, (object *)&__glo_raw_91random_91source_srfi_27);make_pair(pair_73615, find_or_add_symbol("raw-random-source"), &cvar_73614);
  make_cvar(cvar_73616, (object *)&__glo_set_91random_91source_91val_67_srfi_27);make_pair(pair_73617, find_or_add_symbol("set-random-source-val!"), &cvar_73616);
  make_cvar(cvar_73618, (object *)&__glo_random_91source_91val_srfi_27);make_pair(pair_73619, find_or_add_symbol("random-source-val"), &cvar_73618);
  make_cvar(cvar_73620, (object *)&__glo_random_91souce_127_srfi_27);make_pair(pair_73621, find_or_add_symbol("random-souce?"), &cvar_73620);
  make_cvar(cvar_73622, (object *)&__glo__121random_91source_125_srfi_27);make_pair(pair_73623, find_or_add_symbol("<random-source>"), &cvar_73622);
  make_cvar(cvar_73624, (object *)&__glo_next_91mrg32k3a_srfi_27);make_pair(pair_73625, find_or_add_symbol("next-mrg32k3a"), &cvar_73624);
  make_cvar(cvar_73626, (object *)&__glo_next_91lcg_srfi_27);make_pair(pair_73627, find_or_add_symbol("next-lcg"), &cvar_73626);
  make_cvar(cvar_73628, (object *)&__glo_m_srfi_27);make_pair(pair_73629, find_or_add_symbol("m"), &cvar_73628);
  make_cvar(cvar_73630, (object *)&__glo_incr_srfi_27);make_pair(pair_73631, find_or_add_symbol("incr"), &cvar_73630);
make_pair(c_73652, &pair_73590,Cyc_global_variables);
make_pair(c_73651, &pair_73593, &c_73652);
make_pair(c_73650, &pair_73595, &c_73651);
make_pair(c_73649, &pair_73597, &c_73650);
make_pair(c_73648, &pair_73599, &c_73649);
make_pair(c_73647, &pair_73601, &c_73648);
make_pair(c_73646, &pair_73603, &c_73647);
make_pair(c_73645, &pair_73605, &c_73646);
make_pair(c_73644, &pair_73607, &c_73645);
make_pair(c_73643, &pair_73609, &c_73644);
make_pair(c_73642, &pair_73611, &c_73643);
make_pair(c_73641, &pair_73613, &c_73642);
make_pair(c_73640, &pair_73615, &c_73641);
make_pair(c_73639, &pair_73617, &c_73640);
make_pair(c_73638, &pair_73619, &c_73639);
make_pair(c_73637, &pair_73621, &c_73638);
make_pair(c_73636, &pair_73623, &c_73637);
make_pair(c_73635, &pair_73625, &c_73636);
make_pair(c_73634, &pair_73627, &c_73635);
make_pair(c_73633, &pair_73629, &c_73634);
make_pair(c_73632, &pair_73631, &c_73633);
Cyc_global_variables = &c_73632;
object buf[1]; buf[0] = ((closure1_type *)clo)->element;
(((closure)__glo_lib_91init_117srfi27_srfi_27)->fn)(data, buf[0], 1, buf);
}
void c_srfi27_entry_pt(void *data, object cont, int argc, object value){ 
  register_library("srfi_27");
  c_srfi27_entry_pt_first_lambda(data, cont, argc, value);
}
