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

#include "cyclone/types.h"
object __glo_lib_91init_117srfi28_srfi_28 = NULL;
object __glo_format_srfi_28 = NULL;
extern object __glo_member_scheme_base;
extern object __glo_assoc_scheme_base;
extern object __glo_cons_91source_scheme_base;
extern object __glo_syntax_91rules_scheme_base;
extern object __glo_letrec_85_scheme_base;
extern object __glo_guard_scheme_base;
extern object __glo_guard_91aux_scheme_base;
extern object __glo_define_91record_91type_scheme_base;
extern object __glo_record_127_scheme_base;
extern object __glo_is_91a_127_scheme_base;
extern object __glo_register_91simple_91type_scheme_base;
extern object __glo_make_91type_91predicate_scheme_base;
extern object __glo_make_91constructor_scheme_base;
extern object __glo_make_91constructor_95args_scheme_base;
extern object __glo_make_91getter_scheme_base;
extern object __glo_make_91setter_scheme_base;
extern object __glo_slot_91ref_scheme_base;
extern object __glo_slot_91set_67_scheme_base;
extern object __glo_type_91slot_91offset_scheme_base;
extern object __glo_make_91record_91marker_scheme_base;
extern object __glo_receive_scheme_base;
extern object __glo_abs_scheme_base;
extern object __glo_max_scheme_base;
extern object __glo_min_scheme_base;
extern object __glo_modulo_scheme_base;
extern object __glo_floor_91remainder_scheme_base;
extern object __glo_even_127_scheme_base;
extern object __glo_exact_91integer_127_scheme_base;
extern object __glo_exact_91integer_91sqrt_scheme_base;
extern object __glo_exact_127_scheme_base;
extern object __glo_inexact_127_scheme_base;
extern object __glo_odd_127_scheme_base;
extern object __glo_complex_127_scheme_base;
extern object __glo_rational_127_scheme_base;
extern object __glo_bignum_127_scheme_base;
extern object __glo_gcd_scheme_base;
extern object __glo_lcm_scheme_base;
extern object __glo_quotient_scheme_base;
extern object __glo_remainder_scheme_base;
extern object __glo_truncate_91quotient_scheme_base;
extern object __glo_truncate_91remainder_scheme_base;
extern object __glo_truncate_95_scheme_base;
extern object __glo_floor_91quotient_scheme_base;
extern object __glo_floor_91remainder_scheme_base;
extern object __glo_floor_95_scheme_base;
extern object __glo_square_scheme_base;
extern object __glo_expt_scheme_base;
extern object __glo_call_91with_91current_91continuation_scheme_base;
extern object __glo_call_95cc_scheme_base;
extern object __glo_call_91with_91values_scheme_base;
extern object __glo_dynamic_91wind_scheme_base;
extern object __glo_values_scheme_base;
extern object __glo_char_123_127_scheme_base;
extern object __glo_char_121_127_scheme_base;
extern object __glo_char_125_127_scheme_base;
extern object __glo_char_121_123_127_scheme_base;
extern object __glo_char_125_123_127_scheme_base;
extern object __glo_string_123_127_scheme_base;
extern object __glo_string_121_127_scheme_base;
extern object __glo_string_121_123_127_scheme_base;
extern object __glo_string_125_127_scheme_base;
extern object __glo_string_125_123_127_scheme_base;
extern object __glo_fast_91string_123_127_scheme_base;
extern object __glo_fast_91string_121_127_scheme_base;
extern object __glo_fast_91string_121_123_127_scheme_base;
extern object __glo_fast_91string_125_127_scheme_base;
extern object __glo_fast_91string_125_123_127_scheme_base;
extern object __glo_foldl_scheme_base;
extern object __glo_foldr_scheme_base;
extern object __glo_not_scheme_base;
extern object __glo_list_127_scheme_base;
extern object __glo_zero_127_scheme_base;
extern object __glo_positive_127_scheme_base;
extern object __glo_negative_127_scheme_base;
extern object __glo_append_scheme_base;
extern object __glo__list_scheme_base;
extern object __glo_make_91list_scheme_base;
extern object __glo_list_91copy_scheme_base;
extern object __glo_map_scheme_base;
extern object __glo_Cyc_91map_91loop_911_scheme_base;
extern object __glo_Cyc_91map_91loop_912_scheme_base;
extern object __glo_Cyc_91for_91each_91loop_911_scheme_base;
extern object __glo_Cyc_91for_91each_91loop_912_scheme_base;
extern object __glo_for_91each_scheme_base;
extern object __glo_list_91tail_scheme_base;
extern object __glo_list_91ref_scheme_base;
extern object __glo_list_91set_67_scheme_base;
extern object __glo_reverse_scheme_base;
extern object __glo_boolean_123_127_scheme_base;
extern object __glo_symbol_123_127_scheme_base;
extern object __glo_Cyc_91obj_123_127_scheme_base;
extern object __glo_vector_scheme_base;
extern object __glo_vector_91append_scheme_base;
extern object __glo_vector_91copy_scheme_base;
extern object __glo_vector_91copy_67_scheme_base;
extern object __glo_vector_91fill_67_scheme_base;
extern object __glo_vector_91_125list_scheme_base;
extern object __glo_vector_91_125string_scheme_base;
extern object __glo_vector_91map_scheme_base;
extern object __glo_vector_91for_91each_scheme_base;
extern object __glo_make_91string_scheme_base;
extern object __glo_string_scheme_base;
extern object __glo_string_91copy_scheme_base;
extern object __glo_string_91copy_67_scheme_base;
extern object __glo_string_91fill_67_scheme_base;
extern object __glo_string_91_125list_scheme_base;
extern object __glo_string_91_125vector_scheme_base;
extern object __glo_string_91map_scheme_base;
extern object __glo_string_91for_91each_scheme_base;
extern object __glo_make_91parameter_scheme_base;
extern object __glo_current_91output_91port_scheme_base;
extern object __glo_current_91input_91port_scheme_base;
extern object __glo_current_91error_91port_scheme_base;
extern object __glo_call_91with_91port_scheme_base;
extern object __glo_error_91object_127_scheme_base;
extern object __glo_error_91object_91message_scheme_base;
extern object __glo_error_91object_91irritants_scheme_base;
extern object __glo_error_95loc_scheme_base;
extern object __glo_error_scheme_base;
extern object __glo_raise_scheme_base;
extern object __glo_raise_91continuable_scheme_base;
extern object __glo_with_91handler_scheme_base;
extern object __glo_with_91exception_91handler_scheme_base;
extern object __glo_Cyc_91add_91exception_91handler_scheme_base;
extern object __glo_Cyc_91remove_91exception_91handler_scheme_base;
extern object __glo_newline_scheme_base;
extern object __glo_write_91char_scheme_base;
extern object __glo_write_91string_scheme_base;
extern object __glo_write_91string_911_scheme_base;
extern object __glo_write_91string_912_scheme_base;
extern object __glo_flush_91output_91port_scheme_base;
extern object __glo_char_91ready_127_scheme_base;
extern object __glo_peek_91char_scheme_base;
extern object __glo_read_91char_scheme_base;
extern object __glo_read_91line_scheme_base;
extern object __glo_read_91string_scheme_base;
extern object __glo_input_91port_127_scheme_base;
extern object __glo_output_91port_127_scheme_base;
extern object __glo_input_91port_91open_127_scheme_base;
extern object __glo_output_91port_91open_127_scheme_base;
extern object __glo_get_91output_91string_scheme_base;
extern object __glo_open_91output_91string_scheme_base;
extern object __glo_open_91input_91string_scheme_base;
extern object __glo_get_91output_91bytevector_scheme_base;
extern object __glo_open_91input_91bytevector_scheme_base;
extern object __glo_open_91output_91bytevector_scheme_base;
extern object __glo_features_scheme_base;
extern object __glo_Cyc_91add_91feature_67_scheme_base;
extern object __glo_Cyc_91version_scheme_base;
extern object __glo_any_scheme_base;
extern object __glo_every_scheme_base;
extern object __glo_and_scheme_base;
extern object __glo_or_scheme_base;
extern object __glo_let_scheme_base;
extern object __glo_let_85_scheme_base;
extern object __glo_letrec_scheme_base;
extern object __glo_let_85_91values_scheme_base;
extern object __glo_let_91values_scheme_base;
extern object __glo_define_91values_scheme_base;
extern object __glo_begin_scheme_base;
extern object __glo__case_scheme_base;
extern object __glo_cond_scheme_base;
extern object __glo_cond_91expand_scheme_base;
extern object __glo__do_scheme_base;
extern object __glo_when_scheme_base;
extern object __glo_unless_scheme_base;
extern object __glo_quasiquote_scheme_base;
extern object __glo_floor_scheme_base;
extern object __glo_ceiling_scheme_base;
extern object __glo_truncate_scheme_base;
extern object __glo_round_scheme_base;
extern object __glo_exact_scheme_base;
extern object __glo_inexact_scheme_base;
extern object __glo_eof_91object_scheme_base;
extern object __glo__void_scheme_base;
extern object __glo_syntax_91error_scheme_base;
extern object __glo_bytevector_91copy_scheme_base;
extern object __glo_bytevector_91copy_67_scheme_base;
extern object __glo_utf8_91_125string_scheme_base;
extern object __glo_string_91_125utf8_scheme_base;
extern object __glo_denominator_scheme_base;
extern object __glo_numerator_scheme_base;
extern object __glo_parameterize_scheme_base;
extern object __glo_read_91bytevector_scheme_base;
extern object __glo_read_91bytevector_67_scheme_base;
extern object __glo_write_91bytevector_scheme_base;
extern object __glo_peek_91u8_scheme_base;
extern object __glo_read_91u8_scheme_base;
extern object __glo_write_91u8_scheme_base;
extern object __glo_binary_91port_127_scheme_base;
extern object __glo_textual_91port_127_scheme_base;
extern object __glo_rationalize_scheme_base;
extern object __glo_display_scheme_write;
extern object __glo_write_scheme_write;
extern object __glo_write_91shared_scheme_write;
extern object __glo_write_91simple_scheme_write;
extern object __glo_fast_91string_123_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_121_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_121_123_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_125_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_125_123_127_191_191inline_191_191_scheme_base;
extern object __glo__75write_91bytevector_191_191inline_191_191_scheme_base;
extern object __glo_not_191_191inline_191_191_scheme_base;
extern object __glo_list_127_191_191inline_191_191_scheme_base;
extern object __glo_zero_127_191_191inline_191_191_scheme_base;
extern object __glo_positive_127_191_191inline_191_191_scheme_base;
extern object __glo_negative_127_191_191inline_191_191_scheme_base;
extern object __glo_floor_191_191inline_191_191_scheme_base;
extern object __glo_ceiling_191_191inline_191_191_scheme_base;
extern object __glo_truncate_191_191inline_191_191_scheme_base;
extern object __glo_round_191_191inline_191_191_scheme_base;
extern object __glo_exact_191_191inline_191_191_scheme_base;
extern object __glo_inexact_191_191inline_191_191_scheme_base;
extern object __glo_sqrt_191_191inline_191_191_scheme_base;
extern object __glo_exact_91integer_127_191_191inline_191_191_scheme_base;
extern object __glo_exact_127_191_191inline_191_191_scheme_base;
extern object __glo_complex_127_191_191inline_191_191_scheme_base;
extern object __glo_fixnum_127_191_191inline_191_191_scheme_base;
extern object __glo_quotient_191_191inline_191_191_scheme_base;
extern object __glo_square_191_191inline_191_191_scheme_base;
extern object __glo_eof_91object_191_191inline_191_191_scheme_base;
extern object __glo_void_191_191inline_191_191_scheme_base;
extern object __glo_make_91record_91marker_191_191inline_191_191_scheme_base;
#include "cyclone/runtime.h"
static void __lambda_19(void *data, object clo, int argc, object *args) ;/*closure _,object k_7376*/
static void __lambda_1(void *data, object clo, int argc, object *args) ;/*closure _,object k_7339, object format_91string_731_7319, object objects_732_7320_raw, ...*/
static void __lambda_2(void *data, object clo, int argc, object *args) ;/*object self_7377, object buffer_7323, object fmt_91rec_7325*/
static void __lambda_23(void *data, object clo, int argc, object *args) ;/*object self_7378, object buffer_7323*/
static void __lambda_22(void *data, object clo, int argc, object *args) ;/*object self_7379, object fmt_91rec_7325*/
static void __lambda_3(void *data, object clo, int argc, object *args) ;/*object self_7380, object r_7373*/
static void __lambda_4(void *data, object clo, int argc, object *args) ;/*object self_7381, object r_7340*/
static void __lambda_8(void *data, object clo, int argc, object *args) ;/*object self_7382, object k_7344, object format_91list_733_7329, object objs_734_7330*/
static void __lambda_9(void *data, object clo, int argc, object *args) ;/*object self_7383, object escape_91write_7331, object raw_91write_7332*/
static void __lambda_21(void *data, object clo, int argc, object *args) ;/*object self_7384, object escape_91write_7331*/
static void __lambda_20(void *data, object clo, int argc, object *args) ;/*object self_7385, object raw_91write_7332*/
static void __lambda_17(void *data, object clo, int argc, object *args) ;/*object self_7386, object k_7367, object how_735_7333*/
static void __lambda_18(void *data, object clo, int argc, object *args) ;/*object self_7387, object r_7369*/
static void __lambda_10(void *data, object clo, int argc, object *args) ;/*object self_7388, object r_7366*/
static void __lambda_11(void *data, object clo, int argc, object *args) ;/*object self_7389, object r_7345*/
static void __lambda_14(void *data, object clo, int argc, object *args) ;/*object self_7390, object k_7363, object what_736_7334, object next_737_7335*/
static void __lambda_15(void *data, object clo, int argc, object *args) ;/*object self_7391, object r_7364*/
static void __lambda_16(void *data, object clo, int argc, object *args) ;/*object self_7392, object r_7365*/
static void __lambda_12(void *data, object clo, int argc, object *args) ;/*object self_7393, object r_7362*/
static void __lambda_13(void *data, object clo, int argc, object *args) ;/*object self_7394, object r_7346*/
static void __lambda_5(void *data, object clo, int argc, object *args) ;/*object self_7395, object r_7343*/
static void __lambda_6(void *data, object clo, int argc, object *args) ;/*object self_7396, object r_7341*/
static void __lambda_7(void *data, object clo, int argc, object *args) ;/*object self_7397, object r_7342*/

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

static void __lambda_1(void *data, object _, int argc, object *args) /* closure _,object k_7339, object format_91string_731_7319, object objects_732_7320_raw, ... */
 {
object k_7339 = args[0]; object format_91string_731_7319 = args[1];
load_varargs(objects_732_7320, args, 2, argc - 2);
  Cyc_st_add(data, "srfi/28.sld:format");

closureN_type c_73100;
object e_73296 [3];
c_73100.hdr.mark = gc_color_red;
 c_73100.hdr.grayed = 0;
c_73100.tag = closureN_tag;
 c_73100.fn = (function_type)__lambda_2;
c_73100.num_args = 2;
c_73100.num_elements = 3;
c_73100.elements = (object *)e_73296;
c_73100.elements[0] = format_91string_731_7319;
c_73100.elements[1] = k_7339;
c_73100.elements[2] = objects_732_7320;

return_direct_with_clo2(data,(closure)&c_73100,__lambda_2,  boolean_f, boolean_f);; 
}

static void __lambda_2(void *data, object self_7377, int argc, object *args) /* object self_7377, object buffer_7323, object fmt_91rec_7325 */
 {
 object buffer_7323 = args[0]; object fmt_91rec_7325 = args[1];
  
closureN_type c_73102;
object e_73292 [4];
c_73102.hdr.mark = gc_color_red;
 c_73102.hdr.grayed = 0;
c_73102.tag = closureN_tag;
 c_73102.fn = (function_type)__lambda_23;
c_73102.num_args = 1;
c_73102.num_elements = 4;
c_73102.elements = (object *)e_73292;
c_73102.elements[0] = fmt_91rec_7325;
c_73102.elements[1] = ((closureN)self_7377)->elements[0];
c_73102.elements[2] = ((closureN)self_7377)->elements[1];
c_73102.elements[3] = ((closureN)self_7377)->elements[2];


pair_type local_73295; 
return_direct_with_clo1(data,(closure)&c_73102,__lambda_23,  set_cell_as_expr(&local_73295, buffer_7323));; 
}

static void __lambda_23(void *data, object self_7378, int argc, object *args) /* object self_7378, object buffer_7323 */
 {
 object buffer_7323 = args[0];
  
closureN_type c_73104;
object e_73287 [4];
c_73104.hdr.mark = gc_color_red;
 c_73104.hdr.grayed = 0;
c_73104.tag = closureN_tag;
 c_73104.fn = (function_type)__lambda_22;
c_73104.num_args = 1;
c_73104.num_elements = 4;
c_73104.elements = (object *)e_73287;
c_73104.elements[0] = buffer_7323;
c_73104.elements[1] = ((closureN)self_7378)->elements[1];
c_73104.elements[2] = ((closureN)self_7378)->elements[2];
c_73104.elements[3] = ((closureN)self_7378)->elements[3];


pair_type local_73290; 
return_direct_with_clo1(data,(closure)&c_73104,__lambda_22,  set_cell_as_expr(&local_73290, ((closureN)self_7378)->elements[0]));; 
}

static void __lambda_22(void *data, object self_7379, int argc, object *args) /* object self_7379, object fmt_91rec_7325 */
 {
 object fmt_91rec_7325 = args[0];
  
closureN_type c_73106;
object e_73286 [5];
c_73106.hdr.mark = gc_color_red;
 c_73106.hdr.grayed = 0;
c_73106.tag = closureN_tag;
 c_73106.fn = (function_type)__lambda_3;
c_73106.num_args = 1;
c_73106.num_elements = 5;
c_73106.elements = (object *)e_73286;
c_73106.elements[0] = ((closureN)self_7379)->elements[0];
c_73106.elements[1] = fmt_91rec_7325;
c_73106.elements[2] = ((closureN)self_7379)->elements[1];
c_73106.elements[3] = ((closureN)self_7379)->elements[2];
c_73106.elements[4] = ((closureN)self_7379)->elements[3];

return_direct_with_clo1(data,  __glo_open_91output_91string_scheme_base, (((closure)  __glo_open_91output_91string_scheme_base)->fn),  &c_73106);; 
}

static void __lambda_3(void *data, object self_7380, int argc, object *args) /* object self_7380, object r_7373 */
 {
 object r_7373 = args[0];
  
closureN_type c_73108;
object e_73282 [5];
c_73108.hdr.mark = gc_color_red;
 c_73108.hdr.grayed = 0;
c_73108.tag = closureN_tag;
 c_73108.fn = (function_type)__lambda_4;
c_73108.num_args = 1;
c_73108.num_elements = 5;
c_73108.elements = (object *)e_73282;
c_73108.elements[0] = ((closureN)self_7380)->elements[0];
c_73108.elements[1] = ((closureN)self_7380)->elements[1];
c_73108.elements[2] = ((closureN)self_7380)->elements[2];
c_73108.elements[3] = ((closureN)self_7380)->elements[3];
c_73108.elements[4] = ((closureN)self_7380)->elements[4];



return_direct_with_clo1(data,(closure)&c_73108,__lambda_4,  Cyc_set_cell(data, ((closureN)self_7380)->elements[0], r_7373));; 
}

static void __lambda_4(void *data, object self_7381, int argc, object *args) /* object self_7381, object r_7340 */
 {

  
closureN_type c_73110;
object e_73127 [4];
c_73110.hdr.mark = gc_color_red;
 c_73110.hdr.grayed = 0;
c_73110.tag = closureN_tag;
 c_73110.fn = (function_type)__lambda_5;
c_73110.num_args = 1;
c_73110.num_elements = 4;
c_73110.elements = (object *)e_73127;
c_73110.elements[0] = ((closureN)self_7381)->elements[1];
c_73110.elements[1] = ((closureN)self_7381)->elements[2];
c_73110.elements[2] = ((closureN)self_7381)->elements[3];
c_73110.elements[3] = ((closureN)self_7381)->elements[4];


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

return_direct_with_clo1(data,(closure)&c_73110,__lambda_5,  &c_73128);; 
}

static void __lambda_8(void *data, object self_7382, int argc, object *args) /* object self_7382, object k_7344, object format_91list_733_7329, object objs_734_7330 */
 {
 object k_7344 = args[0]; object format_91list_733_7329 = args[1]; object objs_734_7330 = args[2];
  
closureN_type c_73130;
object e_73280 [5];
c_73130.hdr.mark = gc_color_red;
 c_73130.hdr.grayed = 0;
c_73130.tag = closureN_tag;
 c_73130.fn = (function_type)__lambda_9;
c_73130.num_args = 2;
c_73130.num_elements = 5;
c_73130.elements = (object *)e_73280;
c_73130.elements[0] = ((closureN)self_7382)->elements[0];
c_73130.elements[1] = ((closureN)self_7382)->elements[1];
c_73130.elements[2] = format_91list_733_7329;
c_73130.elements[3] = k_7344;
c_73130.elements[4] = objs_734_7330;

return_direct_with_clo2(data,(closure)&c_73130,__lambda_9,  boolean_f, boolean_f);; 
}

static void __lambda_9(void *data, object self_7383, int argc, object *args) /* object self_7383, object escape_91write_7331, object raw_91write_7332 */
 {
 object escape_91write_7331 = args[0]; object raw_91write_7332 = args[1];
  
closureN_type c_73132;
object e_73276 [6];
c_73132.hdr.mark = gc_color_red;
 c_73132.hdr.grayed = 0;
c_73132.tag = closureN_tag;
 c_73132.fn = (function_type)__lambda_21;
c_73132.num_args = 1;
c_73132.num_elements = 6;
c_73132.elements = (object *)e_73276;
c_73132.elements[0] = ((closureN)self_7383)->elements[0];
c_73132.elements[1] = ((closureN)self_7383)->elements[1];
c_73132.elements[2] = ((closureN)self_7383)->elements[2];
c_73132.elements[3] = ((closureN)self_7383)->elements[3];
c_73132.elements[4] = ((closureN)self_7383)->elements[4];
c_73132.elements[5] = raw_91write_7332;


pair_type local_73279; 
return_direct_with_clo1(data,(closure)&c_73132,__lambda_21,  set_cell_as_expr(&local_73279, escape_91write_7331));; 
}

static void __lambda_21(void *data, object self_7384, int argc, object *args) /* object self_7384, object escape_91write_7331 */
 {
 object escape_91write_7331 = args[0];
  
closureN_type c_73134;
object e_73271 [6];
c_73134.hdr.mark = gc_color_red;
 c_73134.hdr.grayed = 0;
c_73134.tag = closureN_tag;
 c_73134.fn = (function_type)__lambda_20;
c_73134.num_args = 1;
c_73134.num_elements = 6;
c_73134.elements = (object *)e_73271;
c_73134.elements[0] = ((closureN)self_7384)->elements[0];
c_73134.elements[1] = escape_91write_7331;
c_73134.elements[2] = ((closureN)self_7384)->elements[1];
c_73134.elements[3] = ((closureN)self_7384)->elements[2];
c_73134.elements[4] = ((closureN)self_7384)->elements[3];
c_73134.elements[5] = ((closureN)self_7384)->elements[4];


pair_type local_73274; 
return_direct_with_clo1(data,(closure)&c_73134,__lambda_20,  set_cell_as_expr(&local_73274, ((closureN)self_7384)->elements[5]));; 
}

static void __lambda_20(void *data, object self_7385, int argc, object *args) /* object self_7385, object raw_91write_7332 */
 {
 object raw_91write_7332 = args[0];
  
closureN_type c_73136;
object e_73243 [7];
c_73136.hdr.mark = gc_color_red;
 c_73136.hdr.grayed = 0;
c_73136.tag = closureN_tag;
 c_73136.fn = (function_type)__lambda_10;
c_73136.num_args = 1;
c_73136.num_elements = 7;
c_73136.elements = (object *)e_73243;
c_73136.elements[0] = ((closureN)self_7385)->elements[0];
c_73136.elements[1] = ((closureN)self_7385)->elements[1];
c_73136.elements[2] = ((closureN)self_7385)->elements[2];
c_73136.elements[3] = ((closureN)self_7385)->elements[3];
c_73136.elements[4] = ((closureN)self_7385)->elements[4];
c_73136.elements[5] = ((closureN)self_7385)->elements[5];
c_73136.elements[6] = raw_91write_7332;


closureN_type c_73244;
object e_73270 [4];
c_73244.hdr.mark = gc_color_red;
 c_73244.hdr.grayed = 0;
c_73244.tag = closureN_tag;
 c_73244.fn = (function_type)__lambda_17;
c_73244.num_args = 1;
c_73244.num_elements = 4;
c_73244.elements = (object *)e_73270;
c_73244.elements[0] = ((closureN)self_7385)->elements[0];
c_73244.elements[1] = ((closureN)self_7385)->elements[2];
c_73244.elements[2] = ((closureN)self_7385)->elements[3];
c_73244.elements[3] = ((closureN)self_7385)->elements[5];

return_direct_with_clo1(data,(closure)&c_73136,__lambda_10,  &c_73244);; 
}

static void __lambda_17(void *data, object self_7386, int argc, object *args) /* object self_7386, object k_7367, object how_735_7333 */
 {
 object k_7367 = args[0]; object how_735_7333 = args[1];
    
if( (boolean_f != Cyc_is_null(((closureN)self_7386)->elements[3])) ){ 
  
make_utf8_string_with_len(c_73249, "No value for escape sequence", 28, 28);
return_direct_with_clo2(data,  __glo_error_scheme_base, (((closure)  __glo_error_scheme_base)->fn),  k_7367, &c_73249);
} else { 
  
closureN_type c_73251;
object e_73263 [4];
c_73251.hdr.mark = gc_color_red;
 c_73251.hdr.grayed = 0;
c_73251.tag = closureN_tag;
 c_73251.fn = (function_type)__lambda_18;
c_73251.num_args = 1;
c_73251.num_elements = 4;
c_73251.elements = (object *)e_73263;
c_73251.elements[0] = ((closureN)self_7386)->elements[1];
c_73251.elements[1] = ((closureN)self_7386)->elements[2];
c_73251.elements[2] = k_7367;
c_73251.elements[3] = ((closureN)self_7386)->elements[3];





return_closcall3(data,  how_735_7333,  &c_73251, Cyc_car(data, ((closureN)self_7386)->elements[3]), car(((closureN)self_7386)->elements[0]));}
;; 
}

static void __lambda_18(void *data, object self_7387, int argc, object *args) /* object self_7387, object r_7369 */
 {

  





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

static void __lambda_10(void *data, object self_7388, int argc, object *args) /* object self_7388, object r_7366 */
 {
 object r_7366 = args[0];
  
closureN_type c_73138;
object e_73239 [7];
c_73138.hdr.mark = gc_color_red;
 c_73138.hdr.grayed = 0;
c_73138.tag = closureN_tag;
 c_73138.fn = (function_type)__lambda_11;
c_73138.num_args = 1;
c_73138.num_elements = 7;
c_73138.elements = (object *)e_73239;
c_73138.elements[0] = ((closureN)self_7388)->elements[0];
c_73138.elements[1] = ((closureN)self_7388)->elements[1];
c_73138.elements[2] = ((closureN)self_7388)->elements[2];
c_73138.elements[3] = ((closureN)self_7388)->elements[3];
c_73138.elements[4] = ((closureN)self_7388)->elements[4];
c_73138.elements[5] = ((closureN)self_7388)->elements[5];
c_73138.elements[6] = ((closureN)self_7388)->elements[6];



return_direct_with_clo1(data,(closure)&c_73138,__lambda_11,  Cyc_set_cell(data, ((closureN)self_7388)->elements[1], r_7366));; 
}

static void __lambda_11(void *data, object self_7389, int argc, object *args) /* object self_7389, object r_7345 */
 {

  
closureN_type c_73140;
object e_73219 [5];
c_73140.hdr.mark = gc_color_red;
 c_73140.hdr.grayed = 0;
c_73140.tag = closureN_tag;
 c_73140.fn = (function_type)__lambda_12;
c_73140.num_args = 1;
c_73140.num_elements = 5;
c_73140.elements = (object *)e_73219;
c_73140.elements[0] = ((closureN)self_7389)->elements[0];
c_73140.elements[1] = ((closureN)self_7389)->elements[1];
c_73140.elements[2] = ((closureN)self_7389)->elements[3];
c_73140.elements[3] = ((closureN)self_7389)->elements[4];
c_73140.elements[4] = ((closureN)self_7389)->elements[6];


closureN_type c_73220;
object e_73238 [4];
c_73220.hdr.mark = gc_color_red;
 c_73220.hdr.grayed = 0;
c_73220.tag = closureN_tag;
 c_73220.fn = (function_type)__lambda_14;
c_73220.num_args = 2;
c_73220.num_elements = 4;
c_73220.elements = (object *)e_73238;
c_73220.elements[0] = ((closureN)self_7389)->elements[0];
c_73220.elements[1] = ((closureN)self_7389)->elements[2];
c_73220.elements[2] = ((closureN)self_7389)->elements[3];
c_73220.elements[3] = ((closureN)self_7389)->elements[5];

return_direct_with_clo1(data,(closure)&c_73140,__lambda_12,  &c_73220);; 
}

static void __lambda_14(void *data, object self_7390, int argc, object *args) /* object self_7390, object k_7363, object what_736_7334, object next_737_7335 */
 {
 object k_7363 = args[0]; object what_736_7334 = args[1]; object next_737_7335 = args[2];
  
closureN_type c_73222;
object e_73234 [5];
c_73222.hdr.mark = gc_color_red;
 c_73222.hdr.grayed = 0;
c_73222.tag = closureN_tag;
 c_73222.fn = (function_type)__lambda_15;
c_73222.num_args = 1;
c_73222.num_elements = 5;
c_73222.elements = (object *)e_73234;
c_73222.elements[0] = ((closureN)self_7390)->elements[1];
c_73222.elements[1] = ((closureN)self_7390)->elements[2];
c_73222.elements[2] = k_7363;
c_73222.elements[3] = next_737_7335;
c_73222.elements[4] = ((closureN)self_7390)->elements[3];



return_direct_with_clo3(data,  __glo_write_91char_scheme_base, (((closure)  __glo_write_91char_scheme_base)->fn),  &c_73222, what_736_7334, car(((closureN)self_7390)->elements[0]));; 
}

static void __lambda_15(void *data, object self_7391, int argc, object *args) /* object self_7391, object r_7364 */
 {

  
closureN_type c_73225;
object e_73232 [3];
c_73225.hdr.mark = gc_color_red;
 c_73225.hdr.grayed = 0;
c_73225.tag = closureN_tag;
 c_73225.fn = (function_type)__lambda_16;
c_73225.num_args = 1;
c_73225.num_elements = 3;
c_73225.elements = (object *)e_73232;
c_73225.elements[0] = ((closureN)self_7391)->elements[0];
c_73225.elements[1] = ((closureN)self_7391)->elements[2];
c_73225.elements[2] = ((closureN)self_7391)->elements[4];

return_closcall2(data,  ((closureN)self_7391)->elements[3],  &c_73225, ((closureN)self_7391)->elements[1]);; 
}

static void __lambda_16(void *data, object self_7392, int argc, object *args) /* object self_7392, object r_7365 */
 {
 object r_7365 = args[0];
  

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

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



return_direct_with_clo1(data,(closure)&c_73142,__lambda_13,  Cyc_set_cell(data, ((closureN)self_7393)->elements[4], r_7362));; 
}

static void __lambda_13(void *data, object self_7394, int argc, object *args) /* object self_7394, object r_7346 */
 {

    
if( (boolean_f != Cyc_is_null(((closureN)self_7394)->elements[2])) ){ 
  

return_direct_with_clo2(data,  __glo_get_91output_91string_scheme_base, (((closure)  __glo_get_91output_91string_scheme_base)->fn),  ((closureN)self_7394)->elements[3], car(((closureN)self_7394)->elements[0]));
} else { 
    
  
if( (boolean_f != Cyc_char_eq_op(data, Cyc_car(data, ((closureN)self_7394)->elements[2]), obj_char2obj(126))) ){ 
    
  
if( (boolean_f != Cyc_is_null(Cyc_cdr(data, ((closureN)self_7394)->elements[2]))) ){ 
  
make_utf8_string_with_len(c_73163, "Incomplete escape sequence", 26, 26);
return_direct_with_clo2(data,  __glo_error_scheme_base, (((closure)  __glo_error_scheme_base)->fn),  ((closureN)self_7394)->elements[3], &c_73163);
} else { 
    
  
if( (boolean_f != Cyc_eqv(Cyc_cadr(data, ((closureN)self_7394)->elements[2]), obj_char2obj(97))) ){ 
  

return_closcall2(data,  car(((closureN)self_7394)->elements[1]),  ((closureN)self_7394)->elements[3], __glo_display_scheme_write);
} else { 
    
  
if( (boolean_f != Cyc_eqv(Cyc_cadr(data, ((closureN)self_7394)->elements[2]), obj_char2obj(115))) ){ 
  

return_closcall2(data,  car(((closureN)self_7394)->elements[1]),  ((closureN)self_7394)->elements[3], __glo_write_scheme_write);
} else { 
    
  
if( (boolean_f != Cyc_eqv(Cyc_cadr(data, ((closureN)self_7394)->elements[2]), obj_char2obj(37))) ){ 
  

return_closcall3(data,  car(((closureN)self_7394)->elements[4]),  ((closureN)self_7394)->elements[3], obj_char2obj(10), primitive_cddr);
} else { 
    
  
if( (boolean_f != Cyc_eqv(Cyc_cadr(data, ((closureN)self_7394)->elements[2]), obj_char2obj(126))) ){ 
  

return_closcall3(data,  car(((closureN)self_7394)->elements[4]),  ((closureN)self_7394)->elements[3], obj_char2obj(126), primitive_cddr);
} else { 
  
make_utf8_string_with_len(c_73206, "Unrecognized escape sequence", 28, 28);
return_direct_with_clo2(data,  __glo_error_scheme_base, (((closure)  __glo_error_scheme_base)->fn),  ((closureN)self_7394)->elements[3], &c_73206);}
;}
;}
;}
;}
;
} else { 
  



return_closcall3(data,  car(((closureN)self_7394)->elements[4]),  ((closureN)self_7394)->elements[3], Cyc_car(data, ((closureN)self_7394)->elements[2]), primitive_cdr);}
;}
;; 
}

static void __lambda_5(void *data, object self_7395, int argc, object *args) /* object self_7395, object r_7343 */
 {
 object r_7343 = args[0];
  
closureN_type c_73112;
object e_73123 [4];
c_73112.hdr.mark = gc_color_red;
 c_73112.hdr.grayed = 0;
c_73112.tag = closureN_tag;
 c_73112.fn = (function_type)__lambda_6;
c_73112.num_args = 1;
c_73112.num_elements = 4;
c_73112.elements = (object *)e_73123;
c_73112.elements[0] = ((closureN)self_7395)->elements[0];
c_73112.elements[1] = ((closureN)self_7395)->elements[1];
c_73112.elements[2] = ((closureN)self_7395)->elements[2];
c_73112.elements[3] = ((closureN)self_7395)->elements[3];



return_direct_with_clo1(data,(closure)&c_73112,__lambda_6,  Cyc_set_cell(data, ((closureN)self_7395)->elements[0], r_7343));; 
}

static void __lambda_6(void *data, object self_7396, int argc, object *args) /* object self_7396, object r_7341 */
 {

  
closureN_type c_73114;
object e_73121 [3];
c_73114.hdr.mark = gc_color_red;
 c_73114.hdr.grayed = 0;
c_73114.tag = closureN_tag;
 c_73114.fn = (function_type)__lambda_7;
c_73114.num_args = 1;
c_73114.num_elements = 3;
c_73114.elements = (object *)e_73121;
c_73114.elements[0] = ((closureN)self_7396)->elements[0];
c_73114.elements[1] = ((closureN)self_7396)->elements[2];
c_73114.elements[2] = ((closureN)self_7396)->elements[3];

return_direct_with_clo2(data,  __glo_string_91_125list_scheme_base, (((closure)  __glo_string_91_125list_scheme_base)->fn),  &c_73114, ((closureN)self_7396)->elements[1]);; 
}

static void __lambda_7(void *data, object self_7397, int argc, object *args) /* object self_7397, object r_7342 */
 {
 object r_7342 = args[0];
  

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

void c_srfi28_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_srfi28_entry_pt_first_lambda(void *data, object clo, int argc, object *args){ 
Cyc_set_globals_changed((gc_thread_data *)data);

  add_global("__glo_lib_91init_117srfi28_srfi_28", (object *) &__glo_lib_91init_117srfi28_srfi_28);
  add_global("__glo_format_srfi_28", (object *) &__glo_format_srfi_28);
  mclosure0(c_73297, (function_type)__lambda_19);c_73297.num_args = 0; 
  __glo_lib_91init_117srfi28_srfi_28 = &c_73297; 
  mclosure0(c_7398, (function_type)__lambda_1);c_7398.num_args = 1; 
  __glo_format_srfi_28 = &c_7398; 

  mclosure0(clo_73300, c_srfi28_inlinable_lambdas); make_pair(pair_73299, find_or_add_symbol("c_srfi28_inlinable_lambdas"), &clo_73300);
  make_cvar(cvar_73301, (object *)&__glo_lib_91init_117srfi28_srfi_28);make_pair(pair_73302, find_or_add_symbol("lib-init:srfi28"), &cvar_73301);
  make_cvar(cvar_73303, (object *)&__glo_format_srfi_28);make_pair(pair_73304, find_or_add_symbol("format"), &cvar_73303);
make_pair(c_73307, &pair_73299,Cyc_global_variables);
make_pair(c_73306, &pair_73302, &c_73307);
make_pair(c_73305, &pair_73304, &c_73306);
Cyc_global_variables = &c_73305;
object buf[1]; buf[0] = ((closure1_type *)clo)->element;
(((closure)__glo_lib_91init_117srfi28_srfi_28)->fn)(data, buf[0], 1, buf);
}
void c_srfi28_entry_pt(void *data, object cont, int argc, object value){ 
  register_library("srfi_28");
  c_srfi28_entry_pt_first_lambda(data, cont, argc, value);
}
