/*===========================================================================*/
/*   (Read/reader.scm)                                                       */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c Read/reader.scm -indent -o objs/obj_u/Read/reader.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* unsafe mode */
#define BIGLOO_UNSAFE 1

/* traces mode */
#define BIGLOO_TRACE 0

/* standard Bigloo include */
#include <bigloo.h>

#ifdef __cplusplus
extern "C"
{
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL___READER_TYPE_DEFINITIONS
#define BGL___READER_TYPE_DEFINITIONS

/* object type definitions */
	typedef struct BgL_z62exceptionz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
	}                      *BgL_z62exceptionz62_bglt;

	typedef struct BgL_z62errorz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
	}                  *BgL_z62errorz62_bglt;

	typedef struct BgL_z62iozd2readzd2errorz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
	}                              *BgL_z62iozd2readzd2errorz62_bglt;


#endif													// BGL___READER_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	static obj_t BGl_readzd2errorzf2locz20zz__readerz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62makezd2sourcezd2locationz62zz__readerz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_readzd2errorzd2zz__readerz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62bigloozd2regularzd2grammarz62zz__readerz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_portzd2ze3sexpzd2listze3zz__readerz00(obj_t,
		obj_t);
	extern bool_t reset_eof(obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__readerz00 = BUNSPEC;
	extern obj_t BGl_raisez00zz__errorz00(obj_t);
	extern obj_t BGl_listzd2ze3s16vectorz31zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_makezd2sourcezd2locationz00zz__readerz00(obj_t,
		obj_t);
	extern ucs2_t BGl_integerzd2ze3ucs2z31zz__ucs2z00(int);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62bigloozd2identifierzd2syntaxzd2setz12za2zz__readerz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza36352ze3ze5zz__readerz00(obj_t);
	static obj_t BGl_collectzd2upzd2toze70ze7zz__readerz00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	extern obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t);
	extern obj_t BGl_listzd2ze3u8vectorz31zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_setzd2readzd2syntaxz12z12zz__readerz00(obj_t,
		obj_t);
	static obj_t BGl_toplevelzd2initzd2zz__readerz00(void);
	extern obj_t
		BGl_stringzd2ze3integerzd2objze3zz__r4_numbers_6_5_fixnumz00(obj_t, long);
	extern obj_t BGl_bigloozd2casezd2sensitivezd2setz12zc0zz__paramz00(obj_t);
	static obj_t BGl_makezd2listz12zc0zz__readerz00(obj_t, obj_t);
	extern obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_genericzd2initzd2zz__readerz00(void);
	extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_readerzd2resetz12zc0zz__readerz00(void);
	static obj_t BGl_za2readerzd2extensionsza2zd2zz__readerz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza36363ze3ze5zz__readerz00(obj_t, obj_t);
	static obj_t BGl_za2endzd2ofzd2listza2z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_objectzd2initzd2zz__readerz00(void);
	extern obj_t BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(obj_t);
	extern obj_t rgc_buffer_integer(obj_t);
	extern obj_t BGl_listzd2ze3u32vectorz31zz__srfi4z00(obj_t);
	extern obj_t bgl_reverse_bang(obj_t);
	BGL_EXPORTED_DEF obj_t BGl_za2bigloozd2interpreterza2zd2zz__readerz00 =
		BUNSPEC;
	extern obj_t BGl_listzd2ze3u64vectorz31zz__srfi4z00(obj_t);
	extern obj_t BGl_warningzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t);
	extern double rgc_buffer_flonum(obj_t);
	extern obj_t bgl_bignum_add(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza35920ze3ze5zz__readerz00(obj_t);
	static obj_t BGl_z62definezd2readerzd2ctorz62zz__readerz00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_readz00zz__readerz00(obj_t, obj_t);
	static obj_t BGl_thezd2substringze70z35zz__readerz00(obj_t, int, int);
	extern obj_t bstring_to_symbol(obj_t);
	static obj_t BGl_thezd2substringze71z35zz__readerz00(obj_t, int, int);
	extern obj_t make_vector(long, obj_t);
	static obj_t BGl_za2sharpzd2grammarza2zd2zz__readerz00 = BUNSPEC;
	static obj_t BGl_z62setzd2readzd2syntaxz12z70zz__readerz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_methodzd2initzd2zz__readerz00(void);
	BGL_EXPORTED_DECL obj_t BGl_readzd2casezd2insensitivez00zz__readerz00(obj_t);
	static obj_t BGl_vector6946z00zz__readerz00 = BUNSPEC;
	extern obj_t BGl_listzd2ze3tvectorz31zz__tvectorz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza36352ze36804ze5zz__readerz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza36352ze36805ze5zz__readerz00(obj_t);
	static obj_t BGl_za2readerzd2ctorsza2zd2zz__readerz00 = BUNSPEC;
	extern obj_t rgc_buffer_keyword(obj_t);
	static obj_t BGl__readz00zz__readerz00(obj_t, obj_t);
	static obj_t
		BGl_z62bigloozd2casezd2sensitivityzd2setz12za2zz__readerz00(obj_t, obj_t);
	extern obj_t string_append(obj_t, obj_t);
	static obj_t BGl_z62bigloozd2casezd2sensitivityz62zz__readerz00(obj_t);
	static obj_t BGl_symbol6901z00zz__readerz00 = BUNSPEC;
	extern obj_t bgl_long_to_bignum(long);
	static obj_t BGl_symbol6906z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_symbol6908z00zz__readerz00 = BUNSPEC;
	extern obj_t rgc_buffer_substring(obj_t, long, long);
	BGL_EXPORTED_DECL obj_t
		BGl_bigloozd2identifierzd2syntaxzd2setz12zc0zz__readerz00(obj_t);
	extern obj_t BGl_listzd2ze3f32vectorz31zz__srfi4z00(obj_t);
	static obj_t BGl_symbol6910z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_symbol6912z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_z62readzd2casezd2insensitivez62zz__readerz00(obj_t, obj_t);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_symbol6915z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_symbol6918z00zz__readerz00 = BUNSPEC;
	extern obj_t BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00(obj_t, long, obj_t,
		obj_t, obj_t);
	static obj_t BGl_symbol6921z00zz__readerz00 = BUNSPEC;
	extern obj_t BGl_listzd2ze3f64vectorz31zz__srfi4z00(obj_t);
	static obj_t BGl_symbol6923z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_symbol6925z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_symbol6927z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_symbol6929z00zz__readerz00 = BUNSPEC;
	extern bool_t BGl_bigloozd2strictzd2r5rszd2stringszd2zz__paramz00(void);
	static obj_t BGl_symbol6931z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_z62getzd2sourcezd2locationz62zz__readerz00(obj_t, obj_t);
	static obj_t BGl_symbol6933z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_symbol6935z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_symbol6937z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_symbol6856z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_symbol6859z00zz__readerz00 = BUNSPEC;
	extern obj_t rgc_buffer_escape_substring(obj_t, long, long, bool_t);
	extern obj_t BGl_listzd2ze3u16vectorz31zz__srfi4z00(obj_t);
	extern bool_t rgc_buffer_bol_p(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31517ze3ze5zz__readerz00(obj_t, obj_t);
	static obj_t BGl_symbol6949z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_ignoreze70ze7zz__readerz00(obj_t, obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bignumz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__threadz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__rgcz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	static obj_t BGl_symbol6951z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_z62readzf2casez90zz__readerz00(obj_t, obj_t, obj_t);
	static obj_t BGl_symbol6873z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_z62bigloozd2identifierzd2syntaxz62zz__readerz00(obj_t);
	extern obj_t utf8_string_to_ucs2_string(obj_t);
	static obj_t BGl_symbol6897z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_symbol6899z00zz__readerz00 = BUNSPEC;
	static obj_t BGl_cnstzd2initzd2zz__readerz00(void);
	extern long bgl_list_length(obj_t);
	extern obj_t BGl_listzd2ze3s8vectorz31zz__srfi4z00(obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__readerz00(void);
	BGL_EXPORTED_DECL obj_t BGl_bigloozd2regularzd2grammarz00zz__readerz00(void);
	static obj_t BGl_gczd2rootszd2initz00zz__readerz00(void);
	static obj_t BGl_z62readzd2casezd2sensitivez62zz__readerz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_readzf2casezf2zz__readerz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza36363ze36806ze5zz__readerz00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_definezd2readerzd2ctorz00zz__readerz00(obj_t,
		obj_t);
	extern obj_t BGl_listzd2ze3s32vectorz31zz__srfi4z00(obj_t);
	extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t BGl_bigloozd2casezd2sensitivez00zz__paramz00(void);
	extern obj_t BGl_stringzd2splitzd2zz__r4_strings_6_7z00(obj_t, obj_t);
	extern obj_t BGl_listzd2ze3s64vectorz31zz__srfi4z00(obj_t);
	extern obj_t BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_getzd2sourcezd2locationz00zz__readerz00(obj_t);
	extern obj_t BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_portzd2ze3listz31zz__readerz00(obj_t, obj_t);
	static obj_t BGl__portzd2ze3sexpzd2listze3zz__readerz00(obj_t, obj_t);
	extern obj_t BGl_stringzd2ze3bignumz31zz__bignumz00(obj_t, long);
	static obj_t BGl_readzd2multizd2linezd2commentzd2zz__readerz00(obj_t);
	extern obj_t rgc_buffer_symbol(obj_t);
	static obj_t BGl_z62readerzd2resetz12za2zz__readerz00(obj_t);
	extern obj_t make_struct(obj_t, int, obj_t);
	static obj_t BGl_z62portzd2ze3listz53zz__readerz00(obj_t, obj_t, obj_t);
	extern BGL_LONGLONG_T
		BGl_stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(obj_t, long);
	static obj_t BGl_za2bigloozd2grammarza2zd2zz__readerz00 = BUNSPEC;
	static obj_t BGl_loopze70ze7zz__readerz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_stringzd2downcasez12zc0zz__r4_strings_6_7z00(obj_t);
	extern obj_t BGl_illegalzd2charzd2repz00zz__r4_output_6_10_3z00(unsigned
		char);
	extern bool_t rgc_fill_buffer(obj_t);
	static obj_t BGl_z62zc3z04anonymousza32750ze3ze5zz__readerz00(obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_bigloozd2casezd2sensitivityz00zz__readerz00(void);
	BGL_EXPORTED_DECL obj_t
		BGl_bigloozd2identifierzd2syntaxz00zz__readerz00(void);
	static obj_t BGl_za2identifierzd2syntaxza2zd2zz__readerz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_readzd2casezd2sensitivez00zz__readerz00(obj_t);
	static obj_t BGl_za2dottedzd2markza2zd2zz__readerz00 = BUNSPEC;
	static obj_t BGl_thezd2escapezd2substringze70ze7zz__readerz00(obj_t, int, int,
		bool_t);
	static obj_t BGl_thezd2escapezd2substringze71ze7zz__readerz00(obj_t, int, int,
		bool_t);
	extern obj_t BGl_z62iozd2readzd2errorz62zz__objectz00;
	BGL_EXPORTED_DECL obj_t
		BGl_bigloozd2casezd2sensitivityzd2setz12zc0zz__readerz00(obj_t);
	extern long BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(obj_t, long);
	static obj_t *__cnst;


	   
		 
		BGL_DEFINE_STRING(BGl_string6960z00zz__readerz00,
		BgL_bgl_string6960za700za7za7_6971za7,
		"EOF inside block comment -- #| missing a closing |#", 51);
	      BGL_DEFINE_STRING(BGl_string6961z00zz__readerz00,
		BgL_bgl_string6961za700za7za7_6972za7, "_read", 5);
	      BGL_DEFINE_STRING(BGl_string6880z00zz__readerz00,
		BgL_bgl_string6880za700za7za7_6973za7, "u8vector", 8);
	      BGL_DEFINE_STRING(BGl_string6962z00zz__readerz00,
		BgL_bgl_string6962za700za7za7_6974za7, "procedure", 9);
	      BGL_DEFINE_STRING(BGl_string6881z00zz__readerz00,
		BgL_bgl_string6881za700za7za7_6975za7, "s16", 3);
	      BGL_DEFINE_STRING(BGl_string6963z00zz__readerz00,
		BgL_bgl_string6963za700za7za7_6976za7, "input-port", 10);
	      BGL_DEFINE_STRING(BGl_string6882z00zz__readerz00,
		BgL_bgl_string6882za700za7za7_6977za7, "s16vector", 9);
	      BGL_DEFINE_STRING(BGl_string6964z00zz__readerz00,
		BgL_bgl_string6964za700za7za7_6978za7, "&port->list", 11);
	      BGL_DEFINE_STRING(BGl_string6883z00zz__readerz00,
		BgL_bgl_string6883za700za7za7_6979za7, "u16", 3);
	      BGL_DEFINE_STRING(BGl_string6965z00zz__readerz00,
		BgL_bgl_string6965za700za7za7_6980za7, "_port->sexp-list", 16);
	      BGL_DEFINE_STRING(BGl_string6884z00zz__readerz00,
		BgL_bgl_string6884za700za7za7_6981za7, "u16vector", 9);
	      BGL_DEFINE_STRING(BGl_string6885z00zz__readerz00,
		BgL_bgl_string6885za700za7za7_6982za7, "s32", 3);
	      BGL_DEFINE_STRING(BGl_string6967z00zz__readerz00,
		BgL_bgl_string6967za700za7za7_6983za7, "&define-reader-ctor", 19);
	      BGL_DEFINE_STRING(BGl_string6886z00zz__readerz00,
		BgL_bgl_string6886za700za7za7_6984za7, "s32vector", 9);
	      BGL_DEFINE_STRING(BGl_string6968z00zz__readerz00,
		BgL_bgl_string6968za700za7za7_6985za7, "&set-read-syntax!", 17);
	      BGL_DEFINE_STRING(BGl_string6887z00zz__readerz00,
		BgL_bgl_string6887za700za7za7_6986za7, "u32", 3);
	      BGL_DEFINE_STRING(BGl_string6969z00zz__readerz00,
		BgL_bgl_string6969za700za7za7_6987za7, "bchar", 5);
	      BGL_DEFINE_STRING(BGl_string6888z00zz__readerz00,
		BgL_bgl_string6888za700za7za7_6988za7, "u32vector", 9);
	      BGL_DEFINE_STRING(BGl_string6889z00zz__readerz00,
		BgL_bgl_string6889za700za7za7_6989za7, "s64", 3);
	      BGL_DEFINE_STRING(BGl_string6970z00zz__readerz00,
		BgL_bgl_string6970za700za7za7_6990za7, "__reader", 8);
	      BGL_DEFINE_STRING(BGl_string6890z00zz__readerz00,
		BgL_bgl_string6890za700za7za7_6991za7, "s64vector", 9);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc6966z00zz__readerz00,
		BgL_bgl_za762za7c3za704anonymo6992za7,
		BGl_z62zc3z04anonymousza36363ze36806ze5zz__readerz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string6891z00zz__readerz00,
		BgL_bgl_string6891za700za7za7_6993za7, "u64", 3);
	      BGL_DEFINE_STRING(BGl_string6892z00zz__readerz00,
		BgL_bgl_string6892za700za7za7_6994za7, "u64vector", 9);
	      BGL_DEFINE_STRING(BGl_string6893z00zz__readerz00,
		BgL_bgl_string6893za700za7za7_6995za7, "f32", 3);
	      BGL_DEFINE_STRING(BGl_string6894z00zz__readerz00,
		BgL_bgl_string6894za700za7za7_6996za7, "f32vector", 9);
	      BGL_DEFINE_STRING(BGl_string6895z00zz__readerz00,
		BgL_bgl_string6895za700za7za7_6997za7, "f64", 3);
	      BGL_DEFINE_STRING(BGl_string6896z00zz__readerz00,
		BgL_bgl_string6896za700za7za7_6998za7, "f64vector", 9);
	      BGL_DEFINE_STRING(BGl_string6898z00zz__readerz00,
		BgL_bgl_string6898za700za7za7_6999za7, "upcase", 6);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_portzd2ze3sexpzd2listzd2envz31zz__readerz00,
		BgL_bgl__portza7d2za7e3sexpza77000za7, opt_generic_entry,
		BGl__portzd2ze3sexpzd2listze3zz__readerz00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_getzd2sourcezd2locationzd2envzd2zz__readerz00,
		BgL_bgl_za762getza7d2sourceza77001za7,
		BGl_z62getzd2sourcezd2locationz62zz__readerz00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_portzd2ze3listzd2envze3zz__readerz00,
		BgL_bgl_za762portza7d2za7e3lis7002za7,
		BGl_z62portzd2ze3listz53zz__readerz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_makezd2sourcezd2locationzd2envzd2zz__readerz00,
		BgL_bgl_za762makeza7d2source7003z00,
		BGl_z62makezd2sourcezd2locationz62zz__readerz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_setzd2readzd2syntaxz12zd2envzc0zz__readerz00,
		BgL_bgl_za762setza7d2readza7d27004za7,
		BGl_z62setzd2readzd2syntaxz12z70zz__readerz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_readzd2casezd2sensitivezd2envzd2zz__readerz00,
		BgL_bgl_za762readza7d2caseza7d7005za7, va_generic_entry,
		BGl_z62readzd2casezd2sensitivez62zz__readerz00, BUNSPEC, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bigloozd2casezd2sensitivityzd2envzd2zz__readerz00,
		BgL_bgl_za762biglooza7d2case7006z00,
		BGl_z62bigloozd2casezd2sensitivityz62zz__readerz00, 0L, BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bigloozd2regularzd2grammarzd2envzd2zz__readerz00,
		BgL_bgl_za762biglooza7d2regu7007z00,
		BGl_z62bigloozd2regularzd2grammarz62zz__readerz00, 0L, BUNSPEC, 0);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzf2casezd2envz20zz__readerz00,
		BgL_bgl_za762readza7f2caseza797008za7, va_generic_entry,
		BGl_z62readzf2casez90zz__readerz00, BUNSPEC, -2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_readerzd2resetz12zd2envz12zz__readerz00,
		BgL_bgl_za762readerza7d2rese7009z00,
		BGl_z62readerzd2resetz12za2zz__readerz00, 0L, BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bigloozd2identifierzd2syntaxzd2setz12zd2envz12zz__readerz00,
		BgL_bgl_za762biglooza7d2iden7010z00,
		BGl_z62bigloozd2identifierzd2syntaxzd2setz12za2zz__readerz00, 0L, BUNSPEC,
		1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_readzd2casezd2insensitivezd2envzd2zz__readerz00,
		BgL_bgl_za762readza7d2caseza7d7011za7, va_generic_entry,
		BGl_z62readzd2casezd2insensitivez62zz__readerz00, BUNSPEC, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_definezd2readerzd2ctorzd2envzd2zz__readerz00,
		BgL_bgl_za762defineza7d2read7012z00,
		BGl_z62definezd2readerzd2ctorz62zz__readerz00, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzd2envzd2zz__readerz00,
		BgL_bgl__readza700za7za7__read7013za7, opt_generic_entry,
		BGl__readz00zz__readerz00, BFALSE, -1);
	      BGL_DEFINE_STRING(BGl_string6900z00zz__readerz00,
		BgL_bgl_string6900za700za7za7_7014za7, "downcase", 8);
	      BGL_DEFINE_STRING(BGl_string6902z00zz__readerz00,
		BgL_bgl_string6902za700za7za7_7015za7, "sensitive", 9);
	      BGL_DEFINE_STRING(BGl_string6903z00zz__readerz00,
		BgL_bgl_string6903za700za7za7_7016za7, "'", 1);
	      BGL_DEFINE_STRING(BGl_string6904z00zz__readerz00,
		BgL_bgl_string6904za700za7za7_7017za7, "Superfluous closing parenthesis `",
		33);
	      BGL_DEFINE_STRING(BGl_string6905z00zz__readerz00,
		BgL_bgl_string6905za700za7za7_7018za7, "list", 4);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bigloozd2casezd2sensitivityzd2setz12zd2envz12zz__readerz00,
		BgL_bgl_za762biglooza7d2case7019z00,
		BGl_z62bigloozd2casezd2sensitivityzd2setz12za2zz__readerz00, 0L, BUNSPEC,
		1);
	      BGL_DEFINE_STRING(BGl_string6907z00zz__readerz00,
		BgL_bgl_string6907za700za7za7_7020za7, "unquote-splicing", 16);
	      BGL_DEFINE_STRING(BGl_string6909z00zz__readerz00,
		BgL_bgl_string6909za700za7za7_7021za7, "unquote", 7);
	      BGL_DEFINE_STRING(BGl_string6911z00zz__readerz00,
		BgL_bgl_string6911za700za7za7_7022za7, "quasiquote", 10);
	      BGL_DEFINE_STRING(BGl_string6913z00zz__readerz00,
		BgL_bgl_string6913za700za7za7_7023za7, "quote", 5);
	      BGL_DEFINE_STRING(BGl_string6914z00zz__readerz00,
		BgL_bgl_string6914za700za7za7_7024za7, "", 0);
	      BGL_DEFINE_STRING(BGl_string6916z00zz__readerz00,
		BgL_bgl_string6916za700za7za7_7025za7, "bigloo", 6);
	      BGL_DEFINE_STRING(BGl_string6917z00zz__readerz00,
		BgL_bgl_string6917za700za7za7_7026za7, ".", 1);
	      BGL_DEFINE_STRING(BGl_string6919z00zz__readerz00,
		BgL_bgl_string6919za700za7za7_7027za7, "->", 2);
	      BGL_DEFINE_STRING(BGl_string6920z00zz__readerz00,
		BgL_bgl_string6920za700za7za7_7028za7, "Illegal token", 13);
	      BGL_DEFINE_STRING(BGl_string6922z00zz__readerz00,
		BgL_bgl_string6922za700za7za7_7029za7, "NEWLINE", 7);
	      BGL_DEFINE_STRING(BGl_string6924z00zz__readerz00,
		BgL_bgl_string6924za700za7za7_7030za7, "TAB", 3);
	      BGL_DEFINE_STRING(BGl_string6926z00zz__readerz00,
		BgL_bgl_string6926za700za7za7_7031za7, "SPACE", 5);
	      BGL_DEFINE_STRING(BGl_string6928z00zz__readerz00,
		BgL_bgl_string6928za700za7za7_7032za7, "RETURN", 6);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bigloozd2identifierzd2syntaxzd2envzd2zz__readerz00,
		BgL_bgl_za762biglooza7d2iden7033z00,
		BGl_z62bigloozd2identifierzd2syntaxz62zz__readerz00, 0L, BUNSPEC, 0);
	      BGL_DEFINE_STRING(BGl_string6930z00zz__readerz00,
		BgL_bgl_string6930za700za7za7_7034za7, "NULL", 4);
	      BGL_DEFINE_STRING(BGl_string6932z00zz__readerz00,
		BgL_bgl_string6932za700za7za7_7035za7, "ALARM", 5);
	      BGL_DEFINE_STRING(BGl_string6934z00zz__readerz00,
		BgL_bgl_string6934za700za7za7_7036za7, "BACKSPACE", 9);
	      BGL_DEFINE_STRING(BGl_string6936z00zz__readerz00,
		BgL_bgl_string6936za700za7za7_7037za7, "DELETE", 6);
	      BGL_DEFINE_STRING(BGl_string6938z00zz__readerz00,
		BgL_bgl_string6938za700za7za7_7038za7, "ESCAPE", 6);
	      BGL_DEFINE_STRING(BGl_string6857z00zz__readerz00,
		BgL_bgl_string6857za700za7za7_7039za7, "r5rs", 4);
	      BGL_DEFINE_STRING(BGl_string6939z00zz__readerz00,
		BgL_bgl_string6939za700za7za7_7040za7, "Illegal character", 17);
	      BGL_DEFINE_STRING(BGl_string6940z00zz__readerz00,
		BgL_bgl_string6940za700za7za7_7041za7, "#!optional", 10);
	      BGL_DEFINE_STRING(BGl_string6941z00zz__readerz00,
		BgL_bgl_string6941za700za7za7_7042za7, "#!rest", 6);
	      BGL_DEFINE_STRING(BGl_string6860z00zz__readerz00,
		BgL_bgl_string6860za700za7za7_7043za7, "at", 2);
	      BGL_DEFINE_STRING(BGl_string6942z00zz__readerz00,
		BgL_bgl_string6942za700za7za7_7044za7, "#!key", 5);
	      BGL_DEFINE_STRING(BGl_string6861z00zz__readerz00,
		BgL_bgl_string6861za700za7za7_7045za7, "Illegal range `~a'", 18);
	      BGL_DEFINE_STRING(BGl_string6943z00zz__readerz00,
		BgL_bgl_string6943za700za7za7_7046za7, "regular-grammar", 15);
	      BGL_DEFINE_STRING(BGl_string6862z00zz__readerz00,
		BgL_bgl_string6862za700za7za7_7047za7, "the-escape-substring", 20);
	      BGL_DEFINE_STRING(BGl_string6944z00zz__readerz00,
		BgL_bgl_string6944za700za7za7_7048za7, "Illegal match", 13);
	      BGL_DEFINE_STRING(BGl_string6863z00zz__readerz00,
		BgL_bgl_string6863za700za7za7_7049za7, "the-substring", 13);
	      BGL_DEFINE_STRING(BGl_string6945z00zz__readerz00,
		BgL_bgl_string6945za700za7za7_7050za7, "Illegal closed input port", 25);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc6858z00zz__readerz00,
		BgL_bgl_za762za7c3za704anonymo7051za7,
		BGl_z62zc3z04anonymousza32750ze3ze5zz__readerz00, 0L, BUNSPEC, 7);
	      BGL_DEFINE_STRING(BGl_string6864z00zz__readerz00,
		BgL_bgl_string6864za700za7za7_7052za7, "Illegal quotation", 17);
	      BGL_DEFINE_STRING(BGl_string6865z00zz__readerz00,
		BgL_bgl_string6865za700za7za7_7053za7, "Unexpected end-of-file", 22);
	      BGL_DEFINE_STRING(BGl_string6947z00zz__readerz00,
		BgL_bgl_string6947za700za7za7_7054za7, "Unknown SRFI-10 extension", 25);
	      BGL_DEFINE_STRING(BGl_string6866z00zz__readerz00,
		BgL_bgl_string6866za700za7za7_7055za7, "Unclosed list", 13);
	      BGL_DEFINE_STRING(BGl_string6948z00zz__readerz00,
		BgL_bgl_string6948za700za7za7_7056za7, "Bad SRFI-10 form", 16);
	      BGL_DEFINE_STRING(BGl_string6867z00zz__readerz00,
		BgL_bgl_string6867za700za7za7_7057za7, "Unclosed vector or structure", 28);
	      BGL_DEFINE_STRING(BGl_string6868z00zz__readerz00,
		BgL_bgl_string6868za700za7za7_7058za7, "Illegal char", 12);
	      BGL_DEFINE_STRING(BGl_string6869z00zz__readerz00,
		BgL_bgl_string6869za700za7za7_7059za7, "no target for graph reference", 29);
	      BGL_DEFINE_STRING(BGl_string6950z00zz__readerz00,
		BgL_bgl_string6950za700za7za7_7060za7, "UNSPECIFIED", 11);
	      BGL_DEFINE_STRING(BGl_string6870z00zz__readerz00,
		BgL_bgl_string6870za700za7za7_7061za7, "Illegal cyclic reference", 24);
	      BGL_DEFINE_STRING(BGl_string6952z00zz__readerz00,
		BgL_bgl_string6952za700za7za7_7062za7, "EOF-OBJECT", 10);
	      BGL_DEFINE_STRING(BGl_string6871z00zz__readerz00,
		BgL_bgl_string6871za700za7za7_7063za7, "Illegal duplicate declaration", 29);
	      BGL_DEFINE_STRING(BGl_string6953z00zz__readerz00,
		BgL_bgl_string6953za700za7za7_7064za7, "#", 1);
	      BGL_DEFINE_STRING(BGl_string6872z00zz__readerz00,
		BgL_bgl_string6872za700za7za7_7065za7, "Superfluous closing bracket `", 29);
	      BGL_DEFINE_STRING(BGl_string6954z00zz__readerz00,
		BgL_bgl_string6954za700za7za7_7066za7, "Illegal identifier", 18);
	      BGL_DEFINE_STRING(BGl_string6955z00zz__readerz00,
		BgL_bgl_string6955za700za7za7_7067za7,
		"/tmp/bigloo/runtime/Read/reader.scm", 35);
	      BGL_DEFINE_STRING(BGl_string6874z00zz__readerz00,
		BgL_bgl_string6874za700za7za7_7068za7, "read", 4);
	      BGL_DEFINE_STRING(BGl_string6956z00zz__readerz00,
		BgL_bgl_string6956za700za7za7_7069za7, "&bigloo-identifier-syntax-set!",
		30);
	      BGL_DEFINE_STRING(BGl_string6875z00zz__readerz00,
		BgL_bgl_string6875za700za7za7_7070za7, "structure", 9);
	      BGL_DEFINE_STRING(BGl_string6957z00zz__readerz00,
		BgL_bgl_string6957za700za7za7_7071za7, "symbol", 6);
	      BGL_DEFINE_STRING(BGl_string6876z00zz__readerz00,
		BgL_bgl_string6876za700za7za7_7072za7, "vector", 6);
	      BGL_DEFINE_STRING(BGl_string6958z00zz__readerz00,
		BgL_bgl_string6958za700za7za7_7073za7, "&bigloo-case-sensitivity-set!", 29);
	      BGL_DEFINE_STRING(BGl_string6877z00zz__readerz00,
		BgL_bgl_string6877za700za7za7_7074za7, "s8", 2);
	      BGL_DEFINE_STRING(BGl_string6959z00zz__readerz00,
		BgL_bgl_string6959za700za7za7_7075za7, "Illegal pair", 12);
	      BGL_DEFINE_STRING(BGl_string6878z00zz__readerz00,
		BgL_bgl_string6878za700za7za7_7076za7, "s8vector", 8);
	      BGL_DEFINE_STRING(BGl_string6879z00zz__readerz00,
		BgL_bgl_string6879za700za7za7_7077za7, "u8", 2);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_STRING(BGl_string6879z00zz__readerz00,
			BgL_bgl_string6879za700za7za7_7077za7);
		BGL_BIND_STRING(BGl_string6878z00zz__readerz00,
			BgL_bgl_string6878za700za7za7_7076za7);
		BGL_BIND_STRING(BGl_string6959z00zz__readerz00,
			BgL_bgl_string6959za700za7za7_7075za7);
		BGL_BIND_STRING(BGl_string6877z00zz__readerz00,
			BgL_bgl_string6877za700za7za7_7074za7);
		BGL_BIND_STRING(BGl_string6958z00zz__readerz00,
			BgL_bgl_string6958za700za7za7_7073za7);
		BGL_BIND_STRING(BGl_string6876z00zz__readerz00,
			BgL_bgl_string6876za700za7za7_7072za7);
		BGL_BIND_STRING(BGl_string6957z00zz__readerz00,
			BgL_bgl_string6957za700za7za7_7071za7);
		BGL_BIND_STRING(BGl_string6875z00zz__readerz00,
			BgL_bgl_string6875za700za7za7_7070za7);
		BGL_BIND_STRING(BGl_string6956z00zz__readerz00,
			BgL_bgl_string6956za700za7za7_7069za7);
		BGL_BIND_STRING(BGl_string6874z00zz__readerz00,
			BgL_bgl_string6874za700za7za7_7068za7);
		BGL_BIND_STRING(BGl_string6955z00zz__readerz00,
			BgL_bgl_string6955za700za7za7_7067za7);
		BGL_BIND_STRING(BGl_string6954z00zz__readerz00,
			BgL_bgl_string6954za700za7za7_7066za7);
		BGL_BIND_STRING(BGl_string6872z00zz__readerz00,
			BgL_bgl_string6872za700za7za7_7065za7);
		BGL_BIND_STRING(BGl_string6953z00zz__readerz00,
			BgL_bgl_string6953za700za7za7_7064za7);
		BGL_BIND_STRING(BGl_string6871z00zz__readerz00,
			BgL_bgl_string6871za700za7za7_7063za7);
		BGL_BIND_STRING(BGl_string6952z00zz__readerz00,
			BgL_bgl_string6952za700za7za7_7062za7);
		BGL_BIND_STRING(BGl_string6870z00zz__readerz00,
			BgL_bgl_string6870za700za7za7_7061za7);
		BGL_BIND_STRING(BGl_string6950z00zz__readerz00,
			BgL_bgl_string6950za700za7za7_7060za7);
		BGL_BIND_STRING(BGl_string6869z00zz__readerz00,
			BgL_bgl_string6869za700za7za7_7059za7);
		BGL_BIND_STRING(BGl_string6868z00zz__readerz00,
			BgL_bgl_string6868za700za7za7_7058za7);
		BGL_BIND_STRING(BGl_string6867z00zz__readerz00,
			BgL_bgl_string6867za700za7za7_7057za7);
		BGL_BIND_STRING(BGl_string6948z00zz__readerz00,
			BgL_bgl_string6948za700za7za7_7056za7);
		BGL_BIND_STRING(BGl_string6866z00zz__readerz00,
			BgL_bgl_string6866za700za7za7_7055za7);
		BGL_BIND_STRING(BGl_string6947z00zz__readerz00,
			BgL_bgl_string6947za700za7za7_7054za7);
		BGL_BIND_STRING(BGl_string6865z00zz__readerz00,
			BgL_bgl_string6865za700za7za7_7053za7);
		BGL_BIND_STRING(BGl_string6864z00zz__readerz00,
			BgL_bgl_string6864za700za7za7_7052za7);
		BGL_BIND_PROCEDURE(BGl_proc6858z00zz__readerz00,
			BgL_bgl_za762za7c3za704anonymo7051za7);
		BGL_BIND_STRING(BGl_string6945z00zz__readerz00,
			BgL_bgl_string6945za700za7za7_7050za7);
		BGL_BIND_STRING(BGl_string6863z00zz__readerz00,
			BgL_bgl_string6863za700za7za7_7049za7);
		BGL_BIND_STRING(BGl_string6944z00zz__readerz00,
			BgL_bgl_string6944za700za7za7_7048za7);
		BGL_BIND_STRING(BGl_string6862z00zz__readerz00,
			BgL_bgl_string6862za700za7za7_7047za7);
		BGL_BIND_STRING(BGl_string6943z00zz__readerz00,
			BgL_bgl_string6943za700za7za7_7046za7);
		BGL_BIND_STRING(BGl_string6861z00zz__readerz00,
			BgL_bgl_string6861za700za7za7_7045za7);
		BGL_BIND_STRING(BGl_string6942z00zz__readerz00,
			BgL_bgl_string6942za700za7za7_7044za7);
		BGL_BIND_STRING(BGl_string6860z00zz__readerz00,
			BgL_bgl_string6860za700za7za7_7043za7);
		BGL_BIND_STRING(BGl_string6941z00zz__readerz00,
			BgL_bgl_string6941za700za7za7_7042za7);
		BGL_BIND_STRING(BGl_string6940z00zz__readerz00,
			BgL_bgl_string6940za700za7za7_7041za7);
		BGL_BIND_STRING(BGl_string6939z00zz__readerz00,
			BgL_bgl_string6939za700za7za7_7040za7);
		BGL_BIND_STRING(BGl_string6857z00zz__readerz00,
			BgL_bgl_string6857za700za7za7_7039za7);
		BGL_BIND_STRING(BGl_string6938z00zz__readerz00,
			BgL_bgl_string6938za700za7za7_7038za7);
		BGL_BIND_STRING(BGl_string6936z00zz__readerz00,
			BgL_bgl_string6936za700za7za7_7037za7);
		BGL_BIND_STRING(BGl_string6934z00zz__readerz00,
			BgL_bgl_string6934za700za7za7_7036za7);
		BGL_BIND_STRING(BGl_string6932z00zz__readerz00,
			BgL_bgl_string6932za700za7za7_7035za7);
		BGL_BIND_STRING(BGl_string6930z00zz__readerz00,
			BgL_bgl_string6930za700za7za7_7034za7);
		BGL_BIND_PROCEDURE(BGl_bigloozd2identifierzd2syntaxzd2envzd2zz__readerz00,
			BgL_bgl_za762biglooza7d2iden7033z00);
		BGL_BIND_STRING(BGl_string6928z00zz__readerz00,
			BgL_bgl_string6928za700za7za7_7032za7);
		BGL_BIND_STRING(BGl_string6926z00zz__readerz00,
			BgL_bgl_string6926za700za7za7_7031za7);
		BGL_BIND_STRING(BGl_string6924z00zz__readerz00,
			BgL_bgl_string6924za700za7za7_7030za7);
		BGL_BIND_STRING(BGl_string6922z00zz__readerz00,
			BgL_bgl_string6922za700za7za7_7029za7);
		BGL_BIND_STRING(BGl_string6920z00zz__readerz00,
			BgL_bgl_string6920za700za7za7_7028za7);
		BGL_BIND_STRING(BGl_string6919z00zz__readerz00,
			BgL_bgl_string6919za700za7za7_7027za7);
		BGL_BIND_STRING(BGl_string6917z00zz__readerz00,
			BgL_bgl_string6917za700za7za7_7026za7);
		BGL_BIND_STRING(BGl_string6916z00zz__readerz00,
			BgL_bgl_string6916za700za7za7_7025za7);
		BGL_BIND_STRING(BGl_string6914z00zz__readerz00,
			BgL_bgl_string6914za700za7za7_7024za7);
		BGL_BIND_STRING(BGl_string6913z00zz__readerz00,
			BgL_bgl_string6913za700za7za7_7023za7);
		BGL_BIND_STRING(BGl_string6911z00zz__readerz00,
			BgL_bgl_string6911za700za7za7_7022za7);
		BGL_BIND_STRING(BGl_string6909z00zz__readerz00,
			BgL_bgl_string6909za700za7za7_7021za7);
		BGL_BIND_STRING(BGl_string6907z00zz__readerz00,
			BgL_bgl_string6907za700za7za7_7020za7);
		BGL_BIND_PROCEDURE
			(BGl_bigloozd2casezd2sensitivityzd2setz12zd2envz12zz__readerz00,
			BgL_bgl_za762biglooza7d2case7019z00);
		BGL_BIND_STRING(BGl_string6905z00zz__readerz00,
			BgL_bgl_string6905za700za7za7_7018za7);
		BGL_BIND_STRING(BGl_string6904z00zz__readerz00,
			BgL_bgl_string6904za700za7za7_7017za7);
		BGL_BIND_STRING(BGl_string6903z00zz__readerz00,
			BgL_bgl_string6903za700za7za7_7016za7);
		BGL_BIND_STRING(BGl_string6902z00zz__readerz00,
			BgL_bgl_string6902za700za7za7_7015za7);
		BGL_BIND_STRING(BGl_string6900z00zz__readerz00,
			BgL_bgl_string6900za700za7za7_7014za7);
		BGL_BIND_PROCEDURE(BGl_readzd2envzd2zz__readerz00,
			BgL_bgl__readza700za7za7__read7013za7);
		BGL_BIND_PROCEDURE(BGl_definezd2readerzd2ctorzd2envzd2zz__readerz00,
			BgL_bgl_za762defineza7d2read7012z00);
		BGL_BIND_PROCEDURE(BGl_readzd2casezd2insensitivezd2envzd2zz__readerz00,
			BgL_bgl_za762readza7d2caseza7d7011za7);
		BGL_BIND_PROCEDURE
			(BGl_bigloozd2identifierzd2syntaxzd2setz12zd2envz12zz__readerz00,
			BgL_bgl_za762biglooza7d2iden7010z00);
		BGL_BIND_PROCEDURE(BGl_readerzd2resetz12zd2envz12zz__readerz00,
			BgL_bgl_za762readerza7d2rese7009z00);
		BGL_BIND_PROCEDURE(BGl_readzf2casezd2envz20zz__readerz00,
			BgL_bgl_za762readza7f2caseza797008za7);
		BGL_BIND_PROCEDURE(BGl_bigloozd2regularzd2grammarzd2envzd2zz__readerz00,
			BgL_bgl_za762biglooza7d2regu7007z00);
		BGL_BIND_PROCEDURE(BGl_bigloozd2casezd2sensitivityzd2envzd2zz__readerz00,
			BgL_bgl_za762biglooza7d2case7006z00);
		BGL_BIND_PROCEDURE(BGl_readzd2casezd2sensitivezd2envzd2zz__readerz00,
			BgL_bgl_za762readza7d2caseza7d7005za7);
		BGL_BIND_PROCEDURE(BGl_setzd2readzd2syntaxz12zd2envzc0zz__readerz00,
			BgL_bgl_za762setza7d2readza7d27004za7);
		BGL_BIND_PROCEDURE(BGl_makezd2sourcezd2locationzd2envzd2zz__readerz00,
			BgL_bgl_za762makeza7d2source7003z00);
		BGL_BIND_PROCEDURE(BGl_portzd2ze3listzd2envze3zz__readerz00,
			BgL_bgl_za762portza7d2za7e3lis7002za7);
		BGL_BIND_PROCEDURE(BGl_getzd2sourcezd2locationzd2envzd2zz__readerz00,
			BgL_bgl_za762getza7d2sourceza77001za7);
		BGL_BIND_PROCEDURE(BGl_portzd2ze3sexpzd2listzd2envz31zz__readerz00,
			BgL_bgl__portza7d2za7e3sexpza77000za7);
		BGL_BIND_STRING(BGl_string6898z00zz__readerz00,
			BgL_bgl_string6898za700za7za7_6999za7);
		BGL_BIND_STRING(BGl_string6896z00zz__readerz00,
			BgL_bgl_string6896za700za7za7_6998za7);
		BGL_BIND_STRING(BGl_string6895z00zz__readerz00,
			BgL_bgl_string6895za700za7za7_6997za7);
		BGL_BIND_STRING(BGl_string6894z00zz__readerz00,
			BgL_bgl_string6894za700za7za7_6996za7);
		BGL_BIND_STRING(BGl_string6893z00zz__readerz00,
			BgL_bgl_string6893za700za7za7_6995za7);
		BGL_BIND_STRING(BGl_string6892z00zz__readerz00,
			BgL_bgl_string6892za700za7za7_6994za7);
		BGL_BIND_STRING(BGl_string6891z00zz__readerz00,
			BgL_bgl_string6891za700za7za7_6993za7);
		BGL_BIND_PROCEDURE(BGl_proc6966z00zz__readerz00,
			BgL_bgl_za762za7c3za704anonymo6992za7);
		BGL_BIND_STRING(BGl_string6890z00zz__readerz00,
			BgL_bgl_string6890za700za7za7_6991za7);
		BGL_BIND_STRING(BGl_string6970z00zz__readerz00,
			BgL_bgl_string6970za700za7za7_6990za7);
		BGL_BIND_STRING(BGl_string6889z00zz__readerz00,
			BgL_bgl_string6889za700za7za7_6989za7);
		BGL_BIND_STRING(BGl_string6888z00zz__readerz00,
			BgL_bgl_string6888za700za7za7_6988za7);
		BGL_BIND_STRING(BGl_string6969z00zz__readerz00,
			BgL_bgl_string6969za700za7za7_6987za7);
		BGL_BIND_STRING(BGl_string6887z00zz__readerz00,
			BgL_bgl_string6887za700za7za7_6986za7);
		BGL_BIND_STRING(BGl_string6968z00zz__readerz00,
			BgL_bgl_string6968za700za7za7_6985za7);
		BGL_BIND_STRING(BGl_string6886z00zz__readerz00,
			BgL_bgl_string6886za700za7za7_6984za7);
		BGL_BIND_STRING(BGl_string6967z00zz__readerz00,
			BgL_bgl_string6967za700za7za7_6983za7);
		BGL_BIND_STRING(BGl_string6885z00zz__readerz00,
			BgL_bgl_string6885za700za7za7_6982za7);
		BGL_BIND_STRING(BGl_string6884z00zz__readerz00,
			BgL_bgl_string6884za700za7za7_6981za7);
		BGL_BIND_STRING(BGl_string6965z00zz__readerz00,
			BgL_bgl_string6965za700za7za7_6980za7);
		BGL_BIND_STRING(BGl_string6883z00zz__readerz00,
			BgL_bgl_string6883za700za7za7_6979za7);
		BGL_BIND_STRING(BGl_string6964z00zz__readerz00,
			BgL_bgl_string6964za700za7za7_6978za7);
		BGL_BIND_STRING(BGl_string6882z00zz__readerz00,
			BgL_bgl_string6882za700za7za7_6977za7);
		BGL_BIND_STRING(BGl_string6963z00zz__readerz00,
			BgL_bgl_string6963za700za7za7_6976za7);
		BGL_BIND_STRING(BGl_string6881z00zz__readerz00,
			BgL_bgl_string6881za700za7za7_6975za7);
		BGL_BIND_STRING(BGl_string6962z00zz__readerz00,
			BgL_bgl_string6962za700za7za7_6974za7);
		BGL_BIND_STRING(BGl_string6880z00zz__readerz00,
			BgL_bgl_string6880za700za7za7_6973za7);
		BGL_BIND_STRING(BGl_string6961z00zz__readerz00,
			BgL_bgl_string6961za700za7za7_6972za7);
		BGL_BIND_STRING(BGl_string6960z00zz__readerz00,
			BgL_bgl_string6960za700za7za7_6971za7);
	}

/* GC roots registration */
	static obj_t bgl_gc_roots_register()
	{
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
		void *roots_min = (void *) ULONG_MAX, *roots_max = 0;

		ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__readerz00));
		ADD_ROOT((void *) (&BGl_za2readerzd2extensionsza2zd2zz__readerz00));
		ADD_ROOT((void *) (&BGl_za2endzd2ofzd2listza2z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_za2bigloozd2interpreterza2zd2zz__readerz00));
		ADD_ROOT((void *) (&BGl_za2sharpzd2grammarza2zd2zz__readerz00));
		ADD_ROOT((void *) (&BGl_vector6946z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_za2readerzd2ctorsza2zd2zz__readerz00));
		ADD_ROOT((void *) (&BGl_symbol6901z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_symbol6906z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_symbol6908z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_symbol6910z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_symbol6912z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_symbol6915z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_symbol6918z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_symbol6921z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_symbol6923z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_symbol6925z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_symbol6927z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_symbol6929z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_symbol6931z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_symbol6933z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_symbol6935z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_symbol6937z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_symbol6856z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_symbol6859z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_symbol6949z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_symbol6951z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_symbol6873z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_symbol6897z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_symbol6899z00zz__readerz00));
		ADD_ROOT((void *) (&BGl_za2bigloozd2grammarza2zd2zz__readerz00));
		ADD_ROOT((void *) (&BGl_za2identifierzd2syntaxza2zd2zz__readerz00));
		ADD_ROOT((void *) (&BGl_za2dottedzd2markza2zd2zz__readerz00));
#undef ADD_ROOT
		if (roots_max > 0)
			GC_add_roots(roots_min, ((void **) roots_max) + 1);
#endif
		return BUNSPEC;
	}



/* module-initialization */
	BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long
		BgL_checksumz00_18862, char *BgL_fromz00_18863)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__readerz00))
				{
					BGl_requirezd2initializa7ationz75zz__readerz00 = BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__readerz00();
					BGl_cnstzd2initzd2zz__readerz00();
					BGl_importedzd2moduleszd2initz00zz__readerz00();
					return BGl_toplevelzd2initzd2zz__readerz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__readerz00(void)
	{
		{	/* Read/reader.scm 14 */
			BGl_symbol6856z00zz__readerz00 =
				bstring_to_symbol(BGl_string6857z00zz__readerz00);
			BGl_symbol6859z00zz__readerz00 =
				bstring_to_symbol(BGl_string6860z00zz__readerz00);
			BGl_symbol6873z00zz__readerz00 =
				bstring_to_symbol(BGl_string6874z00zz__readerz00);
			BGl_symbol6897z00zz__readerz00 =
				bstring_to_symbol(BGl_string6898z00zz__readerz00);
			BGl_symbol6899z00zz__readerz00 =
				bstring_to_symbol(BGl_string6900z00zz__readerz00);
			BGl_symbol6901z00zz__readerz00 =
				bstring_to_symbol(BGl_string6902z00zz__readerz00);
			BGl_symbol6906z00zz__readerz00 =
				bstring_to_symbol(BGl_string6907z00zz__readerz00);
			BGl_symbol6908z00zz__readerz00 =
				bstring_to_symbol(BGl_string6909z00zz__readerz00);
			BGl_symbol6910z00zz__readerz00 =
				bstring_to_symbol(BGl_string6911z00zz__readerz00);
			BGl_symbol6912z00zz__readerz00 =
				bstring_to_symbol(BGl_string6913z00zz__readerz00);
			BGl_symbol6915z00zz__readerz00 =
				bstring_to_symbol(BGl_string6916z00zz__readerz00);
			BGl_symbol6918z00zz__readerz00 =
				bstring_to_symbol(BGl_string6919z00zz__readerz00);
			BGl_symbol6921z00zz__readerz00 =
				bstring_to_symbol(BGl_string6922z00zz__readerz00);
			BGl_symbol6923z00zz__readerz00 =
				bstring_to_symbol(BGl_string6924z00zz__readerz00);
			BGl_symbol6925z00zz__readerz00 =
				bstring_to_symbol(BGl_string6926z00zz__readerz00);
			BGl_symbol6927z00zz__readerz00 =
				bstring_to_symbol(BGl_string6928z00zz__readerz00);
			BGl_symbol6929z00zz__readerz00 =
				bstring_to_symbol(BGl_string6930z00zz__readerz00);
			BGl_symbol6931z00zz__readerz00 =
				bstring_to_symbol(BGl_string6932z00zz__readerz00);
			BGl_symbol6933z00zz__readerz00 =
				bstring_to_symbol(BGl_string6934z00zz__readerz00);
			BGl_symbol6935z00zz__readerz00 =
				bstring_to_symbol(BGl_string6936z00zz__readerz00);
			BGl_symbol6937z00zz__readerz00 =
				bstring_to_symbol(BGl_string6938z00zz__readerz00);
			BGl_vector6946z00zz__readerz00 =
				BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BNIL);
			BGl_symbol6949z00zz__readerz00 =
				bstring_to_symbol(BGl_string6950z00zz__readerz00);
			return (BGl_symbol6951z00zz__readerz00 =
				bstring_to_symbol(BGl_string6952z00zz__readerz00), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__readerz00(void)
	{
		{	/* Read/reader.scm 14 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__readerz00(void)
	{
		{	/* Read/reader.scm 14 */
			BGl_za2identifierzd2syntaxza2zd2zz__readerz00 =
				BGl_symbol6856z00zz__readerz00;
			BGl_za2endzd2ofzd2listza2z00zz__readerz00 =
				MAKE_YOUNG_PAIR(BINT(0L), BINT(0L));
			BGl_za2dottedzd2markza2zd2zz__readerz00 =
				MAKE_YOUNG_PAIR(BINT(1L), BINT(1L));
			BGl_za2bigloozd2interpreterza2zd2zz__readerz00 = BFALSE;
			{	/* Read/reader.scm 301 */
				obj_t BgL_zc3z04anonymousza31517ze3z87_17821;

				{
					int BgL_tmpz00_18903;

					BgL_tmpz00_18903 = (int) (0L);
					BgL_zc3z04anonymousza31517ze3z87_17821 =
						MAKE_EL_PROCEDURE(BgL_tmpz00_18903);
				}
				BGl_za2sharpzd2grammarza2zd2zz__readerz00 =
					BgL_zc3z04anonymousza31517ze3z87_17821;
			}
			BGl_za2bigloozd2grammarza2zd2zz__readerz00 = BGl_proc6858z00zz__readerz00;
			BGl_za2readerzd2ctorsza2zd2zz__readerz00 = BNIL;
			return (BGl_za2readerzd2extensionsza2zd2zz__readerz00 = BNIL, BUNSPEC);
		}

	}



/* &<@anonymous:2750> */
	obj_t BGl_z62zc3z04anonymousza32750ze3ze5zz__readerz00(obj_t BgL_envz00_17822,
		obj_t BgL_iportz00_17823, obj_t BgL_pospz00_17824,
		obj_t BgL_cyclesz00_17825, obj_t BgL_parzd2openzd2_17826,
		obj_t BgL_brazd2openzd2_17827, obj_t BgL_parzd2poseszd2_17828,
		obj_t BgL_brazd2poseszd2_17829)
	{
		{	/* Read/reader.scm 409 */
			{	/* Read/reader.scm 409 */
				obj_t BgL_cyclesz00_18002;
				obj_t BgL_parzd2openzd2_18003;
				obj_t BgL_brazd2openzd2_18004;
				obj_t BgL_parzd2poseszd2_18005;
				obj_t BgL_brazd2poseszd2_18006;

				BgL_cyclesz00_18002 = BgL_cyclesz00_17825;
				BgL_parzd2openzd2_18003 = BgL_parzd2openzd2_17826;
				BgL_brazd2openzd2_18004 = BgL_brazd2openzd2_17827;
				BgL_parzd2poseszd2_18005 = BgL_parzd2poseszd2_17828;
				BgL_brazd2poseszd2_18006 = BgL_brazd2poseszd2_17829;
				{	/* Read/reader.scm 409 */
					struct bgl_unsafe_cell BgL_box7079_18007z00;
					struct bgl_unsafe_cell BgL_box7080_18008z00;
					struct bgl_unsafe_cell BgL_box7081_18009z00;
					struct bgl_unsafe_cell BgL_box7082_18010z00;
					struct bgl_unsafe_cell BgL_box7083_18011z00;
					obj_t BgL_brazd2poseszd2_18007;
					obj_t BgL_parzd2poseszd2_18008;
					obj_t BgL_brazd2openzd2_18009;
					obj_t BgL_parzd2openzd2_18010;
					obj_t BgL_cyclesz00_18011;

					BgL_brazd2poseszd2_18007 =
						BGL_MAKE_UNSAFE_CELL_STACK(BgL_brazd2poseszd2_18006,
						BgL_box7079_18007z00);
					BgL_parzd2poseszd2_18008 =
						BGL_MAKE_UNSAFE_CELL_STACK(BgL_parzd2poseszd2_18005,
						BgL_box7080_18008z00);
					BgL_brazd2openzd2_18009 =
						BGL_MAKE_UNSAFE_CELL_STACK(BgL_brazd2openzd2_18004,
						BgL_box7081_18009z00);
					BgL_parzd2openzd2_18010 =
						BGL_MAKE_UNSAFE_CELL_STACK(BgL_parzd2openzd2_18003,
						BgL_box7082_18010z00);
					BgL_cyclesz00_18011 =
						BGL_MAKE_UNSAFE_CELL_STACK(BgL_cyclesz00_18002,
						BgL_box7083_18011z00);
					{	/* Read/reader.scm 409 */
						struct bgl_unsafe_cell BgL_box7084_18012z00;
						obj_t BgL_resolvez00_18012;

						BgL_resolvez00_18012 =
							BGL_MAKE_UNSAFE_CELL_STACK(BTRUE, BgL_box7084_18012z00);
						return
							BGl_ignoreze70ze7zz__readerz00(BgL_pospz00_17824,
							BgL_brazd2poseszd2_18007, BgL_resolvez00_18012,
							BgL_cyclesz00_18011, BgL_parzd2openzd2_18010,
							BgL_brazd2openzd2_18009, BgL_parzd2poseszd2_18008,
							BgL_iportz00_17823);
					}
				}
			}
		}

	}



/* collect-up-to~0 */
	obj_t BGl_collectzd2upzd2toze70ze7zz__readerz00(obj_t BgL_pospz00_17895,
		obj_t BgL_brazd2poseszd2_17894, obj_t BgL_resolvez00_17893,
		obj_t BgL_cyclesz00_17892, obj_t BgL_parzd2openzd2_17891,
		obj_t BgL_brazd2openzd2_17890, obj_t BgL_parzd2poseszd2_17889,
		obj_t BgL_iportz00_17888, obj_t BgL_kindz00_9730, obj_t BgL_portz00_9731,
		obj_t BgL_pospz00_9732)
	{
		{	/* Read/reader.scm 449 */
			{	/* Read/reader.scm 435 */
				obj_t BgL_namez00_9734;

				BgL_namez00_9734 = INPUT_PORT_NAME(BgL_portz00_9731);
				{	/* Read/reader.scm 435 */
					long BgL_poz00_9735;

					{	/* Read/reader.scm 436 */
						long BgL_arg5905z00_9745;

						BgL_arg5905z00_9745 = INPUT_PORT_FILEPOS(BgL_portz00_9731);
						BgL_poz00_9735 = (BgL_arg5905z00_9745 - 1L);
					}
					{	/* Read/reader.scm 436 */
						obj_t BgL_itemz00_9736;

						BgL_itemz00_9736 =
							BGl_ignoreze70ze7zz__readerz00(BgL_pospz00_17895,
							BgL_brazd2poseszd2_17894, BgL_resolvez00_17893,
							BgL_cyclesz00_17892, BgL_parzd2openzd2_17891,
							BgL_brazd2openzd2_17890, BgL_parzd2poseszd2_17889,
							BgL_iportz00_17888);
						{	/* Read/reader.scm 437 */

							if (
								(BgL_itemz00_9736 == BGl_za2endzd2ofzd2listza2z00zz__readerz00))
								{	/* Read/reader.scm 438 */
									return BNIL;
								}
							else
								{	/* Read/reader.scm 440 */
									obj_t BgL_g1336z00_9737;

									if (CBOOL(BgL_pospz00_9732))
										{	/* Read/reader.scm 137 */
											obj_t BgL_arg6113z00_16697;

											{	/* Read/reader.scm 122 */
												obj_t BgL_list6100z00_16698;

												{	/* Read/reader.scm 122 */
													obj_t BgL_arg6101z00_16699;

													{	/* Read/reader.scm 122 */
														obj_t BgL_arg6102z00_16700;

														BgL_arg6102z00_16700 =
															MAKE_YOUNG_PAIR(BINT(BgL_poz00_9735), BNIL);
														BgL_arg6101z00_16699 =
															MAKE_YOUNG_PAIR(BgL_namez00_9734,
															BgL_arg6102z00_16700);
													}
													BgL_list6100z00_16698 =
														MAKE_YOUNG_PAIR(BGl_symbol6859z00zz__readerz00,
														BgL_arg6101z00_16699);
												}
												BgL_arg6113z00_16697 = BgL_list6100z00_16698;
											}
											{	/* Read/reader.scm 137 */
												obj_t BgL_res6744z00_16702;

												BgL_res6744z00_16702 =
													MAKE_YOUNG_EPAIR(BgL_itemz00_9736, BNIL,
													BgL_arg6113z00_16697);
												BgL_g1336z00_9737 = BgL_res6744z00_16702;
											}
										}
									else
										{	/* Read/reader.scm 440 */
											BgL_g1336z00_9737 =
												MAKE_YOUNG_PAIR(BgL_itemz00_9736, BNIL);
										}
									{
										obj_t BgL_accz00_9739;

										BgL_accz00_9739 = BgL_g1336z00_9737;
									BgL_zc3z04anonymousza35903ze3z87_9740:
										{	/* Read/reader.scm 443 */
											obj_t BgL_itemz00_9741;

											BgL_itemz00_9741 =
												BGl_ignoreze70ze7zz__readerz00(BgL_pospz00_17895,
												BgL_brazd2poseszd2_17894, BgL_resolvez00_17893,
												BgL_cyclesz00_17892, BgL_parzd2openzd2_17891,
												BgL_brazd2openzd2_17890, BgL_parzd2poseszd2_17889,
												BgL_iportz00_17888);
											if ((BgL_itemz00_9741 ==
													BGl_za2endzd2ofzd2listza2z00zz__readerz00))
												{	/* Read/reader.scm 444 */
													return BgL_accz00_9739;
												}
											else
												{	/* Read/reader.scm 446 */
													obj_t BgL_arg5904z00_9742;

													if (CBOOL(BgL_pospz00_9732))
														{	/* Read/reader.scm 447 */
															long BgL_poz00_9743;

															{	/* Read/reader.scm 447 */
																long BgL_res6745z00_16704;

																{	/* Read/reader.scm 447 */
																	long BgL_tmpz00_18926;

																	BgL_tmpz00_18926 =
																		INPUT_PORT_TOKENPOS(BgL_portz00_9731);
																	BgL_res6745z00_16704 =
																		(long) (BgL_tmpz00_18926);
																}
																BgL_poz00_9743 = BgL_res6745z00_16704;
															}
															{	/* Read/reader.scm 137 */
																obj_t BgL_arg6113z00_16705;

																{	/* Read/reader.scm 122 */
																	obj_t BgL_list6100z00_16706;

																	{	/* Read/reader.scm 122 */
																		obj_t BgL_arg6101z00_16707;

																		{	/* Read/reader.scm 122 */
																			obj_t BgL_arg6102z00_16708;

																			BgL_arg6102z00_16708 =
																				MAKE_YOUNG_PAIR(BINT(BgL_poz00_9743),
																				BNIL);
																			BgL_arg6101z00_16707 =
																				MAKE_YOUNG_PAIR(BgL_namez00_9734,
																				BgL_arg6102z00_16708);
																		}
																		BgL_list6100z00_16706 =
																			MAKE_YOUNG_PAIR
																			(BGl_symbol6859z00zz__readerz00,
																			BgL_arg6101z00_16707);
																	}
																	BgL_arg6113z00_16705 = BgL_list6100z00_16706;
																}
																{	/* Read/reader.scm 137 */
																	obj_t BgL_res6747z00_16710;

																	BgL_res6747z00_16710 =
																		MAKE_YOUNG_EPAIR(BgL_itemz00_9741,
																		BgL_accz00_9739, BgL_arg6113z00_16705);
																	BgL_arg5904z00_9742 = BgL_res6747z00_16710;
														}}}
													else
														{	/* Read/reader.scm 446 */
															BgL_arg5904z00_9742 =
																MAKE_YOUNG_PAIR(BgL_itemz00_9741,
																BgL_accz00_9739);
														}
													{
														obj_t BgL_accz00_18935;

														BgL_accz00_18935 = BgL_arg5904z00_9742;
														BgL_accz00_9739 = BgL_accz00_18935;
														goto BgL_zc3z04anonymousza35903ze3z87_9740;
													}
												}
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* the-escape-substring~1 */
	obj_t BGl_thezd2escapezd2substringze71ze7zz__readerz00(obj_t
		BgL_iportz00_17896, int BgL_minz00_9624, int BgL_maxz00_9625,
		bool_t BgL_strictz00_9626)
	{
		{	/* Read/reader.scm 409 */
			if (((long) (BgL_maxz00_9625) < 0L))
				{	/* Read/reader.scm 409 */
					long BgL_arg5829z00_9629;

					{	/* Read/reader.scm 409 */
						obj_t BgL_tmpz00_18939;

						BgL_tmpz00_18939 = ((obj_t) BgL_iportz00_17896);
						BgL_arg5829z00_9629 = RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_18939);
					}
					{	/* Read/reader.scm 409 */
						long BgL_za72za7_16663;

						BgL_za72za7_16663 = (long) (BgL_maxz00_9625);
						BgL_maxz00_9625 = (int) ((BgL_arg5829z00_9629 + BgL_za72za7_16663));
				}}
			else
				{	/* Read/reader.scm 409 */
					BFALSE;
				}
			{	/* Read/reader.scm 409 */
				bool_t BgL_test7090z00_18945;

				if (((long) (BgL_minz00_9624) >= 0L))
					{	/* Read/reader.scm 409 */
						if (((long) (BgL_maxz00_9625) >= (long) (BgL_minz00_9624)))
							{	/* Read/reader.scm 409 */
								long BgL_arg5838z00_9640;

								{	/* Read/reader.scm 409 */
									obj_t BgL_tmpz00_18953;

									BgL_tmpz00_18953 = ((obj_t) BgL_iportz00_17896);
									BgL_arg5838z00_9640 =
										RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_18953);
								}
								BgL_test7090z00_18945 =
									((long) (BgL_maxz00_9625) <= BgL_arg5838z00_9640);
							}
						else
							{	/* Read/reader.scm 409 */
								BgL_test7090z00_18945 = ((bool_t) 0);
							}
					}
				else
					{	/* Read/reader.scm 409 */
						BgL_test7090z00_18945 = ((bool_t) 0);
					}
				if (BgL_test7090z00_18945)
					{	/* Read/reader.scm 409 */
						long BgL_startz00_16671;
						long BgL_stopz00_16672;

						BgL_startz00_16671 = (long) (BgL_minz00_9624);
						BgL_stopz00_16672 = (long) (BgL_maxz00_9625);
						return
							rgc_buffer_escape_substring(
							((obj_t) BgL_iportz00_17896), BgL_startz00_16671,
							BgL_stopz00_16672, BgL_strictz00_9626);
					}
				else
					{	/* Read/reader.scm 409 */
						obj_t BgL_arg5834z00_9634;
						obj_t BgL_arg5835z00_9635;

						{	/* Read/reader.scm 409 */
							obj_t BgL_arg5836z00_9636;

							{	/* Read/reader.scm 409 */
								long BgL_arg5814z00_16674;

								{	/* Read/reader.scm 409 */
									obj_t BgL_tmpz00_18962;

									BgL_tmpz00_18962 = ((obj_t) BgL_iportz00_17896);
									BgL_arg5814z00_16674 =
										RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_18962);
								}
								BgL_arg5836z00_9636 =
									rgc_buffer_substring(
									((obj_t) BgL_iportz00_17896), 0L, BgL_arg5814z00_16674);
							}
							{	/* Read/reader.scm 409 */
								obj_t BgL_list5837z00_9637;

								BgL_list5837z00_9637 =
									MAKE_YOUNG_PAIR(BgL_arg5836z00_9636, BNIL);
								BgL_arg5834z00_9634 =
									BGl_formatz00zz__r4_output_6_10_3z00
									(BGl_string6861z00zz__readerz00, BgL_list5837z00_9637);
						}}
						BgL_arg5835z00_9635 =
							MAKE_YOUNG_PAIR(BINT(BgL_minz00_9624), BINT(BgL_maxz00_9625));
						return
							BGl_errorz00zz__errorz00(BGl_string6862z00zz__readerz00,
							BgL_arg5834z00_9634, BgL_arg5835z00_9635);
					}
			}
		}

	}



/* the-substring~1 */
	obj_t BGl_thezd2substringze71z35zz__readerz00(obj_t BgL_iportz00_17897,
		int BgL_minz00_9608, int BgL_maxz00_9609)
	{
		{	/* Read/reader.scm 409 */
			if (((long) (BgL_maxz00_9609) < (long) (BgL_minz00_9608)))
				{	/* Read/reader.scm 409 */
					long BgL_arg5817z00_9612;

					{	/* Read/reader.scm 409 */
						obj_t BgL_tmpz00_18977;

						BgL_tmpz00_18977 = ((obj_t) BgL_iportz00_17897);
						BgL_arg5817z00_9612 = RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_18977);
					}
					{	/* Read/reader.scm 409 */
						long BgL_za72za7_16646;

						BgL_za72za7_16646 = (long) (BgL_maxz00_9609);
						BgL_maxz00_9609 = (int) ((BgL_arg5817z00_9612 + BgL_za72za7_16646));
				}}
			else
				{	/* Read/reader.scm 409 */
					BFALSE;
				}
			{	/* Read/reader.scm 409 */
				bool_t BgL_test7094z00_18983;

				if (((long) (BgL_minz00_9608) >= 0L))
					{	/* Read/reader.scm 409 */
						if (((long) (BgL_maxz00_9609) >= (long) (BgL_minz00_9608)))
							{	/* Read/reader.scm 409 */
								long BgL_arg5826z00_9623;

								{	/* Read/reader.scm 409 */
									obj_t BgL_tmpz00_18991;

									BgL_tmpz00_18991 = ((obj_t) BgL_iportz00_17897);
									BgL_arg5826z00_9623 =
										RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_18991);
								}
								BgL_test7094z00_18983 =
									((long) (BgL_maxz00_9609) <= BgL_arg5826z00_9623);
							}
						else
							{	/* Read/reader.scm 409 */
								BgL_test7094z00_18983 = ((bool_t) 0);
							}
					}
				else
					{	/* Read/reader.scm 409 */
						BgL_test7094z00_18983 = ((bool_t) 0);
					}
				if (BgL_test7094z00_18983)
					{	/* Read/reader.scm 409 */
						long BgL_startz00_16654;
						long BgL_stopz00_16655;

						BgL_startz00_16654 = (long) (BgL_minz00_9608);
						BgL_stopz00_16655 = (long) (BgL_maxz00_9609);
						return
							rgc_buffer_substring(
							((obj_t) BgL_iportz00_17897), BgL_startz00_16654,
							BgL_stopz00_16655);
					}
				else
					{	/* Read/reader.scm 409 */
						obj_t BgL_arg5822z00_9617;
						obj_t BgL_arg5823z00_9618;

						{	/* Read/reader.scm 409 */
							obj_t BgL_arg5824z00_9619;

							{	/* Read/reader.scm 409 */
								long BgL_arg5814z00_16656;

								{	/* Read/reader.scm 409 */
									obj_t BgL_tmpz00_19000;

									BgL_tmpz00_19000 = ((obj_t) BgL_iportz00_17897);
									BgL_arg5814z00_16656 =
										RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_19000);
								}
								BgL_arg5824z00_9619 =
									rgc_buffer_substring(
									((obj_t) BgL_iportz00_17897), 0L, BgL_arg5814z00_16656);
							}
							{	/* Read/reader.scm 409 */
								obj_t BgL_list5825z00_9620;

								BgL_list5825z00_9620 =
									MAKE_YOUNG_PAIR(BgL_arg5824z00_9619, BNIL);
								BgL_arg5822z00_9617 =
									BGl_formatz00zz__r4_output_6_10_3z00
									(BGl_string6861z00zz__readerz00, BgL_list5825z00_9620);
						}}
						BgL_arg5823z00_9618 =
							MAKE_YOUNG_PAIR(BINT(BgL_minz00_9608), BINT(BgL_maxz00_9609));
						return
							BGl_errorz00zz__errorz00(BGl_string6863z00zz__readerz00,
							BgL_arg5822z00_9617, BgL_arg5823z00_9618);
					}
			}
		}

	}



/* ignore~0 */
	obj_t BGl_ignoreze70ze7zz__readerz00(obj_t BgL_pospz00_17905,
		obj_t BgL_brazd2poseszd2_17904, obj_t BgL_resolvez00_17903,
		obj_t BgL_cyclesz00_17902, obj_t BgL_parzd2openzd2_17901,
		obj_t BgL_brazd2openzd2_17900, obj_t BgL_parzd2poseszd2_17899,
		obj_t BgL_iportz00_17898)
	{
		{	/* Read/reader.scm 409 */
		BGl_ignoreze70ze7zz__readerz00:
			{
				obj_t BgL_kwotez00_9714;
				obj_t BgL_portz00_9715;
				obj_t BgL_pospz00_9716;
				obj_t BgL_iportz00_9539;
				long BgL_lastzd2matchzd2_9540;
				long BgL_forwardz00_9541;
				long BgL_bufposz00_9542;
				obj_t BgL_iportz00_9472;
				long BgL_lastzd2matchzd2_9473;
				long BgL_forwardz00_9474;
				long BgL_bufposz00_9475;
				obj_t BgL_iportz00_9399;
				long BgL_lastzd2matchzd2_9400;
				long BgL_forwardz00_9401;
				long BgL_bufposz00_9402;
				obj_t BgL_iportz00_9343;
				long BgL_lastzd2matchzd2_9344;
				long BgL_forwardz00_9345;
				long BgL_bufposz00_9346;
				obj_t BgL_iportz00_9287;
				long BgL_lastzd2matchzd2_9288;
				long BgL_forwardz00_9289;
				long BgL_bufposz00_9290;
				obj_t BgL_iportz00_9222;
				long BgL_lastzd2matchzd2_9223;
				long BgL_forwardz00_9224;
				long BgL_bufposz00_9225;
				obj_t BgL_iportz00_9202;
				long BgL_lastzd2matchzd2_9203;
				long BgL_forwardz00_9204;
				long BgL_bufposz00_9205;
				obj_t BgL_iportz00_9141;
				long BgL_lastzd2matchzd2_9142;
				long BgL_forwardz00_9143;
				long BgL_bufposz00_9144;
				obj_t BgL_iportz00_9074;
				long BgL_lastzd2matchzd2_9075;
				long BgL_forwardz00_9076;
				long BgL_bufposz00_9077;
				obj_t BgL_iportz00_9013;
				long BgL_lastzd2matchzd2_9014;
				long BgL_forwardz00_9015;
				long BgL_bufposz00_9016;
				obj_t BgL_iportz00_8990;
				long BgL_lastzd2matchzd2_8991;
				long BgL_forwardz00_8992;
				long BgL_bufposz00_8993;
				obj_t BgL_iportz00_8977;
				long BgL_lastzd2matchzd2_8978;
				long BgL_forwardz00_8979;
				long BgL_bufposz00_8980;
				obj_t BgL_iportz00_8953;
				long BgL_lastzd2matchzd2_8954;
				long BgL_forwardz00_8955;
				long BgL_bufposz00_8956;
				obj_t BgL_iportz00_8935;
				long BgL_lastzd2matchzd2_8936;
				long BgL_forwardz00_8937;
				long BgL_bufposz00_8938;
				obj_t BgL_iportz00_8865;
				long BgL_lastzd2matchzd2_8866;
				long BgL_forwardz00_8867;
				long BgL_bufposz00_8868;
				obj_t BgL_iportz00_8804;
				long BgL_lastzd2matchzd2_8805;
				long BgL_forwardz00_8806;
				long BgL_bufposz00_8807;
				obj_t BgL_iportz00_8743;
				long BgL_lastzd2matchzd2_8744;
				long BgL_forwardz00_8745;
				long BgL_bufposz00_8746;
				obj_t BgL_iportz00_8682;
				long BgL_lastzd2matchzd2_8683;
				long BgL_forwardz00_8684;
				long BgL_bufposz00_8685;
				obj_t BgL_iportz00_8641;
				long BgL_lastzd2matchzd2_8642;
				long BgL_forwardz00_8643;
				long BgL_bufposz00_8644;
				obj_t BgL_iportz00_8604;
				long BgL_lastzd2matchzd2_8605;
				long BgL_forwardz00_8606;
				long BgL_bufposz00_8607;
				obj_t BgL_iportz00_8539;
				long BgL_lastzd2matchzd2_8540;
				long BgL_forwardz00_8541;
				long BgL_bufposz00_8542;
				obj_t BgL_iportz00_8474;
				long BgL_lastzd2matchzd2_8475;
				long BgL_forwardz00_8476;
				long BgL_bufposz00_8477;
				obj_t BgL_iportz00_8461;
				long BgL_lastzd2matchzd2_8462;
				long BgL_forwardz00_8463;
				long BgL_bufposz00_8464;
				obj_t BgL_iportz00_8448;
				long BgL_lastzd2matchzd2_8449;
				long BgL_forwardz00_8450;
				long BgL_bufposz00_8451;
				obj_t BgL_iportz00_8383;
				long BgL_lastzd2matchzd2_8384;
				long BgL_forwardz00_8385;
				long BgL_bufposz00_8386;
				obj_t BgL_iportz00_8342;
				long BgL_lastzd2matchzd2_8343;
				long BgL_forwardz00_8344;
				long BgL_bufposz00_8345;
				obj_t BgL_iportz00_8277;
				long BgL_lastzd2matchzd2_8278;
				long BgL_forwardz00_8279;
				long BgL_bufposz00_8280;
				obj_t BgL_iportz00_8264;
				long BgL_lastzd2matchzd2_8265;
				long BgL_forwardz00_8266;
				long BgL_bufposz00_8267;
				obj_t BgL_iportz00_8241;
				long BgL_lastzd2matchzd2_8242;
				long BgL_forwardz00_8243;
				long BgL_bufposz00_8244;
				obj_t BgL_iportz00_8180;
				long BgL_lastzd2matchzd2_8181;
				long BgL_forwardz00_8182;
				long BgL_bufposz00_8183;
				obj_t BgL_iportz00_8119;
				long BgL_lastzd2matchzd2_8120;
				long BgL_forwardz00_8121;
				long BgL_bufposz00_8122;
				obj_t BgL_iportz00_8053;
				long BgL_lastzd2matchzd2_8054;
				long BgL_forwardz00_8055;
				long BgL_bufposz00_8056;
				obj_t BgL_iportz00_7988;
				long BgL_lastzd2matchzd2_7989;
				long BgL_forwardz00_7990;
				long BgL_bufposz00_7991;
				obj_t BgL_iportz00_7927;
				long BgL_lastzd2matchzd2_7928;
				long BgL_forwardz00_7929;
				long BgL_bufposz00_7930;
				obj_t BgL_iportz00_7909;
				long BgL_lastzd2matchzd2_7910;
				long BgL_forwardz00_7911;
				long BgL_bufposz00_7912;
				obj_t BgL_iportz00_7856;
				long BgL_lastzd2matchzd2_7857;
				long BgL_forwardz00_7858;
				long BgL_bufposz00_7859;
				obj_t BgL_iportz00_7803;
				long BgL_lastzd2matchzd2_7804;
				long BgL_forwardz00_7805;
				long BgL_bufposz00_7806;
				obj_t BgL_iportz00_7733;
				long BgL_lastzd2matchzd2_7734;
				long BgL_forwardz00_7735;
				long BgL_bufposz00_7736;
				obj_t BgL_iportz00_7672;
				long BgL_lastzd2matchzd2_7673;
				long BgL_forwardz00_7674;
				long BgL_bufposz00_7675;
				obj_t BgL_iportz00_7653;
				long BgL_lastzd2matchzd2_7654;
				long BgL_forwardz00_7655;
				long BgL_bufposz00_7656;
				obj_t BgL_iportz00_7590;
				long BgL_lastzd2matchzd2_7591;
				long BgL_forwardz00_7592;
				long BgL_bufposz00_7593;
				obj_t BgL_iportz00_7547;
				long BgL_lastzd2matchzd2_7548;
				long BgL_forwardz00_7549;
				long BgL_bufposz00_7550;
				obj_t BgL_iportz00_7474;
				long BgL_lastzd2matchzd2_7475;
				long BgL_forwardz00_7476;
				long BgL_bufposz00_7477;
				obj_t BgL_iportz00_7401;
				long BgL_lastzd2matchzd2_7402;
				long BgL_forwardz00_7403;
				long BgL_bufposz00_7404;
				obj_t BgL_iportz00_7362;
				long BgL_lastzd2matchzd2_7363;
				long BgL_forwardz00_7364;
				long BgL_bufposz00_7365;
				obj_t BgL_iportz00_7301;
				long BgL_lastzd2matchzd2_7302;
				long BgL_forwardz00_7303;
				long BgL_bufposz00_7304;
				obj_t BgL_iportz00_7240;
				long BgL_lastzd2matchzd2_7241;
				long BgL_forwardz00_7242;
				long BgL_bufposz00_7243;
				obj_t BgL_iportz00_7179;
				long BgL_lastzd2matchzd2_7180;
				long BgL_forwardz00_7181;
				long BgL_bufposz00_7182;
				obj_t BgL_iportz00_7110;
				long BgL_lastzd2matchzd2_7111;
				long BgL_forwardz00_7112;
				long BgL_bufposz00_7113;
				obj_t BgL_iportz00_7041;
				long BgL_lastzd2matchzd2_7042;
				long BgL_forwardz00_7043;
				long BgL_bufposz00_7044;
				obj_t BgL_iportz00_6970;
				long BgL_lastzd2matchzd2_6971;
				long BgL_forwardz00_6972;
				long BgL_bufposz00_6973;
				obj_t BgL_iportz00_6942;
				long BgL_lastzd2matchzd2_6943;
				long BgL_forwardz00_6944;
				long BgL_bufposz00_6945;
				obj_t BgL_iportz00_6881;
				long BgL_lastzd2matchzd2_6882;
				long BgL_forwardz00_6883;
				long BgL_bufposz00_6884;
				obj_t BgL_iportz00_6816;
				long BgL_lastzd2matchzd2_6817;
				long BgL_forwardz00_6818;
				long BgL_bufposz00_6819;
				obj_t BgL_iportz00_6749;
				long BgL_lastzd2matchzd2_6750;
				long BgL_forwardz00_6751;
				long BgL_bufposz00_6752;
				obj_t BgL_iportz00_6682;
				long BgL_lastzd2matchzd2_6683;
				long BgL_forwardz00_6684;
				long BgL_bufposz00_6685;
				obj_t BgL_iportz00_6617;
				long BgL_lastzd2matchzd2_6618;
				long BgL_forwardz00_6619;
				long BgL_bufposz00_6620;
				obj_t BgL_iportz00_6540;
				long BgL_lastzd2matchzd2_6541;
				long BgL_forwardz00_6542;
				long BgL_bufposz00_6543;
				obj_t BgL_iportz00_6521;
				long BgL_lastzd2matchzd2_6522;
				long BgL_forwardz00_6523;
				long BgL_bufposz00_6524;
				obj_t BgL_iportz00_6452;
				long BgL_lastzd2matchzd2_6453;
				long BgL_forwardz00_6454;
				long BgL_bufposz00_6455;
				obj_t BgL_iportz00_6391;
				long BgL_lastzd2matchzd2_6392;
				long BgL_forwardz00_6393;
				long BgL_bufposz00_6394;
				obj_t BgL_iportz00_6326;
				long BgL_lastzd2matchzd2_6327;
				long BgL_forwardz00_6328;
				long BgL_bufposz00_6329;
				obj_t BgL_iportz00_6261;
				long BgL_lastzd2matchzd2_6262;
				long BgL_forwardz00_6263;
				long BgL_bufposz00_6264;
				obj_t BgL_iportz00_6218;
				long BgL_lastzd2matchzd2_6219;
				long BgL_forwardz00_6220;
				long BgL_bufposz00_6221;
				obj_t BgL_iportz00_6145;
				long BgL_lastzd2matchzd2_6146;
				long BgL_forwardz00_6147;
				long BgL_bufposz00_6148;
				obj_t BgL_iportz00_6102;
				long BgL_lastzd2matchzd2_6103;
				long BgL_forwardz00_6104;
				long BgL_bufposz00_6105;
				obj_t BgL_iportz00_6033;
				long BgL_lastzd2matchzd2_6034;
				long BgL_forwardz00_6035;
				long BgL_bufposz00_6036;
				obj_t BgL_iportz00_5968;
				long BgL_lastzd2matchzd2_5969;
				long BgL_forwardz00_5970;
				long BgL_bufposz00_5971;
				obj_t BgL_iportz00_5891;
				long BgL_lastzd2matchzd2_5892;
				long BgL_forwardz00_5893;
				long BgL_bufposz00_5894;
				obj_t BgL_iportz00_5834;
				long BgL_lastzd2matchzd2_5835;
				long BgL_forwardz00_5836;
				long BgL_bufposz00_5837;
				obj_t BgL_iportz00_5791;
				long BgL_lastzd2matchzd2_5792;
				long BgL_forwardz00_5793;
				long BgL_bufposz00_5794;
				obj_t BgL_iportz00_5741;
				long BgL_lastzd2matchzd2_5742;
				long BgL_forwardz00_5743;
				long BgL_bufposz00_5744;
				obj_t BgL_iportz00_5692;
				long BgL_lastzd2matchzd2_5693;
				long BgL_forwardz00_5694;
				long BgL_bufposz00_5695;
				obj_t BgL_iportz00_5627;
				long BgL_lastzd2matchzd2_5628;
				long BgL_forwardz00_5629;
				long BgL_bufposz00_5630;
				obj_t BgL_iportz00_5557;
				long BgL_lastzd2matchzd2_5558;
				long BgL_forwardz00_5559;
				long BgL_bufposz00_5560;
				obj_t BgL_iportz00_5499;
				long BgL_lastzd2matchzd2_5500;
				long BgL_forwardz00_5501;
				long BgL_bufposz00_5502;
				obj_t BgL_iportz00_5426;
				long BgL_lastzd2matchzd2_5427;
				long BgL_forwardz00_5428;
				long BgL_bufposz00_5429;
				obj_t BgL_iportz00_5370;
				long BgL_lastzd2matchzd2_5371;
				long BgL_forwardz00_5372;
				long BgL_bufposz00_5373;
				obj_t BgL_iportz00_5305;
				long BgL_lastzd2matchzd2_5306;
				long BgL_forwardz00_5307;
				long BgL_bufposz00_5308;
				obj_t BgL_iportz00_5240;
				long BgL_lastzd2matchzd2_5241;
				long BgL_forwardz00_5242;
				long BgL_bufposz00_5243;
				obj_t BgL_iportz00_5161;
				long BgL_lastzd2matchzd2_5162;
				long BgL_forwardz00_5163;
				long BgL_bufposz00_5164;
				obj_t BgL_iportz00_5100;
				long BgL_lastzd2matchzd2_5101;
				long BgL_forwardz00_5102;
				long BgL_bufposz00_5103;
				obj_t BgL_iportz00_5050;
				long BgL_lastzd2matchzd2_5051;
				long BgL_forwardz00_5052;
				long BgL_bufposz00_5053;
				obj_t BgL_iportz00_5021;
				long BgL_lastzd2matchzd2_5022;
				long BgL_forwardz00_5023;
				long BgL_bufposz00_5024;
				obj_t BgL_iportz00_4960;
				long BgL_lastzd2matchzd2_4961;
				long BgL_forwardz00_4962;
				long BgL_bufposz00_4963;
				obj_t BgL_iportz00_4916;
				long BgL_lastzd2matchzd2_4917;
				long BgL_forwardz00_4918;
				long BgL_bufposz00_4919;
				obj_t BgL_iportz00_4876;
				long BgL_lastzd2matchzd2_4877;
				long BgL_forwardz00_4878;
				long BgL_bufposz00_4879;
				obj_t BgL_iportz00_4811;
				long BgL_lastzd2matchzd2_4812;
				long BgL_forwardz00_4813;
				long BgL_bufposz00_4814;
				obj_t BgL_iportz00_4759;
				long BgL_lastzd2matchzd2_4760;
				long BgL_forwardz00_4761;
				long BgL_bufposz00_4762;
				obj_t BgL_iportz00_4741;
				long BgL_lastzd2matchzd2_4742;
				long BgL_forwardz00_4743;
				long BgL_bufposz00_4744;
				obj_t BgL_iportz00_4723;
				long BgL_lastzd2matchzd2_4724;
				long BgL_forwardz00_4725;
				long BgL_bufposz00_4726;
				obj_t BgL_iportz00_4703;
				long BgL_lastzd2matchzd2_4704;
				long BgL_forwardz00_4705;
				long BgL_bufposz00_4706;
				obj_t BgL_iportz00_4634;
				long BgL_lastzd2matchzd2_4635;
				long BgL_forwardz00_4636;
				long BgL_bufposz00_4637;
				obj_t BgL_iportz00_4563;
				long BgL_lastzd2matchzd2_4564;
				long BgL_forwardz00_4565;
				long BgL_bufposz00_4566;
				obj_t BgL_iportz00_4475;
				long BgL_lastzd2matchzd2_4476;
				long BgL_forwardz00_4477;
				long BgL_bufposz00_4478;
				obj_t BgL_iportz00_4405;
				long BgL_lastzd2matchzd2_4406;
				long BgL_forwardz00_4407;
				long BgL_bufposz00_4408;
				obj_t BgL_iportz00_4387;
				long BgL_lastzd2matchzd2_4388;
				long BgL_forwardz00_4389;
				long BgL_bufposz00_4390;
				obj_t BgL_iportz00_4326;
				long BgL_lastzd2matchzd2_4327;
				long BgL_forwardz00_4328;
				long BgL_bufposz00_4329;
				obj_t BgL_iportz00_4255;
				long BgL_lastzd2matchzd2_4256;
				long BgL_forwardz00_4257;
				long BgL_bufposz00_4258;
				obj_t BgL_iportz00_4194;
				long BgL_lastzd2matchzd2_4195;
				long BgL_forwardz00_4196;
				long BgL_bufposz00_4197;
				obj_t BgL_iportz00_4135;
				long BgL_lastzd2matchzd2_4136;
				long BgL_forwardz00_4137;
				long BgL_bufposz00_4138;
				obj_t BgL_iportz00_4078;
				long BgL_lastzd2matchzd2_4079;
				long BgL_forwardz00_4080;
				long BgL_bufposz00_4081;
				obj_t BgL_iportz00_4005;
				long BgL_lastzd2matchzd2_4006;
				long BgL_forwardz00_4007;
				long BgL_bufposz00_4008;
				obj_t BgL_iportz00_3940;
				long BgL_lastzd2matchzd2_3941;
				long BgL_forwardz00_3942;
				long BgL_bufposz00_3943;
				obj_t BgL_iportz00_3915;
				long BgL_lastzd2matchzd2_3916;
				long BgL_forwardz00_3917;
				long BgL_bufposz00_3918;
				obj_t BgL_iportz00_3852;
				long BgL_lastzd2matchzd2_3853;
				long BgL_forwardz00_3854;
				long BgL_bufposz00_3855;

				{	/* Read/reader.scm 409 */
					obj_t BgL_tmpz00_19011;

					BgL_tmpz00_19011 = ((obj_t) BgL_iportz00_17898);
					RGC_START_MATCH(BgL_tmpz00_19011);
				}
				{	/* Read/reader.scm 409 */
					long BgL_matchz00_9747;

					{	/* Read/reader.scm 409 */
						long BgL_arg6094z00_9977;
						long BgL_arg6095z00_9978;

						{	/* Read/reader.scm 409 */
							obj_t BgL_tmpz00_19014;

							BgL_tmpz00_19014 = ((obj_t) BgL_iportz00_17898);
							BgL_arg6094z00_9977 = RGC_BUFFER_FORWARD(BgL_tmpz00_19014);
						}
						{	/* Read/reader.scm 409 */
							obj_t BgL_tmpz00_19017;

							BgL_tmpz00_19017 = ((obj_t) BgL_iportz00_17898);
							BgL_arg6095z00_9978 = RGC_BUFFER_BUFPOS(BgL_tmpz00_19017);
						}
						BgL_iportz00_8604 = BgL_iportz00_17898;
						BgL_lastzd2matchzd2_8605 = 38L;
						BgL_forwardz00_8606 = BgL_arg6094z00_9977;
						BgL_bufposz00_8607 = BgL_arg6095z00_9978;
					BgL_zc3z04anonymousza35294ze3z87_8608:
						if ((BgL_forwardz00_8606 == BgL_bufposz00_8607))
							{	/* Read/reader.scm 409 */
								if (rgc_fill_buffer(((obj_t) BgL_iportz00_8604)))
									{	/* Read/reader.scm 409 */
										long BgL_arg5297z00_8611;
										long BgL_arg5298z00_8612;

										{	/* Read/reader.scm 409 */
											obj_t BgL_tmpz00_19025;

											BgL_tmpz00_19025 = ((obj_t) BgL_iportz00_8604);
											BgL_arg5297z00_8611 =
												RGC_BUFFER_FORWARD(BgL_tmpz00_19025);
										}
										{	/* Read/reader.scm 409 */
											obj_t BgL_tmpz00_19028;

											BgL_tmpz00_19028 = ((obj_t) BgL_iportz00_8604);
											BgL_arg5298z00_8612 = RGC_BUFFER_BUFPOS(BgL_tmpz00_19028);
										}
										{
											long BgL_bufposz00_19032;
											long BgL_forwardz00_19031;

											BgL_forwardz00_19031 = BgL_arg5297z00_8611;
											BgL_bufposz00_19032 = BgL_arg5298z00_8612;
											BgL_bufposz00_8607 = BgL_bufposz00_19032;
											BgL_forwardz00_8606 = BgL_forwardz00_19031;
											goto BgL_zc3z04anonymousza35294ze3z87_8608;
										}
									}
								else
									{	/* Read/reader.scm 409 */
										BgL_matchz00_9747 = BgL_lastzd2matchzd2_8605;
									}
							}
						else
							{	/* Read/reader.scm 409 */
								int BgL_curz00_8613;

								{	/* Read/reader.scm 409 */
									obj_t BgL_tmpz00_19033;

									BgL_tmpz00_19033 = ((obj_t) BgL_iportz00_8604);
									BgL_curz00_8613 =
										RGC_BUFFER_GET_CHAR(BgL_tmpz00_19033, BgL_forwardz00_8606);
								}
								{	/* Read/reader.scm 409 */

									switch ((long) (BgL_curz00_8613))
										{
										case 125L:

											{	/* Read/reader.scm 409 */
												long BgL_arg5299z00_8616;

												BgL_arg5299z00_8616 = (1L + BgL_forwardz00_8606);
												{	/* Read/reader.scm 409 */
													long BgL_newzd2matchzd2_16016;

													{	/* Read/reader.scm 409 */
														obj_t BgL_tmpz00_19037;

														BgL_tmpz00_19037 = ((obj_t) BgL_iportz00_8604);
														RGC_STOP_MATCH(BgL_tmpz00_19037,
															BgL_arg5299z00_8616);
													}
													BgL_newzd2matchzd2_16016 = 34L;
													BgL_matchz00_9747 = BgL_newzd2matchzd2_16016;
											}} break;
										case 124L:

											BgL_iportz00_6521 = BgL_iportz00_8604;
											BgL_lastzd2matchzd2_6522 = BgL_lastzd2matchzd2_8605;
											BgL_forwardz00_6523 = (1L + BgL_forwardz00_8606);
											BgL_bufposz00_6524 = BgL_bufposz00_8607;
										BgL_zc3z04anonymousza34234ze3z87_6525:
											{	/* Read/reader.scm 409 */
												long BgL_newzd2matchzd2_6526;

												{	/* Read/reader.scm 409 */
													obj_t BgL_tmpz00_19040;

													BgL_tmpz00_19040 = ((obj_t) BgL_iportz00_6521);
													RGC_STOP_MATCH(BgL_tmpz00_19040, BgL_forwardz00_6523);
												}
												BgL_newzd2matchzd2_6526 = 38L;
												if ((BgL_forwardz00_6523 == BgL_bufposz00_6524))
													{	/* Read/reader.scm 409 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_6521)))
															{	/* Read/reader.scm 409 */
																long BgL_arg4237z00_6529;
																long BgL_arg4238z00_6530;

																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_19048;

																	BgL_tmpz00_19048 =
																		((obj_t) BgL_iportz00_6521);
																	BgL_arg4237z00_6529 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_19048);
																}
																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_19051;

																	BgL_tmpz00_19051 =
																		((obj_t) BgL_iportz00_6521);
																	BgL_arg4238z00_6530 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_19051);
																}
																{
																	long BgL_bufposz00_19055;
																	long BgL_forwardz00_19054;

																	BgL_forwardz00_19054 = BgL_arg4237z00_6529;
																	BgL_bufposz00_19055 = BgL_arg4238z00_6530;
																	BgL_bufposz00_6524 = BgL_bufposz00_19055;
																	BgL_forwardz00_6523 = BgL_forwardz00_19054;
																	goto BgL_zc3z04anonymousza34234ze3z87_6525;
																}
															}
														else
															{	/* Read/reader.scm 409 */
																BgL_matchz00_9747 = BgL_newzd2matchzd2_6526;
															}
													}
												else
													{	/* Read/reader.scm 409 */
														int BgL_curz00_6531;

														{	/* Read/reader.scm 409 */
															obj_t BgL_tmpz00_19056;

															BgL_tmpz00_19056 = ((obj_t) BgL_iportz00_6521);
															BgL_curz00_6531 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_19056,
																BgL_forwardz00_6523);
														}
														{	/* Read/reader.scm 409 */

															if (((long) (BgL_curz00_6531) == 124L))
																{	/* Read/reader.scm 409 */
																	long BgL_arg4240z00_6533;

																	BgL_arg4240z00_6533 =
																		(1L + BgL_forwardz00_6523);
																	{	/* Read/reader.scm 409 */
																		long BgL_newzd2matchzd2_14707;

																		{	/* Read/reader.scm 409 */
																			obj_t BgL_tmpz00_19063;

																			BgL_tmpz00_19063 =
																				((obj_t) BgL_iportz00_6521);
																			RGC_STOP_MATCH(BgL_tmpz00_19063,
																				BgL_arg4240z00_6533);
																		}
																		BgL_newzd2matchzd2_14707 = 23L;
																		BgL_matchz00_9747 =
																			BgL_newzd2matchzd2_14707;
																}}
															else
																{	/* Read/reader.scm 409 */
																	if (((long) (BgL_curz00_6531) == 92L))
																		{	/* Read/reader.scm 409 */
																			long BgL_arg4242z00_6535;

																			BgL_arg4242z00_6535 =
																				(1L + BgL_forwardz00_6523);
																			{
																				long BgL_forwardz00_14713;
																				long BgL_bufposz00_14714;

																				BgL_forwardz00_14713 =
																					BgL_arg4242z00_6535;
																				BgL_bufposz00_14714 =
																					BgL_bufposz00_6524;
																			BgL_statezd222zd21211z00_14712:
																				if (
																					(BgL_forwardz00_14713 ==
																						BgL_bufposz00_14714))
																					{	/* Read/reader.scm 409 */
																						if (rgc_fill_buffer(
																								((obj_t) BgL_iportz00_6521)))
																							{	/* Read/reader.scm 409 */
																								long BgL_arg3718z00_14717;
																								long BgL_arg3719z00_14718;

																								{	/* Read/reader.scm 409 */
																									obj_t BgL_tmpz00_19075;

																									BgL_tmpz00_19075 =
																										((obj_t) BgL_iportz00_6521);
																									BgL_arg3718z00_14717 =
																										RGC_BUFFER_FORWARD
																										(BgL_tmpz00_19075);
																								}
																								{	/* Read/reader.scm 409 */
																									obj_t BgL_tmpz00_19078;

																									BgL_tmpz00_19078 =
																										((obj_t) BgL_iportz00_6521);
																									BgL_arg3719z00_14718 =
																										RGC_BUFFER_BUFPOS
																										(BgL_tmpz00_19078);
																								}
																								{
																									long BgL_bufposz00_19082;
																									long BgL_forwardz00_19081;

																									BgL_forwardz00_19081 =
																										BgL_arg3718z00_14717;
																									BgL_bufposz00_19082 =
																										BgL_arg3719z00_14718;
																									BgL_bufposz00_14714 =
																										BgL_bufposz00_19082;
																									BgL_forwardz00_14713 =
																										BgL_forwardz00_19081;
																									goto
																										BgL_statezd222zd21211z00_14712;
																								}
																							}
																						else
																							{	/* Read/reader.scm 409 */
																								BgL_matchz00_9747 =
																									BgL_newzd2matchzd2_6526;
																							}
																					}
																				else
																					{	/* Read/reader.scm 409 */
																						int BgL_curz00_14719;

																						{	/* Read/reader.scm 409 */
																							obj_t BgL_tmpz00_19083;

																							BgL_tmpz00_19083 =
																								((obj_t) BgL_iportz00_6521);
																							BgL_curz00_14719 =
																								RGC_BUFFER_GET_CHAR
																								(BgL_tmpz00_19083,
																								BgL_forwardz00_14713);
																						}
																						{	/* Read/reader.scm 409 */

																							if (
																								((long) (BgL_curz00_14719) ==
																									10L))
																								{	/* Read/reader.scm 409 */
																									BgL_matchz00_9747 =
																										BgL_newzd2matchzd2_6526;
																								}
																							else
																								{	/* Read/reader.scm 409 */
																									BgL_iportz00_7909 =
																										BgL_iportz00_6521;
																									BgL_lastzd2matchzd2_7910 =
																										BgL_newzd2matchzd2_6526;
																									BgL_forwardz00_7911 =
																										(1L + BgL_forwardz00_14713);
																									BgL_bufposz00_7912 =
																										BgL_bufposz00_14714;
																								BgL_zc3z04anonymousza34942ze3z87_7913:
																									if (
																										(BgL_forwardz00_7911 ==
																											BgL_bufposz00_7912))
																										{	/* Read/reader.scm 409 */
																											if (rgc_fill_buffer(
																													((obj_t)
																														BgL_iportz00_7909)))
																												{	/* Read/reader.scm 409 */
																													long
																														BgL_arg4945z00_7916;
																													long
																														BgL_arg4946z00_7917;
																													{	/* Read/reader.scm 409 */
																														obj_t
																															BgL_tmpz00_19094;
																														BgL_tmpz00_19094 =
																															((obj_t)
																															BgL_iportz00_7909);
																														BgL_arg4945z00_7916
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_tmpz00_19094);
																													}
																													{	/* Read/reader.scm 409 */
																														obj_t
																															BgL_tmpz00_19097;
																														BgL_tmpz00_19097 =
																															((obj_t)
																															BgL_iportz00_7909);
																														BgL_arg4946z00_7917
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_tmpz00_19097);
																													}
																													{
																														long
																															BgL_bufposz00_19101;
																														long
																															BgL_forwardz00_19100;
																														BgL_forwardz00_19100
																															=
																															BgL_arg4945z00_7916;
																														BgL_bufposz00_19101
																															=
																															BgL_arg4946z00_7917;
																														BgL_bufposz00_7912 =
																															BgL_bufposz00_19101;
																														BgL_forwardz00_7911
																															=
																															BgL_forwardz00_19100;
																														goto
																															BgL_zc3z04anonymousza34942ze3z87_7913;
																													}
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													BgL_matchz00_9747 =
																														BgL_lastzd2matchzd2_7910;
																												}
																										}
																									else
																										{	/* Read/reader.scm 409 */
																											int BgL_curz00_7918;

																											{	/* Read/reader.scm 409 */
																												obj_t BgL_tmpz00_19102;

																												BgL_tmpz00_19102 =
																													((obj_t)
																													BgL_iportz00_7909);
																												BgL_curz00_7918 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_tmpz00_19102,
																													BgL_forwardz00_7911);
																											}
																											{	/* Read/reader.scm 409 */

																												if (
																													((long)
																														(BgL_curz00_7918) ==
																														124L))
																													{	/* Read/reader.scm 409 */
																														long
																															BgL_arg4948z00_7920;
																														BgL_arg4948z00_7920
																															=
																															(1L +
																															BgL_forwardz00_7911);
																														{	/* Read/reader.scm 409 */
																															long
																																BgL_newzd2matchzd2_15570;
																															{	/* Read/reader.scm 409 */
																																obj_t
																																	BgL_tmpz00_19109;
																																BgL_tmpz00_19109
																																	=
																																	((obj_t)
																																	BgL_iportz00_7909);
																																RGC_STOP_MATCH
																																	(BgL_tmpz00_19109,
																																	BgL_arg4948z00_7920);
																															}
																															BgL_newzd2matchzd2_15570
																																= 23L;
																															BgL_matchz00_9747
																																=
																																BgL_newzd2matchzd2_15570;
																													}}
																												else
																													{	/* Read/reader.scm 409 */
																														if (
																															((long)
																																(BgL_curz00_7918)
																																== 92L))
																															{	/* Read/reader.scm 409 */
																																long
																																	BgL_arg4950z00_7922;
																																BgL_arg4950z00_7922
																																	=
																																	(1L +
																																	BgL_forwardz00_7911);
																																{
																																	long
																																		BgL_forwardz00_15576;
																																	long
																																		BgL_bufposz00_15577;
																																	BgL_forwardz00_15576
																																		=
																																		BgL_arg4950z00_7922;
																																	BgL_bufposz00_15577
																																		=
																																		BgL_bufposz00_7912;
																																BgL_statezd222zd21211z00_15575:
																																	if (
																																		(BgL_forwardz00_15576
																																			==
																																			BgL_bufposz00_15577))
																																		{	/* Read/reader.scm 409 */
																																			if (rgc_fill_buffer(((obj_t) BgL_iportz00_7909)))
																																				{	/* Read/reader.scm 409 */
																																					long
																																						BgL_arg3718z00_15580;
																																					long
																																						BgL_arg3719z00_15581;
																																					{	/* Read/reader.scm 409 */
																																						obj_t
																																							BgL_tmpz00_19121;
																																						BgL_tmpz00_19121
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_7909);
																																						BgL_arg3718z00_15580
																																							=
																																							RGC_BUFFER_FORWARD
																																							(BgL_tmpz00_19121);
																																					}
																																					{	/* Read/reader.scm 409 */
																																						obj_t
																																							BgL_tmpz00_19124;
																																						BgL_tmpz00_19124
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_7909);
																																						BgL_arg3719z00_15581
																																							=
																																							RGC_BUFFER_BUFPOS
																																							(BgL_tmpz00_19124);
																																					}
																																					{
																																						long
																																							BgL_bufposz00_19128;
																																						long
																																							BgL_forwardz00_19127;
																																						BgL_forwardz00_19127
																																							=
																																							BgL_arg3718z00_15580;
																																						BgL_bufposz00_19128
																																							=
																																							BgL_arg3719z00_15581;
																																						BgL_bufposz00_15577
																																							=
																																							BgL_bufposz00_19128;
																																						BgL_forwardz00_15576
																																							=
																																							BgL_forwardz00_19127;
																																						goto
																																							BgL_statezd222zd21211z00_15575;
																																					}
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					BgL_matchz00_9747
																																						=
																																						BgL_lastzd2matchzd2_7910;
																																				}
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			int
																																				BgL_curz00_15582;
																																			{	/* Read/reader.scm 409 */
																																				obj_t
																																					BgL_tmpz00_19129;
																																				BgL_tmpz00_19129
																																					=
																																					(
																																					(obj_t)
																																					BgL_iportz00_7909);
																																				BgL_curz00_15582
																																					=
																																					RGC_BUFFER_GET_CHAR
																																					(BgL_tmpz00_19129,
																																					BgL_forwardz00_15576);
																																			}
																																			{	/* Read/reader.scm 409 */

																																				if (
																																					((long) (BgL_curz00_15582) == 10L))
																																					{	/* Read/reader.scm 409 */
																																						BgL_matchz00_9747
																																							=
																																							BgL_lastzd2matchzd2_7910;
																																					}
																																				else
																																					{
																																						long
																																							BgL_bufposz00_19137;
																																						long
																																							BgL_forwardz00_19135;
																																						BgL_forwardz00_19135
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_15576);
																																						BgL_bufposz00_19137
																																							=
																																							BgL_bufposz00_15577;
																																						BgL_bufposz00_7912
																																							=
																																							BgL_bufposz00_19137;
																																						BgL_forwardz00_7911
																																							=
																																							BgL_forwardz00_19135;
																																						goto
																																							BgL_zc3z04anonymousza34942ze3z87_7913;
																																					}
																																			}
																																		}
																																}
																															}
																														else
																															{	/* Read/reader.scm 409 */
																																bool_t
																																	BgL_test7113z00_19138;
																																if (((long)
																																		(BgL_curz00_7918)
																																		== 92L))
																																	{	/* Read/reader.scm 409 */
																																		BgL_test7113z00_19138
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 409 */
																																		BgL_test7113z00_19138
																																			=
																																			((long)
																																			(BgL_curz00_7918)
																																			== 124L);
																																	}
																																if (BgL_test7113z00_19138)
																																	{	/* Read/reader.scm 409 */
																																		BgL_matchz00_9747
																																			=
																																			BgL_lastzd2matchzd2_7910;
																																	}
																																else
																																	{
																																		long
																																			BgL_forwardz00_19144;
																																		BgL_forwardz00_19144
																																			=
																																			(1L +
																																			BgL_forwardz00_7911);
																																		BgL_forwardz00_7911
																																			=
																																			BgL_forwardz00_19144;
																																		goto
																																			BgL_zc3z04anonymousza34942ze3z87_7913;
																																	}
																															}
																													}
																											}
																										}
																								}
																						}
																					}
																			}
																		}
																	else
																		{	/* Read/reader.scm 409 */
																			bool_t BgL_test7115z00_19147;

																			if (((long) (BgL_curz00_6531) == 92L))
																				{	/* Read/reader.scm 409 */
																					BgL_test7115z00_19147 = ((bool_t) 1);
																				}
																			else
																				{	/* Read/reader.scm 409 */
																					BgL_test7115z00_19147 =
																						((long) (BgL_curz00_6531) == 124L);
																				}
																			if (BgL_test7115z00_19147)
																				{	/* Read/reader.scm 409 */
																					BgL_matchz00_9747 =
																						BgL_newzd2matchzd2_6526;
																				}
																			else
																				{
																					long BgL_bufposz00_19157;
																					long BgL_forwardz00_19155;
																					long BgL_lastzd2matchzd2_19154;
																					obj_t BgL_iportz00_19153;

																					BgL_iportz00_19153 =
																						BgL_iportz00_6521;
																					BgL_lastzd2matchzd2_19154 =
																						BgL_newzd2matchzd2_6526;
																					BgL_forwardz00_19155 =
																						(1L + BgL_forwardz00_6523);
																					BgL_bufposz00_19157 =
																						BgL_bufposz00_6524;
																					BgL_bufposz00_7912 =
																						BgL_bufposz00_19157;
																					BgL_forwardz00_7911 =
																						BgL_forwardz00_19155;
																					BgL_lastzd2matchzd2_7910 =
																						BgL_lastzd2matchzd2_19154;
																					BgL_iportz00_7909 =
																						BgL_iportz00_19153;
																					goto
																						BgL_zc3z04anonymousza34942ze3z87_7913;
																				}
																		}
																}
														}
													}
											}
											break;
										case 96L:

											{	/* Read/reader.scm 409 */
												long BgL_arg5301z00_8618;

												BgL_arg5301z00_8618 = (1L + BgL_forwardz00_8606);
												{	/* Read/reader.scm 409 */
													long BgL_newzd2matchzd2_16021;

													{	/* Read/reader.scm 409 */
														obj_t BgL_tmpz00_19160;

														BgL_tmpz00_19160 = ((obj_t) BgL_iportz00_8604);
														RGC_STOP_MATCH(BgL_tmpz00_19160,
															BgL_arg5301z00_8618);
													}
													BgL_newzd2matchzd2_16021 = 25L;
													BgL_matchz00_9747 = BgL_newzd2matchzd2_16021;
											}} break;
										case 59L:

											BgL_iportz00_7653 = BgL_iportz00_8604;
											BgL_lastzd2matchzd2_7654 = BgL_lastzd2matchzd2_8605;
											BgL_forwardz00_7655 = (1L + BgL_forwardz00_8606);
											BgL_bufposz00_7656 = BgL_bufposz00_8607;
										BgL_zc3z04anonymousza34816ze3z87_7657:
											{	/* Read/reader.scm 409 */
												long BgL_newzd2matchzd2_7658;

												{	/* Read/reader.scm 409 */
													obj_t BgL_tmpz00_19163;

													BgL_tmpz00_19163 = ((obj_t) BgL_iportz00_7653);
													RGC_STOP_MATCH(BgL_tmpz00_19163, BgL_forwardz00_7655);
												}
												BgL_newzd2matchzd2_7658 = 2L;
												if ((BgL_forwardz00_7655 == BgL_bufposz00_7656))
													{	/* Read/reader.scm 409 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_7653)))
															{	/* Read/reader.scm 409 */
																long BgL_arg4819z00_7661;
																long BgL_arg4820z00_7662;

																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_19171;

																	BgL_tmpz00_19171 =
																		((obj_t) BgL_iportz00_7653);
																	BgL_arg4819z00_7661 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_19171);
																}
																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_19174;

																	BgL_tmpz00_19174 =
																		((obj_t) BgL_iportz00_7653);
																	BgL_arg4820z00_7662 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_19174);
																}
																{
																	long BgL_bufposz00_19178;
																	long BgL_forwardz00_19177;

																	BgL_forwardz00_19177 = BgL_arg4819z00_7661;
																	BgL_bufposz00_19178 = BgL_arg4820z00_7662;
																	BgL_bufposz00_7656 = BgL_bufposz00_19178;
																	BgL_forwardz00_7655 = BgL_forwardz00_19177;
																	goto BgL_zc3z04anonymousza34816ze3z87_7657;
																}
															}
														else
															{	/* Read/reader.scm 409 */
																BgL_matchz00_9747 = BgL_newzd2matchzd2_7658;
															}
													}
												else
													{	/* Read/reader.scm 409 */
														int BgL_curz00_7663;

														{	/* Read/reader.scm 409 */
															obj_t BgL_tmpz00_19179;

															BgL_tmpz00_19179 = ((obj_t) BgL_iportz00_7653);
															BgL_curz00_7663 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_19179,
																BgL_forwardz00_7655);
														}
														{	/* Read/reader.scm 409 */

															if (((long) (BgL_curz00_7663) == 10L))
																{	/* Read/reader.scm 409 */
																	BgL_matchz00_9747 = BgL_newzd2matchzd2_7658;
																}
															else
																{	/* Read/reader.scm 409 */
																	BgL_iportz00_8461 = BgL_iportz00_7653;
																	BgL_lastzd2matchzd2_8462 =
																		BgL_newzd2matchzd2_7658;
																	BgL_forwardz00_8463 =
																		(1L + BgL_forwardz00_7655);
																	BgL_bufposz00_8464 = BgL_bufposz00_7656;
																BgL_zc3z04anonymousza35220ze3z87_8465:
																	{	/* Read/reader.scm 409 */
																		long BgL_newzd2matchzd2_8466;

																		{	/* Read/reader.scm 409 */
																			obj_t BgL_tmpz00_19185;

																			BgL_tmpz00_19185 =
																				((obj_t) BgL_iportz00_8461);
																			RGC_STOP_MATCH(BgL_tmpz00_19185,
																				BgL_forwardz00_8463);
																		}
																		BgL_newzd2matchzd2_8466 = 2L;
																		if (
																			(BgL_forwardz00_8463 ==
																				BgL_bufposz00_8464))
																			{	/* Read/reader.scm 409 */
																				if (rgc_fill_buffer(
																						((obj_t) BgL_iportz00_8461)))
																					{	/* Read/reader.scm 409 */
																						long BgL_arg5223z00_8469;
																						long BgL_arg5224z00_8470;

																						{	/* Read/reader.scm 409 */
																							obj_t BgL_tmpz00_19193;

																							BgL_tmpz00_19193 =
																								((obj_t) BgL_iportz00_8461);
																							BgL_arg5223z00_8469 =
																								RGC_BUFFER_FORWARD
																								(BgL_tmpz00_19193);
																						}
																						{	/* Read/reader.scm 409 */
																							obj_t BgL_tmpz00_19196;

																							BgL_tmpz00_19196 =
																								((obj_t) BgL_iportz00_8461);
																							BgL_arg5224z00_8470 =
																								RGC_BUFFER_BUFPOS
																								(BgL_tmpz00_19196);
																						}
																						{
																							long BgL_bufposz00_19200;
																							long BgL_forwardz00_19199;

																							BgL_forwardz00_19199 =
																								BgL_arg5223z00_8469;
																							BgL_bufposz00_19200 =
																								BgL_arg5224z00_8470;
																							BgL_bufposz00_8464 =
																								BgL_bufposz00_19200;
																							BgL_forwardz00_8463 =
																								BgL_forwardz00_19199;
																							goto
																								BgL_zc3z04anonymousza35220ze3z87_8465;
																						}
																					}
																				else
																					{	/* Read/reader.scm 409 */
																						BgL_matchz00_9747 =
																							BgL_newzd2matchzd2_8466;
																					}
																			}
																		else
																			{	/* Read/reader.scm 409 */
																				int BgL_curz00_8471;

																				{	/* Read/reader.scm 409 */
																					obj_t BgL_tmpz00_19201;

																					BgL_tmpz00_19201 =
																						((obj_t) BgL_iportz00_8461);
																					BgL_curz00_8471 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_tmpz00_19201,
																						BgL_forwardz00_8463);
																				}
																				{	/* Read/reader.scm 409 */

																					if (((long) (BgL_curz00_8471) == 10L))
																						{	/* Read/reader.scm 409 */
																							BgL_matchz00_9747 =
																								BgL_newzd2matchzd2_8466;
																						}
																					else
																						{
																							long BgL_forwardz00_19208;
																							long BgL_lastzd2matchzd2_19207;

																							BgL_lastzd2matchzd2_19207 =
																								BgL_newzd2matchzd2_8466;
																							BgL_forwardz00_19208 =
																								(1L + BgL_forwardz00_8463);
																							BgL_forwardz00_8463 =
																								BgL_forwardz00_19208;
																							BgL_lastzd2matchzd2_8462 =
																								BgL_lastzd2matchzd2_19207;
																							goto
																								BgL_zc3z04anonymousza35220ze3z87_8465;
																						}
																				}
																			}
																	}
																}
														}
													}
											}
											break;
										case 58L:

											BgL_iportz00_4135 = BgL_iportz00_8604;
											BgL_lastzd2matchzd2_4136 = BgL_lastzd2matchzd2_8605;
											BgL_forwardz00_4137 = (1L + BgL_forwardz00_8606);
											BgL_bufposz00_4138 = BgL_bufposz00_8607;
										BgL_zc3z04anonymousza32936ze3z87_4139:
											{	/* Read/reader.scm 409 */
												long BgL_newzd2matchzd2_4140;

												{	/* Read/reader.scm 409 */
													obj_t BgL_tmpz00_19212;

													BgL_tmpz00_19212 = ((obj_t) BgL_iportz00_4135);
													RGC_STOP_MATCH(BgL_tmpz00_19212, BgL_forwardz00_4137);
												}
												BgL_newzd2matchzd2_4140 = 22L;
												if ((BgL_forwardz00_4137 == BgL_bufposz00_4138))
													{	/* Read/reader.scm 409 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_4135)))
															{	/* Read/reader.scm 409 */
																long BgL_arg2939z00_4143;
																long BgL_arg2940z00_4144;

																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_19220;

																	BgL_tmpz00_19220 =
																		((obj_t) BgL_iportz00_4135);
																	BgL_arg2939z00_4143 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_19220);
																}
																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_19223;

																	BgL_tmpz00_19223 =
																		((obj_t) BgL_iportz00_4135);
																	BgL_arg2940z00_4144 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_19223);
																}
																{
																	long BgL_bufposz00_19227;
																	long BgL_forwardz00_19226;

																	BgL_forwardz00_19226 = BgL_arg2939z00_4143;
																	BgL_bufposz00_19227 = BgL_arg2940z00_4144;
																	BgL_bufposz00_4138 = BgL_bufposz00_19227;
																	BgL_forwardz00_4137 = BgL_forwardz00_19226;
																	goto BgL_zc3z04anonymousza32936ze3z87_4139;
																}
															}
														else
															{	/* Read/reader.scm 409 */
																BgL_matchz00_9747 = BgL_newzd2matchzd2_4140;
															}
													}
												else
													{	/* Read/reader.scm 409 */
														int BgL_curz00_4145;

														{	/* Read/reader.scm 409 */
															obj_t BgL_tmpz00_19228;

															BgL_tmpz00_19228 = ((obj_t) BgL_iportz00_4135);
															BgL_curz00_4145 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_19228,
																BgL_forwardz00_4137);
														}
														{	/* Read/reader.scm 409 */

															if (((long) (BgL_curz00_4145) == 46L))
																{	/* Read/reader.scm 409 */
																	BgL_iportz00_5968 = BgL_iportz00_4135;
																	BgL_lastzd2matchzd2_5969 =
																		BgL_newzd2matchzd2_4140;
																	BgL_forwardz00_5970 =
																		(1L + BgL_forwardz00_4137);
																	BgL_bufposz00_5971 = BgL_bufposz00_4138;
																BgL_zc3z04anonymousza33954ze3z87_5972:
																	{	/* Read/reader.scm 409 */
																		long BgL_newzd2matchzd2_5973;

																		{	/* Read/reader.scm 409 */
																			obj_t BgL_tmpz00_19234;

																			BgL_tmpz00_19234 =
																				((obj_t) BgL_iportz00_5968);
																			RGC_STOP_MATCH(BgL_tmpz00_19234,
																				BgL_forwardz00_5970);
																		}
																		BgL_newzd2matchzd2_5973 = 20L;
																		if (
																			(BgL_forwardz00_5970 ==
																				BgL_bufposz00_5971))
																			{	/* Read/reader.scm 409 */
																				if (rgc_fill_buffer(
																						((obj_t) BgL_iportz00_5968)))
																					{	/* Read/reader.scm 409 */
																						long BgL_arg3957z00_5976;
																						long BgL_arg3958z00_5977;

																						{	/* Read/reader.scm 409 */
																							obj_t BgL_tmpz00_19242;

																							BgL_tmpz00_19242 =
																								((obj_t) BgL_iportz00_5968);
																							BgL_arg3957z00_5976 =
																								RGC_BUFFER_FORWARD
																								(BgL_tmpz00_19242);
																						}
																						{	/* Read/reader.scm 409 */
																							obj_t BgL_tmpz00_19245;

																							BgL_tmpz00_19245 =
																								((obj_t) BgL_iportz00_5968);
																							BgL_arg3958z00_5977 =
																								RGC_BUFFER_BUFPOS
																								(BgL_tmpz00_19245);
																						}
																						{
																							long BgL_bufposz00_19249;
																							long BgL_forwardz00_19248;

																							BgL_forwardz00_19248 =
																								BgL_arg3957z00_5976;
																							BgL_bufposz00_19249 =
																								BgL_arg3958z00_5977;
																							BgL_bufposz00_5971 =
																								BgL_bufposz00_19249;
																							BgL_forwardz00_5970 =
																								BgL_forwardz00_19248;
																							goto
																								BgL_zc3z04anonymousza33954ze3z87_5972;
																						}
																					}
																				else
																					{	/* Read/reader.scm 409 */
																						BgL_matchz00_9747 =
																							BgL_newzd2matchzd2_5973;
																					}
																			}
																		else
																			{	/* Read/reader.scm 409 */
																				int BgL_curz00_5978;

																				{	/* Read/reader.scm 409 */
																					obj_t BgL_tmpz00_19250;

																					BgL_tmpz00_19250 =
																						((obj_t) BgL_iportz00_5968);
																					BgL_curz00_5978 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_tmpz00_19250,
																						BgL_forwardz00_5970);
																				}
																				{	/* Read/reader.scm 409 */

																					if (((long) (BgL_curz00_5978) == 58L))
																						{	/* Read/reader.scm 409 */
																							BgL_iportz00_9287 =
																								BgL_iportz00_5968;
																							BgL_lastzd2matchzd2_9288 =
																								BgL_newzd2matchzd2_5973;
																							BgL_forwardz00_9289 =
																								(1L + BgL_forwardz00_5970);
																							BgL_bufposz00_9290 =
																								BgL_bufposz00_5971;
																						BgL_zc3z04anonymousza35647ze3z87_9291:
																							{	/* Read/reader.scm 409 */
																								long BgL_newzd2matchzd2_9292;

																								{	/* Read/reader.scm 409 */
																									obj_t BgL_tmpz00_19256;

																									BgL_tmpz00_19256 =
																										((obj_t) BgL_iportz00_9287);
																									RGC_STOP_MATCH
																										(BgL_tmpz00_19256,
																										BgL_forwardz00_9289);
																								}
																								BgL_newzd2matchzd2_9292 = 20L;
																								if (
																									(BgL_forwardz00_9289 ==
																										BgL_bufposz00_9290))
																									{	/* Read/reader.scm 409 */
																										if (rgc_fill_buffer(
																												((obj_t)
																													BgL_iportz00_9287)))
																											{	/* Read/reader.scm 409 */
																												long
																													BgL_arg5650z00_9295;
																												long
																													BgL_arg5651z00_9296;
																												{	/* Read/reader.scm 409 */
																													obj_t
																														BgL_tmpz00_19264;
																													BgL_tmpz00_19264 =
																														((obj_t)
																														BgL_iportz00_9287);
																													BgL_arg5650z00_9295 =
																														RGC_BUFFER_FORWARD
																														(BgL_tmpz00_19264);
																												}
																												{	/* Read/reader.scm 409 */
																													obj_t
																														BgL_tmpz00_19267;
																													BgL_tmpz00_19267 =
																														((obj_t)
																														BgL_iportz00_9287);
																													BgL_arg5651z00_9296 =
																														RGC_BUFFER_BUFPOS
																														(BgL_tmpz00_19267);
																												}
																												{
																													long
																														BgL_bufposz00_19271;
																													long
																														BgL_forwardz00_19270;
																													BgL_forwardz00_19270 =
																														BgL_arg5650z00_9295;
																													BgL_bufposz00_19271 =
																														BgL_arg5651z00_9296;
																													BgL_bufposz00_9290 =
																														BgL_bufposz00_19271;
																													BgL_forwardz00_9289 =
																														BgL_forwardz00_19270;
																													goto
																														BgL_zc3z04anonymousza35647ze3z87_9291;
																												}
																											}
																										else
																											{	/* Read/reader.scm 409 */
																												BgL_matchz00_9747 =
																													BgL_newzd2matchzd2_9292;
																											}
																									}
																								else
																									{	/* Read/reader.scm 409 */
																										int BgL_curz00_9297;

																										{	/* Read/reader.scm 409 */
																											obj_t BgL_tmpz00_19272;

																											BgL_tmpz00_19272 =
																												((obj_t)
																												BgL_iportz00_9287);
																											BgL_curz00_9297 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_tmpz00_19272,
																												BgL_forwardz00_9289);
																										}
																										{	/* Read/reader.scm 409 */

																											if (
																												((long)
																													(BgL_curz00_9297) ==
																													46L))
																												{	/* Read/reader.scm 409 */
																													BgL_iportz00_6261 =
																														BgL_iportz00_9287;
																													BgL_lastzd2matchzd2_6262
																														=
																														BgL_newzd2matchzd2_9292;
																													BgL_forwardz00_6263 =
																														(1L +
																														BgL_forwardz00_9289);
																													BgL_bufposz00_6264 =
																														BgL_bufposz00_9290;
																												BgL_zc3z04anonymousza34100ze3z87_6265:
																													{	/* Read/reader.scm 409 */
																														long
																															BgL_newzd2matchzd2_6266;
																														{	/* Read/reader.scm 409 */
																															obj_t
																																BgL_tmpz00_19278;
																															BgL_tmpz00_19278 =
																																((obj_t)
																																BgL_iportz00_6261);
																															RGC_STOP_MATCH
																																(BgL_tmpz00_19278,
																																BgL_forwardz00_6263);
																														}
																														BgL_newzd2matchzd2_6266
																															= 20L;
																														if (
																															(BgL_forwardz00_6263
																																==
																																BgL_bufposz00_6264))
																															{	/* Read/reader.scm 409 */
																																if (rgc_fill_buffer(((obj_t) BgL_iportz00_6261)))
																																	{	/* Read/reader.scm 409 */
																																		long
																																			BgL_arg4103z00_6269;
																																		long
																																			BgL_arg4104z00_6270;
																																		{	/* Read/reader.scm 409 */
																																			obj_t
																																				BgL_tmpz00_19286;
																																			BgL_tmpz00_19286
																																				=
																																				((obj_t)
																																				BgL_iportz00_6261);
																																			BgL_arg4103z00_6269
																																				=
																																				RGC_BUFFER_FORWARD
																																				(BgL_tmpz00_19286);
																																		}
																																		{	/* Read/reader.scm 409 */
																																			obj_t
																																				BgL_tmpz00_19289;
																																			BgL_tmpz00_19289
																																				=
																																				((obj_t)
																																				BgL_iportz00_6261);
																																			BgL_arg4104z00_6270
																																				=
																																				RGC_BUFFER_BUFPOS
																																				(BgL_tmpz00_19289);
																																		}
																																		{
																																			long
																																				BgL_bufposz00_19293;
																																			long
																																				BgL_forwardz00_19292;
																																			BgL_forwardz00_19292
																																				=
																																				BgL_arg4103z00_6269;
																																			BgL_bufposz00_19293
																																				=
																																				BgL_arg4104z00_6270;
																																			BgL_bufposz00_6264
																																				=
																																				BgL_bufposz00_19293;
																																			BgL_forwardz00_6263
																																				=
																																				BgL_forwardz00_19292;
																																			goto
																																				BgL_zc3z04anonymousza34100ze3z87_6265;
																																		}
																																	}
																																else
																																	{	/* Read/reader.scm 409 */
																																		BgL_matchz00_9747
																																			=
																																			BgL_newzd2matchzd2_6266;
																																	}
																															}
																														else
																															{	/* Read/reader.scm 409 */
																																int
																																	BgL_curz00_6271;
																																{	/* Read/reader.scm 409 */
																																	obj_t
																																		BgL_tmpz00_19294;
																																	BgL_tmpz00_19294
																																		=
																																		((obj_t)
																																		BgL_iportz00_6261);
																																	BgL_curz00_6271
																																		=
																																		RGC_BUFFER_GET_CHAR
																																		(BgL_tmpz00_19294,
																																		BgL_forwardz00_6263);
																																}
																																{	/* Read/reader.scm 409 */

																																	{	/* Read/reader.scm 409 */
																																		bool_t
																																			BgL_test7134z00_19297;
																																		if (((long)
																																				(BgL_curz00_6271)
																																				>= 48L))
																																			{	/* Read/reader.scm 409 */
																																				BgL_test7134z00_19297
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_6271)
																																					<
																																					58L);
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				BgL_test7134z00_19297
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																		if (BgL_test7134z00_19297)
																																			{
																																				long
																																					BgL_forwardz00_19304;
																																				long
																																					BgL_lastzd2matchzd2_19303;
																																				BgL_lastzd2matchzd2_19303
																																					=
																																					BgL_newzd2matchzd2_6266;
																																				BgL_forwardz00_19304
																																					=
																																					(1L +
																																					BgL_forwardz00_6263);
																																				BgL_forwardz00_6263
																																					=
																																					BgL_forwardz00_19304;
																																				BgL_lastzd2matchzd2_6262
																																					=
																																					BgL_lastzd2matchzd2_19303;
																																				goto
																																					BgL_zc3z04anonymousza34100ze3z87_6265;
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				if (
																																					((long) (BgL_curz00_6271) == 46L))
																																					{	/* Read/reader.scm 409 */
																																						BgL_iportz00_4759
																																							=
																																							BgL_iportz00_6261;
																																						BgL_lastzd2matchzd2_4760
																																							=
																																							BgL_newzd2matchzd2_6266;
																																						BgL_forwardz00_4761
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_6263);
																																						BgL_bufposz00_4762
																																							=
																																							BgL_bufposz00_6264;
																																					BgL_zc3z04anonymousza33331ze3z87_4763:
																																						{	/* Read/reader.scm 409 */
																																							long
																																								BgL_newzd2matchzd2_4764;
																																							{	/* Read/reader.scm 409 */
																																								obj_t
																																									BgL_tmpz00_19309;
																																								BgL_tmpz00_19309
																																									=
																																									(
																																									(obj_t)
																																									BgL_iportz00_4759);
																																								RGC_STOP_MATCH
																																									(BgL_tmpz00_19309,
																																									BgL_forwardz00_4761);
																																							}
																																							BgL_newzd2matchzd2_4764
																																								=
																																								20L;
																																							if ((BgL_forwardz00_4761 == BgL_bufposz00_4762))
																																								{	/* Read/reader.scm 409 */
																																									if (rgc_fill_buffer(((obj_t) BgL_iportz00_4759)))
																																										{	/* Read/reader.scm 409 */
																																											long
																																												BgL_arg3335z00_4767;
																																											long
																																												BgL_arg3336z00_4768;
																																											{	/* Read/reader.scm 409 */
																																												obj_t
																																													BgL_tmpz00_19317;
																																												BgL_tmpz00_19317
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_4759);
																																												BgL_arg3335z00_4767
																																													=
																																													RGC_BUFFER_FORWARD
																																													(BgL_tmpz00_19317);
																																											}
																																											{	/* Read/reader.scm 409 */
																																												obj_t
																																													BgL_tmpz00_19320;
																																												BgL_tmpz00_19320
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_4759);
																																												BgL_arg3336z00_4768
																																													=
																																													RGC_BUFFER_BUFPOS
																																													(BgL_tmpz00_19320);
																																											}
																																											{
																																												long
																																													BgL_bufposz00_19324;
																																												long
																																													BgL_forwardz00_19323;
																																												BgL_forwardz00_19323
																																													=
																																													BgL_arg3335z00_4767;
																																												BgL_bufposz00_19324
																																													=
																																													BgL_arg3336z00_4768;
																																												BgL_bufposz00_4762
																																													=
																																													BgL_bufposz00_19324;
																																												BgL_forwardz00_4761
																																													=
																																													BgL_forwardz00_19323;
																																												goto
																																													BgL_zc3z04anonymousza33331ze3z87_4763;
																																											}
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_matchz00_9747
																																												=
																																												BgL_newzd2matchzd2_4764;
																																										}
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									int
																																										BgL_curz00_4769;
																																									{	/* Read/reader.scm 409 */
																																										obj_t
																																											BgL_tmpz00_19325;
																																										BgL_tmpz00_19325
																																											=
																																											(
																																											(obj_t)
																																											BgL_iportz00_4759);
																																										BgL_curz00_4769
																																											=
																																											RGC_BUFFER_GET_CHAR
																																											(BgL_tmpz00_19325,
																																											BgL_forwardz00_4761);
																																									}
																																									{	/* Read/reader.scm 409 */

																																										{	/* Read/reader.scm 409 */
																																											bool_t
																																												BgL_test7139z00_19328;
																																											if (((long) (BgL_curz00_4769) == 39L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test7139z00_19328
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													if (((long) (BgL_curz00_4769) == 44L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test7139z00_19328
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															BgL_test7139z00_19328
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_4769)
																																																==
																																																96L);
																																												}}
																																											if (BgL_test7139z00_19328)
																																												{	/* Read/reader.scm 409 */
																																													BgL_iportz00_7362
																																														=
																																														BgL_iportz00_4759;
																																													BgL_lastzd2matchzd2_7363
																																														=
																																														BgL_newzd2matchzd2_4764;
																																													BgL_forwardz00_7364
																																														=
																																														(1L
																																														+
																																														BgL_forwardz00_4761);
																																													BgL_bufposz00_7365
																																														=
																																														BgL_bufposz00_4762;
																																												BgL_zc3z04anonymousza34670ze3z87_7366:
																																													{	/* Read/reader.scm 409 */
																																														long
																																															BgL_newzd2matchzd2_7367;
																																														{	/* Read/reader.scm 409 */
																																															obj_t
																																																BgL_tmpz00_19337;
																																															BgL_tmpz00_19337
																																																=
																																																(
																																																(obj_t)
																																																BgL_iportz00_7362);
																																															RGC_STOP_MATCH
																																																(BgL_tmpz00_19337,
																																																BgL_forwardz00_7364);
																																														}
																																														BgL_newzd2matchzd2_7367
																																															=
																																															22L;
																																														if ((BgL_forwardz00_7364 == BgL_bufposz00_7365))
																																															{	/* Read/reader.scm 409 */
																																																if (rgc_fill_buffer(((obj_t) BgL_iportz00_7362)))
																																																	{	/* Read/reader.scm 409 */
																																																		long
																																																			BgL_arg4673z00_7370;
																																																		long
																																																			BgL_arg4674z00_7371;
																																																		{	/* Read/reader.scm 409 */
																																																			obj_t
																																																				BgL_tmpz00_19345;
																																																			BgL_tmpz00_19345
																																																				=
																																																				(
																																																				(obj_t)
																																																				BgL_iportz00_7362);
																																																			BgL_arg4673z00_7370
																																																				=
																																																				RGC_BUFFER_FORWARD
																																																				(BgL_tmpz00_19345);
																																																		}
																																																		{	/* Read/reader.scm 409 */
																																																			obj_t
																																																				BgL_tmpz00_19348;
																																																			BgL_tmpz00_19348
																																																				=
																																																				(
																																																				(obj_t)
																																																				BgL_iportz00_7362);
																																																			BgL_arg4674z00_7371
																																																				=
																																																				RGC_BUFFER_BUFPOS
																																																				(BgL_tmpz00_19348);
																																																		}
																																																		{
																																																			long
																																																				BgL_bufposz00_19352;
																																																			long
																																																				BgL_forwardz00_19351;
																																																			BgL_forwardz00_19351
																																																				=
																																																				BgL_arg4673z00_7370;
																																																			BgL_bufposz00_19352
																																																				=
																																																				BgL_arg4674z00_7371;
																																																			BgL_bufposz00_7365
																																																				=
																																																				BgL_bufposz00_19352;
																																																			BgL_forwardz00_7364
																																																				=
																																																				BgL_forwardz00_19351;
																																																			goto
																																																				BgL_zc3z04anonymousza34670ze3z87_7366;
																																																		}
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_matchz00_9747
																																																			=
																																																			BgL_newzd2matchzd2_7367;
																																																	}
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																int
																																																	BgL_curz00_7372;
																																																{	/* Read/reader.scm 409 */
																																																	obj_t
																																																		BgL_tmpz00_19353;
																																																	BgL_tmpz00_19353
																																																		=
																																																		(
																																																		(obj_t)
																																																		BgL_iportz00_7362);
																																																	BgL_curz00_7372
																																																		=
																																																		RGC_BUFFER_GET_CHAR
																																																		(BgL_tmpz00_19353,
																																																		BgL_forwardz00_7364);
																																																}
																																																{	/* Read/reader.scm 409 */

																																																	{	/* Read/reader.scm 409 */
																																																		bool_t
																																																			BgL_test7144z00_19356;
																																																		if (((long) (BgL_curz00_7372) < 33L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7144z00_19356
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				bool_t
																																																					BgL_test7146z00_19360;
																																																				if (((long) (BgL_curz00_7372) == 35L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test7146z00_19360
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test7146z00_19360
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_7372)
																																																							==
																																																							34L);
																																																					}
																																																				if (BgL_test7146z00_19360)
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test7144z00_19356
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						bool_t
																																																							BgL_test7148z00_19366;
																																																						if (((long) (BgL_curz00_7372) == 41L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7148z00_19366
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7148z00_19366
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_7372)
																																																									==
																																																									40L);
																																																							}
																																																						if (BgL_test7148z00_19366)
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7144z00_19356
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								if (((long) (BgL_curz00_7372) == 59L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test7144z00_19356
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										if (((long) (BgL_curz00_7372) == 91L))
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test7144z00_19356
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												if (((long) (BgL_curz00_7372) == 93L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7144z00_19356
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														bool_t
																																																															BgL_test7153z00_19381;
																																																														if (((long) (BgL_curz00_7372) == 125L))
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test7153z00_19381
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																if (((long) (BgL_curz00_7372) == 124L))
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test7153z00_19381
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test7153z00_19381
																																																																			=
																																																																			(
																																																																			(long)
																																																																			(BgL_curz00_7372)
																																																																			==
																																																																			123L);
																																																															}}
																																																														if (BgL_test7153z00_19381)
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test7144z00_19356
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test7144z00_19356
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_7372)
																																																																	==
																																																																	127L);
																																																			}}}}}}}
																																																		if (BgL_test7144z00_19356)
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_matchz00_9747
																																																					=
																																																					BgL_newzd2matchzd2_7367;
																																																			}
																																																		else
																																																			{
																																																				long
																																																					BgL_forwardz00_19393;
																																																				long
																																																					BgL_lastzd2matchzd2_19392;
																																																				BgL_lastzd2matchzd2_19392
																																																					=
																																																					BgL_newzd2matchzd2_7367;
																																																				BgL_forwardz00_19393
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_7364);
																																																				BgL_forwardz00_7364
																																																					=
																																																					BgL_forwardz00_19393;
																																																				BgL_lastzd2matchzd2_7363
																																																					=
																																																					BgL_lastzd2matchzd2_19392;
																																																				goto
																																																					BgL_zc3z04anonymousza34670ze3z87_7366;
																																																			}
																																																	}
																																																}
																																															}
																																													}
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													bool_t
																																														BgL_test7156z00_19396;
																																													if (((long) (BgL_curz00_4769) < 33L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test7156z00_19396
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															bool_t
																																																BgL_test7158z00_19400;
																																															if (((long) (BgL_curz00_4769) == 35L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test7158z00_19400
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test7158z00_19400
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_4769)
																																																		==
																																																		34L);
																																																}
																																															if (BgL_test7158z00_19400)
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test7156z00_19396
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	bool_t
																																																		BgL_test7160z00_19406;
																																																	if (((long) (BgL_curz00_4769) == 41L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test7160z00_19406
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			if (((long) (BgL_curz00_4769) == 40L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test7160z00_19406
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test7160z00_19406
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_4769)
																																																						==
																																																						39L);
																																																		}}
																																																	if (BgL_test7160z00_19406)
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test7156z00_19396
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			if (((long) (BgL_curz00_4769) == 44L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test7156z00_19396
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					if (((long) (BgL_curz00_4769) == 59L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test7156z00_19396
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							if (((long) (BgL_curz00_4769) == 91L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test7156z00_19396
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									if (((long) (BgL_curz00_4769) == 93L))
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test7156z00_19396
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											if (((long) (BgL_curz00_4769) == 96L))
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test7156z00_19396
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													bool_t
																																																														BgL_test7168z00_19430;
																																																													if (((long) (BgL_curz00_4769) == 125L))
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test7168z00_19430
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															if (((long) (BgL_curz00_4769) == 124L))
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test7168z00_19430
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test7168z00_19430
																																																																		=
																																																																		(
																																																																		(long)
																																																																		(BgL_curz00_4769)
																																																																		==
																																																																		123L);
																																																														}}
																																																													if (BgL_test7168z00_19430)
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test7156z00_19396
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test7156z00_19396
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_4769)
																																																																==
																																																																127L);
																																														}}}}}}}}}
																																													if (BgL_test7156z00_19396)
																																														{	/* Read/reader.scm 409 */
																																															BgL_matchz00_9747
																																																=
																																																BgL_newzd2matchzd2_4764;
																																														}
																																													else
																																														{
																																															long
																																																BgL_forwardz00_19442;
																																															long
																																																BgL_lastzd2matchzd2_19441;
																																															BgL_lastzd2matchzd2_19441
																																																=
																																																BgL_newzd2matchzd2_4764;
																																															BgL_forwardz00_19442
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_4761);
																																															BgL_forwardz00_4761
																																																=
																																																BgL_forwardz00_19442;
																																															BgL_lastzd2matchzd2_4760
																																																=
																																																BgL_lastzd2matchzd2_19441;
																																															goto
																																																BgL_zc3z04anonymousza33331ze3z87_4763;
																																														}
																																												}
																																										}
																																									}
																																								}
																																						}
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						bool_t
																																							BgL_test7171z00_19445;
																																						if (
																																							((long) (BgL_curz00_6271) == 39L))
																																							{	/* Read/reader.scm 409 */
																																								BgL_test7171z00_19445
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								if (((long) (BgL_curz00_6271) == 44L))
																																									{	/* Read/reader.scm 409 */
																																										BgL_test7171z00_19445
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										BgL_test7171z00_19445
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_6271)
																																											==
																																											96L);
																																							}}
																																						if (BgL_test7171z00_19445)
																																							{
																																								long
																																									BgL_bufposz00_19458;
																																								long
																																									BgL_forwardz00_19456;
																																								long
																																									BgL_lastzd2matchzd2_19455;
																																								obj_t
																																									BgL_iportz00_19454;
																																								BgL_iportz00_19454
																																									=
																																									BgL_iportz00_6261;
																																								BgL_lastzd2matchzd2_19455
																																									=
																																									BgL_newzd2matchzd2_6266;
																																								BgL_forwardz00_19456
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_6263);
																																								BgL_bufposz00_19458
																																									=
																																									BgL_bufposz00_6264;
																																								BgL_bufposz00_7365
																																									=
																																									BgL_bufposz00_19458;
																																								BgL_forwardz00_7364
																																									=
																																									BgL_forwardz00_19456;
																																								BgL_lastzd2matchzd2_7363
																																									=
																																									BgL_lastzd2matchzd2_19455;
																																								BgL_iportz00_7362
																																									=
																																									BgL_iportz00_19454;
																																								goto
																																									BgL_zc3z04anonymousza34670ze3z87_7366;
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								bool_t
																																									BgL_test7174z00_19459;
																																								if (((long) (BgL_curz00_6271) < 33L))
																																									{	/* Read/reader.scm 409 */
																																										BgL_test7174z00_19459
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										bool_t
																																											BgL_test7176z00_19463;
																																										if (((long) (BgL_curz00_6271) == 35L))
																																											{	/* Read/reader.scm 409 */
																																												BgL_test7176z00_19463
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												BgL_test7176z00_19463
																																													=
																																													(
																																													(long)
																																													(BgL_curz00_6271)
																																													==
																																													34L);
																																											}
																																										if (BgL_test7176z00_19463)
																																											{	/* Read/reader.scm 409 */
																																												BgL_test7174z00_19459
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												bool_t
																																													BgL_test7178z00_19469;
																																												if (((long) (BgL_curz00_6271) == 41L))
																																													{	/* Read/reader.scm 409 */
																																														BgL_test7178z00_19469
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														if (((long) (BgL_curz00_6271) == 40L))
																																															{	/* Read/reader.scm 409 */
																																																BgL_test7178z00_19469
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																BgL_test7178z00_19469
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_6271)
																																																	==
																																																	39L);
																																													}}
																																												if (BgL_test7178z00_19469)
																																													{	/* Read/reader.scm 409 */
																																														BgL_test7174z00_19459
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														if (((long) (BgL_curz00_6271) == 44L))
																																															{	/* Read/reader.scm 409 */
																																																BgL_test7174z00_19459
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																if (((long) (BgL_curz00_6271) == 46L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test7174z00_19459
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		bool_t
																																																			BgL_test7183z00_19484;
																																																		if (((long) (BgL_curz00_6271) >= 48L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7183z00_19484
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_6271)
																																																					<
																																																					58L);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7183z00_19484
																																																					=
																																																					(
																																																					(bool_t)
																																																					0);
																																																			}
																																																		if (BgL_test7183z00_19484)
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7174z00_19459
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				if (((long) (BgL_curz00_6271) == 59L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test7174z00_19459
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						if (((long) (BgL_curz00_6271) == 91L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7174z00_19459
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								if (((long) (BgL_curz00_6271) == 93L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test7174z00_19459
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										if (((long) (BgL_curz00_6271) == 96L))
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test7174z00_19459
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												bool_t
																																																													BgL_test7189z00_19502;
																																																												if (((long) (BgL_curz00_6271) == 125L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7189z00_19502
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														if (((long) (BgL_curz00_6271) == 124L))
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test7189z00_19502
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test7189z00_19502
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_6271)
																																																																	==
																																																																	123L);
																																																													}}
																																																												if (BgL_test7189z00_19502)
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7174z00_19459
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7174z00_19459
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_6271)
																																																															==
																																																															127L);
																																									}}}}}}}}}}}
																																								if (BgL_test7174z00_19459)
																																									{	/* Read/reader.scm 409 */
																																										BgL_matchz00_9747
																																											=
																																											BgL_newzd2matchzd2_6266;
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										BgL_iportz00_5370
																																											=
																																											BgL_iportz00_6261;
																																										BgL_lastzd2matchzd2_5371
																																											=
																																											BgL_newzd2matchzd2_6266;
																																										BgL_forwardz00_5372
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_6263);
																																										BgL_bufposz00_5373
																																											=
																																											BgL_bufposz00_6264;
																																									BgL_zc3z04anonymousza33655ze3z87_5374:
																																										{	/* Read/reader.scm 409 */
																																											long
																																												BgL_newzd2matchzd2_5375;
																																											{	/* Read/reader.scm 409 */
																																												obj_t
																																													BgL_tmpz00_19513;
																																												BgL_tmpz00_19513
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_5370);
																																												RGC_STOP_MATCH
																																													(BgL_tmpz00_19513,
																																													BgL_forwardz00_5372);
																																											}
																																											BgL_newzd2matchzd2_5375
																																												=
																																												20L;
																																											if ((BgL_forwardz00_5372 == BgL_bufposz00_5373))
																																												{	/* Read/reader.scm 409 */
																																													if (rgc_fill_buffer(((obj_t) BgL_iportz00_5370)))
																																														{	/* Read/reader.scm 409 */
																																															long
																																																BgL_arg3658z00_5378;
																																															long
																																																BgL_arg3659z00_5379;
																																															{	/* Read/reader.scm 409 */
																																																obj_t
																																																	BgL_tmpz00_19521;
																																																BgL_tmpz00_19521
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_5370);
																																																BgL_arg3658z00_5378
																																																	=
																																																	RGC_BUFFER_FORWARD
																																																	(BgL_tmpz00_19521);
																																															}
																																															{	/* Read/reader.scm 409 */
																																																obj_t
																																																	BgL_tmpz00_19524;
																																																BgL_tmpz00_19524
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_5370);
																																																BgL_arg3659z00_5379
																																																	=
																																																	RGC_BUFFER_BUFPOS
																																																	(BgL_tmpz00_19524);
																																															}
																																															{
																																																long
																																																	BgL_bufposz00_19528;
																																																long
																																																	BgL_forwardz00_19527;
																																																BgL_forwardz00_19527
																																																	=
																																																	BgL_arg3658z00_5378;
																																																BgL_bufposz00_19528
																																																	=
																																																	BgL_arg3659z00_5379;
																																																BgL_bufposz00_5373
																																																	=
																																																	BgL_bufposz00_19528;
																																																BgL_forwardz00_5372
																																																	=
																																																	BgL_forwardz00_19527;
																																																goto
																																																	BgL_zc3z04anonymousza33655ze3z87_5374;
																																															}
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															BgL_matchz00_9747
																																																=
																																																BgL_newzd2matchzd2_5375;
																																														}
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													int
																																														BgL_curz00_5380;
																																													{	/* Read/reader.scm 409 */
																																														obj_t
																																															BgL_tmpz00_19529;
																																														BgL_tmpz00_19529
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_5370);
																																														BgL_curz00_5380
																																															=
																																															RGC_BUFFER_GET_CHAR
																																															(BgL_tmpz00_19529,
																																															BgL_forwardz00_5372);
																																													}
																																													{	/* Read/reader.scm 409 */

																																														if (((long) (BgL_curz00_5380) == 46L))
																																															{
																																																long
																																																	BgL_bufposz00_19539;
																																																long
																																																	BgL_forwardz00_19537;
																																																long
																																																	BgL_lastzd2matchzd2_19536;
																																																obj_t
																																																	BgL_iportz00_19535;
																																																BgL_iportz00_19535
																																																	=
																																																	BgL_iportz00_5370;
																																																BgL_lastzd2matchzd2_19536
																																																	=
																																																	BgL_newzd2matchzd2_5375;
																																																BgL_forwardz00_19537
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_5372);
																																																BgL_bufposz00_19539
																																																	=
																																																	BgL_bufposz00_5373;
																																																BgL_bufposz00_6264
																																																	=
																																																	BgL_bufposz00_19539;
																																																BgL_forwardz00_6263
																																																	=
																																																	BgL_forwardz00_19537;
																																																BgL_lastzd2matchzd2_6262
																																																	=
																																																	BgL_lastzd2matchzd2_19536;
																																																BgL_iportz00_6261
																																																	=
																																																	BgL_iportz00_19535;
																																																goto
																																																	BgL_zc3z04anonymousza34100ze3z87_6265;
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																bool_t
																																																	BgL_test7195z00_19540;
																																																if (((long) (BgL_curz00_5380) == 39L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test7195z00_19540
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		if (((long) (BgL_curz00_5380) == 44L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7195z00_19540
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7195z00_19540
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_5380)
																																																					==
																																																					96L);
																																																	}}
																																																if (BgL_test7195z00_19540)
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_iportz00_5791
																																																			=
																																																			BgL_iportz00_5370;
																																																		BgL_lastzd2matchzd2_5792
																																																			=
																																																			BgL_newzd2matchzd2_5375;
																																																		BgL_forwardz00_5793
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_5372);
																																																		BgL_bufposz00_5794
																																																			=
																																																			BgL_bufposz00_5373;
																																																	BgL_zc3z04anonymousza33869ze3z87_5795:
																																																		{	/* Read/reader.scm 409 */
																																																			long
																																																				BgL_newzd2matchzd2_5796;
																																																			{	/* Read/reader.scm 409 */
																																																				obj_t
																																																					BgL_tmpz00_19549;
																																																				BgL_tmpz00_19549
																																																					=
																																																					(
																																																					(obj_t)
																																																					BgL_iportz00_5791);
																																																				RGC_STOP_MATCH
																																																					(BgL_tmpz00_19549,
																																																					BgL_forwardz00_5793);
																																																			}
																																																			BgL_newzd2matchzd2_5796
																																																				=
																																																				21L;
																																																			if ((BgL_forwardz00_5793 == BgL_bufposz00_5794))
																																																				{	/* Read/reader.scm 409 */
																																																					if (rgc_fill_buffer(((obj_t) BgL_iportz00_5791)))
																																																						{	/* Read/reader.scm 409 */
																																																							long
																																																								BgL_arg3872z00_5799;
																																																							long
																																																								BgL_arg3873z00_5800;
																																																							{	/* Read/reader.scm 409 */
																																																								obj_t
																																																									BgL_tmpz00_19557;
																																																								BgL_tmpz00_19557
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_5791);
																																																								BgL_arg3872z00_5799
																																																									=
																																																									RGC_BUFFER_FORWARD
																																																									(BgL_tmpz00_19557);
																																																							}
																																																							{	/* Read/reader.scm 409 */
																																																								obj_t
																																																									BgL_tmpz00_19560;
																																																								BgL_tmpz00_19560
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_5791);
																																																								BgL_arg3873z00_5800
																																																									=
																																																									RGC_BUFFER_BUFPOS
																																																									(BgL_tmpz00_19560);
																																																							}
																																																							{
																																																								long
																																																									BgL_bufposz00_19564;
																																																								long
																																																									BgL_forwardz00_19563;
																																																								BgL_forwardz00_19563
																																																									=
																																																									BgL_arg3872z00_5799;
																																																								BgL_bufposz00_19564
																																																									=
																																																									BgL_arg3873z00_5800;
																																																								BgL_bufposz00_5794
																																																									=
																																																									BgL_bufposz00_19564;
																																																								BgL_forwardz00_5793
																																																									=
																																																									BgL_forwardz00_19563;
																																																								goto
																																																									BgL_zc3z04anonymousza33869ze3z87_5795;
																																																							}
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_matchz00_9747
																																																								=
																																																								BgL_newzd2matchzd2_5796;
																																																						}
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					int
																																																						BgL_curz00_5801;
																																																					{	/* Read/reader.scm 409 */
																																																						obj_t
																																																							BgL_tmpz00_19565;
																																																						BgL_tmpz00_19565
																																																							=
																																																							(
																																																							(obj_t)
																																																							BgL_iportz00_5791);
																																																						BgL_curz00_5801
																																																							=
																																																							RGC_BUFFER_GET_CHAR
																																																							(BgL_tmpz00_19565,
																																																							BgL_forwardz00_5793);
																																																					}
																																																					{	/* Read/reader.scm 409 */

																																																						if (((long) (BgL_curz00_5801) == 46L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_iportz00_3852
																																																									=
																																																									BgL_iportz00_5791;
																																																								BgL_lastzd2matchzd2_3853
																																																									=
																																																									BgL_newzd2matchzd2_5796;
																																																								BgL_forwardz00_3854
																																																									=
																																																									(1L
																																																									+
																																																									BgL_forwardz00_5793);
																																																								BgL_bufposz00_3855
																																																									=
																																																									BgL_bufposz00_5794;
																																																							BgL_zc3z04anonymousza32751ze3z87_3856:
																																																								{	/* Read/reader.scm 409 */
																																																									long
																																																										BgL_newzd2matchzd2_3857;
																																																									{	/* Read/reader.scm 409 */
																																																										obj_t
																																																											BgL_tmpz00_19571;
																																																										BgL_tmpz00_19571
																																																											=
																																																											(
																																																											(obj_t)
																																																											BgL_iportz00_3852);
																																																										RGC_STOP_MATCH
																																																											(BgL_tmpz00_19571,
																																																											BgL_forwardz00_3854);
																																																									}
																																																									BgL_newzd2matchzd2_3857
																																																										=
																																																										22L;
																																																									if ((BgL_forwardz00_3854 == BgL_bufposz00_3855))
																																																										{	/* Read/reader.scm 409 */
																																																											if (rgc_fill_buffer(((obj_t) BgL_iportz00_3852)))
																																																												{	/* Read/reader.scm 409 */
																																																													long
																																																														BgL_arg2754z00_3860;
																																																													long
																																																														BgL_arg2755z00_3861;
																																																													{	/* Read/reader.scm 409 */
																																																														obj_t
																																																															BgL_tmpz00_19579;
																																																														BgL_tmpz00_19579
																																																															=
																																																															(
																																																															(obj_t)
																																																															BgL_iportz00_3852);
																																																														BgL_arg2754z00_3860
																																																															=
																																																															RGC_BUFFER_FORWARD
																																																															(BgL_tmpz00_19579);
																																																													}
																																																													{	/* Read/reader.scm 409 */
																																																														obj_t
																																																															BgL_tmpz00_19582;
																																																														BgL_tmpz00_19582
																																																															=
																																																															(
																																																															(obj_t)
																																																															BgL_iportz00_3852);
																																																														BgL_arg2755z00_3861
																																																															=
																																																															RGC_BUFFER_BUFPOS
																																																															(BgL_tmpz00_19582);
																																																													}
																																																													{
																																																														long
																																																															BgL_bufposz00_19586;
																																																														long
																																																															BgL_forwardz00_19585;
																																																														BgL_forwardz00_19585
																																																															=
																																																															BgL_arg2754z00_3860;
																																																														BgL_bufposz00_19586
																																																															=
																																																															BgL_arg2755z00_3861;
																																																														BgL_bufposz00_3855
																																																															=
																																																															BgL_bufposz00_19586;
																																																														BgL_forwardz00_3854
																																																															=
																																																															BgL_forwardz00_19585;
																																																														goto
																																																															BgL_zc3z04anonymousza32751ze3z87_3856;
																																																													}
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_matchz00_9747
																																																														=
																																																														BgL_newzd2matchzd2_3857;
																																																												}
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											int
																																																												BgL_curz00_3862;
																																																											{	/* Read/reader.scm 409 */
																																																												obj_t
																																																													BgL_tmpz00_19587;
																																																												BgL_tmpz00_19587
																																																													=
																																																													(
																																																													(obj_t)
																																																													BgL_iportz00_3852);
																																																												BgL_curz00_3862
																																																													=
																																																													RGC_BUFFER_GET_CHAR
																																																													(BgL_tmpz00_19587,
																																																													BgL_forwardz00_3854);
																																																											}
																																																											{	/* Read/reader.scm 409 */

																																																												{	/* Read/reader.scm 409 */
																																																													bool_t
																																																														BgL_test7203z00_19590;
																																																													if (((long) (BgL_curz00_3862) >= 48L))
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test7203z00_19590
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_3862)
																																																																<
																																																																58L);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test7203z00_19590
																																																																=
																																																																(
																																																																(bool_t)
																																																																0);
																																																														}
																																																													if (BgL_test7203z00_19590)
																																																														{
																																																															long
																																																																BgL_forwardz00_19597;
																																																															long
																																																																BgL_lastzd2matchzd2_19596;
																																																															BgL_lastzd2matchzd2_19596
																																																																=
																																																																BgL_newzd2matchzd2_3857;
																																																															BgL_forwardz00_19597
																																																																=
																																																																(1L
																																																																+
																																																																BgL_forwardz00_3854);
																																																															BgL_forwardz00_3854
																																																																=
																																																																BgL_forwardz00_19597;
																																																															BgL_lastzd2matchzd2_3853
																																																																=
																																																																BgL_lastzd2matchzd2_19596;
																																																															goto
																																																																BgL_zc3z04anonymousza32751ze3z87_3856;
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															bool_t
																																																																BgL_test7205z00_19599;
																																																															switch
																																																																(
																																																																(long)
																																																																(BgL_curz00_3862))
																																																																{
																																																																case 39L:

																																																																	BgL_test7205z00_19599 = ((bool_t) 1);
																																																																	break;
																																																																case 44L:

																																																																	BgL_test7205z00_19599 = ((bool_t) 1);
																																																																	break;
																																																																case 46L:

																																																																	BgL_test7205z00_19599 = ((bool_t) 1);
																																																																	break;
																																																																default:
																																																																	BgL_test7205z00_19599 = ((long) (BgL_curz00_3862) == 96L);
																																																																}
																																																															if (BgL_test7205z00_19599)
																																																																{
																																																																	long
																																																																		BgL_bufposz00_19608;
																																																																	long
																																																																		BgL_forwardz00_19606;
																																																																	long
																																																																		BgL_lastzd2matchzd2_19605;
																																																																	obj_t
																																																																		BgL_iportz00_19604;
																																																																	BgL_iportz00_19604
																																																																		=
																																																																		BgL_iportz00_3852;
																																																																	BgL_lastzd2matchzd2_19605
																																																																		=
																																																																		BgL_newzd2matchzd2_3857;
																																																																	BgL_forwardz00_19606
																																																																		=
																																																																		(1L
																																																																		+
																																																																		BgL_forwardz00_3854);
																																																																	BgL_bufposz00_19608
																																																																		=
																																																																		BgL_bufposz00_3855;
																																																																	BgL_bufposz00_7365
																																																																		=
																																																																		BgL_bufposz00_19608;
																																																																	BgL_forwardz00_7364
																																																																		=
																																																																		BgL_forwardz00_19606;
																																																																	BgL_lastzd2matchzd2_7363
																																																																		=
																																																																		BgL_lastzd2matchzd2_19605;
																																																																	BgL_iportz00_7362
																																																																		=
																																																																		BgL_iportz00_19604;
																																																																	goto
																																																																		BgL_zc3z04anonymousza34670ze3z87_7366;
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	bool_t
																																																																		BgL_test7206z00_19609;
																																																																	if (((long) (BgL_curz00_3862) < 33L))
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test7206z00_19609
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 409 */
																																																																			bool_t
																																																																				BgL_test7208z00_19613;
																																																																			if (((long) (BgL_curz00_3862) == 35L))
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test7208z00_19613
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test7208z00_19613
																																																																						=
																																																																						(
																																																																						(long)
																																																																						(BgL_curz00_3862)
																																																																						==
																																																																						34L);
																																																																				}
																																																																			if (BgL_test7208z00_19613)
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test7206z00_19609
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 409 */
																																																																					bool_t
																																																																						BgL_test7210z00_19619;
																																																																					if (((long) (BgL_curz00_3862) == 41L))
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test7210z00_19619
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 409 */
																																																																							if (((long) (BgL_curz00_3862) == 40L))
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test7210z00_19619
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test7210z00_19619
																																																																										=
																																																																										(
																																																																										(long)
																																																																										(BgL_curz00_3862)
																																																																										==
																																																																										39L);
																																																																						}}
																																																																					if (BgL_test7210z00_19619)
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test7206z00_19609
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 409 */
																																																																							if (((long) (BgL_curz00_3862) == 44L))
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test7206z00_19609
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 409 */
																																																																									if (((long) (BgL_curz00_3862) == 46L))
																																																																										{	/* Read/reader.scm 409 */
																																																																											BgL_test7206z00_19609
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 409 */
																																																																											bool_t
																																																																												BgL_test7215z00_19634;
																																																																											if (((long) (BgL_curz00_3862) >= 48L))
																																																																												{	/* Read/reader.scm 409 */
																																																																													BgL_test7215z00_19634
																																																																														=
																																																																														(
																																																																														(long)
																																																																														(BgL_curz00_3862)
																																																																														<
																																																																														58L);
																																																																												}
																																																																											else
																																																																												{	/* Read/reader.scm 409 */
																																																																													BgL_test7215z00_19634
																																																																														=
																																																																														(
																																																																														(bool_t)
																																																																														0);
																																																																												}
																																																																											if (BgL_test7215z00_19634)
																																																																												{	/* Read/reader.scm 409 */
																																																																													BgL_test7206z00_19609
																																																																														=
																																																																														(
																																																																														(bool_t)
																																																																														1);
																																																																												}
																																																																											else
																																																																												{	/* Read/reader.scm 409 */
																																																																													if (((long) (BgL_curz00_3862) == 59L))
																																																																														{	/* Read/reader.scm 409 */
																																																																															BgL_test7206z00_19609
																																																																																=
																																																																																(
																																																																																(bool_t)
																																																																																1);
																																																																														}
																																																																													else
																																																																														{	/* Read/reader.scm 409 */
																																																																															if (((long) (BgL_curz00_3862) == 91L))
																																																																																{	/* Read/reader.scm 409 */
																																																																																	BgL_test7206z00_19609
																																																																																		=
																																																																																		(
																																																																																		(bool_t)
																																																																																		1);
																																																																																}
																																																																															else
																																																																																{	/* Read/reader.scm 409 */
																																																																																	if (((long) (BgL_curz00_3862) == 93L))
																																																																																		{	/* Read/reader.scm 409 */
																																																																																			BgL_test7206z00_19609
																																																																																				=
																																																																																				(
																																																																																				(bool_t)
																																																																																				1);
																																																																																		}
																																																																																	else
																																																																																		{	/* Read/reader.scm 409 */
																																																																																			if (((long) (BgL_curz00_3862) == 96L))
																																																																																				{	/* Read/reader.scm 409 */
																																																																																					BgL_test7206z00_19609
																																																																																						=
																																																																																						(
																																																																																						(bool_t)
																																																																																						1);
																																																																																				}
																																																																																			else
																																																																																				{	/* Read/reader.scm 409 */
																																																																																					bool_t
																																																																																						BgL_test7221z00_19652;
																																																																																					if (((long) (BgL_curz00_3862) == 125L))
																																																																																						{	/* Read/reader.scm 409 */
																																																																																							BgL_test7221z00_19652
																																																																																								=
																																																																																								(
																																																																																								(bool_t)
																																																																																								1);
																																																																																						}
																																																																																					else
																																																																																						{	/* Read/reader.scm 409 */
																																																																																							if (((long) (BgL_curz00_3862) == 124L))
																																																																																								{	/* Read/reader.scm 409 */
																																																																																									BgL_test7221z00_19652
																																																																																										=
																																																																																										(
																																																																																										(bool_t)
																																																																																										1);
																																																																																								}
																																																																																							else
																																																																																								{	/* Read/reader.scm 409 */
																																																																																									BgL_test7221z00_19652
																																																																																										=
																																																																																										(
																																																																																										(long)
																																																																																										(BgL_curz00_3862)
																																																																																										==
																																																																																										123L);
																																																																																						}}
																																																																																					if (BgL_test7221z00_19652)
																																																																																						{	/* Read/reader.scm 409 */
																																																																																							BgL_test7206z00_19609
																																																																																								=
																																																																																								(
																																																																																								(bool_t)
																																																																																								1);
																																																																																						}
																																																																																					else
																																																																																						{	/* Read/reader.scm 409 */
																																																																																							BgL_test7206z00_19609
																																																																																								=
																																																																																								(
																																																																																								(long)
																																																																																								(BgL_curz00_3862)
																																																																																								==
																																																																																								127L);
																																																																		}}}}}}}}}}}
																																																																	if (BgL_test7206z00_19609)
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_matchz00_9747
																																																																				=
																																																																				BgL_newzd2matchzd2_3857;
																																																																		}
																																																																	else
																																																																		{
																																																																			long
																																																																				BgL_bufposz00_19667;
																																																																			long
																																																																				BgL_forwardz00_19665;
																																																																			long
																																																																				BgL_lastzd2matchzd2_19664;
																																																																			obj_t
																																																																				BgL_iportz00_19663;
																																																																			BgL_iportz00_19663
																																																																				=
																																																																				BgL_iportz00_3852;
																																																																			BgL_lastzd2matchzd2_19664
																																																																				=
																																																																				BgL_newzd2matchzd2_3857;
																																																																			BgL_forwardz00_19665
																																																																				=
																																																																				(1L
																																																																				+
																																																																				BgL_forwardz00_3854);
																																																																			BgL_bufposz00_19667
																																																																				=
																																																																				BgL_bufposz00_3855;
																																																																			BgL_bufposz00_5794
																																																																				=
																																																																				BgL_bufposz00_19667;
																																																																			BgL_forwardz00_5793
																																																																				=
																																																																				BgL_forwardz00_19665;
																																																																			BgL_lastzd2matchzd2_5792
																																																																				=
																																																																				BgL_lastzd2matchzd2_19664;
																																																																			BgL_iportz00_5791
																																																																				=
																																																																				BgL_iportz00_19663;
																																																																			goto
																																																																				BgL_zc3z04anonymousza33869ze3z87_5795;
																																																																		}
																																																																}
																																																														}
																																																												}
																																																											}
																																																										}
																																																								}
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								bool_t
																																																									BgL_test7224z00_19669;
																																																								if (((long) (BgL_curz00_5801) < 33L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test7224z00_19669
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										bool_t
																																																											BgL_test7226z00_19673;
																																																										if (((long) (BgL_curz00_5801) == 35L))
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test7226z00_19673
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test7226z00_19673
																																																													=
																																																													(
																																																													(long)
																																																													(BgL_curz00_5801)
																																																													==
																																																													34L);
																																																											}
																																																										if (BgL_test7226z00_19673)
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test7224z00_19669
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												bool_t
																																																													BgL_test7228z00_19679;
																																																												if (((long) (BgL_curz00_5801) == 41L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7228z00_19679
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7228z00_19679
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_5801)
																																																															==
																																																															40L);
																																																													}
																																																												if (BgL_test7228z00_19679)
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7224z00_19669
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														if (((long) (BgL_curz00_5801) == 46L))
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test7224z00_19669
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																if (((long) (BgL_curz00_5801) == 59L))
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test7224z00_19669
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		if (((long) (BgL_curz00_5801) == 91L))
																																																																			{	/* Read/reader.scm 409 */
																																																																				BgL_test7224z00_19669
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 409 */
																																																																				if (((long) (BgL_curz00_5801) == 93L))
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test7224z00_19669
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 409 */
																																																																						bool_t
																																																																							BgL_test7234z00_19697;
																																																																						if (((long) (BgL_curz00_5801) == 125L))
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test7234z00_19697
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 409 */
																																																																								if (((long) (BgL_curz00_5801) == 124L))
																																																																									{	/* Read/reader.scm 409 */
																																																																										BgL_test7234z00_19697
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 409 */
																																																																										BgL_test7234z00_19697
																																																																											=
																																																																											(
																																																																											(long)
																																																																											(BgL_curz00_5801)
																																																																											==
																																																																											123L);
																																																																							}}
																																																																						if (BgL_test7234z00_19697)
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test7224z00_19669
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test7224z00_19669
																																																																									=
																																																																									(
																																																																									(long)
																																																																									(BgL_curz00_5801)
																																																																									==
																																																																									127L);
																																																									}}}}}}}}
																																																								if (BgL_test7224z00_19669)
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_matchz00_9747
																																																											=
																																																											BgL_newzd2matchzd2_5796;
																																																									}
																																																								else
																																																									{
																																																										long
																																																											BgL_forwardz00_19709;
																																																										long
																																																											BgL_lastzd2matchzd2_19708;
																																																										BgL_lastzd2matchzd2_19708
																																																											=
																																																											BgL_newzd2matchzd2_5796;
																																																										BgL_forwardz00_19709
																																																											=
																																																											(1L
																																																											+
																																																											BgL_forwardz00_5793);
																																																										BgL_forwardz00_5793
																																																											=
																																																											BgL_forwardz00_19709;
																																																										BgL_lastzd2matchzd2_5792
																																																											=
																																																											BgL_lastzd2matchzd2_19708;
																																																										goto
																																																											BgL_zc3z04anonymousza33869ze3z87_5795;
																																																									}
																																																							}
																																																					}
																																																				}
																																																		}
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		bool_t
																																																			BgL_test7237z00_19712;
																																																		if (((long) (BgL_curz00_5380) < 33L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7237z00_19712
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				bool_t
																																																					BgL_test7239z00_19716;
																																																				if (((long) (BgL_curz00_5380) == 35L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test7239z00_19716
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test7239z00_19716
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_5380)
																																																							==
																																																							34L);
																																																					}
																																																				if (BgL_test7239z00_19716)
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test7237z00_19712
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						bool_t
																																																							BgL_test7241z00_19722;
																																																						if (((long) (BgL_curz00_5380) == 41L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7241z00_19722
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								if (((long) (BgL_curz00_5380) == 40L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test7241z00_19722
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test7241z00_19722
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_5380)
																																																											==
																																																											39L);
																																																							}}
																																																						if (BgL_test7241z00_19722)
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7237z00_19712
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								if (((long) (BgL_curz00_5380) == 44L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test7237z00_19712
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										if (((long) (BgL_curz00_5380) == 46L))
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test7237z00_19712
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												if (((long) (BgL_curz00_5380) == 59L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7237z00_19712
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														if (((long) (BgL_curz00_5380) == 91L))
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test7237z00_19712
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																if (((long) (BgL_curz00_5380) == 93L))
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test7237z00_19712
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		if (((long) (BgL_curz00_5380) == 96L))
																																																																			{	/* Read/reader.scm 409 */
																																																																				BgL_test7237z00_19712
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 409 */
																																																																				bool_t
																																																																					BgL_test7250z00_19749;
																																																																				if (((long) (BgL_curz00_5380) == 125L))
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test7250z00_19749
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 409 */
																																																																						if (((long) (BgL_curz00_5380) == 124L))
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test7250z00_19749
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test7250z00_19749
																																																																									=
																																																																									(
																																																																									(long)
																																																																									(BgL_curz00_5380)
																																																																									==
																																																																									123L);
																																																																					}}
																																																																				if (BgL_test7250z00_19749)
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test7237z00_19712
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test7237z00_19712
																																																																							=
																																																																							(
																																																																							(long)
																																																																							(BgL_curz00_5380)
																																																																							==
																																																																							127L);
																																																			}}}}}}}}}}
																																																		if (BgL_test7237z00_19712)
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_matchz00_9747
																																																					=
																																																					BgL_newzd2matchzd2_5375;
																																																			}
																																																		else
																																																			{
																																																				long
																																																					BgL_forwardz00_19761;
																																																				long
																																																					BgL_lastzd2matchzd2_19760;
																																																				BgL_lastzd2matchzd2_19760
																																																					=
																																																					BgL_newzd2matchzd2_5375;
																																																				BgL_forwardz00_19761
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_5372);
																																																				BgL_forwardz00_5372
																																																					=
																																																					BgL_forwardz00_19761;
																																																				BgL_lastzd2matchzd2_5371
																																																					=
																																																					BgL_lastzd2matchzd2_19760;
																																																				goto
																																																					BgL_zc3z04anonymousza33655ze3z87_5374;
																																																			}
																																																	}
																																															}
																																													}
																																												}
																																										}
																																									}
																																							}
																																					}
																																			}
																																	}
																																}
																															}
																													}
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													bool_t
																														BgL_test7253z00_19765;
																													if (((long)
																															(BgL_curz00_9297)
																															== 39L))
																														{	/* Read/reader.scm 409 */
																															BgL_test7253z00_19765
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															if (
																																((long)
																																	(BgL_curz00_9297)
																																	== 44L))
																																{	/* Read/reader.scm 409 */
																																	BgL_test7253z00_19765
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	BgL_test7253z00_19765
																																		=
																																		((long)
																																		(BgL_curz00_9297)
																																		== 96L);
																														}}
																													if (BgL_test7253z00_19765)
																														{	/* Read/reader.scm 409 */
																															BgL_iportz00_7547
																																=
																																BgL_iportz00_9287;
																															BgL_lastzd2matchzd2_7548
																																=
																																BgL_newzd2matchzd2_9292;
																															BgL_forwardz00_7549
																																=
																																(1L +
																																BgL_forwardz00_9289);
																															BgL_bufposz00_7550
																																=
																																BgL_bufposz00_9290;
																														BgL_zc3z04anonymousza34766ze3z87_7551:
																															{	/* Read/reader.scm 409 */
																																long
																																	BgL_newzd2matchzd2_7552;
																																{	/* Read/reader.scm 409 */
																																	obj_t
																																		BgL_tmpz00_19774;
																																	BgL_tmpz00_19774
																																		=
																																		((obj_t)
																																		BgL_iportz00_7547);
																																	RGC_STOP_MATCH
																																		(BgL_tmpz00_19774,
																																		BgL_forwardz00_7549);
																																}
																																BgL_newzd2matchzd2_7552
																																	= 21L;
																																if (
																																	(BgL_forwardz00_7549
																																		==
																																		BgL_bufposz00_7550))
																																	{	/* Read/reader.scm 409 */
																																		if (rgc_fill_buffer(((obj_t) BgL_iportz00_7547)))
																																			{	/* Read/reader.scm 409 */
																																				long
																																					BgL_arg4769z00_7555;
																																				long
																																					BgL_arg4770z00_7556;
																																				{	/* Read/reader.scm 409 */
																																					obj_t
																																						BgL_tmpz00_19782;
																																					BgL_tmpz00_19782
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_7547);
																																					BgL_arg4769z00_7555
																																						=
																																						RGC_BUFFER_FORWARD
																																						(BgL_tmpz00_19782);
																																				}
																																				{	/* Read/reader.scm 409 */
																																					obj_t
																																						BgL_tmpz00_19785;
																																					BgL_tmpz00_19785
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_7547);
																																					BgL_arg4770z00_7556
																																						=
																																						RGC_BUFFER_BUFPOS
																																						(BgL_tmpz00_19785);
																																				}
																																				{
																																					long
																																						BgL_bufposz00_19789;
																																					long
																																						BgL_forwardz00_19788;
																																					BgL_forwardz00_19788
																																						=
																																						BgL_arg4769z00_7555;
																																					BgL_bufposz00_19789
																																						=
																																						BgL_arg4770z00_7556;
																																					BgL_bufposz00_7550
																																						=
																																						BgL_bufposz00_19789;
																																					BgL_forwardz00_7549
																																						=
																																						BgL_forwardz00_19788;
																																					goto
																																						BgL_zc3z04anonymousza34766ze3z87_7551;
																																				}
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				BgL_matchz00_9747
																																					=
																																					BgL_newzd2matchzd2_7552;
																																			}
																																	}
																																else
																																	{	/* Read/reader.scm 409 */
																																		int
																																			BgL_curz00_7557;
																																		{	/* Read/reader.scm 409 */
																																			obj_t
																																				BgL_tmpz00_19790;
																																			BgL_tmpz00_19790
																																				=
																																				((obj_t)
																																				BgL_iportz00_7547);
																																			BgL_curz00_7557
																																				=
																																				RGC_BUFFER_GET_CHAR
																																				(BgL_tmpz00_19790,
																																				BgL_forwardz00_7549);
																																		}
																																		{	/* Read/reader.scm 409 */

																																			if (
																																				((long)
																																					(BgL_curz00_7557)
																																					==
																																					46L))
																																				{
																																					long
																																						BgL_bufposz00_19800;
																																					long
																																						BgL_forwardz00_19798;
																																					long
																																						BgL_lastzd2matchzd2_19797;
																																					obj_t
																																						BgL_iportz00_19796;
																																					BgL_iportz00_19796
																																						=
																																						BgL_iportz00_7547;
																																					BgL_lastzd2matchzd2_19797
																																						=
																																						BgL_newzd2matchzd2_7552;
																																					BgL_forwardz00_19798
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_7549);
																																					BgL_bufposz00_19800
																																						=
																																						BgL_bufposz00_7550;
																																					BgL_bufposz00_3855
																																						=
																																						BgL_bufposz00_19800;
																																					BgL_forwardz00_3854
																																						=
																																						BgL_forwardz00_19798;
																																					BgL_lastzd2matchzd2_3853
																																						=
																																						BgL_lastzd2matchzd2_19797;
																																					BgL_iportz00_3852
																																						=
																																						BgL_iportz00_19796;
																																					goto
																																						BgL_zc3z04anonymousza32751ze3z87_3856;
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					bool_t
																																						BgL_test7259z00_19801;
																																					if ((
																																							(long)
																																							(BgL_curz00_7557)
																																							<
																																							33L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test7259z00_19801
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							bool_t
																																								BgL_test7261z00_19805;
																																							if (((long) (BgL_curz00_7557) == 35L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test7261z00_19805
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									BgL_test7261z00_19805
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_7557)
																																										==
																																										34L);
																																								}
																																							if (BgL_test7261z00_19805)
																																								{	/* Read/reader.scm 409 */
																																									BgL_test7259z00_19801
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									bool_t
																																										BgL_test7263z00_19811;
																																									if (((long) (BgL_curz00_7557) == 41L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test7263z00_19811
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_test7263z00_19811
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_7557)
																																												==
																																												40L);
																																										}
																																									if (BgL_test7263z00_19811)
																																										{	/* Read/reader.scm 409 */
																																											BgL_test7259z00_19801
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											if (((long) (BgL_curz00_7557) == 46L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test7259z00_19801
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													if (((long) (BgL_curz00_7557) == 59L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test7259z00_19801
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_7557) == 91L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test7259z00_19801
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	if (((long) (BgL_curz00_7557) == 93L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test7259z00_19801
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			bool_t
																																																				BgL_test7269z00_19829;
																																																			if (((long) (BgL_curz00_7557) == 125L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test7269z00_19829
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					if (((long) (BgL_curz00_7557) == 124L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test7269z00_19829
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test7269z00_19829
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_7557)
																																																								==
																																																								123L);
																																																				}}
																																																			if (BgL_test7269z00_19829)
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test7259z00_19801
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test7259z00_19801
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_7557)
																																																						==
																																																						127L);
																																						}}}}}}}}
																																					if (BgL_test7259z00_19801)
																																						{	/* Read/reader.scm 409 */
																																							BgL_matchz00_9747
																																								=
																																								BgL_newzd2matchzd2_7552;
																																						}
																																					else
																																						{
																																							long
																																								BgL_forwardz00_19841;
																																							long
																																								BgL_lastzd2matchzd2_19840;
																																							BgL_lastzd2matchzd2_19840
																																								=
																																								BgL_newzd2matchzd2_7552;
																																							BgL_forwardz00_19841
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_7549);
																																							BgL_forwardz00_7549
																																								=
																																								BgL_forwardz00_19841;
																																							BgL_lastzd2matchzd2_7548
																																								=
																																								BgL_lastzd2matchzd2_19840;
																																							goto
																																								BgL_zc3z04anonymousza34766ze3z87_7551;
																																						}
																																				}
																																		}
																																	}
																															}
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															bool_t
																																BgL_test7272z00_19844;
																															if (((long)
																																	(BgL_curz00_9297)
																																	< 33L))
																																{	/* Read/reader.scm 409 */
																																	BgL_test7272z00_19844
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	bool_t
																																		BgL_test7274z00_19848;
																																	if (((long)
																																			(BgL_curz00_9297)
																																			== 35L))
																																		{	/* Read/reader.scm 409 */
																																			BgL_test7274z00_19848
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			BgL_test7274z00_19848
																																				=
																																				((long)
																																				(BgL_curz00_9297)
																																				== 34L);
																																		}
																																	if (BgL_test7274z00_19848)
																																		{	/* Read/reader.scm 409 */
																																			BgL_test7272z00_19844
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			bool_t
																																				BgL_test7276z00_19854;
																																			if ((
																																					(long)
																																					(BgL_curz00_9297)
																																					==
																																					41L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test7276z00_19854
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					if (
																																						((long) (BgL_curz00_9297) == 40L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test7276z00_19854
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							BgL_test7276z00_19854
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_9297)
																																								==
																																								39L);
																																				}}
																																			if (BgL_test7276z00_19854)
																																				{	/* Read/reader.scm 409 */
																																					BgL_test7272z00_19844
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					if (
																																						((long) (BgL_curz00_9297) == 44L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test7272z00_19844
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							if (((long) (BgL_curz00_9297) == 46L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test7272z00_19844
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_9297) == 59L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test7272z00_19844
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											if (((long) (BgL_curz00_9297) == 91L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test7272z00_19844
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													if (((long) (BgL_curz00_9297) == 93L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test7272z00_19844
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_9297) == 96L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test7272z00_19844
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	bool_t
																																																		BgL_test7285z00_19881;
																																																	if (((long) (BgL_curz00_9297) == 125L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test7285z00_19881
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			if (((long) (BgL_curz00_9297) == 124L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test7285z00_19881
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test7285z00_19881
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_9297)
																																																						==
																																																						123L);
																																																		}}
																																																	if (BgL_test7285z00_19881)
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test7272z00_19844
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test7272z00_19844
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_9297)
																																																				==
																																																				127L);
																																}}}}}}}}}}
																															if (BgL_test7272z00_19844)
																																{	/* Read/reader.scm 409 */
																																	BgL_matchz00_9747
																																		=
																																		BgL_newzd2matchzd2_9292;
																																}
																															else
																																{
																																	long
																																		BgL_forwardz00_19893;
																																	long
																																		BgL_lastzd2matchzd2_19892;
																																	BgL_lastzd2matchzd2_19892
																																		=
																																		BgL_newzd2matchzd2_9292;
																																	BgL_forwardz00_19893
																																		=
																																		(1L +
																																		BgL_forwardz00_9289);
																																	BgL_forwardz00_9289
																																		=
																																		BgL_forwardz00_19893;
																																	BgL_lastzd2matchzd2_9288
																																		=
																																		BgL_lastzd2matchzd2_19892;
																																	goto
																																		BgL_zc3z04anonymousza35647ze3z87_9291;
																																}
																														}
																												}
																										}
																									}
																							}
																						}
																					else
																						{	/* Read/reader.scm 409 */
																							bool_t BgL_test7288z00_19896;

																							if (
																								((long) (BgL_curz00_5978) >=
																									48L))
																								{	/* Read/reader.scm 409 */
																									BgL_test7288z00_19896 =
																										(
																										(long) (BgL_curz00_5978) <
																										58L);
																								}
																							else
																								{	/* Read/reader.scm 409 */
																									BgL_test7288z00_19896 =
																										((bool_t) 0);
																								}
																							if (BgL_test7288z00_19896)
																								{
																									long BgL_forwardz00_19903;
																									long
																										BgL_lastzd2matchzd2_19902;
																									BgL_lastzd2matchzd2_19902 =
																										BgL_newzd2matchzd2_5973;
																									BgL_forwardz00_19903 =
																										(1L + BgL_forwardz00_5970);
																									BgL_forwardz00_5970 =
																										BgL_forwardz00_19903;
																									BgL_lastzd2matchzd2_5969 =
																										BgL_lastzd2matchzd2_19902;
																									goto
																										BgL_zc3z04anonymousza33954ze3z87_5972;
																								}
																							else
																								{	/* Read/reader.scm 409 */
																									if (
																										((long) (BgL_curz00_5978) ==
																											46L))
																										{	/* Read/reader.scm 409 */
																											BgL_iportz00_5834 =
																												BgL_iportz00_5968;
																											BgL_lastzd2matchzd2_5835 =
																												BgL_newzd2matchzd2_5973;
																											BgL_forwardz00_5836 =
																												(1L +
																												BgL_forwardz00_5970);
																											BgL_bufposz00_5837 =
																												BgL_bufposz00_5971;
																										BgL_zc3z04anonymousza33890ze3z87_5838:
																											{	/* Read/reader.scm 409 */
																												long
																													BgL_newzd2matchzd2_5839;
																												{	/* Read/reader.scm 409 */
																													obj_t
																														BgL_tmpz00_19908;
																													BgL_tmpz00_19908 =
																														((obj_t)
																														BgL_iportz00_5834);
																													RGC_STOP_MATCH
																														(BgL_tmpz00_19908,
																														BgL_forwardz00_5836);
																												}
																												BgL_newzd2matchzd2_5839
																													= 20L;
																												if ((BgL_forwardz00_5836
																														==
																														BgL_bufposz00_5837))
																													{	/* Read/reader.scm 409 */
																														if (rgc_fill_buffer(
																																((obj_t)
																																	BgL_iportz00_5834)))
																															{	/* Read/reader.scm 409 */
																																long
																																	BgL_arg3893z00_5842;
																																long
																																	BgL_arg3894z00_5843;
																																{	/* Read/reader.scm 409 */
																																	obj_t
																																		BgL_tmpz00_19916;
																																	BgL_tmpz00_19916
																																		=
																																		((obj_t)
																																		BgL_iportz00_5834);
																																	BgL_arg3893z00_5842
																																		=
																																		RGC_BUFFER_FORWARD
																																		(BgL_tmpz00_19916);
																																}
																																{	/* Read/reader.scm 409 */
																																	obj_t
																																		BgL_tmpz00_19919;
																																	BgL_tmpz00_19919
																																		=
																																		((obj_t)
																																		BgL_iportz00_5834);
																																	BgL_arg3894z00_5843
																																		=
																																		RGC_BUFFER_BUFPOS
																																		(BgL_tmpz00_19919);
																																}
																																{
																																	long
																																		BgL_bufposz00_19923;
																																	long
																																		BgL_forwardz00_19922;
																																	BgL_forwardz00_19922
																																		=
																																		BgL_arg3893z00_5842;
																																	BgL_bufposz00_19923
																																		=
																																		BgL_arg3894z00_5843;
																																	BgL_bufposz00_5837
																																		=
																																		BgL_bufposz00_19923;
																																	BgL_forwardz00_5836
																																		=
																																		BgL_forwardz00_19922;
																																	goto
																																		BgL_zc3z04anonymousza33890ze3z87_5838;
																																}
																															}
																														else
																															{	/* Read/reader.scm 409 */
																																BgL_matchz00_9747
																																	=
																																	BgL_newzd2matchzd2_5839;
																															}
																													}
																												else
																													{	/* Read/reader.scm 409 */
																														int BgL_curz00_5844;

																														{	/* Read/reader.scm 409 */
																															obj_t
																																BgL_tmpz00_19924;
																															BgL_tmpz00_19924 =
																																((obj_t)
																																BgL_iportz00_5834);
																															BgL_curz00_5844 =
																																RGC_BUFFER_GET_CHAR
																																(BgL_tmpz00_19924,
																																BgL_forwardz00_5836);
																														}
																														{	/* Read/reader.scm 409 */

																															if (
																																((long)
																																	(BgL_curz00_5844)
																																	== 58L))
																																{
																																	long
																																		BgL_bufposz00_19934;
																																	long
																																		BgL_forwardz00_19932;
																																	long
																																		BgL_lastzd2matchzd2_19931;
																																	obj_t
																																		BgL_iportz00_19930;
																																	BgL_iportz00_19930
																																		=
																																		BgL_iportz00_5834;
																																	BgL_lastzd2matchzd2_19931
																																		=
																																		BgL_newzd2matchzd2_5839;
																																	BgL_forwardz00_19932
																																		=
																																		(1L +
																																		BgL_forwardz00_5836);
																																	BgL_bufposz00_19934
																																		=
																																		BgL_bufposz00_5837;
																																	BgL_bufposz00_4762
																																		=
																																		BgL_bufposz00_19934;
																																	BgL_forwardz00_4761
																																		=
																																		BgL_forwardz00_19932;
																																	BgL_lastzd2matchzd2_4760
																																		=
																																		BgL_lastzd2matchzd2_19931;
																																	BgL_iportz00_4759
																																		=
																																		BgL_iportz00_19930;
																																	goto
																																		BgL_zc3z04anonymousza33331ze3z87_4763;
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	bool_t
																																		BgL_test7294z00_19935;
																																	if (((long)
																																			(BgL_curz00_5844)
																																			== 39L))
																																		{	/* Read/reader.scm 409 */
																																			BgL_test7294z00_19935
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			if (
																																				((long)
																																					(BgL_curz00_5844)
																																					==
																																					44L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test7294z00_19935
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					BgL_test7294z00_19935
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_5844)
																																						==
																																						96L);
																																		}}
																																	if (BgL_test7294z00_19935)
																																		{
																																			long
																																				BgL_bufposz00_19948;
																																			long
																																				BgL_forwardz00_19946;
																																			long
																																				BgL_lastzd2matchzd2_19945;
																																			obj_t
																																				BgL_iportz00_19944;
																																			BgL_iportz00_19944
																																				=
																																				BgL_iportz00_5834;
																																			BgL_lastzd2matchzd2_19945
																																				=
																																				BgL_newzd2matchzd2_5839;
																																			BgL_forwardz00_19946
																																				=
																																				(1L +
																																				BgL_forwardz00_5836);
																																			BgL_bufposz00_19948
																																				=
																																				BgL_bufposz00_5837;
																																			BgL_bufposz00_7365
																																				=
																																				BgL_bufposz00_19948;
																																			BgL_forwardz00_7364
																																				=
																																				BgL_forwardz00_19946;
																																			BgL_lastzd2matchzd2_7363
																																				=
																																				BgL_lastzd2matchzd2_19945;
																																			BgL_iportz00_7362
																																				=
																																				BgL_iportz00_19944;
																																			goto
																																				BgL_zc3z04anonymousza34670ze3z87_7366;
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			bool_t
																																				BgL_test7297z00_19949;
																																			if ((
																																					(long)
																																					(BgL_curz00_5844)
																																					<
																																					33L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test7297z00_19949
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					bool_t
																																						BgL_test7299z00_19953;
																																					if ((
																																							(long)
																																							(BgL_curz00_5844)
																																							==
																																							35L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test7299z00_19953
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							BgL_test7299z00_19953
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_5844)
																																								==
																																								34L);
																																						}
																																					if (BgL_test7299z00_19953)
																																						{	/* Read/reader.scm 409 */
																																							BgL_test7297z00_19949
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							bool_t
																																								BgL_test7301z00_19959;
																																							if (((long) (BgL_curz00_5844) == 41L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test7301z00_19959
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_5844) == 40L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test7301z00_19959
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_test7301z00_19959
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_5844)
																																												==
																																												39L);
																																								}}
																																							if (BgL_test7301z00_19959)
																																								{	/* Read/reader.scm 409 */
																																									BgL_test7297z00_19949
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_5844) == 44L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test7297z00_19949
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											bool_t
																																												BgL_test7305z00_19971;
																																											if (((long) (BgL_curz00_5844) == 59L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test7305z00_19971
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													BgL_test7305z00_19971
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_5844)
																																														==
																																														58L);
																																												}
																																											if (BgL_test7305z00_19971)
																																												{	/* Read/reader.scm 409 */
																																													BgL_test7297z00_19949
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													if (((long) (BgL_curz00_5844) == 91L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test7297z00_19949
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_5844) == 93L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test7297z00_19949
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	if (((long) (BgL_curz00_5844) == 96L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test7297z00_19949
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			bool_t
																																																				BgL_test7310z00_19986;
																																																			if (((long) (BgL_curz00_5844) == 125L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test7310z00_19986
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					if (((long) (BgL_curz00_5844) == 124L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test7310z00_19986
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test7310z00_19986
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_5844)
																																																								==
																																																								123L);
																																																				}}
																																																			if (BgL_test7310z00_19986)
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test7297z00_19949
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test7297z00_19949
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_5844)
																																																						==
																																																						127L);
																																				}}}}}}}}}
																																			if (BgL_test7297z00_19949)
																																				{	/* Read/reader.scm 409 */
																																					BgL_matchz00_9747
																																						=
																																						BgL_newzd2matchzd2_5839;
																																				}
																																			else
																																				{
																																					long
																																						BgL_forwardz00_19998;
																																					long
																																						BgL_lastzd2matchzd2_19997;
																																					BgL_lastzd2matchzd2_19997
																																						=
																																						BgL_newzd2matchzd2_5839;
																																					BgL_forwardz00_19998
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_5836);
																																					BgL_forwardz00_5836
																																						=
																																						BgL_forwardz00_19998;
																																					BgL_lastzd2matchzd2_5835
																																						=
																																						BgL_lastzd2matchzd2_19997;
																																					goto
																																						BgL_zc3z04anonymousza33890ze3z87_5838;
																																				}
																																		}
																																}
																														}
																													}
																											}
																										}
																									else
																										{	/* Read/reader.scm 409 */
																											bool_t
																												BgL_test7313z00_20001;
																											if (((long)
																													(BgL_curz00_5978) ==
																													39L))
																												{	/* Read/reader.scm 409 */
																													BgL_test7313z00_20001
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													if (
																														((long)
																															(BgL_curz00_5978)
																															== 44L))
																														{	/* Read/reader.scm 409 */
																															BgL_test7313z00_20001
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															BgL_test7313z00_20001
																																=
																																((long)
																																(BgL_curz00_5978)
																																== 96L);
																												}}
																											if (BgL_test7313z00_20001)
																												{
																													long
																														BgL_bufposz00_20014;
																													long
																														BgL_forwardz00_20012;
																													long
																														BgL_lastzd2matchzd2_20011;
																													obj_t
																														BgL_iportz00_20010;
																													BgL_iportz00_20010 =
																														BgL_iportz00_5968;
																													BgL_lastzd2matchzd2_20011
																														=
																														BgL_newzd2matchzd2_5973;
																													BgL_forwardz00_20012 =
																														(1L +
																														BgL_forwardz00_5970);
																													BgL_bufposz00_20014 =
																														BgL_bufposz00_5971;
																													BgL_bufposz00_7365 =
																														BgL_bufposz00_20014;
																													BgL_forwardz00_7364 =
																														BgL_forwardz00_20012;
																													BgL_lastzd2matchzd2_7363
																														=
																														BgL_lastzd2matchzd2_20011;
																													BgL_iportz00_7362 =
																														BgL_iportz00_20010;
																													goto
																														BgL_zc3z04anonymousza34670ze3z87_7366;
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													bool_t
																														BgL_test7316z00_20015;
																													if (((long)
																															(BgL_curz00_5978)
																															< 33L))
																														{	/* Read/reader.scm 409 */
																															BgL_test7316z00_20015
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															bool_t
																																BgL_test7318z00_20019;
																															if (((long)
																																	(BgL_curz00_5978)
																																	== 35L))
																																{	/* Read/reader.scm 409 */
																																	BgL_test7318z00_20019
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	BgL_test7318z00_20019
																																		=
																																		((long)
																																		(BgL_curz00_5978)
																																		== 34L);
																																}
																															if (BgL_test7318z00_20019)
																																{	/* Read/reader.scm 409 */
																																	BgL_test7316z00_20015
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	bool_t
																																		BgL_test7320z00_20025;
																																	if (((long)
																																			(BgL_curz00_5978)
																																			== 41L))
																																		{	/* Read/reader.scm 409 */
																																			BgL_test7320z00_20025
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			if (
																																				((long)
																																					(BgL_curz00_5978)
																																					==
																																					40L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test7320z00_20025
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					BgL_test7320z00_20025
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_5978)
																																						==
																																						39L);
																																		}}
																																	if (BgL_test7320z00_20025)
																																		{	/* Read/reader.scm 409 */
																																			BgL_test7316z00_20015
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			if (
																																				((long)
																																					(BgL_curz00_5978)
																																					==
																																					44L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test7316z00_20015
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					if (
																																						((long) (BgL_curz00_5978) == 46L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test7316z00_20015
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							bool_t
																																								BgL_test7325z00_20040;
																																							if (((long) (BgL_curz00_5978) >= 48L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test7325z00_20040
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_5978)
																																										<
																																										60L);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									BgL_test7325z00_20040
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																							if (BgL_test7325z00_20040)
																																								{	/* Read/reader.scm 409 */
																																									BgL_test7316z00_20015
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_5978) == 91L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test7316z00_20015
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											if (((long) (BgL_curz00_5978) == 93L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test7316z00_20015
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													if (((long) (BgL_curz00_5978) == 96L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test7316z00_20015
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															bool_t
																																																BgL_test7330z00_20055;
																																															if (((long) (BgL_curz00_5978) == 125L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test7330z00_20055
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	if (((long) (BgL_curz00_5978) == 124L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test7330z00_20055
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test7330z00_20055
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_5978)
																																																				==
																																																				123L);
																																																}}
																																															if (BgL_test7330z00_20055)
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test7316z00_20015
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test7316z00_20015
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_5978)
																																																		==
																																																		127L);
																														}}}}}}}}}}
																													if (BgL_test7316z00_20015)
																														{	/* Read/reader.scm 409 */
																															BgL_matchz00_9747
																																=
																																BgL_newzd2matchzd2_5973;
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															BgL_iportz00_9141
																																=
																																BgL_iportz00_5968;
																															BgL_lastzd2matchzd2_9142
																																=
																																BgL_newzd2matchzd2_5973;
																															BgL_forwardz00_9143
																																=
																																(1L +
																																BgL_forwardz00_5970);
																															BgL_bufposz00_9144
																																=
																																BgL_bufposz00_5971;
																														BgL_zc3z04anonymousza35573ze3z87_9145:
																															{	/* Read/reader.scm 409 */
																																long
																																	BgL_newzd2matchzd2_9146;
																																{	/* Read/reader.scm 409 */
																																	obj_t
																																		BgL_tmpz00_20066;
																																	BgL_tmpz00_20066
																																		=
																																		((obj_t)
																																		BgL_iportz00_9141);
																																	RGC_STOP_MATCH
																																		(BgL_tmpz00_20066,
																																		BgL_forwardz00_9143);
																																}
																																BgL_newzd2matchzd2_9146
																																	= 20L;
																																if (
																																	(BgL_forwardz00_9143
																																		==
																																		BgL_bufposz00_9144))
																																	{	/* Read/reader.scm 409 */
																																		if (rgc_fill_buffer(((obj_t) BgL_iportz00_9141)))
																																			{	/* Read/reader.scm 409 */
																																				long
																																					BgL_arg5576z00_9149;
																																				long
																																					BgL_arg5577z00_9150;
																																				{	/* Read/reader.scm 409 */
																																					obj_t
																																						BgL_tmpz00_20074;
																																					BgL_tmpz00_20074
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_9141);
																																					BgL_arg5576z00_9149
																																						=
																																						RGC_BUFFER_FORWARD
																																						(BgL_tmpz00_20074);
																																				}
																																				{	/* Read/reader.scm 409 */
																																					obj_t
																																						BgL_tmpz00_20077;
																																					BgL_tmpz00_20077
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_9141);
																																					BgL_arg5577z00_9150
																																						=
																																						RGC_BUFFER_BUFPOS
																																						(BgL_tmpz00_20077);
																																				}
																																				{
																																					long
																																						BgL_bufposz00_20081;
																																					long
																																						BgL_forwardz00_20080;
																																					BgL_forwardz00_20080
																																						=
																																						BgL_arg5576z00_9149;
																																					BgL_bufposz00_20081
																																						=
																																						BgL_arg5577z00_9150;
																																					BgL_bufposz00_9144
																																						=
																																						BgL_bufposz00_20081;
																																					BgL_forwardz00_9143
																																						=
																																						BgL_forwardz00_20080;
																																					goto
																																						BgL_zc3z04anonymousza35573ze3z87_9145;
																																				}
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				BgL_matchz00_9747
																																					=
																																					BgL_newzd2matchzd2_9146;
																																			}
																																	}
																																else
																																	{	/* Read/reader.scm 409 */
																																		int
																																			BgL_curz00_9151;
																																		{	/* Read/reader.scm 409 */
																																			obj_t
																																				BgL_tmpz00_20082;
																																			BgL_tmpz00_20082
																																				=
																																				((obj_t)
																																				BgL_iportz00_9141);
																																			BgL_curz00_9151
																																				=
																																				RGC_BUFFER_GET_CHAR
																																				(BgL_tmpz00_20082,
																																				BgL_forwardz00_9143);
																																		}
																																		{	/* Read/reader.scm 409 */

																																			if (
																																				((long)
																																					(BgL_curz00_9151)
																																					==
																																					58L))
																																				{
																																					long
																																						BgL_bufposz00_20092;
																																					long
																																						BgL_forwardz00_20090;
																																					long
																																						BgL_lastzd2matchzd2_20089;
																																					obj_t
																																						BgL_iportz00_20088;
																																					BgL_iportz00_20088
																																						=
																																						BgL_iportz00_9141;
																																					BgL_lastzd2matchzd2_20089
																																						=
																																						BgL_newzd2matchzd2_9146;
																																					BgL_forwardz00_20090
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_9143);
																																					BgL_bufposz00_20092
																																						=
																																						BgL_bufposz00_9144;
																																					BgL_bufposz00_9290
																																						=
																																						BgL_bufposz00_20092;
																																					BgL_forwardz00_9289
																																						=
																																						BgL_forwardz00_20090;
																																					BgL_lastzd2matchzd2_9288
																																						=
																																						BgL_lastzd2matchzd2_20089;
																																					BgL_iportz00_9287
																																						=
																																						BgL_iportz00_20088;
																																					goto
																																						BgL_zc3z04anonymousza35647ze3z87_9291;
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					if (
																																						((long) (BgL_curz00_9151) == 46L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_iportz00_7988
																																								=
																																								BgL_iportz00_9141;
																																							BgL_lastzd2matchzd2_7989
																																								=
																																								BgL_newzd2matchzd2_9146;
																																							BgL_forwardz00_7990
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_9143);
																																							BgL_bufposz00_7991
																																								=
																																								BgL_bufposz00_9144;
																																						BgL_zc3z04anonymousza34985ze3z87_7992:
																																							{	/* Read/reader.scm 409 */
																																								long
																																									BgL_newzd2matchzd2_7993;
																																								{	/* Read/reader.scm 409 */
																																									obj_t
																																										BgL_tmpz00_20096;
																																									BgL_tmpz00_20096
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_7988);
																																									RGC_STOP_MATCH
																																										(BgL_tmpz00_20096,
																																										BgL_forwardz00_7990);
																																								}
																																								BgL_newzd2matchzd2_7993
																																									=
																																									20L;
																																								if ((BgL_forwardz00_7990 == BgL_bufposz00_7991))
																																									{	/* Read/reader.scm 409 */
																																										if (rgc_fill_buffer(((obj_t) BgL_iportz00_7988)))
																																											{	/* Read/reader.scm 409 */
																																												long
																																													BgL_arg4988z00_7996;
																																												long
																																													BgL_arg4989z00_7997;
																																												{	/* Read/reader.scm 409 */
																																													obj_t
																																														BgL_tmpz00_20104;
																																													BgL_tmpz00_20104
																																														=
																																														(
																																														(obj_t)
																																														BgL_iportz00_7988);
																																													BgL_arg4988z00_7996
																																														=
																																														RGC_BUFFER_FORWARD
																																														(BgL_tmpz00_20104);
																																												}
																																												{	/* Read/reader.scm 409 */
																																													obj_t
																																														BgL_tmpz00_20107;
																																													BgL_tmpz00_20107
																																														=
																																														(
																																														(obj_t)
																																														BgL_iportz00_7988);
																																													BgL_arg4989z00_7997
																																														=
																																														RGC_BUFFER_BUFPOS
																																														(BgL_tmpz00_20107);
																																												}
																																												{
																																													long
																																														BgL_bufposz00_20111;
																																													long
																																														BgL_forwardz00_20110;
																																													BgL_forwardz00_20110
																																														=
																																														BgL_arg4988z00_7996;
																																													BgL_bufposz00_20111
																																														=
																																														BgL_arg4989z00_7997;
																																													BgL_bufposz00_7991
																																														=
																																														BgL_bufposz00_20111;
																																													BgL_forwardz00_7990
																																														=
																																														BgL_forwardz00_20110;
																																													goto
																																														BgL_zc3z04anonymousza34985ze3z87_7992;
																																												}
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												BgL_matchz00_9747
																																													=
																																													BgL_newzd2matchzd2_7993;
																																											}
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										int
																																											BgL_curz00_7998;
																																										{	/* Read/reader.scm 409 */
																																											obj_t
																																												BgL_tmpz00_20112;
																																											BgL_tmpz00_20112
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_7988);
																																											BgL_curz00_7998
																																												=
																																												RGC_BUFFER_GET_CHAR
																																												(BgL_tmpz00_20112,
																																												BgL_forwardz00_7990);
																																										}
																																										{	/* Read/reader.scm 409 */

																																											if (((long) (BgL_curz00_7998) == 58L))
																																												{
																																													long
																																														BgL_bufposz00_20122;
																																													long
																																														BgL_forwardz00_20120;
																																													long
																																														BgL_lastzd2matchzd2_20119;
																																													obj_t
																																														BgL_iportz00_20118;
																																													BgL_iportz00_20118
																																														=
																																														BgL_iportz00_7988;
																																													BgL_lastzd2matchzd2_20119
																																														=
																																														BgL_newzd2matchzd2_7993;
																																													BgL_forwardz00_20120
																																														=
																																														(1L
																																														+
																																														BgL_forwardz00_7990);
																																													BgL_bufposz00_20122
																																														=
																																														BgL_bufposz00_7991;
																																													BgL_bufposz00_5373
																																														=
																																														BgL_bufposz00_20122;
																																													BgL_forwardz00_5372
																																														=
																																														BgL_forwardz00_20120;
																																													BgL_lastzd2matchzd2_5371
																																														=
																																														BgL_lastzd2matchzd2_20119;
																																													BgL_iportz00_5370
																																														=
																																														BgL_iportz00_20118;
																																													goto
																																														BgL_zc3z04anonymousza33655ze3z87_5374;
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													bool_t
																																														BgL_test7340z00_20123;
																																													if (((long) (BgL_curz00_7998) >= 48L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test7340z00_20123
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_7998)
																																																<
																																																58L);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															BgL_test7340z00_20123
																																																=
																																																(
																																																(bool_t)
																																																0);
																																														}
																																													if (BgL_test7340z00_20123)
																																														{
																																															long
																																																BgL_forwardz00_20130;
																																															long
																																																BgL_lastzd2matchzd2_20129;
																																															BgL_lastzd2matchzd2_20129
																																																=
																																																BgL_newzd2matchzd2_7993;
																																															BgL_forwardz00_20130
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_7990);
																																															BgL_forwardz00_7990
																																																=
																																																BgL_forwardz00_20130;
																																															BgL_lastzd2matchzd2_7989
																																																=
																																																BgL_lastzd2matchzd2_20129;
																																															goto
																																																BgL_zc3z04anonymousza34985ze3z87_7992;
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_7998) == 46L))
																																																{
																																																	long
																																																		BgL_bufposz00_20139;
																																																	long
																																																		BgL_forwardz00_20137;
																																																	long
																																																		BgL_lastzd2matchzd2_20136;
																																																	obj_t
																																																		BgL_iportz00_20135;
																																																	BgL_iportz00_20135
																																																		=
																																																		BgL_iportz00_7988;
																																																	BgL_lastzd2matchzd2_20136
																																																		=
																																																		BgL_newzd2matchzd2_7993;
																																																	BgL_forwardz00_20137
																																																		=
																																																		(1L
																																																		+
																																																		BgL_forwardz00_7990);
																																																	BgL_bufposz00_20139
																																																		=
																																																		BgL_bufposz00_7991;
																																																	BgL_bufposz00_5837
																																																		=
																																																		BgL_bufposz00_20139;
																																																	BgL_forwardz00_5836
																																																		=
																																																		BgL_forwardz00_20137;
																																																	BgL_lastzd2matchzd2_5835
																																																		=
																																																		BgL_lastzd2matchzd2_20136;
																																																	BgL_iportz00_5834
																																																		=
																																																		BgL_iportz00_20135;
																																																	goto
																																																		BgL_zc3z04anonymousza33890ze3z87_5838;
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	bool_t
																																																		BgL_test7343z00_20140;
																																																	if (((long) (BgL_curz00_7998) == 39L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test7343z00_20140
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			if (((long) (BgL_curz00_7998) == 44L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test7343z00_20140
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test7343z00_20140
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_7998)
																																																						==
																																																						96L);
																																																		}}
																																																	if (BgL_test7343z00_20140)
																																																		{
																																																			long
																																																				BgL_bufposz00_20153;
																																																			long
																																																				BgL_forwardz00_20151;
																																																			long
																																																				BgL_lastzd2matchzd2_20150;
																																																			obj_t
																																																				BgL_iportz00_20149;
																																																			BgL_iportz00_20149
																																																				=
																																																				BgL_iportz00_7988;
																																																			BgL_lastzd2matchzd2_20150
																																																				=
																																																				BgL_newzd2matchzd2_7993;
																																																			BgL_forwardz00_20151
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_7990);
																																																			BgL_bufposz00_20153
																																																				=
																																																				BgL_bufposz00_7991;
																																																			BgL_bufposz00_7365
																																																				=
																																																				BgL_bufposz00_20153;
																																																			BgL_forwardz00_7364
																																																				=
																																																				BgL_forwardz00_20151;
																																																			BgL_lastzd2matchzd2_7363
																																																				=
																																																				BgL_lastzd2matchzd2_20150;
																																																			BgL_iportz00_7362
																																																				=
																																																				BgL_iportz00_20149;
																																																			goto
																																																				BgL_zc3z04anonymousza34670ze3z87_7366;
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			bool_t
																																																				BgL_test7346z00_20154;
																																																			if (((long) (BgL_curz00_7998) < 33L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test7346z00_20154
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					bool_t
																																																						BgL_test7348z00_20158;
																																																					if (((long) (BgL_curz00_7998) == 35L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test7348z00_20158
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test7348z00_20158
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_7998)
																																																								==
																																																								34L);
																																																						}
																																																					if (BgL_test7348z00_20158)
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test7346z00_20154
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							bool_t
																																																								BgL_test7350z00_20164;
																																																							if (((long) (BgL_curz00_7998) == 41L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test7350z00_20164
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									if (((long) (BgL_curz00_7998) == 40L))
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test7350z00_20164
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test7350z00_20164
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_7998)
																																																												==
																																																												39L);
																																																								}}
																																																							if (BgL_test7350z00_20164)
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test7346z00_20154
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									if (((long) (BgL_curz00_7998) == 44L))
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test7346z00_20154
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											if (((long) (BgL_curz00_7998) == 46L))
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test7346z00_20154
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													bool_t
																																																														BgL_test7355z00_20179;
																																																													if (((long) (BgL_curz00_7998) >= 48L))
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test7355z00_20179
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_7998)
																																																																<
																																																																60L);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test7355z00_20179
																																																																=
																																																																(
																																																																(bool_t)
																																																																0);
																																																														}
																																																													if (BgL_test7355z00_20179)
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test7346z00_20154
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															if (((long) (BgL_curz00_7998) == 91L))
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test7346z00_20154
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	if (((long) (BgL_curz00_7998) == 93L))
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test7346z00_20154
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 409 */
																																																																			if (((long) (BgL_curz00_7998) == 96L))
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test7346z00_20154
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 409 */
																																																																					bool_t
																																																																						BgL_test7360z00_20194;
																																																																					if (((long) (BgL_curz00_7998) == 125L))
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test7360z00_20194
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 409 */
																																																																							if (((long) (BgL_curz00_7998) == 124L))
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test7360z00_20194
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test7360z00_20194
																																																																										=
																																																																										(
																																																																										(long)
																																																																										(BgL_curz00_7998)
																																																																										==
																																																																										123L);
																																																																						}}
																																																																					if (BgL_test7360z00_20194)
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test7346z00_20154
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test7346z00_20154
																																																																								=
																																																																								(
																																																																								(long)
																																																																								(BgL_curz00_7998)
																																																																								==
																																																																								127L);
																																																				}}}}}}}}}}
																																																			if (BgL_test7346z00_20154)
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_matchz00_9747
																																																						=
																																																						BgL_newzd2matchzd2_7993;
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_iportz00_7240
																																																						=
																																																						BgL_iportz00_7988;
																																																					BgL_lastzd2matchzd2_7241
																																																						=
																																																						BgL_newzd2matchzd2_7993;
																																																					BgL_forwardz00_7242
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_7990);
																																																					BgL_bufposz00_7243
																																																						=
																																																						BgL_bufposz00_7991;
																																																				BgL_zc3z04anonymousza34608ze3z87_7244:
																																																					{	/* Read/reader.scm 409 */
																																																						long
																																																							BgL_newzd2matchzd2_7245;
																																																						{	/* Read/reader.scm 409 */
																																																							obj_t
																																																								BgL_tmpz00_20205;
																																																							BgL_tmpz00_20205
																																																								=
																																																								(
																																																								(obj_t)
																																																								BgL_iportz00_7240);
																																																							RGC_STOP_MATCH
																																																								(BgL_tmpz00_20205,
																																																								BgL_forwardz00_7242);
																																																						}
																																																						BgL_newzd2matchzd2_7245
																																																							=
																																																							20L;
																																																						if ((BgL_forwardz00_7242 == BgL_bufposz00_7243))
																																																							{	/* Read/reader.scm 409 */
																																																								if (rgc_fill_buffer(((obj_t) BgL_iportz00_7240)))
																																																									{	/* Read/reader.scm 409 */
																																																										long
																																																											BgL_arg4611z00_7248;
																																																										long
																																																											BgL_arg4612z00_7249;
																																																										{	/* Read/reader.scm 409 */
																																																											obj_t
																																																												BgL_tmpz00_20213;
																																																											BgL_tmpz00_20213
																																																												=
																																																												(
																																																												(obj_t)
																																																												BgL_iportz00_7240);
																																																											BgL_arg4611z00_7248
																																																												=
																																																												RGC_BUFFER_FORWARD
																																																												(BgL_tmpz00_20213);
																																																										}
																																																										{	/* Read/reader.scm 409 */
																																																											obj_t
																																																												BgL_tmpz00_20216;
																																																											BgL_tmpz00_20216
																																																												=
																																																												(
																																																												(obj_t)
																																																												BgL_iportz00_7240);
																																																											BgL_arg4612z00_7249
																																																												=
																																																												RGC_BUFFER_BUFPOS
																																																												(BgL_tmpz00_20216);
																																																										}
																																																										{
																																																											long
																																																												BgL_bufposz00_20220;
																																																											long
																																																												BgL_forwardz00_20219;
																																																											BgL_forwardz00_20219
																																																												=
																																																												BgL_arg4611z00_7248;
																																																											BgL_bufposz00_20220
																																																												=
																																																												BgL_arg4612z00_7249;
																																																											BgL_bufposz00_7243
																																																												=
																																																												BgL_bufposz00_20220;
																																																											BgL_forwardz00_7242
																																																												=
																																																												BgL_forwardz00_20219;
																																																											goto
																																																												BgL_zc3z04anonymousza34608ze3z87_7244;
																																																										}
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_matchz00_9747
																																																											=
																																																											BgL_newzd2matchzd2_7245;
																																																									}
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								int
																																																									BgL_curz00_7250;
																																																								{	/* Read/reader.scm 409 */
																																																									obj_t
																																																										BgL_tmpz00_20221;
																																																									BgL_tmpz00_20221
																																																										=
																																																										(
																																																										(obj_t)
																																																										BgL_iportz00_7240);
																																																									BgL_curz00_7250
																																																										=
																																																										RGC_BUFFER_GET_CHAR
																																																										(BgL_tmpz00_20221,
																																																										BgL_forwardz00_7242);
																																																								}
																																																								{	/* Read/reader.scm 409 */

																																																									if (((long) (BgL_curz00_7250) == 58L))
																																																										{
																																																											long
																																																												BgL_bufposz00_20231;
																																																											long
																																																												BgL_forwardz00_20229;
																																																											long
																																																												BgL_lastzd2matchzd2_20228;
																																																											obj_t
																																																												BgL_iportz00_20227;
																																																											BgL_iportz00_20227
																																																												=
																																																												BgL_iportz00_7240;
																																																											BgL_lastzd2matchzd2_20228
																																																												=
																																																												BgL_newzd2matchzd2_7245;
																																																											BgL_forwardz00_20229
																																																												=
																																																												(1L
																																																												+
																																																												BgL_forwardz00_7242);
																																																											BgL_bufposz00_20231
																																																												=
																																																												BgL_bufposz00_7243;
																																																											BgL_bufposz00_5373
																																																												=
																																																												BgL_bufposz00_20231;
																																																											BgL_forwardz00_5372
																																																												=
																																																												BgL_forwardz00_20229;
																																																											BgL_lastzd2matchzd2_5371
																																																												=
																																																												BgL_lastzd2matchzd2_20228;
																																																											BgL_iportz00_5370
																																																												=
																																																												BgL_iportz00_20227;
																																																											goto
																																																												BgL_zc3z04anonymousza33655ze3z87_5374;
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											if (((long) (BgL_curz00_7250) == 46L))
																																																												{
																																																													long
																																																														BgL_bufposz00_20239;
																																																													long
																																																														BgL_forwardz00_20237;
																																																													long
																																																														BgL_lastzd2matchzd2_20236;
																																																													obj_t
																																																														BgL_iportz00_20235;
																																																													BgL_iportz00_20235
																																																														=
																																																														BgL_iportz00_7240;
																																																													BgL_lastzd2matchzd2_20236
																																																														=
																																																														BgL_newzd2matchzd2_7245;
																																																													BgL_forwardz00_20237
																																																														=
																																																														(1L
																																																														+
																																																														BgL_forwardz00_7242);
																																																													BgL_bufposz00_20239
																																																														=
																																																														BgL_bufposz00_7243;
																																																													BgL_bufposz00_7991
																																																														=
																																																														BgL_bufposz00_20239;
																																																													BgL_forwardz00_7990
																																																														=
																																																														BgL_forwardz00_20237;
																																																													BgL_lastzd2matchzd2_7989
																																																														=
																																																														BgL_lastzd2matchzd2_20236;
																																																													BgL_iportz00_7988
																																																														=
																																																														BgL_iportz00_20235;
																																																													goto
																																																														BgL_zc3z04anonymousza34985ze3z87_7992;
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													bool_t
																																																														BgL_test7367z00_20240;
																																																													if (((long) (BgL_curz00_7250) == 39L))
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test7367z00_20240
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															if (((long) (BgL_curz00_7250) == 44L))
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test7367z00_20240
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test7367z00_20240
																																																																		=
																																																																		(
																																																																		(long)
																																																																		(BgL_curz00_7250)
																																																																		==
																																																																		96L);
																																																														}}
																																																													if (BgL_test7367z00_20240)
																																																														{
																																																															long
																																																																BgL_bufposz00_20253;
																																																															long
																																																																BgL_forwardz00_20251;
																																																															long
																																																																BgL_lastzd2matchzd2_20250;
																																																															obj_t
																																																																BgL_iportz00_20249;
																																																															BgL_iportz00_20249
																																																																=
																																																																BgL_iportz00_7240;
																																																															BgL_lastzd2matchzd2_20250
																																																																=
																																																																BgL_newzd2matchzd2_7245;
																																																															BgL_forwardz00_20251
																																																																=
																																																																(1L
																																																																+
																																																																BgL_forwardz00_7242);
																																																															BgL_bufposz00_20253
																																																																=
																																																																BgL_bufposz00_7243;
																																																															BgL_bufposz00_5794
																																																																=
																																																																BgL_bufposz00_20253;
																																																															BgL_forwardz00_5793
																																																																=
																																																																BgL_forwardz00_20251;
																																																															BgL_lastzd2matchzd2_5792
																																																																=
																																																																BgL_lastzd2matchzd2_20250;
																																																															BgL_iportz00_5791
																																																																=
																																																																BgL_iportz00_20249;
																																																															goto
																																																																BgL_zc3z04anonymousza33869ze3z87_5795;
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															bool_t
																																																																BgL_test7370z00_20254;
																																																															if (((long) (BgL_curz00_7250) < 33L))
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test7370z00_20254
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	bool_t
																																																																		BgL_test7372z00_20258;
																																																																	if (((long) (BgL_curz00_7250) == 35L))
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test7372z00_20258
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test7372z00_20258
																																																																				=
																																																																				(
																																																																				(long)
																																																																				(BgL_curz00_7250)
																																																																				==
																																																																				34L);
																																																																		}
																																																																	if (BgL_test7372z00_20258)
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test7370z00_20254
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 409 */
																																																																			bool_t
																																																																				BgL_test7374z00_20264;
																																																																			if (((long) (BgL_curz00_7250) == 41L))
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test7374z00_20264
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 409 */
																																																																					if (((long) (BgL_curz00_7250) == 40L))
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test7374z00_20264
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test7374z00_20264
																																																																								=
																																																																								(
																																																																								(long)
																																																																								(BgL_curz00_7250)
																																																																								==
																																																																								39L);
																																																																				}}
																																																																			if (BgL_test7374z00_20264)
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test7370z00_20254
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 409 */
																																																																					if (((long) (BgL_curz00_7250) == 44L))
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test7370z00_20254
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 409 */
																																																																							if (((long) (BgL_curz00_7250) == 46L))
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test7370z00_20254
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 409 */
																																																																									bool_t
																																																																										BgL_test7379z00_20279;
																																																																									if (((long) (BgL_curz00_7250) == 59L))
																																																																										{	/* Read/reader.scm 409 */
																																																																											BgL_test7379z00_20279
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 409 */
																																																																											BgL_test7379z00_20279
																																																																												=
																																																																												(
																																																																												(long)
																																																																												(BgL_curz00_7250)
																																																																												==
																																																																												58L);
																																																																										}
																																																																									if (BgL_test7379z00_20279)
																																																																										{	/* Read/reader.scm 409 */
																																																																											BgL_test7370z00_20254
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 409 */
																																																																											if (((long) (BgL_curz00_7250) == 91L))
																																																																												{	/* Read/reader.scm 409 */
																																																																													BgL_test7370z00_20254
																																																																														=
																																																																														(
																																																																														(bool_t)
																																																																														1);
																																																																												}
																																																																											else
																																																																												{	/* Read/reader.scm 409 */
																																																																													if (((long) (BgL_curz00_7250) == 93L))
																																																																														{	/* Read/reader.scm 409 */
																																																																															BgL_test7370z00_20254
																																																																																=
																																																																																(
																																																																																(bool_t)
																																																																																1);
																																																																														}
																																																																													else
																																																																														{	/* Read/reader.scm 409 */
																																																																															if (((long) (BgL_curz00_7250) == 96L))
																																																																																{	/* Read/reader.scm 409 */
																																																																																	BgL_test7370z00_20254
																																																																																		=
																																																																																		(
																																																																																		(bool_t)
																																																																																		1);
																																																																																}
																																																																															else
																																																																																{	/* Read/reader.scm 409 */
																																																																																	bool_t
																																																																																		BgL_test7384z00_20294;
																																																																																	if (((long) (BgL_curz00_7250) == 125L))
																																																																																		{	/* Read/reader.scm 409 */
																																																																																			BgL_test7384z00_20294
																																																																																				=
																																																																																				(
																																																																																				(bool_t)
																																																																																				1);
																																																																																		}
																																																																																	else
																																																																																		{	/* Read/reader.scm 409 */
																																																																																			if (((long) (BgL_curz00_7250) == 124L))
																																																																																				{	/* Read/reader.scm 409 */
																																																																																					BgL_test7384z00_20294
																																																																																						=
																																																																																						(
																																																																																						(bool_t)
																																																																																						1);
																																																																																				}
																																																																																			else
																																																																																				{	/* Read/reader.scm 409 */
																																																																																					BgL_test7384z00_20294
																																																																																						=
																																																																																						(
																																																																																						(long)
																																																																																						(BgL_curz00_7250)
																																																																																						==
																																																																																						123L);
																																																																																		}}
																																																																																	if (BgL_test7384z00_20294)
																																																																																		{	/* Read/reader.scm 409 */
																																																																																			BgL_test7370z00_20254
																																																																																				=
																																																																																				(
																																																																																				(bool_t)
																																																																																				1);
																																																																																		}
																																																																																	else
																																																																																		{	/* Read/reader.scm 409 */
																																																																																			BgL_test7370z00_20254
																																																																																				=
																																																																																				(
																																																																																				(long)
																																																																																				(BgL_curz00_7250)
																																																																																				==
																																																																																				127L);
																																																																}}}}}}}}}}
																																																															if (BgL_test7370z00_20254)
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_matchz00_9747
																																																																		=
																																																																		BgL_newzd2matchzd2_7245;
																																																																}
																																																															else
																																																																{
																																																																	long
																																																																		BgL_forwardz00_20306;
																																																																	long
																																																																		BgL_lastzd2matchzd2_20305;
																																																																	BgL_lastzd2matchzd2_20305
																																																																		=
																																																																		BgL_newzd2matchzd2_7245;
																																																																	BgL_forwardz00_20306
																																																																		=
																																																																		(1L
																																																																		+
																																																																		BgL_forwardz00_7242);
																																																																	BgL_forwardz00_7242
																																																																		=
																																																																		BgL_forwardz00_20306;
																																																																	BgL_lastzd2matchzd2_7241
																																																																		=
																																																																		BgL_lastzd2matchzd2_20305;
																																																																	goto
																																																																		BgL_zc3z04anonymousza34608ze3z87_7244;
																																																																}
																																																														}
																																																												}
																																																										}
																																																								}
																																																							}
																																																					}
																																																				}
																																																		}
																																																}
																																														}
																																												}
																																										}
																																									}
																																							}
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							bool_t
																																								BgL_test7387z00_20310;
																																							if (((long) (BgL_curz00_9151) == 39L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test7387z00_20310
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_9151) == 44L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test7387z00_20310
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_test7387z00_20310
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_9151)
																																												==
																																												96L);
																																								}}
																																							if (BgL_test7387z00_20310)
																																								{
																																									long
																																										BgL_bufposz00_20323;
																																									long
																																										BgL_forwardz00_20321;
																																									long
																																										BgL_lastzd2matchzd2_20320;
																																									obj_t
																																										BgL_iportz00_20319;
																																									BgL_iportz00_20319
																																										=
																																										BgL_iportz00_9141;
																																									BgL_lastzd2matchzd2_20320
																																										=
																																										BgL_newzd2matchzd2_9146;
																																									BgL_forwardz00_20321
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_9143);
																																									BgL_bufposz00_20323
																																										=
																																										BgL_bufposz00_9144;
																																									BgL_bufposz00_7550
																																										=
																																										BgL_bufposz00_20323;
																																									BgL_forwardz00_7549
																																										=
																																										BgL_forwardz00_20321;
																																									BgL_lastzd2matchzd2_7548
																																										=
																																										BgL_lastzd2matchzd2_20320;
																																									BgL_iportz00_7547
																																										=
																																										BgL_iportz00_20319;
																																									goto
																																										BgL_zc3z04anonymousza34766ze3z87_7551;
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									bool_t
																																										BgL_test7390z00_20324;
																																									if (((long) (BgL_curz00_9151) < 33L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test7390z00_20324
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											bool_t
																																												BgL_test7392z00_20328;
																																											if (((long) (BgL_curz00_9151) == 35L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test7392z00_20328
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													BgL_test7392z00_20328
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_9151)
																																														==
																																														34L);
																																												}
																																											if (BgL_test7392z00_20328)
																																												{	/* Read/reader.scm 409 */
																																													BgL_test7390z00_20324
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													bool_t
																																														BgL_test7394z00_20334;
																																													if (((long) (BgL_curz00_9151) == 41L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test7394z00_20334
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_9151) == 40L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test7394z00_20334
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test7394z00_20334
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_9151)
																																																		==
																																																		39L);
																																														}}
																																													if (BgL_test7394z00_20334)
																																														{	/* Read/reader.scm 409 */
																																															BgL_test7390z00_20324
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_9151) == 44L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test7390z00_20324
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	if (((long) (BgL_curz00_9151) == 46L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test7390z00_20324
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			bool_t
																																																				BgL_test7399z00_20349;
																																																			if (((long) (BgL_curz00_9151) == 59L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test7399z00_20349
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test7399z00_20349
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_9151)
																																																						==
																																																						58L);
																																																				}
																																																			if (BgL_test7399z00_20349)
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test7390z00_20324
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					if (((long) (BgL_curz00_9151) == 91L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test7390z00_20324
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							if (((long) (BgL_curz00_9151) == 93L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test7390z00_20324
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									if (((long) (BgL_curz00_9151) == 96L))
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test7390z00_20324
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											bool_t
																																																												BgL_test7404z00_20364;
																																																											if (((long) (BgL_curz00_9151) == 125L))
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test7404z00_20364
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													if (((long) (BgL_curz00_9151) == 124L))
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test7404z00_20364
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test7404z00_20364
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_9151)
																																																																==
																																																																123L);
																																																												}}
																																																											if (BgL_test7404z00_20364)
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test7390z00_20324
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test7390z00_20324
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_9151)
																																																														==
																																																														127L);
																																										}}}}}}}}}}
																																									if (BgL_test7390z00_20324)
																																										{	/* Read/reader.scm 409 */
																																											BgL_matchz00_9747
																																												=
																																												BgL_newzd2matchzd2_9146;
																																										}
																																									else
																																										{
																																											long
																																												BgL_forwardz00_20376;
																																											long
																																												BgL_lastzd2matchzd2_20375;
																																											BgL_lastzd2matchzd2_20375
																																												=
																																												BgL_newzd2matchzd2_9146;
																																											BgL_forwardz00_20376
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_9143);
																																											BgL_forwardz00_9143
																																												=
																																												BgL_forwardz00_20376;
																																											BgL_lastzd2matchzd2_9142
																																												=
																																												BgL_lastzd2matchzd2_20375;
																																											goto
																																												BgL_zc3z04anonymousza35573ze3z87_9145;
																																										}
																																								}
																																						}
																																				}
																																		}
																																	}
																															}
																														}
																												}
																										}
																								}
																						}
																				}
																			}
																	}
																}
															else
																{	/* Read/reader.scm 409 */
																	bool_t BgL_test7407z00_20380;

																	switch ((long) (BgL_curz00_4145))
																		{
																		case 39L:

																			BgL_test7407z00_20380 = ((bool_t) 1);
																			break;
																		case 44L:

																			BgL_test7407z00_20380 = ((bool_t) 1);
																			break;
																		case 58L:

																			BgL_test7407z00_20380 = ((bool_t) 1);
																			break;
																		default:
																			BgL_test7407z00_20380 =
																				((long) (BgL_curz00_4145) == 96L);
																		}
																	if (BgL_test7407z00_20380)
																		{	/* Read/reader.scm 409 */
																			BgL_iportz00_6102 = BgL_iportz00_4135;
																			BgL_lastzd2matchzd2_6103 =
																				BgL_newzd2matchzd2_4140;
																			BgL_forwardz00_6104 =
																				(1L + BgL_forwardz00_4137);
																			BgL_bufposz00_6105 = BgL_bufposz00_4138;
																		BgL_zc3z04anonymousza34018ze3z87_6106:
																			{	/* Read/reader.scm 409 */
																				long BgL_newzd2matchzd2_6107;

																				{	/* Read/reader.scm 409 */
																					obj_t BgL_tmpz00_20385;

																					BgL_tmpz00_20385 =
																						((obj_t) BgL_iportz00_6102);
																					RGC_STOP_MATCH(BgL_tmpz00_20385,
																						BgL_forwardz00_6104);
																				}
																				BgL_newzd2matchzd2_6107 = 22L;
																				if (
																					(BgL_forwardz00_6104 ==
																						BgL_bufposz00_6105))
																					{	/* Read/reader.scm 409 */
																						if (rgc_fill_buffer(
																								((obj_t) BgL_iportz00_6102)))
																							{	/* Read/reader.scm 409 */
																								long BgL_arg4021z00_6110;
																								long BgL_arg4022z00_6111;

																								{	/* Read/reader.scm 409 */
																									obj_t BgL_tmpz00_20393;

																									BgL_tmpz00_20393 =
																										((obj_t) BgL_iportz00_6102);
																									BgL_arg4021z00_6110 =
																										RGC_BUFFER_FORWARD
																										(BgL_tmpz00_20393);
																								}
																								{	/* Read/reader.scm 409 */
																									obj_t BgL_tmpz00_20396;

																									BgL_tmpz00_20396 =
																										((obj_t) BgL_iportz00_6102);
																									BgL_arg4022z00_6111 =
																										RGC_BUFFER_BUFPOS
																										(BgL_tmpz00_20396);
																								}
																								{
																									long BgL_bufposz00_20400;
																									long BgL_forwardz00_20399;

																									BgL_forwardz00_20399 =
																										BgL_arg4021z00_6110;
																									BgL_bufposz00_20400 =
																										BgL_arg4022z00_6111;
																									BgL_bufposz00_6105 =
																										BgL_bufposz00_20400;
																									BgL_forwardz00_6104 =
																										BgL_forwardz00_20399;
																									goto
																										BgL_zc3z04anonymousza34018ze3z87_6106;
																								}
																							}
																						else
																							{	/* Read/reader.scm 409 */
																								BgL_matchz00_9747 =
																									BgL_newzd2matchzd2_6107;
																							}
																					}
																				else
																					{	/* Read/reader.scm 409 */
																						int BgL_curz00_6112;

																						{	/* Read/reader.scm 409 */
																							obj_t BgL_tmpz00_20401;

																							BgL_tmpz00_20401 =
																								((obj_t) BgL_iportz00_6102);
																							BgL_curz00_6112 =
																								RGC_BUFFER_GET_CHAR
																								(BgL_tmpz00_20401,
																								BgL_forwardz00_6104);
																						}
																						{	/* Read/reader.scm 409 */

																							if (
																								((long) (BgL_curz00_6112) ==
																									46L))
																								{	/* Read/reader.scm 409 */
																									BgL_iportz00_6033 =
																										BgL_iportz00_6102;
																									BgL_lastzd2matchzd2_6034 =
																										BgL_newzd2matchzd2_6107;
																									BgL_forwardz00_6035 =
																										(1L + BgL_forwardz00_6104);
																									BgL_bufposz00_6036 =
																										BgL_bufposz00_6105;
																								BgL_zc3z04anonymousza33988ze3z87_6037:
																									{	/* Read/reader.scm 409 */
																										long
																											BgL_newzd2matchzd2_6038;
																										{	/* Read/reader.scm 409 */
																											obj_t BgL_tmpz00_20407;

																											BgL_tmpz00_20407 =
																												((obj_t)
																												BgL_iportz00_6033);
																											RGC_STOP_MATCH
																												(BgL_tmpz00_20407,
																												BgL_forwardz00_6035);
																										}
																										BgL_newzd2matchzd2_6038 =
																											22L;
																										if ((BgL_forwardz00_6035 ==
																												BgL_bufposz00_6036))
																											{	/* Read/reader.scm 409 */
																												if (rgc_fill_buffer(
																														((obj_t)
																															BgL_iportz00_6033)))
																													{	/* Read/reader.scm 409 */
																														long
																															BgL_arg3991z00_6041;
																														long
																															BgL_arg3992z00_6042;
																														{	/* Read/reader.scm 409 */
																															obj_t
																																BgL_tmpz00_20415;
																															BgL_tmpz00_20415 =
																																((obj_t)
																																BgL_iportz00_6033);
																															BgL_arg3991z00_6041
																																=
																																RGC_BUFFER_FORWARD
																																(BgL_tmpz00_20415);
																														}
																														{	/* Read/reader.scm 409 */
																															obj_t
																																BgL_tmpz00_20418;
																															BgL_tmpz00_20418 =
																																((obj_t)
																																BgL_iportz00_6033);
																															BgL_arg3992z00_6042
																																=
																																RGC_BUFFER_BUFPOS
																																(BgL_tmpz00_20418);
																														}
																														{
																															long
																																BgL_bufposz00_20422;
																															long
																																BgL_forwardz00_20421;
																															BgL_forwardz00_20421
																																=
																																BgL_arg3991z00_6041;
																															BgL_bufposz00_20422
																																=
																																BgL_arg3992z00_6042;
																															BgL_bufposz00_6036
																																=
																																BgL_bufposz00_20422;
																															BgL_forwardz00_6035
																																=
																																BgL_forwardz00_20421;
																															goto
																																BgL_zc3z04anonymousza33988ze3z87_6037;
																														}
																													}
																												else
																													{	/* Read/reader.scm 409 */
																														BgL_matchz00_9747 =
																															BgL_newzd2matchzd2_6038;
																													}
																											}
																										else
																											{	/* Read/reader.scm 409 */
																												int BgL_curz00_6043;

																												{	/* Read/reader.scm 409 */
																													obj_t
																														BgL_tmpz00_20423;
																													BgL_tmpz00_20423 =
																														((obj_t)
																														BgL_iportz00_6033);
																													BgL_curz00_6043 =
																														RGC_BUFFER_GET_CHAR
																														(BgL_tmpz00_20423,
																														BgL_forwardz00_6035);
																												}
																												{	/* Read/reader.scm 409 */

																													{	/* Read/reader.scm 409 */
																														bool_t
																															BgL_test7413z00_20426;
																														if (((long)
																																(BgL_curz00_6043)
																																>= 48L))
																															{	/* Read/reader.scm 409 */
																																BgL_test7413z00_20426
																																	=
																																	((long)
																																	(BgL_curz00_6043)
																																	< 58L);
																															}
																														else
																															{	/* Read/reader.scm 409 */
																																BgL_test7413z00_20426
																																	=
																																	((bool_t) 0);
																															}
																														if (BgL_test7413z00_20426)
																															{
																																long
																																	BgL_forwardz00_20433;
																																long
																																	BgL_lastzd2matchzd2_20432;
																																BgL_lastzd2matchzd2_20432
																																	=
																																	BgL_newzd2matchzd2_6038;
																																BgL_forwardz00_20433
																																	=
																																	(1L +
																																	BgL_forwardz00_6035);
																																BgL_forwardz00_6035
																																	=
																																	BgL_forwardz00_20433;
																																BgL_lastzd2matchzd2_6034
																																	=
																																	BgL_lastzd2matchzd2_20432;
																																goto
																																	BgL_zc3z04anonymousza33988ze3z87_6037;
																															}
																														else
																															{	/* Read/reader.scm 409 */
																																bool_t
																																	BgL_test7415z00_20435;
																																switch ((long)
																																	(BgL_curz00_6043))
																																	{
																																	case 39L:

																																		BgL_test7415z00_20435 = ((bool_t) 1);
																																		break;
																																	case 44L:

																																		BgL_test7415z00_20435 = ((bool_t) 1);
																																		break;
																																	case 46L:

																																		BgL_test7415z00_20435 = ((bool_t) 1);
																																		break;
																																	default:
																																		BgL_test7415z00_20435 = ((long) (BgL_curz00_6043) == 96L);
																																	}
																																if (BgL_test7415z00_20435)
																																	{
																																		long
																																			BgL_bufposz00_20444;
																																		long
																																			BgL_forwardz00_20442;
																																		long
																																			BgL_lastzd2matchzd2_20441;
																																		obj_t
																																			BgL_iportz00_20440;
																																		BgL_iportz00_20440
																																			=
																																			BgL_iportz00_6033;
																																		BgL_lastzd2matchzd2_20441
																																			=
																																			BgL_newzd2matchzd2_6038;
																																		BgL_forwardz00_20442
																																			=
																																			(1L +
																																			BgL_forwardz00_6035);
																																		BgL_bufposz00_20444
																																			=
																																			BgL_bufposz00_6036;
																																		BgL_bufposz00_7365
																																			=
																																			BgL_bufposz00_20444;
																																		BgL_forwardz00_7364
																																			=
																																			BgL_forwardz00_20442;
																																		BgL_lastzd2matchzd2_7363
																																			=
																																			BgL_lastzd2matchzd2_20441;
																																		BgL_iportz00_7362
																																			=
																																			BgL_iportz00_20440;
																																		goto
																																			BgL_zc3z04anonymousza34670ze3z87_7366;
																																	}
																																else
																																	{	/* Read/reader.scm 409 */
																																		bool_t
																																			BgL_test7416z00_20445;
																																		if (((long)
																																				(BgL_curz00_6043)
																																				< 33L))
																																			{	/* Read/reader.scm 409 */
																																				BgL_test7416z00_20445
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				bool_t
																																					BgL_test7418z00_20449;
																																				if ((
																																						(long)
																																						(BgL_curz00_6043)
																																						==
																																						35L))
																																					{	/* Read/reader.scm 409 */
																																						BgL_test7418z00_20449
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						BgL_test7418z00_20449
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_6043)
																																							==
																																							34L);
																																					}
																																				if (BgL_test7418z00_20449)
																																					{	/* Read/reader.scm 409 */
																																						BgL_test7416z00_20445
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						bool_t
																																							BgL_test7420z00_20455;
																																						if (
																																							((long) (BgL_curz00_6043) == 41L))
																																							{	/* Read/reader.scm 409 */
																																								BgL_test7420z00_20455
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								if (((long) (BgL_curz00_6043) == 40L))
																																									{	/* Read/reader.scm 409 */
																																										BgL_test7420z00_20455
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										BgL_test7420z00_20455
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_6043)
																																											==
																																											39L);
																																							}}
																																						if (BgL_test7420z00_20455)
																																							{	/* Read/reader.scm 409 */
																																								BgL_test7416z00_20445
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								if (((long) (BgL_curz00_6043) == 44L))
																																									{	/* Read/reader.scm 409 */
																																										BgL_test7416z00_20445
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										if (((long) (BgL_curz00_6043) == 46L))
																																											{	/* Read/reader.scm 409 */
																																												BgL_test7416z00_20445
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												bool_t
																																													BgL_test7425z00_20470;
																																												if (((long) (BgL_curz00_6043) >= 48L))
																																													{	/* Read/reader.scm 409 */
																																														BgL_test7425z00_20470
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_6043)
																																															<
																																															58L);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														BgL_test7425z00_20470
																																															=
																																															(
																																															(bool_t)
																																															0);
																																													}
																																												if (BgL_test7425z00_20470)
																																													{	/* Read/reader.scm 409 */
																																														BgL_test7416z00_20445
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														if (((long) (BgL_curz00_6043) == 59L))
																																															{	/* Read/reader.scm 409 */
																																																BgL_test7416z00_20445
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																if (((long) (BgL_curz00_6043) == 91L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test7416z00_20445
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		if (((long) (BgL_curz00_6043) == 93L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7416z00_20445
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				if (((long) (BgL_curz00_6043) == 96L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test7416z00_20445
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						bool_t
																																																							BgL_test7431z00_20488;
																																																						if (((long) (BgL_curz00_6043) == 125L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7431z00_20488
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								if (((long) (BgL_curz00_6043) == 124L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test7431z00_20488
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test7431z00_20488
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_6043)
																																																											==
																																																											123L);
																																																							}}
																																																						if (BgL_test7431z00_20488)
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7416z00_20445
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7416z00_20445
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_6043)
																																																									==
																																																									127L);
																																			}}}}}}}}}}}
																																		if (BgL_test7416z00_20445)
																																			{	/* Read/reader.scm 409 */
																																				BgL_matchz00_9747
																																					=
																																					BgL_newzd2matchzd2_6038;
																																			}
																																		else
																																			{
																																				long
																																					BgL_bufposz00_20503;
																																				long
																																					BgL_forwardz00_20501;
																																				long
																																					BgL_lastzd2matchzd2_20500;
																																				obj_t
																																					BgL_iportz00_20499;
																																				BgL_iportz00_20499
																																					=
																																					BgL_iportz00_6033;
																																				BgL_lastzd2matchzd2_20500
																																					=
																																					BgL_newzd2matchzd2_6038;
																																				BgL_forwardz00_20501
																																					=
																																					(1L +
																																					BgL_forwardz00_6035);
																																				BgL_bufposz00_20503
																																					=
																																					BgL_bufposz00_6036;
																																				BgL_bufposz00_7550
																																					=
																																					BgL_bufposz00_20503;
																																				BgL_forwardz00_7549
																																					=
																																					BgL_forwardz00_20501;
																																				BgL_lastzd2matchzd2_7548
																																					=
																																					BgL_lastzd2matchzd2_20500;
																																				BgL_iportz00_7547
																																					=
																																					BgL_iportz00_20499;
																																				goto
																																					BgL_zc3z04anonymousza34766ze3z87_7551;
																																			}
																																	}
																															}
																													}
																												}
																											}
																									}
																								}
																							else
																								{	/* Read/reader.scm 409 */
																									bool_t BgL_test7434z00_20505;

																									if (
																										((long) (BgL_curz00_6112) <
																											33L))
																										{	/* Read/reader.scm 409 */
																											BgL_test7434z00_20505 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 409 */
																											bool_t
																												BgL_test7436z00_20509;
																											if (((long)
																													(BgL_curz00_6112) ==
																													35L))
																												{	/* Read/reader.scm 409 */
																													BgL_test7436z00_20509
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													BgL_test7436z00_20509
																														=
																														((long)
																														(BgL_curz00_6112) ==
																														34L);
																												}
																											if (BgL_test7436z00_20509)
																												{	/* Read/reader.scm 409 */
																													BgL_test7434z00_20505
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													bool_t
																														BgL_test7438z00_20515;
																													if (((long)
																															(BgL_curz00_6112)
																															== 41L))
																														{	/* Read/reader.scm 409 */
																															BgL_test7438z00_20515
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															BgL_test7438z00_20515
																																=
																																((long)
																																(BgL_curz00_6112)
																																== 40L);
																														}
																													if (BgL_test7438z00_20515)
																														{	/* Read/reader.scm 409 */
																															BgL_test7434z00_20505
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															if (
																																((long)
																																	(BgL_curz00_6112)
																																	== 46L))
																																{	/* Read/reader.scm 409 */
																																	BgL_test7434z00_20505
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	if (
																																		((long)
																																			(BgL_curz00_6112)
																																			== 59L))
																																		{	/* Read/reader.scm 409 */
																																			BgL_test7434z00_20505
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			if (
																																				((long)
																																					(BgL_curz00_6112)
																																					==
																																					91L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test7434z00_20505
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					if (
																																						((long) (BgL_curz00_6112) == 93L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test7434z00_20505
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							bool_t
																																								BgL_test7444z00_20533;
																																							if (((long) (BgL_curz00_6112) == 125L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test7444z00_20533
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_6112) == 124L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test7444z00_20533
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_test7444z00_20533
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_6112)
																																												==
																																												123L);
																																								}}
																																							if (BgL_test7444z00_20533)
																																								{	/* Read/reader.scm 409 */
																																									BgL_test7434z00_20505
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									BgL_test7434z00_20505
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_6112)
																																										==
																																										127L);
																										}}}}}}}}
																									if (BgL_test7434z00_20505)
																										{	/* Read/reader.scm 409 */
																											BgL_matchz00_9747 =
																												BgL_newzd2matchzd2_6107;
																										}
																									else
																										{
																											long BgL_forwardz00_20545;
																											long
																												BgL_lastzd2matchzd2_20544;
																											BgL_lastzd2matchzd2_20544
																												=
																												BgL_newzd2matchzd2_6107;
																											BgL_forwardz00_20545 =
																												(1L +
																												BgL_forwardz00_6104);
																											BgL_forwardz00_6104 =
																												BgL_forwardz00_20545;
																											BgL_lastzd2matchzd2_6103 =
																												BgL_lastzd2matchzd2_20544;
																											goto
																												BgL_zc3z04anonymousza34018ze3z87_6106;
																										}
																								}
																						}
																					}
																			}
																		}
																	else
																		{	/* Read/reader.scm 409 */
																			bool_t BgL_test7447z00_20548;

																			if (((long) (BgL_curz00_4145) < 33L))
																				{	/* Read/reader.scm 409 */
																					BgL_test7447z00_20548 = ((bool_t) 1);
																				}
																			else
																				{	/* Read/reader.scm 409 */
																					bool_t BgL_test7449z00_20552;

																					if (((long) (BgL_curz00_4145) == 35L))
																						{	/* Read/reader.scm 409 */
																							BgL_test7449z00_20552 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Read/reader.scm 409 */
																							BgL_test7449z00_20552 =
																								(
																								(long) (BgL_curz00_4145) ==
																								34L);
																						}
																					if (BgL_test7449z00_20552)
																						{	/* Read/reader.scm 409 */
																							BgL_test7447z00_20548 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Read/reader.scm 409 */
																							bool_t BgL_test7451z00_20558;

																							if (
																								((long) (BgL_curz00_4145) ==
																									41L))
																								{	/* Read/reader.scm 409 */
																									BgL_test7451z00_20558 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Read/reader.scm 409 */
																									if (
																										((long) (BgL_curz00_4145) ==
																											40L))
																										{	/* Read/reader.scm 409 */
																											BgL_test7451z00_20558 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 409 */
																											BgL_test7451z00_20558 =
																												(
																												(long) (BgL_curz00_4145)
																												== 39L);
																								}}
																							if (BgL_test7451z00_20558)
																								{	/* Read/reader.scm 409 */
																									BgL_test7447z00_20548 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Read/reader.scm 409 */
																									if (
																										((long) (BgL_curz00_4145) ==
																											44L))
																										{	/* Read/reader.scm 409 */
																											BgL_test7447z00_20548 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 409 */
																											if (
																												((long)
																													(BgL_curz00_4145) ==
																													46L))
																												{	/* Read/reader.scm 409 */
																													BgL_test7447z00_20548
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													bool_t
																														BgL_test7456z00_20573;
																													if (((long)
																															(BgL_curz00_4145)
																															== 59L))
																														{	/* Read/reader.scm 409 */
																															BgL_test7456z00_20573
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															BgL_test7456z00_20573
																																=
																																((long)
																																(BgL_curz00_4145)
																																== 58L);
																														}
																													if (BgL_test7456z00_20573)
																														{	/* Read/reader.scm 409 */
																															BgL_test7447z00_20548
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															if (
																																((long)
																																	(BgL_curz00_4145)
																																	== 91L))
																																{	/* Read/reader.scm 409 */
																																	BgL_test7447z00_20548
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	if (
																																		((long)
																																			(BgL_curz00_4145)
																																			== 93L))
																																		{	/* Read/reader.scm 409 */
																																			BgL_test7447z00_20548
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			if (
																																				((long)
																																					(BgL_curz00_4145)
																																					==
																																					96L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test7447z00_20548
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					bool_t
																																						BgL_test7461z00_20588;
																																					if ((
																																							(long)
																																							(BgL_curz00_4145)
																																							==
																																							125L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test7461z00_20588
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							if (((long) (BgL_curz00_4145) == 124L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test7461z00_20588
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									BgL_test7461z00_20588
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_4145)
																																										==
																																										123L);
																																						}}
																																					if (BgL_test7461z00_20588)
																																						{	/* Read/reader.scm 409 */
																																							BgL_test7447z00_20548
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							BgL_test7447z00_20548
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_4145)
																																								==
																																								127L);
																				}}}}}}}}}}
																			if (BgL_test7447z00_20548)
																				{	/* Read/reader.scm 409 */
																					BgL_matchz00_9747 =
																						BgL_newzd2matchzd2_4140;
																				}
																			else
																				{	/* Read/reader.scm 409 */
																					BgL_iportz00_9013 = BgL_iportz00_4135;
																					BgL_lastzd2matchzd2_9014 =
																						BgL_newzd2matchzd2_4140;
																					BgL_forwardz00_9015 =
																						(1L + BgL_forwardz00_4137);
																					BgL_bufposz00_9016 =
																						BgL_bufposz00_4138;
																				BgL_zc3z04anonymousza35507ze3z87_9017:
																					{	/* Read/reader.scm 409 */
																						long BgL_newzd2matchzd2_9018;

																						{	/* Read/reader.scm 409 */
																							obj_t BgL_tmpz00_20599;

																							BgL_tmpz00_20599 =
																								((obj_t) BgL_iportz00_9013);
																							RGC_STOP_MATCH(BgL_tmpz00_20599,
																								BgL_forwardz00_9015);
																						}
																						BgL_newzd2matchzd2_9018 = 20L;
																						if (
																							(BgL_forwardz00_9015 ==
																								BgL_bufposz00_9016))
																							{	/* Read/reader.scm 409 */
																								if (rgc_fill_buffer(
																										((obj_t)
																											BgL_iportz00_9013)))
																									{	/* Read/reader.scm 409 */
																										long BgL_arg5510z00_9021;
																										long BgL_arg5511z00_9022;

																										{	/* Read/reader.scm 409 */
																											obj_t BgL_tmpz00_20607;

																											BgL_tmpz00_20607 =
																												((obj_t)
																												BgL_iportz00_9013);
																											BgL_arg5510z00_9021 =
																												RGC_BUFFER_FORWARD
																												(BgL_tmpz00_20607);
																										}
																										{	/* Read/reader.scm 409 */
																											obj_t BgL_tmpz00_20610;

																											BgL_tmpz00_20610 =
																												((obj_t)
																												BgL_iportz00_9013);
																											BgL_arg5511z00_9022 =
																												RGC_BUFFER_BUFPOS
																												(BgL_tmpz00_20610);
																										}
																										{
																											long BgL_bufposz00_20614;
																											long BgL_forwardz00_20613;

																											BgL_forwardz00_20613 =
																												BgL_arg5510z00_9021;
																											BgL_bufposz00_20614 =
																												BgL_arg5511z00_9022;
																											BgL_bufposz00_9016 =
																												BgL_bufposz00_20614;
																											BgL_forwardz00_9015 =
																												BgL_forwardz00_20613;
																											goto
																												BgL_zc3z04anonymousza35507ze3z87_9017;
																										}
																									}
																								else
																									{	/* Read/reader.scm 409 */
																										BgL_matchz00_9747 =
																											BgL_newzd2matchzd2_9018;
																									}
																							}
																						else
																							{	/* Read/reader.scm 409 */
																								int BgL_curz00_9023;

																								{	/* Read/reader.scm 409 */
																									obj_t BgL_tmpz00_20615;

																									BgL_tmpz00_20615 =
																										((obj_t) BgL_iportz00_9013);
																									BgL_curz00_9023 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_tmpz00_20615,
																										BgL_forwardz00_9015);
																								}
																								{	/* Read/reader.scm 409 */

																									if (
																										((long) (BgL_curz00_9023) ==
																											58L))
																										{	/* Read/reader.scm 409 */
																											BgL_iportz00_9343 =
																												BgL_iportz00_9013;
																											BgL_lastzd2matchzd2_9344 =
																												BgL_newzd2matchzd2_9018;
																											BgL_forwardz00_9345 =
																												(1L +
																												BgL_forwardz00_9015);
																											BgL_bufposz00_9346 =
																												BgL_bufposz00_9016;
																										BgL_zc3z04anonymousza35676ze3z87_9347:
																											{	/* Read/reader.scm 409 */
																												long
																													BgL_newzd2matchzd2_9348;
																												{	/* Read/reader.scm 409 */
																													obj_t
																														BgL_tmpz00_20621;
																													BgL_tmpz00_20621 =
																														((obj_t)
																														BgL_iportz00_9343);
																													RGC_STOP_MATCH
																														(BgL_tmpz00_20621,
																														BgL_forwardz00_9345);
																												}
																												BgL_newzd2matchzd2_9348
																													= 20L;
																												if ((BgL_forwardz00_9345
																														==
																														BgL_bufposz00_9346))
																													{	/* Read/reader.scm 409 */
																														if (rgc_fill_buffer(
																																((obj_t)
																																	BgL_iportz00_9343)))
																															{	/* Read/reader.scm 409 */
																																long
																																	BgL_arg5679z00_9351;
																																long
																																	BgL_arg5680z00_9352;
																																{	/* Read/reader.scm 409 */
																																	obj_t
																																		BgL_tmpz00_20629;
																																	BgL_tmpz00_20629
																																		=
																																		((obj_t)
																																		BgL_iportz00_9343);
																																	BgL_arg5679z00_9351
																																		=
																																		RGC_BUFFER_FORWARD
																																		(BgL_tmpz00_20629);
																																}
																																{	/* Read/reader.scm 409 */
																																	obj_t
																																		BgL_tmpz00_20632;
																																	BgL_tmpz00_20632
																																		=
																																		((obj_t)
																																		BgL_iportz00_9343);
																																	BgL_arg5680z00_9352
																																		=
																																		RGC_BUFFER_BUFPOS
																																		(BgL_tmpz00_20632);
																																}
																																{
																																	long
																																		BgL_bufposz00_20636;
																																	long
																																		BgL_forwardz00_20635;
																																	BgL_forwardz00_20635
																																		=
																																		BgL_arg5679z00_9351;
																																	BgL_bufposz00_20636
																																		=
																																		BgL_arg5680z00_9352;
																																	BgL_bufposz00_9346
																																		=
																																		BgL_bufposz00_20636;
																																	BgL_forwardz00_9345
																																		=
																																		BgL_forwardz00_20635;
																																	goto
																																		BgL_zc3z04anonymousza35676ze3z87_9347;
																																}
																															}
																														else
																															{	/* Read/reader.scm 409 */
																																BgL_matchz00_9747
																																	=
																																	BgL_newzd2matchzd2_9348;
																															}
																													}
																												else
																													{	/* Read/reader.scm 409 */
																														int BgL_curz00_9353;

																														{	/* Read/reader.scm 409 */
																															obj_t
																																BgL_tmpz00_20637;
																															BgL_tmpz00_20637 =
																																((obj_t)
																																BgL_iportz00_9343);
																															BgL_curz00_9353 =
																																RGC_BUFFER_GET_CHAR
																																(BgL_tmpz00_20637,
																																BgL_forwardz00_9345);
																														}
																														{	/* Read/reader.scm 409 */

																															if (
																																((long)
																																	(BgL_curz00_9353)
																																	== 46L))
																																{	/* Read/reader.scm 409 */
																																	BgL_iportz00_8474
																																		=
																																		BgL_iportz00_9343;
																																	BgL_lastzd2matchzd2_8475
																																		=
																																		BgL_newzd2matchzd2_9348;
																																	BgL_forwardz00_8476
																																		=
																																		(1L +
																																		BgL_forwardz00_9345);
																																	BgL_bufposz00_8477
																																		=
																																		BgL_bufposz00_9346;
																																BgL_zc3z04anonymousza35227ze3z87_8478:
																																	{	/* Read/reader.scm 409 */
																																		long
																																			BgL_newzd2matchzd2_8479;
																																		{	/* Read/reader.scm 409 */
																																			obj_t
																																				BgL_tmpz00_20643;
																																			BgL_tmpz00_20643
																																				=
																																				((obj_t)
																																				BgL_iportz00_8474);
																																			RGC_STOP_MATCH
																																				(BgL_tmpz00_20643,
																																				BgL_forwardz00_8476);
																																		}
																																		BgL_newzd2matchzd2_8479
																																			= 20L;
																																		if (
																																			(BgL_forwardz00_8476
																																				==
																																				BgL_bufposz00_8477))
																																			{	/* Read/reader.scm 409 */
																																				if (rgc_fill_buffer(((obj_t) BgL_iportz00_8474)))
																																					{	/* Read/reader.scm 409 */
																																						long
																																							BgL_arg5230z00_8482;
																																						long
																																							BgL_arg5231z00_8483;
																																						{	/* Read/reader.scm 409 */
																																							obj_t
																																								BgL_tmpz00_20651;
																																							BgL_tmpz00_20651
																																								=
																																								(
																																								(obj_t)
																																								BgL_iportz00_8474);
																																							BgL_arg5230z00_8482
																																								=
																																								RGC_BUFFER_FORWARD
																																								(BgL_tmpz00_20651);
																																						}
																																						{	/* Read/reader.scm 409 */
																																							obj_t
																																								BgL_tmpz00_20654;
																																							BgL_tmpz00_20654
																																								=
																																								(
																																								(obj_t)
																																								BgL_iportz00_8474);
																																							BgL_arg5231z00_8483
																																								=
																																								RGC_BUFFER_BUFPOS
																																								(BgL_tmpz00_20654);
																																						}
																																						{
																																							long
																																								BgL_bufposz00_20658;
																																							long
																																								BgL_forwardz00_20657;
																																							BgL_forwardz00_20657
																																								=
																																								BgL_arg5230z00_8482;
																																							BgL_bufposz00_20658
																																								=
																																								BgL_arg5231z00_8483;
																																							BgL_bufposz00_8477
																																								=
																																								BgL_bufposz00_20658;
																																							BgL_forwardz00_8476
																																								=
																																								BgL_forwardz00_20657;
																																							goto
																																								BgL_zc3z04anonymousza35227ze3z87_8478;
																																						}
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						BgL_matchz00_9747
																																							=
																																							BgL_newzd2matchzd2_8479;
																																					}
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				int
																																					BgL_curz00_8484;
																																				{	/* Read/reader.scm 409 */
																																					obj_t
																																						BgL_tmpz00_20659;
																																					BgL_tmpz00_20659
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_8474);
																																					BgL_curz00_8484
																																						=
																																						RGC_BUFFER_GET_CHAR
																																						(BgL_tmpz00_20659,
																																						BgL_forwardz00_8476);
																																				}
																																				{	/* Read/reader.scm 409 */

																																					{	/* Read/reader.scm 409 */
																																						bool_t
																																							BgL_test7472z00_20662;
																																						if (
																																							((long) (BgL_curz00_8484) >= 48L))
																																							{	/* Read/reader.scm 409 */
																																								BgL_test7472z00_20662
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_8484)
																																									<
																																									58L);
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								BgL_test7472z00_20662
																																									=
																																									(
																																									(bool_t)
																																									0);
																																							}
																																						if (BgL_test7472z00_20662)
																																							{
																																								long
																																									BgL_forwardz00_20669;
																																								long
																																									BgL_lastzd2matchzd2_20668;
																																								BgL_lastzd2matchzd2_20668
																																									=
																																									BgL_newzd2matchzd2_8479;
																																								BgL_forwardz00_20669
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_8476);
																																								BgL_forwardz00_8476
																																									=
																																									BgL_forwardz00_20669;
																																								BgL_lastzd2matchzd2_8475
																																									=
																																									BgL_lastzd2matchzd2_20668;
																																								goto
																																									BgL_zc3z04anonymousza35227ze3z87_8478;
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								if (((long) (BgL_curz00_8484) == 46L))
																																									{
																																										long
																																											BgL_bufposz00_20678;
																																										long
																																											BgL_forwardz00_20676;
																																										long
																																											BgL_lastzd2matchzd2_20675;
																																										obj_t
																																											BgL_iportz00_20674;
																																										BgL_iportz00_20674
																																											=
																																											BgL_iportz00_8474;
																																										BgL_lastzd2matchzd2_20675
																																											=
																																											BgL_newzd2matchzd2_8479;
																																										BgL_forwardz00_20676
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_8476);
																																										BgL_bufposz00_20678
																																											=
																																											BgL_bufposz00_8477;
																																										BgL_bufposz00_4762
																																											=
																																											BgL_bufposz00_20678;
																																										BgL_forwardz00_4761
																																											=
																																											BgL_forwardz00_20676;
																																										BgL_lastzd2matchzd2_4760
																																											=
																																											BgL_lastzd2matchzd2_20675;
																																										BgL_iportz00_4759
																																											=
																																											BgL_iportz00_20674;
																																										goto
																																											BgL_zc3z04anonymousza33331ze3z87_4763;
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										bool_t
																																											BgL_test7475z00_20679;
																																										if (((long) (BgL_curz00_8484) == 39L))
																																											{	/* Read/reader.scm 409 */
																																												BgL_test7475z00_20679
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												if (((long) (BgL_curz00_8484) == 44L))
																																													{	/* Read/reader.scm 409 */
																																														BgL_test7475z00_20679
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														BgL_test7475z00_20679
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_8484)
																																															==
																																															96L);
																																											}}
																																										if (BgL_test7475z00_20679)
																																											{
																																												long
																																													BgL_bufposz00_20692;
																																												long
																																													BgL_forwardz00_20690;
																																												long
																																													BgL_lastzd2matchzd2_20689;
																																												obj_t
																																													BgL_iportz00_20688;
																																												BgL_iportz00_20688
																																													=
																																													BgL_iportz00_8474;
																																												BgL_lastzd2matchzd2_20689
																																													=
																																													BgL_newzd2matchzd2_8479;
																																												BgL_forwardz00_20690
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_8476);
																																												BgL_bufposz00_20692
																																													=
																																													BgL_bufposz00_8477;
																																												BgL_bufposz00_7365
																																													=
																																													BgL_bufposz00_20692;
																																												BgL_forwardz00_7364
																																													=
																																													BgL_forwardz00_20690;
																																												BgL_lastzd2matchzd2_7363
																																													=
																																													BgL_lastzd2matchzd2_20689;
																																												BgL_iportz00_7362
																																													=
																																													BgL_iportz00_20688;
																																												goto
																																													BgL_zc3z04anonymousza34670ze3z87_7366;
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												bool_t
																																													BgL_test7478z00_20693;
																																												if (((long) (BgL_curz00_8484) < 33L))
																																													{	/* Read/reader.scm 409 */
																																														BgL_test7478z00_20693
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														bool_t
																																															BgL_test7480z00_20697;
																																														if (((long) (BgL_curz00_8484) == 35L))
																																															{	/* Read/reader.scm 409 */
																																																BgL_test7480z00_20697
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																BgL_test7480z00_20697
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_8484)
																																																	==
																																																	34L);
																																															}
																																														if (BgL_test7480z00_20697)
																																															{	/* Read/reader.scm 409 */
																																																BgL_test7478z00_20693
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																bool_t
																																																	BgL_test7482z00_20703;
																																																if (((long) (BgL_curz00_8484) == 41L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test7482z00_20703
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		if (((long) (BgL_curz00_8484) == 40L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7482z00_20703
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7482z00_20703
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_8484)
																																																					==
																																																					39L);
																																																	}}
																																																if (BgL_test7482z00_20703)
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test7478z00_20693
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		if (((long) (BgL_curz00_8484) == 44L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7478z00_20693
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				if (((long) (BgL_curz00_8484) == 46L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test7478z00_20693
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						bool_t
																																																							BgL_test7487z00_20718;
																																																						if (((long) (BgL_curz00_8484) >= 48L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7487z00_20718
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_8484)
																																																									<
																																																									58L);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7487z00_20718
																																																									=
																																																									(
																																																									(bool_t)
																																																									0);
																																																							}
																																																						if (BgL_test7487z00_20718)
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7478z00_20693
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								if (((long) (BgL_curz00_8484) == 59L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test7478z00_20693
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										if (((long) (BgL_curz00_8484) == 91L))
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test7478z00_20693
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												if (((long) (BgL_curz00_8484) == 93L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7478z00_20693
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														if (((long) (BgL_curz00_8484) == 96L))
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test7478z00_20693
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																bool_t
																																																																	BgL_test7493z00_20736;
																																																																if (((long) (BgL_curz00_8484) == 125L))
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test7493z00_20736
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		if (((long) (BgL_curz00_8484) == 124L))
																																																																			{	/* Read/reader.scm 409 */
																																																																				BgL_test7493z00_20736
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 409 */
																																																																				BgL_test7493z00_20736
																																																																					=
																																																																					(
																																																																					(long)
																																																																					(BgL_curz00_8484)
																																																																					==
																																																																					123L);
																																																																	}}
																																																																if (BgL_test7493z00_20736)
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test7478z00_20693
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test7478z00_20693
																																																																			=
																																																																			(
																																																																			(long)
																																																																			(BgL_curz00_8484)
																																																																			==
																																																																			127L);
																																													}}}}}}}}}}}
																																												if (BgL_test7478z00_20693)
																																													{	/* Read/reader.scm 409 */
																																														BgL_matchz00_9747
																																															=
																																															BgL_newzd2matchzd2_8479;
																																													}
																																												else
																																													{
																																														long
																																															BgL_bufposz00_20751;
																																														long
																																															BgL_forwardz00_20749;
																																														long
																																															BgL_lastzd2matchzd2_20748;
																																														obj_t
																																															BgL_iportz00_20747;
																																														BgL_iportz00_20747
																																															=
																																															BgL_iportz00_8474;
																																														BgL_lastzd2matchzd2_20748
																																															=
																																															BgL_newzd2matchzd2_8479;
																																														BgL_forwardz00_20749
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_8476);
																																														BgL_bufposz00_20751
																																															=
																																															BgL_bufposz00_8477;
																																														BgL_bufposz00_9290
																																															=
																																															BgL_bufposz00_20751;
																																														BgL_forwardz00_9289
																																															=
																																															BgL_forwardz00_20749;
																																														BgL_lastzd2matchzd2_9288
																																															=
																																															BgL_lastzd2matchzd2_20748;
																																														BgL_iportz00_9287
																																															=
																																															BgL_iportz00_20747;
																																														goto
																																															BgL_zc3z04anonymousza35647ze3z87_9291;
																																													}
																																											}
																																									}
																																							}
																																					}
																																				}
																																			}
																																	}
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	bool_t
																																		BgL_test7496z00_20753;
																																	if (((long)
																																			(BgL_curz00_9353)
																																			== 39L))
																																		{	/* Read/reader.scm 409 */
																																			BgL_test7496z00_20753
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			if (
																																				((long)
																																					(BgL_curz00_9353)
																																					==
																																					44L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test7496z00_20753
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					BgL_test7496z00_20753
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_9353)
																																						==
																																						96L);
																																		}}
																																	if (BgL_test7496z00_20753)
																																		{
																																			long
																																				BgL_bufposz00_20766;
																																			long
																																				BgL_forwardz00_20764;
																																			long
																																				BgL_lastzd2matchzd2_20763;
																																			obj_t
																																				BgL_iportz00_20762;
																																			BgL_iportz00_20762
																																				=
																																				BgL_iportz00_9343;
																																			BgL_lastzd2matchzd2_20763
																																				=
																																				BgL_newzd2matchzd2_9348;
																																			BgL_forwardz00_20764
																																				=
																																				(1L +
																																				BgL_forwardz00_9345);
																																			BgL_bufposz00_20766
																																				=
																																				BgL_bufposz00_9346;
																																			BgL_bufposz00_6105
																																				=
																																				BgL_bufposz00_20766;
																																			BgL_forwardz00_6104
																																				=
																																				BgL_forwardz00_20764;
																																			BgL_lastzd2matchzd2_6103
																																				=
																																				BgL_lastzd2matchzd2_20763;
																																			BgL_iportz00_6102
																																				=
																																				BgL_iportz00_20762;
																																			goto
																																				BgL_zc3z04anonymousza34018ze3z87_6106;
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			bool_t
																																				BgL_test7499z00_20767;
																																			if ((
																																					(long)
																																					(BgL_curz00_9353)
																																					<
																																					33L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test7499z00_20767
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					bool_t
																																						BgL_test7501z00_20771;
																																					if ((
																																							(long)
																																							(BgL_curz00_9353)
																																							==
																																							35L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test7501z00_20771
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							BgL_test7501z00_20771
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_9353)
																																								==
																																								34L);
																																						}
																																					if (BgL_test7501z00_20771)
																																						{	/* Read/reader.scm 409 */
																																							BgL_test7499z00_20767
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							bool_t
																																								BgL_test7503z00_20777;
																																							if (((long) (BgL_curz00_9353) == 41L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test7503z00_20777
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_9353) == 40L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test7503z00_20777
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_test7503z00_20777
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_9353)
																																												==
																																												39L);
																																								}}
																																							if (BgL_test7503z00_20777)
																																								{	/* Read/reader.scm 409 */
																																									BgL_test7499z00_20767
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_9353) == 44L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test7499z00_20767
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											if (((long) (BgL_curz00_9353) == 46L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test7499z00_20767
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													if (((long) (BgL_curz00_9353) == 59L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test7499z00_20767
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_9353) == 91L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test7499z00_20767
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	if (((long) (BgL_curz00_9353) == 93L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test7499z00_20767
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			if (((long) (BgL_curz00_9353) == 96L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test7499z00_20767
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					bool_t
																																																						BgL_test7512z00_20804;
																																																					if (((long) (BgL_curz00_9353) == 125L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test7512z00_20804
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							if (((long) (BgL_curz00_9353) == 124L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test7512z00_20804
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test7512z00_20804
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_9353)
																																																										==
																																																										123L);
																																																						}}
																																																					if (BgL_test7512z00_20804)
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test7499z00_20767
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test7499z00_20767
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_9353)
																																																								==
																																																								127L);
																																				}}}}}}}}}}
																																			if (BgL_test7499z00_20767)
																																				{	/* Read/reader.scm 409 */
																																					BgL_matchz00_9747
																																						=
																																						BgL_newzd2matchzd2_9348;
																																				}
																																			else
																																				{
																																					long
																																						BgL_forwardz00_20816;
																																					long
																																						BgL_lastzd2matchzd2_20815;
																																					BgL_lastzd2matchzd2_20815
																																						=
																																						BgL_newzd2matchzd2_9348;
																																					BgL_forwardz00_20816
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_9345);
																																					BgL_forwardz00_9345
																																						=
																																						BgL_forwardz00_20816;
																																					BgL_lastzd2matchzd2_9344
																																						=
																																						BgL_lastzd2matchzd2_20815;
																																					goto
																																						BgL_zc3z04anonymousza35676ze3z87_9347;
																																				}
																																		}
																																}
																														}
																													}
																											}
																										}
																									else
																										{	/* Read/reader.scm 409 */
																											if (
																												((long)
																													(BgL_curz00_9023) ==
																													46L))
																												{
																													long
																														BgL_bufposz00_20826;
																													long
																														BgL_forwardz00_20824;
																													long
																														BgL_lastzd2matchzd2_20823;
																													obj_t
																														BgL_iportz00_20822;
																													BgL_iportz00_20822 =
																														BgL_iportz00_9013;
																													BgL_lastzd2matchzd2_20823
																														=
																														BgL_newzd2matchzd2_9018;
																													BgL_forwardz00_20824 =
																														(1L +
																														BgL_forwardz00_9015);
																													BgL_bufposz00_20826 =
																														BgL_bufposz00_9016;
																													BgL_bufposz00_5971 =
																														BgL_bufposz00_20826;
																													BgL_forwardz00_5970 =
																														BgL_forwardz00_20824;
																													BgL_lastzd2matchzd2_5969
																														=
																														BgL_lastzd2matchzd2_20823;
																													BgL_iportz00_5968 =
																														BgL_iportz00_20822;
																													goto
																														BgL_zc3z04anonymousza33954ze3z87_5972;
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													bool_t
																														BgL_test7516z00_20827;
																													if (((long)
																															(BgL_curz00_9023)
																															== 39L))
																														{	/* Read/reader.scm 409 */
																															BgL_test7516z00_20827
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															if (
																																((long)
																																	(BgL_curz00_9023)
																																	== 44L))
																																{	/* Read/reader.scm 409 */
																																	BgL_test7516z00_20827
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	BgL_test7516z00_20827
																																		=
																																		((long)
																																		(BgL_curz00_9023)
																																		== 96L);
																														}}
																													if (BgL_test7516z00_20827)
																														{
																															long
																																BgL_bufposz00_20840;
																															long
																																BgL_forwardz00_20838;
																															long
																																BgL_lastzd2matchzd2_20837;
																															obj_t
																																BgL_iportz00_20836;
																															BgL_iportz00_20836
																																=
																																BgL_iportz00_9013;
																															BgL_lastzd2matchzd2_20837
																																=
																																BgL_newzd2matchzd2_9018;
																															BgL_forwardz00_20838
																																=
																																(1L +
																																BgL_forwardz00_9015);
																															BgL_bufposz00_20840
																																=
																																BgL_bufposz00_9016;
																															BgL_bufposz00_6105
																																=
																																BgL_bufposz00_20840;
																															BgL_forwardz00_6104
																																=
																																BgL_forwardz00_20838;
																															BgL_lastzd2matchzd2_6103
																																=
																																BgL_lastzd2matchzd2_20837;
																															BgL_iportz00_6102
																																=
																																BgL_iportz00_20836;
																															goto
																																BgL_zc3z04anonymousza34018ze3z87_6106;
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															bool_t
																																BgL_test7519z00_20841;
																															if (((long)
																																	(BgL_curz00_9023)
																																	< 33L))
																																{	/* Read/reader.scm 409 */
																																	BgL_test7519z00_20841
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	bool_t
																																		BgL_test7521z00_20845;
																																	if (((long)
																																			(BgL_curz00_9023)
																																			== 35L))
																																		{	/* Read/reader.scm 409 */
																																			BgL_test7521z00_20845
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			BgL_test7521z00_20845
																																				=
																																				((long)
																																				(BgL_curz00_9023)
																																				== 34L);
																																		}
																																	if (BgL_test7521z00_20845)
																																		{	/* Read/reader.scm 409 */
																																			BgL_test7519z00_20841
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			bool_t
																																				BgL_test7523z00_20851;
																																			if ((
																																					(long)
																																					(BgL_curz00_9023)
																																					==
																																					41L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test7523z00_20851
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					if (
																																						((long) (BgL_curz00_9023) == 40L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test7523z00_20851
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							BgL_test7523z00_20851
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_9023)
																																								==
																																								39L);
																																				}}
																																			if (BgL_test7523z00_20851)
																																				{	/* Read/reader.scm 409 */
																																					BgL_test7519z00_20841
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					if (
																																						((long) (BgL_curz00_9023) == 44L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test7519z00_20841
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							if (((long) (BgL_curz00_9023) == 46L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test7519z00_20841
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									bool_t
																																										BgL_test7528z00_20866;
																																									if (((long) (BgL_curz00_9023) == 59L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test7528z00_20866
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_test7528z00_20866
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_9023)
																																												==
																																												58L);
																																										}
																																									if (BgL_test7528z00_20866)
																																										{	/* Read/reader.scm 409 */
																																											BgL_test7519z00_20841
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											if (((long) (BgL_curz00_9023) == 91L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test7519z00_20841
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													if (((long) (BgL_curz00_9023) == 93L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test7519z00_20841
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_9023) == 96L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test7519z00_20841
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	bool_t
																																																		BgL_test7533z00_20881;
																																																	if (((long) (BgL_curz00_9023) == 125L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test7533z00_20881
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			if (((long) (BgL_curz00_9023) == 124L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test7533z00_20881
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test7533z00_20881
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_9023)
																																																						==
																																																						123L);
																																																		}}
																																																	if (BgL_test7533z00_20881)
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test7519z00_20841
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test7519z00_20841
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_9023)
																																																				==
																																																				127L);
																																}}}}}}}}}}
																															if (BgL_test7519z00_20841)
																																{	/* Read/reader.scm 409 */
																																	BgL_matchz00_9747
																																		=
																																		BgL_newzd2matchzd2_9018;
																																}
																															else
																																{
																																	long
																																		BgL_forwardz00_20893;
																																	long
																																		BgL_lastzd2matchzd2_20892;
																																	BgL_lastzd2matchzd2_20892
																																		=
																																		BgL_newzd2matchzd2_9018;
																																	BgL_forwardz00_20893
																																		=
																																		(1L +
																																		BgL_forwardz00_9015);
																																	BgL_forwardz00_9015
																																		=
																																		BgL_forwardz00_20893;
																																	BgL_lastzd2matchzd2_9014
																																		=
																																		BgL_lastzd2matchzd2_20892;
																																	goto
																																		BgL_zc3z04anonymousza35507ze3z87_9017;
																																}
																														}
																												}
																										}
																								}
																							}
																					}
																				}
																		}
																}
														}
													}
											}
											break;
										case 57L:
										case 56L:
										case 55L:
										case 54L:
										case 53L:
										case 52L:
										case 51L:
										case 50L:
										case 49L:
										case 48L:

											BgL_iportz00_5161 = BgL_iportz00_8604;
											BgL_lastzd2matchzd2_5162 = BgL_lastzd2matchzd2_8605;
											BgL_forwardz00_5163 = (1L + BgL_forwardz00_8606);
											BgL_bufposz00_5164 = BgL_bufposz00_8607;
										BgL_zc3z04anonymousza33544ze3z87_5165:
											{	/* Read/reader.scm 409 */
												long BgL_newzd2matchzd2_5166;

												{	/* Read/reader.scm 409 */
													obj_t BgL_tmpz00_20897;

													BgL_tmpz00_20897 = ((obj_t) BgL_iportz00_5161);
													RGC_STOP_MATCH(BgL_tmpz00_20897, BgL_forwardz00_5163);
												}
												BgL_newzd2matchzd2_5166 = 12L;
												if ((BgL_forwardz00_5163 == BgL_bufposz00_5164))
													{	/* Read/reader.scm 409 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_5161)))
															{	/* Read/reader.scm 409 */
																long BgL_arg3548z00_5169;
																long BgL_arg3549z00_5170;

																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_20905;

																	BgL_tmpz00_20905 =
																		((obj_t) BgL_iportz00_5161);
																	BgL_arg3548z00_5169 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_20905);
																}
																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_20908;

																	BgL_tmpz00_20908 =
																		((obj_t) BgL_iportz00_5161);
																	BgL_arg3549z00_5170 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_20908);
																}
																{
																	long BgL_bufposz00_20912;
																	long BgL_forwardz00_20911;

																	BgL_forwardz00_20911 = BgL_arg3548z00_5169;
																	BgL_bufposz00_20912 = BgL_arg3549z00_5170;
																	BgL_bufposz00_5164 = BgL_bufposz00_20912;
																	BgL_forwardz00_5163 = BgL_forwardz00_20911;
																	goto BgL_zc3z04anonymousza33544ze3z87_5165;
																}
															}
														else
															{	/* Read/reader.scm 409 */
																BgL_matchz00_9747 = BgL_newzd2matchzd2_5166;
															}
													}
												else
													{	/* Read/reader.scm 409 */
														int BgL_curz00_5171;

														{	/* Read/reader.scm 409 */
															obj_t BgL_tmpz00_20913;

															BgL_tmpz00_20913 = ((obj_t) BgL_iportz00_5161);
															BgL_curz00_5171 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_20913,
																BgL_forwardz00_5163);
														}
														{	/* Read/reader.scm 409 */

															{	/* Read/reader.scm 409 */
																bool_t BgL_test7538z00_20916;

																if (((long) (BgL_curz00_5171) == 69L))
																	{	/* Read/reader.scm 409 */
																		BgL_test7538z00_20916 = ((bool_t) 1);
																	}
																else
																	{	/* Read/reader.scm 409 */
																		BgL_test7538z00_20916 =
																			((long) (BgL_curz00_5171) == 101L);
																	}
																if (BgL_test7538z00_20916)
																	{	/* Read/reader.scm 409 */
																		BgL_iportz00_5557 = BgL_iportz00_5161;
																		BgL_lastzd2matchzd2_5558 =
																			BgL_newzd2matchzd2_5166;
																		BgL_forwardz00_5559 =
																			(1L + BgL_forwardz00_5163);
																		BgL_bufposz00_5560 = BgL_bufposz00_5164;
																	BgL_zc3z04anonymousza33748ze3z87_5561:
																		{	/* Read/reader.scm 409 */
																			long BgL_newzd2matchzd2_5562;

																			{	/* Read/reader.scm 409 */
																				obj_t BgL_tmpz00_20922;

																				BgL_tmpz00_20922 =
																					((obj_t) BgL_iportz00_5557);
																				RGC_STOP_MATCH(BgL_tmpz00_20922,
																					BgL_forwardz00_5559);
																			}
																			BgL_newzd2matchzd2_5562 = 22L;
																			if (
																				(BgL_forwardz00_5559 ==
																					BgL_bufposz00_5560))
																				{	/* Read/reader.scm 409 */
																					if (rgc_fill_buffer(
																							((obj_t) BgL_iportz00_5557)))
																						{	/* Read/reader.scm 409 */
																							long BgL_arg3751z00_5565;
																							long BgL_arg3752z00_5566;

																							{	/* Read/reader.scm 409 */
																								obj_t BgL_tmpz00_20930;

																								BgL_tmpz00_20930 =
																									((obj_t) BgL_iportz00_5557);
																								BgL_arg3751z00_5565 =
																									RGC_BUFFER_FORWARD
																									(BgL_tmpz00_20930);
																							}
																							{	/* Read/reader.scm 409 */
																								obj_t BgL_tmpz00_20933;

																								BgL_tmpz00_20933 =
																									((obj_t) BgL_iportz00_5557);
																								BgL_arg3752z00_5566 =
																									RGC_BUFFER_BUFPOS
																									(BgL_tmpz00_20933);
																							}
																							{
																								long BgL_bufposz00_20937;
																								long BgL_forwardz00_20936;

																								BgL_forwardz00_20936 =
																									BgL_arg3751z00_5565;
																								BgL_bufposz00_20937 =
																									BgL_arg3752z00_5566;
																								BgL_bufposz00_5560 =
																									BgL_bufposz00_20937;
																								BgL_forwardz00_5559 =
																									BgL_forwardz00_20936;
																								goto
																									BgL_zc3z04anonymousza33748ze3z87_5561;
																							}
																						}
																					else
																						{	/* Read/reader.scm 409 */
																							BgL_matchz00_9747 =
																								BgL_newzd2matchzd2_5562;
																						}
																				}
																			else
																				{	/* Read/reader.scm 409 */
																					int BgL_curz00_5567;

																					{	/* Read/reader.scm 409 */
																						obj_t BgL_tmpz00_20938;

																						BgL_tmpz00_20938 =
																							((obj_t) BgL_iportz00_5557);
																						BgL_curz00_5567 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_tmpz00_20938,
																							BgL_forwardz00_5559);
																					}
																					{	/* Read/reader.scm 409 */

																						if (
																							((long) (BgL_curz00_5567) == 58L))
																							{	/* Read/reader.scm 409 */
																								BgL_iportz00_6391 =
																									BgL_iportz00_5557;
																								BgL_lastzd2matchzd2_6392 =
																									BgL_newzd2matchzd2_5562;
																								BgL_forwardz00_6393 =
																									(1L + BgL_forwardz00_5559);
																								BgL_bufposz00_6394 =
																									BgL_bufposz00_5560;
																							BgL_zc3z04anonymousza34167ze3z87_6395:
																								{	/* Read/reader.scm 409 */
																									long BgL_newzd2matchzd2_6396;

																									{	/* Read/reader.scm 409 */
																										obj_t BgL_tmpz00_20944;

																										BgL_tmpz00_20944 =
																											((obj_t)
																											BgL_iportz00_6391);
																										RGC_STOP_MATCH
																											(BgL_tmpz00_20944,
																											BgL_forwardz00_6393);
																									}
																									BgL_newzd2matchzd2_6396 = 20L;
																									if (
																										(BgL_forwardz00_6393 ==
																											BgL_bufposz00_6394))
																										{	/* Read/reader.scm 409 */
																											if (rgc_fill_buffer(
																													((obj_t)
																														BgL_iportz00_6391)))
																												{	/* Read/reader.scm 409 */
																													long
																														BgL_arg4170z00_6399;
																													long
																														BgL_arg4171z00_6400;
																													{	/* Read/reader.scm 409 */
																														obj_t
																															BgL_tmpz00_20952;
																														BgL_tmpz00_20952 =
																															((obj_t)
																															BgL_iportz00_6391);
																														BgL_arg4170z00_6399
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_tmpz00_20952);
																													}
																													{	/* Read/reader.scm 409 */
																														obj_t
																															BgL_tmpz00_20955;
																														BgL_tmpz00_20955 =
																															((obj_t)
																															BgL_iportz00_6391);
																														BgL_arg4171z00_6400
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_tmpz00_20955);
																													}
																													{
																														long
																															BgL_bufposz00_20959;
																														long
																															BgL_forwardz00_20958;
																														BgL_forwardz00_20958
																															=
																															BgL_arg4170z00_6399;
																														BgL_bufposz00_20959
																															=
																															BgL_arg4171z00_6400;
																														BgL_bufposz00_6394 =
																															BgL_bufposz00_20959;
																														BgL_forwardz00_6393
																															=
																															BgL_forwardz00_20958;
																														goto
																															BgL_zc3z04anonymousza34167ze3z87_6395;
																													}
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													BgL_matchz00_9747 =
																														BgL_newzd2matchzd2_6396;
																												}
																										}
																									else
																										{	/* Read/reader.scm 409 */
																											int BgL_curz00_6401;

																											{	/* Read/reader.scm 409 */
																												obj_t BgL_tmpz00_20960;

																												BgL_tmpz00_20960 =
																													((obj_t)
																													BgL_iportz00_6391);
																												BgL_curz00_6401 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_tmpz00_20960,
																													BgL_forwardz00_6393);
																											}
																											{	/* Read/reader.scm 409 */

																												if (
																													((long)
																														(BgL_curz00_6401) ==
																														58L))
																													{	/* Read/reader.scm 409 */
																														BgL_iportz00_8804 =
																															BgL_iportz00_6391;
																														BgL_lastzd2matchzd2_8805
																															=
																															BgL_newzd2matchzd2_6396;
																														BgL_forwardz00_8806
																															=
																															(1L +
																															BgL_forwardz00_6393);
																														BgL_bufposz00_8807 =
																															BgL_bufposz00_6394;
																													BgL_zc3z04anonymousza35401ze3z87_8808:
																														{	/* Read/reader.scm 409 */
																															long
																																BgL_newzd2matchzd2_8809;
																															{	/* Read/reader.scm 409 */
																																obj_t
																																	BgL_tmpz00_20966;
																																BgL_tmpz00_20966
																																	=
																																	((obj_t)
																																	BgL_iportz00_8804);
																																RGC_STOP_MATCH
																																	(BgL_tmpz00_20966,
																																	BgL_forwardz00_8806);
																															}
																															BgL_newzd2matchzd2_8809
																																= 22L;
																															if (
																																(BgL_forwardz00_8806
																																	==
																																	BgL_bufposz00_8807))
																																{	/* Read/reader.scm 409 */
																																	if (rgc_fill_buffer(((obj_t) BgL_iportz00_8804)))
																																		{	/* Read/reader.scm 409 */
																																			long
																																				BgL_arg5404z00_8812;
																																			long
																																				BgL_arg5405z00_8813;
																																			{	/* Read/reader.scm 409 */
																																				obj_t
																																					BgL_tmpz00_20974;
																																				BgL_tmpz00_20974
																																					=
																																					(
																																					(obj_t)
																																					BgL_iportz00_8804);
																																				BgL_arg5404z00_8812
																																					=
																																					RGC_BUFFER_FORWARD
																																					(BgL_tmpz00_20974);
																																			}
																																			{	/* Read/reader.scm 409 */
																																				obj_t
																																					BgL_tmpz00_20977;
																																				BgL_tmpz00_20977
																																					=
																																					(
																																					(obj_t)
																																					BgL_iportz00_8804);
																																				BgL_arg5405z00_8813
																																					=
																																					RGC_BUFFER_BUFPOS
																																					(BgL_tmpz00_20977);
																																			}
																																			{
																																				long
																																					BgL_bufposz00_20981;
																																				long
																																					BgL_forwardz00_20980;
																																				BgL_forwardz00_20980
																																					=
																																					BgL_arg5404z00_8812;
																																				BgL_bufposz00_20981
																																					=
																																					BgL_arg5405z00_8813;
																																				BgL_bufposz00_8807
																																					=
																																					BgL_bufposz00_20981;
																																				BgL_forwardz00_8806
																																					=
																																					BgL_forwardz00_20980;
																																				goto
																																					BgL_zc3z04anonymousza35401ze3z87_8808;
																																			}
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			BgL_matchz00_9747
																																				=
																																				BgL_newzd2matchzd2_8809;
																																		}
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	int
																																		BgL_curz00_8814;
																																	{	/* Read/reader.scm 409 */
																																		obj_t
																																			BgL_tmpz00_20982;
																																		BgL_tmpz00_20982
																																			=
																																			((obj_t)
																																			BgL_iportz00_8804);
																																		BgL_curz00_8814
																																			=
																																			RGC_BUFFER_GET_CHAR
																																			(BgL_tmpz00_20982,
																																			BgL_forwardz00_8806);
																																	}
																																	{	/* Read/reader.scm 409 */

																																		if (
																																			((long)
																																				(BgL_curz00_8814)
																																				== 58L))
																																			{
																																				long
																																					BgL_forwardz00_20989;
																																				long
																																					BgL_lastzd2matchzd2_20988;
																																				BgL_lastzd2matchzd2_20988
																																					=
																																					BgL_newzd2matchzd2_8809;
																																				BgL_forwardz00_20989
																																					=
																																					(1L +
																																					BgL_forwardz00_8806);
																																				BgL_forwardz00_8806
																																					=
																																					BgL_forwardz00_20989;
																																				BgL_lastzd2matchzd2_8805
																																					=
																																					BgL_lastzd2matchzd2_20988;
																																				goto
																																					BgL_zc3z04anonymousza35401ze3z87_8808;
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				if (
																																					((long) (BgL_curz00_8814) == 46L))
																																					{	/* Read/reader.scm 409 */
																																						BgL_iportz00_3940
																																							=
																																							BgL_iportz00_8804;
																																						BgL_lastzd2matchzd2_3941
																																							=
																																							BgL_newzd2matchzd2_8809;
																																						BgL_forwardz00_3942
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_8806);
																																						BgL_bufposz00_3943
																																							=
																																							BgL_bufposz00_8807;
																																					BgL_zc3z04anonymousza32819ze3z87_3944:
																																						{	/* Read/reader.scm 409 */
																																							long
																																								BgL_newzd2matchzd2_3945;
																																							{	/* Read/reader.scm 409 */
																																								obj_t
																																									BgL_tmpz00_20994;
																																								BgL_tmpz00_20994
																																									=
																																									(
																																									(obj_t)
																																									BgL_iportz00_3940);
																																								RGC_STOP_MATCH
																																									(BgL_tmpz00_20994,
																																									BgL_forwardz00_3942);
																																							}
																																							BgL_newzd2matchzd2_3945
																																								=
																																								22L;
																																							if ((BgL_forwardz00_3942 == BgL_bufposz00_3943))
																																								{	/* Read/reader.scm 409 */
																																									if (rgc_fill_buffer(((obj_t) BgL_iportz00_3940)))
																																										{	/* Read/reader.scm 409 */
																																											long
																																												BgL_arg2822z00_3948;
																																											long
																																												BgL_arg2823z00_3949;
																																											{	/* Read/reader.scm 409 */
																																												obj_t
																																													BgL_tmpz00_21002;
																																												BgL_tmpz00_21002
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_3940);
																																												BgL_arg2822z00_3948
																																													=
																																													RGC_BUFFER_FORWARD
																																													(BgL_tmpz00_21002);
																																											}
																																											{	/* Read/reader.scm 409 */
																																												obj_t
																																													BgL_tmpz00_21005;
																																												BgL_tmpz00_21005
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_3940);
																																												BgL_arg2823z00_3949
																																													=
																																													RGC_BUFFER_BUFPOS
																																													(BgL_tmpz00_21005);
																																											}
																																											{
																																												long
																																													BgL_bufposz00_21009;
																																												long
																																													BgL_forwardz00_21008;
																																												BgL_forwardz00_21008
																																													=
																																													BgL_arg2822z00_3948;
																																												BgL_bufposz00_21009
																																													=
																																													BgL_arg2823z00_3949;
																																												BgL_bufposz00_3943
																																													=
																																													BgL_bufposz00_21009;
																																												BgL_forwardz00_3942
																																													=
																																													BgL_forwardz00_21008;
																																												goto
																																													BgL_zc3z04anonymousza32819ze3z87_3944;
																																											}
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_matchz00_9747
																																												=
																																												BgL_newzd2matchzd2_3945;
																																										}
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									int
																																										BgL_curz00_3950;
																																									{	/* Read/reader.scm 409 */
																																										obj_t
																																											BgL_tmpz00_21010;
																																										BgL_tmpz00_21010
																																											=
																																											(
																																											(obj_t)
																																											BgL_iportz00_3940);
																																										BgL_curz00_3950
																																											=
																																											RGC_BUFFER_GET_CHAR
																																											(BgL_tmpz00_21010,
																																											BgL_forwardz00_3942);
																																									}
																																									{	/* Read/reader.scm 409 */

																																										if (((long) (BgL_curz00_3950) == 58L))
																																											{	/* Read/reader.scm 409 */
																																												BgL_iportz00_7301
																																													=
																																													BgL_iportz00_3940;
																																												BgL_lastzd2matchzd2_7302
																																													=
																																													BgL_newzd2matchzd2_3945;
																																												BgL_forwardz00_7303
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_3942);
																																												BgL_bufposz00_7304
																																													=
																																													BgL_bufposz00_3943;
																																											BgL_zc3z04anonymousza34639ze3z87_7305:
																																												{	/* Read/reader.scm 409 */
																																													long
																																														BgL_newzd2matchzd2_7306;
																																													{	/* Read/reader.scm 409 */
																																														obj_t
																																															BgL_tmpz00_21016;
																																														BgL_tmpz00_21016
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_7301);
																																														RGC_STOP_MATCH
																																															(BgL_tmpz00_21016,
																																															BgL_forwardz00_7303);
																																													}
																																													BgL_newzd2matchzd2_7306
																																														=
																																														20L;
																																													if ((BgL_forwardz00_7303 == BgL_bufposz00_7304))
																																														{	/* Read/reader.scm 409 */
																																															if (rgc_fill_buffer(((obj_t) BgL_iportz00_7301)))
																																																{	/* Read/reader.scm 409 */
																																																	long
																																																		BgL_arg4642z00_7309;
																																																	long
																																																		BgL_arg4643z00_7310;
																																																	{	/* Read/reader.scm 409 */
																																																		obj_t
																																																			BgL_tmpz00_21024;
																																																		BgL_tmpz00_21024
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_7301);
																																																		BgL_arg4642z00_7309
																																																			=
																																																			RGC_BUFFER_FORWARD
																																																			(BgL_tmpz00_21024);
																																																	}
																																																	{	/* Read/reader.scm 409 */
																																																		obj_t
																																																			BgL_tmpz00_21027;
																																																		BgL_tmpz00_21027
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_7301);
																																																		BgL_arg4643z00_7310
																																																			=
																																																			RGC_BUFFER_BUFPOS
																																																			(BgL_tmpz00_21027);
																																																	}
																																																	{
																																																		long
																																																			BgL_bufposz00_21031;
																																																		long
																																																			BgL_forwardz00_21030;
																																																		BgL_forwardz00_21030
																																																			=
																																																			BgL_arg4642z00_7309;
																																																		BgL_bufposz00_21031
																																																			=
																																																			BgL_arg4643z00_7310;
																																																		BgL_bufposz00_7304
																																																			=
																																																			BgL_bufposz00_21031;
																																																		BgL_forwardz00_7303
																																																			=
																																																			BgL_forwardz00_21030;
																																																		goto
																																																			BgL_zc3z04anonymousza34639ze3z87_7305;
																																																	}
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	BgL_matchz00_9747
																																																		=
																																																		BgL_newzd2matchzd2_7306;
																																																}
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															int
																																																BgL_curz00_7311;
																																															{	/* Read/reader.scm 409 */
																																																obj_t
																																																	BgL_tmpz00_21032;
																																																BgL_tmpz00_21032
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_7301);
																																																BgL_curz00_7311
																																																	=
																																																	RGC_BUFFER_GET_CHAR
																																																	(BgL_tmpz00_21032,
																																																	BgL_forwardz00_7303);
																																															}
																																															{	/* Read/reader.scm 409 */

																																																if (((long) (BgL_curz00_7311) == 58L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_iportz00_8743
																																																			=
																																																			BgL_iportz00_7301;
																																																		BgL_lastzd2matchzd2_8744
																																																			=
																																																			BgL_newzd2matchzd2_7306;
																																																		BgL_forwardz00_8745
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_7303);
																																																		BgL_bufposz00_8746
																																																			=
																																																			BgL_bufposz00_7304;
																																																	BgL_zc3z04anonymousza35370ze3z87_8747:
																																																		{	/* Read/reader.scm 409 */
																																																			long
																																																				BgL_newzd2matchzd2_8748;
																																																			{	/* Read/reader.scm 409 */
																																																				obj_t
																																																					BgL_tmpz00_21038;
																																																				BgL_tmpz00_21038
																																																					=
																																																					(
																																																					(obj_t)
																																																					BgL_iportz00_8743);
																																																				RGC_STOP_MATCH
																																																					(BgL_tmpz00_21038,
																																																					BgL_forwardz00_8745);
																																																			}
																																																			BgL_newzd2matchzd2_8748
																																																				=
																																																				21L;
																																																			if ((BgL_forwardz00_8745 == BgL_bufposz00_8746))
																																																				{	/* Read/reader.scm 409 */
																																																					if (rgc_fill_buffer(((obj_t) BgL_iportz00_8743)))
																																																						{	/* Read/reader.scm 409 */
																																																							long
																																																								BgL_arg5373z00_8751;
																																																							long
																																																								BgL_arg5374z00_8752;
																																																							{	/* Read/reader.scm 409 */
																																																								obj_t
																																																									BgL_tmpz00_21046;
																																																								BgL_tmpz00_21046
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_8743);
																																																								BgL_arg5373z00_8751
																																																									=
																																																									RGC_BUFFER_FORWARD
																																																									(BgL_tmpz00_21046);
																																																							}
																																																							{	/* Read/reader.scm 409 */
																																																								obj_t
																																																									BgL_tmpz00_21049;
																																																								BgL_tmpz00_21049
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_8743);
																																																								BgL_arg5374z00_8752
																																																									=
																																																									RGC_BUFFER_BUFPOS
																																																									(BgL_tmpz00_21049);
																																																							}
																																																							{
																																																								long
																																																									BgL_bufposz00_21053;
																																																								long
																																																									BgL_forwardz00_21052;
																																																								BgL_forwardz00_21052
																																																									=
																																																									BgL_arg5373z00_8751;
																																																								BgL_bufposz00_21053
																																																									=
																																																									BgL_arg5374z00_8752;
																																																								BgL_bufposz00_8746
																																																									=
																																																									BgL_bufposz00_21053;
																																																								BgL_forwardz00_8745
																																																									=
																																																									BgL_forwardz00_21052;
																																																								goto
																																																									BgL_zc3z04anonymousza35370ze3z87_8747;
																																																							}
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_matchz00_9747
																																																								=
																																																								BgL_newzd2matchzd2_8748;
																																																						}
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					int
																																																						BgL_curz00_8753;
																																																					{	/* Read/reader.scm 409 */
																																																						obj_t
																																																							BgL_tmpz00_21054;
																																																						BgL_tmpz00_21054
																																																							=
																																																							(
																																																							(obj_t)
																																																							BgL_iportz00_8743);
																																																						BgL_curz00_8753
																																																							=
																																																							RGC_BUFFER_GET_CHAR
																																																							(BgL_tmpz00_21054,
																																																							BgL_forwardz00_8745);
																																																					}
																																																					{	/* Read/reader.scm 409 */

																																																						if (((long) (BgL_curz00_8753) == 58L))
																																																							{
																																																								long
																																																									BgL_forwardz00_21061;
																																																								long
																																																									BgL_lastzd2matchzd2_21060;
																																																								BgL_lastzd2matchzd2_21060
																																																									=
																																																									BgL_newzd2matchzd2_8748;
																																																								BgL_forwardz00_21061
																																																									=
																																																									(1L
																																																									+
																																																									BgL_forwardz00_8745);
																																																								BgL_forwardz00_8745
																																																									=
																																																									BgL_forwardz00_21061;
																																																								BgL_lastzd2matchzd2_8744
																																																									=
																																																									BgL_lastzd2matchzd2_21060;
																																																								goto
																																																									BgL_zc3z04anonymousza35370ze3z87_8747;
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								if (((long) (BgL_curz00_8753) == 46L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_iportz00_6326
																																																											=
																																																											BgL_iportz00_8743;
																																																										BgL_lastzd2matchzd2_6327
																																																											=
																																																											BgL_newzd2matchzd2_8748;
																																																										BgL_forwardz00_6328
																																																											=
																																																											(1L
																																																											+
																																																											BgL_forwardz00_8745);
																																																										BgL_bufposz00_6329
																																																											=
																																																											BgL_bufposz00_8746;
																																																									BgL_zc3z04anonymousza34133ze3z87_6330:
																																																										{	/* Read/reader.scm 409 */
																																																											long
																																																												BgL_newzd2matchzd2_6331;
																																																											{	/* Read/reader.scm 409 */
																																																												obj_t
																																																													BgL_tmpz00_21066;
																																																												BgL_tmpz00_21066
																																																													=
																																																													(
																																																													(obj_t)
																																																													BgL_iportz00_6326);
																																																												RGC_STOP_MATCH
																																																													(BgL_tmpz00_21066,
																																																													BgL_forwardz00_6328);
																																																											}
																																																											BgL_newzd2matchzd2_6331
																																																												=
																																																												22L;
																																																											if ((BgL_forwardz00_6328 == BgL_bufposz00_6329))
																																																												{	/* Read/reader.scm 409 */
																																																													if (rgc_fill_buffer(((obj_t) BgL_iportz00_6326)))
																																																														{	/* Read/reader.scm 409 */
																																																															long
																																																																BgL_arg4136z00_6334;
																																																															long
																																																																BgL_arg4137z00_6335;
																																																															{	/* Read/reader.scm 409 */
																																																																obj_t
																																																																	BgL_tmpz00_21074;
																																																																BgL_tmpz00_21074
																																																																	=
																																																																	(
																																																																	(obj_t)
																																																																	BgL_iportz00_6326);
																																																																BgL_arg4136z00_6334
																																																																	=
																																																																	RGC_BUFFER_FORWARD
																																																																	(BgL_tmpz00_21074);
																																																															}
																																																															{	/* Read/reader.scm 409 */
																																																																obj_t
																																																																	BgL_tmpz00_21077;
																																																																BgL_tmpz00_21077
																																																																	=
																																																																	(
																																																																	(obj_t)
																																																																	BgL_iportz00_6326);
																																																																BgL_arg4137z00_6335
																																																																	=
																																																																	RGC_BUFFER_BUFPOS
																																																																	(BgL_tmpz00_21077);
																																																															}
																																																															{
																																																																long
																																																																	BgL_bufposz00_21081;
																																																																long
																																																																	BgL_forwardz00_21080;
																																																																BgL_forwardz00_21080
																																																																	=
																																																																	BgL_arg4136z00_6334;
																																																																BgL_bufposz00_21081
																																																																	=
																																																																	BgL_arg4137z00_6335;
																																																																BgL_bufposz00_6329
																																																																	=
																																																																	BgL_bufposz00_21081;
																																																																BgL_forwardz00_6328
																																																																	=
																																																																	BgL_forwardz00_21080;
																																																																goto
																																																																	BgL_zc3z04anonymousza34133ze3z87_6330;
																																																															}
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_matchz00_9747
																																																																=
																																																																BgL_newzd2matchzd2_6331;
																																																														}
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													int
																																																														BgL_curz00_6336;
																																																													{	/* Read/reader.scm 409 */
																																																														obj_t
																																																															BgL_tmpz00_21082;
																																																														BgL_tmpz00_21082
																																																															=
																																																															(
																																																															(obj_t)
																																																															BgL_iportz00_6326);
																																																														BgL_curz00_6336
																																																															=
																																																															RGC_BUFFER_GET_CHAR
																																																															(BgL_tmpz00_21082,
																																																															BgL_forwardz00_6328);
																																																													}
																																																													{	/* Read/reader.scm 409 */

																																																														if (((long) (BgL_curz00_6336) == 58L))
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_iportz00_5426
																																																																	=
																																																																	BgL_iportz00_6326;
																																																																BgL_lastzd2matchzd2_5427
																																																																	=
																																																																	BgL_newzd2matchzd2_6331;
																																																																BgL_forwardz00_5428
																																																																	=
																																																																	(1L
																																																																	+
																																																																	BgL_forwardz00_6328);
																																																																BgL_bufposz00_5429
																																																																	=
																																																																	BgL_bufposz00_6329;
																																																															BgL_zc3z04anonymousza33683ze3z87_5430:
																																																																{	/* Read/reader.scm 409 */
																																																																	long
																																																																		BgL_newzd2matchzd2_5431;
																																																																	{	/* Read/reader.scm 409 */
																																																																		obj_t
																																																																			BgL_tmpz00_21088;
																																																																		BgL_tmpz00_21088
																																																																			=
																																																																			(
																																																																			(obj_t)
																																																																			BgL_iportz00_5426);
																																																																		RGC_STOP_MATCH
																																																																			(BgL_tmpz00_21088,
																																																																			BgL_forwardz00_5428);
																																																																	}
																																																																	BgL_newzd2matchzd2_5431
																																																																		=
																																																																		20L;
																																																																	if ((BgL_forwardz00_5428 == BgL_bufposz00_5429))
																																																																		{	/* Read/reader.scm 409 */
																																																																			if (rgc_fill_buffer(((obj_t) BgL_iportz00_5426)))
																																																																				{	/* Read/reader.scm 409 */
																																																																					long
																																																																						BgL_arg3686z00_5434;
																																																																					long
																																																																						BgL_arg3687z00_5435;
																																																																					{	/* Read/reader.scm 409 */
																																																																						obj_t
																																																																							BgL_tmpz00_21096;
																																																																						BgL_tmpz00_21096
																																																																							=
																																																																							(
																																																																							(obj_t)
																																																																							BgL_iportz00_5426);
																																																																						BgL_arg3686z00_5434
																																																																							=
																																																																							RGC_BUFFER_FORWARD
																																																																							(BgL_tmpz00_21096);
																																																																					}
																																																																					{	/* Read/reader.scm 409 */
																																																																						obj_t
																																																																							BgL_tmpz00_21099;
																																																																						BgL_tmpz00_21099
																																																																							=
																																																																							(
																																																																							(obj_t)
																																																																							BgL_iportz00_5426);
																																																																						BgL_arg3687z00_5435
																																																																							=
																																																																							RGC_BUFFER_BUFPOS
																																																																							(BgL_tmpz00_21099);
																																																																					}
																																																																					{
																																																																						long
																																																																							BgL_bufposz00_21103;
																																																																						long
																																																																							BgL_forwardz00_21102;
																																																																						BgL_forwardz00_21102
																																																																							=
																																																																							BgL_arg3686z00_5434;
																																																																						BgL_bufposz00_21103
																																																																							=
																																																																							BgL_arg3687z00_5435;
																																																																						BgL_bufposz00_5429
																																																																							=
																																																																							BgL_bufposz00_21103;
																																																																						BgL_forwardz00_5428
																																																																							=
																																																																							BgL_forwardz00_21102;
																																																																						goto
																																																																							BgL_zc3z04anonymousza33683ze3z87_5430;
																																																																					}
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_matchz00_9747
																																																																						=
																																																																						BgL_newzd2matchzd2_5431;
																																																																				}
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 409 */
																																																																			int
																																																																				BgL_curz00_5436;
																																																																			{	/* Read/reader.scm 409 */
																																																																				obj_t
																																																																					BgL_tmpz00_21104;
																																																																				BgL_tmpz00_21104
																																																																					=
																																																																					(
																																																																					(obj_t)
																																																																					BgL_iportz00_5426);
																																																																				BgL_curz00_5436
																																																																					=
																																																																					RGC_BUFFER_GET_CHAR
																																																																					(BgL_tmpz00_21104,
																																																																					BgL_forwardz00_5428);
																																																																			}
																																																																			{	/* Read/reader.scm 409 */

																																																																				if (((long) (BgL_curz00_5436) == 58L))
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_iportz00_8682
																																																																							=
																																																																							BgL_iportz00_5426;
																																																																						BgL_lastzd2matchzd2_8683
																																																																							=
																																																																							BgL_newzd2matchzd2_5431;
																																																																						BgL_forwardz00_8684
																																																																							=
																																																																							(1L
																																																																							+
																																																																							BgL_forwardz00_5428);
																																																																						BgL_bufposz00_8685
																																																																							=
																																																																							BgL_bufposz00_5429;
																																																																					BgL_zc3z04anonymousza35339ze3z87_8686:
																																																																						{	/* Read/reader.scm 409 */
																																																																							long
																																																																								BgL_newzd2matchzd2_8687;
																																																																							{	/* Read/reader.scm 409 */
																																																																								obj_t
																																																																									BgL_tmpz00_21110;
																																																																								BgL_tmpz00_21110
																																																																									=
																																																																									(
																																																																									(obj_t)
																																																																									BgL_iportz00_8682);
																																																																								RGC_STOP_MATCH
																																																																									(BgL_tmpz00_21110,
																																																																									BgL_forwardz00_8684);
																																																																							}
																																																																							BgL_newzd2matchzd2_8687
																																																																								=
																																																																								21L;
																																																																							if ((BgL_forwardz00_8684 == BgL_bufposz00_8685))
																																																																								{	/* Read/reader.scm 409 */
																																																																									if (rgc_fill_buffer(((obj_t) BgL_iportz00_8682)))
																																																																										{	/* Read/reader.scm 409 */
																																																																											long
																																																																												BgL_arg5342z00_8690;
																																																																											long
																																																																												BgL_arg5343z00_8691;
																																																																											{	/* Read/reader.scm 409 */
																																																																												obj_t
																																																																													BgL_tmpz00_21118;
																																																																												BgL_tmpz00_21118
																																																																													=
																																																																													(
																																																																													(obj_t)
																																																																													BgL_iportz00_8682);
																																																																												BgL_arg5342z00_8690
																																																																													=
																																																																													RGC_BUFFER_FORWARD
																																																																													(BgL_tmpz00_21118);
																																																																											}
																																																																											{	/* Read/reader.scm 409 */
																																																																												obj_t
																																																																													BgL_tmpz00_21121;
																																																																												BgL_tmpz00_21121
																																																																													=
																																																																													(
																																																																													(obj_t)
																																																																													BgL_iportz00_8682);
																																																																												BgL_arg5343z00_8691
																																																																													=
																																																																													RGC_BUFFER_BUFPOS
																																																																													(BgL_tmpz00_21121);
																																																																											}
																																																																											{
																																																																												long
																																																																													BgL_bufposz00_21125;
																																																																												long
																																																																													BgL_forwardz00_21124;
																																																																												BgL_forwardz00_21124
																																																																													=
																																																																													BgL_arg5342z00_8690;
																																																																												BgL_bufposz00_21125
																																																																													=
																																																																													BgL_arg5343z00_8691;
																																																																												BgL_bufposz00_8685
																																																																													=
																																																																													BgL_bufposz00_21125;
																																																																												BgL_forwardz00_8684
																																																																													=
																																																																													BgL_forwardz00_21124;
																																																																												goto
																																																																													BgL_zc3z04anonymousza35339ze3z87_8686;
																																																																											}
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 409 */
																																																																											BgL_matchz00_9747
																																																																												=
																																																																												BgL_newzd2matchzd2_8687;
																																																																										}
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 409 */
																																																																									int
																																																																										BgL_curz00_8692;
																																																																									{	/* Read/reader.scm 409 */
																																																																										obj_t
																																																																											BgL_tmpz00_21126;
																																																																										BgL_tmpz00_21126
																																																																											=
																																																																											(
																																																																											(obj_t)
																																																																											BgL_iportz00_8682);
																																																																										BgL_curz00_8692
																																																																											=
																																																																											RGC_BUFFER_GET_CHAR
																																																																											(BgL_tmpz00_21126,
																																																																											BgL_forwardz00_8684);
																																																																									}
																																																																									{	/* Read/reader.scm 409 */

																																																																										if (((long) (BgL_curz00_8692) == 58L))
																																																																											{
																																																																												long
																																																																													BgL_forwardz00_21133;
																																																																												long
																																																																													BgL_lastzd2matchzd2_21132;
																																																																												BgL_lastzd2matchzd2_21132
																																																																													=
																																																																													BgL_newzd2matchzd2_8687;
																																																																												BgL_forwardz00_21133
																																																																													=
																																																																													(1L
																																																																													+
																																																																													BgL_forwardz00_8684);
																																																																												BgL_forwardz00_8684
																																																																													=
																																																																													BgL_forwardz00_21133;
																																																																												BgL_lastzd2matchzd2_8683
																																																																													=
																																																																													BgL_lastzd2matchzd2_21132;
																																																																												goto
																																																																													BgL_zc3z04anonymousza35339ze3z87_8686;
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 409 */
																																																																												if (((long) (BgL_curz00_8692) == 46L))
																																																																													{
																																																																														long
																																																																															BgL_bufposz00_21142;
																																																																														long
																																																																															BgL_forwardz00_21140;
																																																																														long
																																																																															BgL_lastzd2matchzd2_21139;
																																																																														obj_t
																																																																															BgL_iportz00_21138;
																																																																														BgL_iportz00_21138
																																																																															=
																																																																															BgL_iportz00_8682;
																																																																														BgL_lastzd2matchzd2_21139
																																																																															=
																																																																															BgL_newzd2matchzd2_8687;
																																																																														BgL_forwardz00_21140
																																																																															=
																																																																															(1L
																																																																															+
																																																																															BgL_forwardz00_8684);
																																																																														BgL_bufposz00_21142
																																																																															=
																																																																															BgL_bufposz00_8685;
																																																																														BgL_bufposz00_6329
																																																																															=
																																																																															BgL_bufposz00_21142;
																																																																														BgL_forwardz00_6328
																																																																															=
																																																																															BgL_forwardz00_21140;
																																																																														BgL_lastzd2matchzd2_6327
																																																																															=
																																																																															BgL_lastzd2matchzd2_21139;
																																																																														BgL_iportz00_6326
																																																																															=
																																																																															BgL_iportz00_21138;
																																																																														goto
																																																																															BgL_zc3z04anonymousza34133ze3z87_6330;
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 409 */
																																																																														bool_t
																																																																															BgL_test7570z00_21143;
																																																																														if (((long) (BgL_curz00_8692) == 39L))
																																																																															{	/* Read/reader.scm 409 */
																																																																																BgL_test7570z00_21143
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 409 */
																																																																																if (((long) (BgL_curz00_8692) == 44L))
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		BgL_test7570z00_21143
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			1);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		BgL_test7570z00_21143
																																																																																			=
																																																																																			(
																																																																																			(long)
																																																																																			(BgL_curz00_8692)
																																																																																			==
																																																																																			96L);
																																																																															}}
																																																																														if (BgL_test7570z00_21143)
																																																																															{
																																																																																long
																																																																																	BgL_bufposz00_21156;
																																																																																long
																																																																																	BgL_forwardz00_21154;
																																																																																long
																																																																																	BgL_lastzd2matchzd2_21153;
																																																																																obj_t
																																																																																	BgL_iportz00_21152;
																																																																																BgL_iportz00_21152
																																																																																	=
																																																																																	BgL_iportz00_8682;
																																																																																BgL_lastzd2matchzd2_21153
																																																																																	=
																																																																																	BgL_newzd2matchzd2_8687;
																																																																																BgL_forwardz00_21154
																																																																																	=
																																																																																	(1L
																																																																																	+
																																																																																	BgL_forwardz00_8684);
																																																																																BgL_bufposz00_21156
																																																																																	=
																																																																																	BgL_bufposz00_8685;
																																																																																BgL_bufposz00_5794
																																																																																	=
																																																																																	BgL_bufposz00_21156;
																																																																																BgL_forwardz00_5793
																																																																																	=
																																																																																	BgL_forwardz00_21154;
																																																																																BgL_lastzd2matchzd2_5792
																																																																																	=
																																																																																	BgL_lastzd2matchzd2_21153;
																																																																																BgL_iportz00_5791
																																																																																	=
																																																																																	BgL_iportz00_21152;
																																																																																goto
																																																																																	BgL_zc3z04anonymousza33869ze3z87_5795;
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 409 */
																																																																																bool_t
																																																																																	BgL_test7573z00_21157;
																																																																																if (((long) (BgL_curz00_8692) < 33L))
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		BgL_test7573z00_21157
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			1);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		bool_t
																																																																																			BgL_test7575z00_21161;
																																																																																		if (((long) (BgL_curz00_8692) == 35L))
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				BgL_test7575z00_21161
																																																																																					=
																																																																																					(
																																																																																					(bool_t)
																																																																																					1);
																																																																																			}
																																																																																		else
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				BgL_test7575z00_21161
																																																																																					=
																																																																																					(
																																																																																					(long)
																																																																																					(BgL_curz00_8692)
																																																																																					==
																																																																																					34L);
																																																																																			}
																																																																																		if (BgL_test7575z00_21161)
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				BgL_test7573z00_21157
																																																																																					=
																																																																																					(
																																																																																					(bool_t)
																																																																																					1);
																																																																																			}
																																																																																		else
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				bool_t
																																																																																					BgL_test7577z00_21167;
																																																																																				if (((long) (BgL_curz00_8692) == 41L))
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						BgL_test7577z00_21167
																																																																																							=
																																																																																							(
																																																																																							(bool_t)
																																																																																							1);
																																																																																					}
																																																																																				else
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						if (((long) (BgL_curz00_8692) == 40L))
																																																																																							{	/* Read/reader.scm 409 */
																																																																																								BgL_test7577z00_21167
																																																																																									=
																																																																																									(
																																																																																									(bool_t)
																																																																																									1);
																																																																																							}
																																																																																						else
																																																																																							{	/* Read/reader.scm 409 */
																																																																																								BgL_test7577z00_21167
																																																																																									=
																																																																																									(
																																																																																									(long)
																																																																																									(BgL_curz00_8692)
																																																																																									==
																																																																																									39L);
																																																																																					}}
																																																																																				if (BgL_test7577z00_21167)
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						BgL_test7573z00_21157
																																																																																							=
																																																																																							(
																																																																																							(bool_t)
																																																																																							1);
																																																																																					}
																																																																																				else
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						if (((long) (BgL_curz00_8692) == 44L))
																																																																																							{	/* Read/reader.scm 409 */
																																																																																								BgL_test7573z00_21157
																																																																																									=
																																																																																									(
																																																																																									(bool_t)
																																																																																									1);
																																																																																							}
																																																																																						else
																																																																																							{	/* Read/reader.scm 409 */
																																																																																								if (((long) (BgL_curz00_8692) == 46L))
																																																																																									{	/* Read/reader.scm 409 */
																																																																																										BgL_test7573z00_21157
																																																																																											=
																																																																																											(
																																																																																											(bool_t)
																																																																																											1);
																																																																																									}
																																																																																								else
																																																																																									{	/* Read/reader.scm 409 */
																																																																																										bool_t
																																																																																											BgL_test7582z00_21182;
																																																																																										if (((long) (BgL_curz00_8692) == 59L))
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												BgL_test7582z00_21182
																																																																																													=
																																																																																													(
																																																																																													(bool_t)
																																																																																													1);
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												BgL_test7582z00_21182
																																																																																													=
																																																																																													(
																																																																																													(long)
																																																																																													(BgL_curz00_8692)
																																																																																													==
																																																																																													58L);
																																																																																											}
																																																																																										if (BgL_test7582z00_21182)
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												BgL_test7573z00_21157
																																																																																													=
																																																																																													(
																																																																																													(bool_t)
																																																																																													1);
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												if (((long) (BgL_curz00_8692) == 91L))
																																																																																													{	/* Read/reader.scm 409 */
																																																																																														BgL_test7573z00_21157
																																																																																															=
																																																																																															(
																																																																																															(bool_t)
																																																																																															1);
																																																																																													}
																																																																																												else
																																																																																													{	/* Read/reader.scm 409 */
																																																																																														if (((long) (BgL_curz00_8692) == 93L))
																																																																																															{	/* Read/reader.scm 409 */
																																																																																																BgL_test7573z00_21157
																																																																																																	=
																																																																																																	(
																																																																																																	(bool_t)
																																																																																																	1);
																																																																																															}
																																																																																														else
																																																																																															{	/* Read/reader.scm 409 */
																																																																																																if (((long) (BgL_curz00_8692) == 96L))
																																																																																																	{	/* Read/reader.scm 409 */
																																																																																																		BgL_test7573z00_21157
																																																																																																			=
																																																																																																			(
																																																																																																			(bool_t)
																																																																																																			1);
																																																																																																	}
																																																																																																else
																																																																																																	{	/* Read/reader.scm 409 */
																																																																																																		bool_t
																																																																																																			BgL_test7587z00_21197;
																																																																																																		if (((long) (BgL_curz00_8692) == 125L))
																																																																																																			{	/* Read/reader.scm 409 */
																																																																																																				BgL_test7587z00_21197
																																																																																																					=
																																																																																																					(
																																																																																																					(bool_t)
																																																																																																					1);
																																																																																																			}
																																																																																																		else
																																																																																																			{	/* Read/reader.scm 409 */
																																																																																																				if (((long) (BgL_curz00_8692) == 124L))
																																																																																																					{	/* Read/reader.scm 409 */
																																																																																																						BgL_test7587z00_21197
																																																																																																							=
																																																																																																							(
																																																																																																							(bool_t)
																																																																																																							1);
																																																																																																					}
																																																																																																				else
																																																																																																					{	/* Read/reader.scm 409 */
																																																																																																						BgL_test7587z00_21197
																																																																																																							=
																																																																																																							(
																																																																																																							(long)
																																																																																																							(BgL_curz00_8692)
																																																																																																							==
																																																																																																							123L);
																																																																																																			}}
																																																																																																		if (BgL_test7587z00_21197)
																																																																																																			{	/* Read/reader.scm 409 */
																																																																																																				BgL_test7573z00_21157
																																																																																																					=
																																																																																																					(
																																																																																																					(bool_t)
																																																																																																					1);
																																																																																																			}
																																																																																																		else
																																																																																																			{	/* Read/reader.scm 409 */
																																																																																																				BgL_test7573z00_21157
																																																																																																					=
																																																																																																					(
																																																																																																					(long)
																																																																																																					(BgL_curz00_8692)
																																																																																																					==
																																																																																																					127L);
																																																																																	}}}}}}}}}}
																																																																																if (BgL_test7573z00_21157)
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		BgL_matchz00_9747
																																																																																			=
																																																																																			BgL_newzd2matchzd2_8687;
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		BgL_iportz00_4194
																																																																																			=
																																																																																			BgL_iportz00_8682;
																																																																																		BgL_lastzd2matchzd2_4195
																																																																																			=
																																																																																			BgL_newzd2matchzd2_8687;
																																																																																		BgL_forwardz00_4196
																																																																																			=
																																																																																			(1L
																																																																																			+
																																																																																			BgL_forwardz00_8684);
																																																																																		BgL_bufposz00_4197
																																																																																			=
																																																																																			BgL_bufposz00_8685;
																																																																																	BgL_zc3z04anonymousza32973ze3z87_4198:
																																																																																		{	/* Read/reader.scm 409 */
																																																																																			long
																																																																																				BgL_newzd2matchzd2_4199;
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				obj_t
																																																																																					BgL_tmpz00_21208;
																																																																																				BgL_tmpz00_21208
																																																																																					=
																																																																																					(
																																																																																					(obj_t)
																																																																																					BgL_iportz00_4194);
																																																																																				RGC_STOP_MATCH
																																																																																					(BgL_tmpz00_21208,
																																																																																					BgL_forwardz00_4196);
																																																																																			}
																																																																																			BgL_newzd2matchzd2_4199
																																																																																				=
																																																																																				21L;
																																																																																			if ((BgL_forwardz00_4196 == BgL_bufposz00_4197))
																																																																																				{	/* Read/reader.scm 409 */
																																																																																					if (rgc_fill_buffer(((obj_t) BgL_iportz00_4194)))
																																																																																						{	/* Read/reader.scm 409 */
																																																																																							long
																																																																																								BgL_arg2976z00_4202;
																																																																																							long
																																																																																								BgL_arg2977z00_4203;
																																																																																							{	/* Read/reader.scm 409 */
																																																																																								obj_t
																																																																																									BgL_tmpz00_21216;
																																																																																								BgL_tmpz00_21216
																																																																																									=
																																																																																									(
																																																																																									(obj_t)
																																																																																									BgL_iportz00_4194);
																																																																																								BgL_arg2976z00_4202
																																																																																									=
																																																																																									RGC_BUFFER_FORWARD
																																																																																									(BgL_tmpz00_21216);
																																																																																							}
																																																																																							{	/* Read/reader.scm 409 */
																																																																																								obj_t
																																																																																									BgL_tmpz00_21219;
																																																																																								BgL_tmpz00_21219
																																																																																									=
																																																																																									(
																																																																																									(obj_t)
																																																																																									BgL_iportz00_4194);
																																																																																								BgL_arg2977z00_4203
																																																																																									=
																																																																																									RGC_BUFFER_BUFPOS
																																																																																									(BgL_tmpz00_21219);
																																																																																							}
																																																																																							{
																																																																																								long
																																																																																									BgL_bufposz00_21223;
																																																																																								long
																																																																																									BgL_forwardz00_21222;
																																																																																								BgL_forwardz00_21222
																																																																																									=
																																																																																									BgL_arg2976z00_4202;
																																																																																								BgL_bufposz00_21223
																																																																																									=
																																																																																									BgL_arg2977z00_4203;
																																																																																								BgL_bufposz00_4197
																																																																																									=
																																																																																									BgL_bufposz00_21223;
																																																																																								BgL_forwardz00_4196
																																																																																									=
																																																																																									BgL_forwardz00_21222;
																																																																																								goto
																																																																																									BgL_zc3z04anonymousza32973ze3z87_4198;
																																																																																							}
																																																																																						}
																																																																																					else
																																																																																						{	/* Read/reader.scm 409 */
																																																																																							BgL_matchz00_9747
																																																																																								=
																																																																																								BgL_newzd2matchzd2_4199;
																																																																																						}
																																																																																				}
																																																																																			else
																																																																																				{	/* Read/reader.scm 409 */
																																																																																					int
																																																																																						BgL_curz00_4204;
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						obj_t
																																																																																							BgL_tmpz00_21224;
																																																																																						BgL_tmpz00_21224
																																																																																							=
																																																																																							(
																																																																																							(obj_t)
																																																																																							BgL_iportz00_4194);
																																																																																						BgL_curz00_4204
																																																																																							=
																																																																																							RGC_BUFFER_GET_CHAR
																																																																																							(BgL_tmpz00_21224,
																																																																																							BgL_forwardz00_4196);
																																																																																					}
																																																																																					{	/* Read/reader.scm 409 */

																																																																																						if (((long) (BgL_curz00_4204) == 58L))
																																																																																							{
																																																																																								long
																																																																																									BgL_bufposz00_21234;
																																																																																								long
																																																																																									BgL_forwardz00_21232;
																																																																																								long
																																																																																									BgL_lastzd2matchzd2_21231;
																																																																																								obj_t
																																																																																									BgL_iportz00_21230;
																																																																																								BgL_iportz00_21230
																																																																																									=
																																																																																									BgL_iportz00_4194;
																																																																																								BgL_lastzd2matchzd2_21231
																																																																																									=
																																																																																									BgL_newzd2matchzd2_4199;
																																																																																								BgL_forwardz00_21232
																																																																																									=
																																																																																									(1L
																																																																																									+
																																																																																									BgL_forwardz00_4196);
																																																																																								BgL_bufposz00_21234
																																																																																									=
																																																																																									BgL_bufposz00_4197;
																																																																																								BgL_bufposz00_5429
																																																																																									=
																																																																																									BgL_bufposz00_21234;
																																																																																								BgL_forwardz00_5428
																																																																																									=
																																																																																									BgL_forwardz00_21232;
																																																																																								BgL_lastzd2matchzd2_5427
																																																																																									=
																																																																																									BgL_lastzd2matchzd2_21231;
																																																																																								BgL_iportz00_5426
																																																																																									=
																																																																																									BgL_iportz00_21230;
																																																																																								goto
																																																																																									BgL_zc3z04anonymousza33683ze3z87_5430;
																																																																																							}
																																																																																						else
																																																																																							{	/* Read/reader.scm 409 */
																																																																																								if (((long) (BgL_curz00_4204) == 46L))
																																																																																									{
																																																																																										long
																																																																																											BgL_bufposz00_21242;
																																																																																										long
																																																																																											BgL_forwardz00_21240;
																																																																																										long
																																																																																											BgL_lastzd2matchzd2_21239;
																																																																																										obj_t
																																																																																											BgL_iportz00_21238;
																																																																																										BgL_iportz00_21238
																																																																																											=
																																																																																											BgL_iportz00_4194;
																																																																																										BgL_lastzd2matchzd2_21239
																																																																																											=
																																																																																											BgL_newzd2matchzd2_4199;
																																																																																										BgL_forwardz00_21240
																																																																																											=
																																																																																											(1L
																																																																																											+
																																																																																											BgL_forwardz00_4196);
																																																																																										BgL_bufposz00_21242
																																																																																											=
																																																																																											BgL_bufposz00_4197;
																																																																																										BgL_bufposz00_6329
																																																																																											=
																																																																																											BgL_bufposz00_21242;
																																																																																										BgL_forwardz00_6328
																																																																																											=
																																																																																											BgL_forwardz00_21240;
																																																																																										BgL_lastzd2matchzd2_6327
																																																																																											=
																																																																																											BgL_lastzd2matchzd2_21239;
																																																																																										BgL_iportz00_6326
																																																																																											=
																																																																																											BgL_iportz00_21238;
																																																																																										goto
																																																																																											BgL_zc3z04anonymousza34133ze3z87_6330;
																																																																																									}
																																																																																								else
																																																																																									{	/* Read/reader.scm 409 */
																																																																																										bool_t
																																																																																											BgL_test7594z00_21243;
																																																																																										if (((long) (BgL_curz00_4204) == 39L))
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												BgL_test7594z00_21243
																																																																																													=
																																																																																													(
																																																																																													(bool_t)
																																																																																													1);
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												if (((long) (BgL_curz00_4204) == 44L))
																																																																																													{	/* Read/reader.scm 409 */
																																																																																														BgL_test7594z00_21243
																																																																																															=
																																																																																															(
																																																																																															(bool_t)
																																																																																															1);
																																																																																													}
																																																																																												else
																																																																																													{	/* Read/reader.scm 409 */
																																																																																														BgL_test7594z00_21243
																																																																																															=
																																																																																															(
																																																																																															(long)
																																																																																															(BgL_curz00_4204)
																																																																																															==
																																																																																															96L);
																																																																																											}}
																																																																																										if (BgL_test7594z00_21243)
																																																																																											{
																																																																																												long
																																																																																													BgL_bufposz00_21256;
																																																																																												long
																																																																																													BgL_forwardz00_21254;
																																																																																												long
																																																																																													BgL_lastzd2matchzd2_21253;
																																																																																												obj_t
																																																																																													BgL_iportz00_21252;
																																																																																												BgL_iportz00_21252
																																																																																													=
																																																																																													BgL_iportz00_4194;
																																																																																												BgL_lastzd2matchzd2_21253
																																																																																													=
																																																																																													BgL_newzd2matchzd2_4199;
																																																																																												BgL_forwardz00_21254
																																																																																													=
																																																																																													(1L
																																																																																													+
																																																																																													BgL_forwardz00_4196);
																																																																																												BgL_bufposz00_21256
																																																																																													=
																																																																																													BgL_bufposz00_4197;
																																																																																												BgL_bufposz00_5794
																																																																																													=
																																																																																													BgL_bufposz00_21256;
																																																																																												BgL_forwardz00_5793
																																																																																													=
																																																																																													BgL_forwardz00_21254;
																																																																																												BgL_lastzd2matchzd2_5792
																																																																																													=
																																																																																													BgL_lastzd2matchzd2_21253;
																																																																																												BgL_iportz00_5791
																																																																																													=
																																																																																													BgL_iportz00_21252;
																																																																																												goto
																																																																																													BgL_zc3z04anonymousza33869ze3z87_5795;
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												bool_t
																																																																																													BgL_test7597z00_21257;
																																																																																												if (((long) (BgL_curz00_4204) < 33L))
																																																																																													{	/* Read/reader.scm 409 */
																																																																																														BgL_test7597z00_21257
																																																																																															=
																																																																																															(
																																																																																															(bool_t)
																																																																																															1);
																																																																																													}
																																																																																												else
																																																																																													{	/* Read/reader.scm 409 */
																																																																																														bool_t
																																																																																															BgL_test7599z00_21261;
																																																																																														if (((long) (BgL_curz00_4204) == 35L))
																																																																																															{	/* Read/reader.scm 409 */
																																																																																																BgL_test7599z00_21261
																																																																																																	=
																																																																																																	(
																																																																																																	(bool_t)
																																																																																																	1);
																																																																																															}
																																																																																														else
																																																																																															{	/* Read/reader.scm 409 */
																																																																																																BgL_test7599z00_21261
																																																																																																	=
																																																																																																	(
																																																																																																	(long)
																																																																																																	(BgL_curz00_4204)
																																																																																																	==
																																																																																																	34L);
																																																																																															}
																																																																																														if (BgL_test7599z00_21261)
																																																																																															{	/* Read/reader.scm 409 */
																																																																																																BgL_test7597z00_21257
																																																																																																	=
																																																																																																	(
																																																																																																	(bool_t)
																																																																																																	1);
																																																																																															}
																																																																																														else
																																																																																															{	/* Read/reader.scm 409 */
																																																																																																bool_t
																																																																																																	BgL_test7601z00_21267;
																																																																																																if (((long) (BgL_curz00_4204) == 41L))
																																																																																																	{	/* Read/reader.scm 409 */
																																																																																																		BgL_test7601z00_21267
																																																																																																			=
																																																																																																			(
																																																																																																			(bool_t)
																																																																																																			1);
																																																																																																	}
																																																																																																else
																																																																																																	{	/* Read/reader.scm 409 */
																																																																																																		if (((long) (BgL_curz00_4204) == 40L))
																																																																																																			{	/* Read/reader.scm 409 */
																																																																																																				BgL_test7601z00_21267
																																																																																																					=
																																																																																																					(
																																																																																																					(bool_t)
																																																																																																					1);
																																																																																																			}
																																																																																																		else
																																																																																																			{	/* Read/reader.scm 409 */
																																																																																																				BgL_test7601z00_21267
																																																																																																					=
																																																																																																					(
																																																																																																					(long)
																																																																																																					(BgL_curz00_4204)
																																																																																																					==
																																																																																																					39L);
																																																																																																	}}
																																																																																																if (BgL_test7601z00_21267)
																																																																																																	{	/* Read/reader.scm 409 */
																																																																																																		BgL_test7597z00_21257
																																																																																																			=
																																																																																																			(
																																																																																																			(bool_t)
																																																																																																			1);
																																																																																																	}
																																																																																																else
																																																																																																	{	/* Read/reader.scm 409 */
																																																																																																		if (((long) (BgL_curz00_4204) == 44L))
																																																																																																			{	/* Read/reader.scm 409 */
																																																																																																				BgL_test7597z00_21257
																																																																																																					=
																																																																																																					(
																																																																																																					(bool_t)
																																																																																																					1);
																																																																																																			}
																																																																																																		else
																																																																																																			{	/* Read/reader.scm 409 */
																																																																																																				if (((long) (BgL_curz00_4204) == 46L))
																																																																																																					{	/* Read/reader.scm 409 */
																																																																																																						BgL_test7597z00_21257
																																																																																																							=
																																																																																																							(
																																																																																																							(bool_t)
																																																																																																							1);
																																																																																																					}
																																																																																																				else
																																																																																																					{	/* Read/reader.scm 409 */
																																																																																																						bool_t
																																																																																																							BgL_test7606z00_21282;
																																																																																																						if (((long) (BgL_curz00_4204) == 59L))
																																																																																																							{	/* Read/reader.scm 409 */
																																																																																																								BgL_test7606z00_21282
																																																																																																									=
																																																																																																									(
																																																																																																									(bool_t)
																																																																																																									1);
																																																																																																							}
																																																																																																						else
																																																																																																							{	/* Read/reader.scm 409 */
																																																																																																								BgL_test7606z00_21282
																																																																																																									=
																																																																																																									(
																																																																																																									(long)
																																																																																																									(BgL_curz00_4204)
																																																																																																									==
																																																																																																									58L);
																																																																																																							}
																																																																																																						if (BgL_test7606z00_21282)
																																																																																																							{	/* Read/reader.scm 409 */
																																																																																																								BgL_test7597z00_21257
																																																																																																									=
																																																																																																									(
																																																																																																									(bool_t)
																																																																																																									1);
																																																																																																							}
																																																																																																						else
																																																																																																							{	/* Read/reader.scm 409 */
																																																																																																								if (((long) (BgL_curz00_4204) == 91L))
																																																																																																									{	/* Read/reader.scm 409 */
																																																																																																										BgL_test7597z00_21257
																																																																																																											=
																																																																																																											(
																																																																																																											(bool_t)
																																																																																																											1);
																																																																																																									}
																																																																																																								else
																																																																																																									{	/* Read/reader.scm 409 */
																																																																																																										if (((long) (BgL_curz00_4204) == 93L))
																																																																																																											{	/* Read/reader.scm 409 */
																																																																																																												BgL_test7597z00_21257
																																																																																																													=
																																																																																																													(
																																																																																																													(bool_t)
																																																																																																													1);
																																																																																																											}
																																																																																																										else
																																																																																																											{	/* Read/reader.scm 409 */
																																																																																																												if (((long) (BgL_curz00_4204) == 96L))
																																																																																																													{	/* Read/reader.scm 409 */
																																																																																																														BgL_test7597z00_21257
																																																																																																															=
																																																																																																															(
																																																																																																															(bool_t)
																																																																																																															1);
																																																																																																													}
																																																																																																												else
																																																																																																													{	/* Read/reader.scm 409 */
																																																																																																														bool_t
																																																																																																															BgL_test7611z00_21297;
																																																																																																														if (((long) (BgL_curz00_4204) == 125L))
																																																																																																															{	/* Read/reader.scm 409 */
																																																																																																																BgL_test7611z00_21297
																																																																																																																	=
																																																																																																																	(
																																																																																																																	(bool_t)
																																																																																																																	1);
																																																																																																															}
																																																																																																														else
																																																																																																															{	/* Read/reader.scm 409 */
																																																																																																																if (((long) (BgL_curz00_4204) == 124L))
																																																																																																																	{	/* Read/reader.scm 409 */
																																																																																																																		BgL_test7611z00_21297
																																																																																																																			=
																																																																																																																			(
																																																																																																																			(bool_t)
																																																																																																																			1);
																																																																																																																	}
																																																																																																																else
																																																																																																																	{	/* Read/reader.scm 409 */
																																																																																																																		BgL_test7611z00_21297
																																																																																																																			=
																																																																																																																			(
																																																																																																																			(long)
																																																																																																																			(BgL_curz00_4204)
																																																																																																																			==
																																																																																																																			123L);
																																																																																																															}}
																																																																																																														if (BgL_test7611z00_21297)
																																																																																																															{	/* Read/reader.scm 409 */
																																																																																																																BgL_test7597z00_21257
																																																																																																																	=
																																																																																																																	(
																																																																																																																	(bool_t)
																																																																																																																	1);
																																																																																																															}
																																																																																																														else
																																																																																																															{	/* Read/reader.scm 409 */
																																																																																																																BgL_test7597z00_21257
																																																																																																																	=
																																																																																																																	(
																																																																																																																	(long)
																																																																																																																	(BgL_curz00_4204)
																																																																																																																	==
																																																																																																																	127L);
																																																																																													}}}}}}}}}}
																																																																																												if (BgL_test7597z00_21257)
																																																																																													{	/* Read/reader.scm 409 */
																																																																																														BgL_matchz00_9747
																																																																																															=
																																																																																															BgL_newzd2matchzd2_4199;
																																																																																													}
																																																																																												else
																																																																																													{
																																																																																														long
																																																																																															BgL_forwardz00_21309;
																																																																																														long
																																																																																															BgL_lastzd2matchzd2_21308;
																																																																																														BgL_lastzd2matchzd2_21308
																																																																																															=
																																																																																															BgL_newzd2matchzd2_4199;
																																																																																														BgL_forwardz00_21309
																																																																																															=
																																																																																															(1L
																																																																																															+
																																																																																															BgL_forwardz00_4196);
																																																																																														BgL_forwardz00_4196
																																																																																															=
																																																																																															BgL_forwardz00_21309;
																																																																																														BgL_lastzd2matchzd2_4195
																																																																																															=
																																																																																															BgL_lastzd2matchzd2_21308;
																																																																																														goto
																																																																																															BgL_zc3z04anonymousza32973ze3z87_4198;
																																																																																													}
																																																																																											}
																																																																																									}
																																																																																							}
																																																																																					}
																																																																																				}
																																																																																		}
																																																																																	}
																																																																															}
																																																																													}
																																																																											}
																																																																									}
																																																																								}
																																																																						}
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 409 */
																																																																						if (((long) (BgL_curz00_5436) == 46L))
																																																																							{
																																																																								long
																																																																									BgL_bufposz00_21320;
																																																																								long
																																																																									BgL_forwardz00_21318;
																																																																								long
																																																																									BgL_lastzd2matchzd2_21317;
																																																																								obj_t
																																																																									BgL_iportz00_21316;
																																																																								BgL_iportz00_21316
																																																																									=
																																																																									BgL_iportz00_5426;
																																																																								BgL_lastzd2matchzd2_21317
																																																																									=
																																																																									BgL_newzd2matchzd2_5431;
																																																																								BgL_forwardz00_21318
																																																																									=
																																																																									(1L
																																																																									+
																																																																									BgL_forwardz00_5428);
																																																																								BgL_bufposz00_21320
																																																																									=
																																																																									BgL_bufposz00_5429;
																																																																								BgL_bufposz00_6329
																																																																									=
																																																																									BgL_bufposz00_21320;
																																																																								BgL_forwardz00_6328
																																																																									=
																																																																									BgL_forwardz00_21318;
																																																																								BgL_lastzd2matchzd2_6327
																																																																									=
																																																																									BgL_lastzd2matchzd2_21317;
																																																																								BgL_iportz00_6326
																																																																									=
																																																																									BgL_iportz00_21316;
																																																																								goto
																																																																									BgL_zc3z04anonymousza34133ze3z87_6330;
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 409 */
																																																																								bool_t
																																																																									BgL_test7615z00_21321;
																																																																								if (((long) (BgL_curz00_5436) == 39L))
																																																																									{	/* Read/reader.scm 409 */
																																																																										BgL_test7615z00_21321
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 409 */
																																																																										if (((long) (BgL_curz00_5436) == 44L))
																																																																											{	/* Read/reader.scm 409 */
																																																																												BgL_test7615z00_21321
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 409 */
																																																																												BgL_test7615z00_21321
																																																																													=
																																																																													(
																																																																													(long)
																																																																													(BgL_curz00_5436)
																																																																													==
																																																																													96L);
																																																																									}}
																																																																								if (BgL_test7615z00_21321)
																																																																									{
																																																																										long
																																																																											BgL_bufposz00_21334;
																																																																										long
																																																																											BgL_forwardz00_21332;
																																																																										long
																																																																											BgL_lastzd2matchzd2_21331;
																																																																										obj_t
																																																																											BgL_iportz00_21330;
																																																																										BgL_iportz00_21330
																																																																											=
																																																																											BgL_iportz00_5426;
																																																																										BgL_lastzd2matchzd2_21331
																																																																											=
																																																																											BgL_newzd2matchzd2_5431;
																																																																										BgL_forwardz00_21332
																																																																											=
																																																																											(1L
																																																																											+
																																																																											BgL_forwardz00_5428);
																																																																										BgL_bufposz00_21334
																																																																											=
																																																																											BgL_bufposz00_5429;
																																																																										BgL_bufposz00_5794
																																																																											=
																																																																											BgL_bufposz00_21334;
																																																																										BgL_forwardz00_5793
																																																																											=
																																																																											BgL_forwardz00_21332;
																																																																										BgL_lastzd2matchzd2_5792
																																																																											=
																																																																											BgL_lastzd2matchzd2_21331;
																																																																										BgL_iportz00_5791
																																																																											=
																																																																											BgL_iportz00_21330;
																																																																										goto
																																																																											BgL_zc3z04anonymousza33869ze3z87_5795;
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 409 */
																																																																										bool_t
																																																																											BgL_test7618z00_21335;
																																																																										if (((long) (BgL_curz00_5436) < 33L))
																																																																											{	/* Read/reader.scm 409 */
																																																																												BgL_test7618z00_21335
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 409 */
																																																																												bool_t
																																																																													BgL_test7620z00_21339;
																																																																												if (((long) (BgL_curz00_5436) == 35L))
																																																																													{	/* Read/reader.scm 409 */
																																																																														BgL_test7620z00_21339
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 409 */
																																																																														BgL_test7620z00_21339
																																																																															=
																																																																															(
																																																																															(long)
																																																																															(BgL_curz00_5436)
																																																																															==
																																																																															34L);
																																																																													}
																																																																												if (BgL_test7620z00_21339)
																																																																													{	/* Read/reader.scm 409 */
																																																																														BgL_test7618z00_21335
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 409 */
																																																																														bool_t
																																																																															BgL_test7622z00_21345;
																																																																														if (((long) (BgL_curz00_5436) == 41L))
																																																																															{	/* Read/reader.scm 409 */
																																																																																BgL_test7622z00_21345
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 409 */
																																																																																if (((long) (BgL_curz00_5436) == 40L))
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		BgL_test7622z00_21345
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			1);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		BgL_test7622z00_21345
																																																																																			=
																																																																																			(
																																																																																			(long)
																																																																																			(BgL_curz00_5436)
																																																																																			==
																																																																																			39L);
																																																																															}}
																																																																														if (BgL_test7622z00_21345)
																																																																															{	/* Read/reader.scm 409 */
																																																																																BgL_test7618z00_21335
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 409 */
																																																																																if (((long) (BgL_curz00_5436) == 44L))
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		BgL_test7618z00_21335
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			1);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		if (((long) (BgL_curz00_5436) == 46L))
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				BgL_test7618z00_21335
																																																																																					=
																																																																																					(
																																																																																					(bool_t)
																																																																																					1);
																																																																																			}
																																																																																		else
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				bool_t
																																																																																					BgL_test7627z00_21360;
																																																																																				if (((long) (BgL_curz00_5436) == 59L))
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						BgL_test7627z00_21360
																																																																																							=
																																																																																							(
																																																																																							(bool_t)
																																																																																							1);
																																																																																					}
																																																																																				else
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						BgL_test7627z00_21360
																																																																																							=
																																																																																							(
																																																																																							(long)
																																																																																							(BgL_curz00_5436)
																																																																																							==
																																																																																							58L);
																																																																																					}
																																																																																				if (BgL_test7627z00_21360)
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						BgL_test7618z00_21335
																																																																																							=
																																																																																							(
																																																																																							(bool_t)
																																																																																							1);
																																																																																					}
																																																																																				else
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						if (((long) (BgL_curz00_5436) == 91L))
																																																																																							{	/* Read/reader.scm 409 */
																																																																																								BgL_test7618z00_21335
																																																																																									=
																																																																																									(
																																																																																									(bool_t)
																																																																																									1);
																																																																																							}
																																																																																						else
																																																																																							{	/* Read/reader.scm 409 */
																																																																																								if (((long) (BgL_curz00_5436) == 93L))
																																																																																									{	/* Read/reader.scm 409 */
																																																																																										BgL_test7618z00_21335
																																																																																											=
																																																																																											(
																																																																																											(bool_t)
																																																																																											1);
																																																																																									}
																																																																																								else
																																																																																									{	/* Read/reader.scm 409 */
																																																																																										if (((long) (BgL_curz00_5436) == 96L))
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												BgL_test7618z00_21335
																																																																																													=
																																																																																													(
																																																																																													(bool_t)
																																																																																													1);
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												bool_t
																																																																																													BgL_test7632z00_21375;
																																																																																												if (((long) (BgL_curz00_5436) == 125L))
																																																																																													{	/* Read/reader.scm 409 */
																																																																																														BgL_test7632z00_21375
																																																																																															=
																																																																																															(
																																																																																															(bool_t)
																																																																																															1);
																																																																																													}
																																																																																												else
																																																																																													{	/* Read/reader.scm 409 */
																																																																																														if (((long) (BgL_curz00_5436) == 124L))
																																																																																															{	/* Read/reader.scm 409 */
																																																																																																BgL_test7632z00_21375
																																																																																																	=
																																																																																																	(
																																																																																																	(bool_t)
																																																																																																	1);
																																																																																															}
																																																																																														else
																																																																																															{	/* Read/reader.scm 409 */
																																																																																																BgL_test7632z00_21375
																																																																																																	=
																																																																																																	(
																																																																																																	(long)
																																																																																																	(BgL_curz00_5436)
																																																																																																	==
																																																																																																	123L);
																																																																																													}}
																																																																																												if (BgL_test7632z00_21375)
																																																																																													{	/* Read/reader.scm 409 */
																																																																																														BgL_test7618z00_21335
																																																																																															=
																																																																																															(
																																																																																															(bool_t)
																																																																																															1);
																																																																																													}
																																																																																												else
																																																																																													{	/* Read/reader.scm 409 */
																																																																																														BgL_test7618z00_21335
																																																																																															=
																																																																																															(
																																																																																															(long)
																																																																																															(BgL_curz00_5436)
																																																																																															==
																																																																																															127L);
																																																																											}}}}}}}}}}
																																																																										if (BgL_test7618z00_21335)
																																																																											{	/* Read/reader.scm 409 */
																																																																												BgL_matchz00_9747
																																																																													=
																																																																													BgL_newzd2matchzd2_5431;
																																																																											}
																																																																										else
																																																																											{
																																																																												long
																																																																													BgL_bufposz00_21390;
																																																																												long
																																																																													BgL_forwardz00_21388;
																																																																												long
																																																																													BgL_lastzd2matchzd2_21387;
																																																																												obj_t
																																																																													BgL_iportz00_21386;
																																																																												BgL_iportz00_21386
																																																																													=
																																																																													BgL_iportz00_5426;
																																																																												BgL_lastzd2matchzd2_21387
																																																																													=
																																																																													BgL_newzd2matchzd2_5431;
																																																																												BgL_forwardz00_21388
																																																																													=
																																																																													(1L
																																																																													+
																																																																													BgL_forwardz00_5428);
																																																																												BgL_bufposz00_21390
																																																																													=
																																																																													BgL_bufposz00_5429;
																																																																												BgL_bufposz00_4197
																																																																													=
																																																																													BgL_bufposz00_21390;
																																																																												BgL_forwardz00_4196
																																																																													=
																																																																													BgL_forwardz00_21388;
																																																																												BgL_lastzd2matchzd2_4195
																																																																													=
																																																																													BgL_lastzd2matchzd2_21387;
																																																																												BgL_iportz00_4194
																																																																													=
																																																																													BgL_iportz00_21386;
																																																																												goto
																																																																													BgL_zc3z04anonymousza32973ze3z87_4198;
																																																																											}
																																																																									}
																																																																							}
																																																																					}
																																																																			}
																																																																		}
																																																																}
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																bool_t
																																																																	BgL_test7635z00_21392;
																																																																if (((long) (BgL_curz00_6336) >= 48L))
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test7635z00_21392
																																																																			=
																																																																			(
																																																																			(long)
																																																																			(BgL_curz00_6336)
																																																																			<
																																																																			58L);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test7635z00_21392
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			0);
																																																																	}
																																																																if (BgL_test7635z00_21392)
																																																																	{
																																																																		long
																																																																			BgL_forwardz00_21399;
																																																																		long
																																																																			BgL_lastzd2matchzd2_21398;
																																																																		BgL_lastzd2matchzd2_21398
																																																																			=
																																																																			BgL_newzd2matchzd2_6331;
																																																																		BgL_forwardz00_21399
																																																																			=
																																																																			(1L
																																																																			+
																																																																			BgL_forwardz00_6328);
																																																																		BgL_forwardz00_6328
																																																																			=
																																																																			BgL_forwardz00_21399;
																																																																		BgL_lastzd2matchzd2_6327
																																																																			=
																																																																			BgL_lastzd2matchzd2_21398;
																																																																		goto
																																																																			BgL_zc3z04anonymousza34133ze3z87_6330;
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		if (((long) (BgL_curz00_6336) == 46L))
																																																																			{	/* Read/reader.scm 409 */
																																																																				BgL_iportz00_9539
																																																																					=
																																																																					BgL_iportz00_6326;
																																																																				BgL_lastzd2matchzd2_9540
																																																																					=
																																																																					BgL_newzd2matchzd2_6331;
																																																																				BgL_forwardz00_9541
																																																																					=
																																																																					(1L
																																																																					+
																																																																					BgL_forwardz00_6328);
																																																																				BgL_bufposz00_9542
																																																																					=
																																																																					BgL_bufposz00_6329;
																																																																			BgL_zc3z04anonymousza35780ze3z87_9543:
																																																																				{	/* Read/reader.scm 409 */
																																																																					long
																																																																						BgL_newzd2matchzd2_9544;
																																																																					{	/* Read/reader.scm 409 */
																																																																						obj_t
																																																																							BgL_tmpz00_21404;
																																																																						BgL_tmpz00_21404
																																																																							=
																																																																							(
																																																																							(obj_t)
																																																																							BgL_iportz00_9539);
																																																																						RGC_STOP_MATCH
																																																																							(BgL_tmpz00_21404,
																																																																							BgL_forwardz00_9541);
																																																																					}
																																																																					BgL_newzd2matchzd2_9544
																																																																						=
																																																																						22L;
																																																																					if ((BgL_forwardz00_9541 == BgL_bufposz00_9542))
																																																																						{	/* Read/reader.scm 409 */
																																																																							if (rgc_fill_buffer(((obj_t) BgL_iportz00_9539)))
																																																																								{	/* Read/reader.scm 409 */
																																																																									long
																																																																										BgL_arg5783z00_9547;
																																																																									long
																																																																										BgL_arg5784z00_9548;
																																																																									{	/* Read/reader.scm 409 */
																																																																										obj_t
																																																																											BgL_tmpz00_21412;
																																																																										BgL_tmpz00_21412
																																																																											=
																																																																											(
																																																																											(obj_t)
																																																																											BgL_iportz00_9539);
																																																																										BgL_arg5783z00_9547
																																																																											=
																																																																											RGC_BUFFER_FORWARD
																																																																											(BgL_tmpz00_21412);
																																																																									}
																																																																									{	/* Read/reader.scm 409 */
																																																																										obj_t
																																																																											BgL_tmpz00_21415;
																																																																										BgL_tmpz00_21415
																																																																											=
																																																																											(
																																																																											(obj_t)
																																																																											BgL_iportz00_9539);
																																																																										BgL_arg5784z00_9548
																																																																											=
																																																																											RGC_BUFFER_BUFPOS
																																																																											(BgL_tmpz00_21415);
																																																																									}
																																																																									{
																																																																										long
																																																																											BgL_bufposz00_21419;
																																																																										long
																																																																											BgL_forwardz00_21418;
																																																																										BgL_forwardz00_21418
																																																																											=
																																																																											BgL_arg5783z00_9547;
																																																																										BgL_bufposz00_21419
																																																																											=
																																																																											BgL_arg5784z00_9548;
																																																																										BgL_bufposz00_9542
																																																																											=
																																																																											BgL_bufposz00_21419;
																																																																										BgL_forwardz00_9541
																																																																											=
																																																																											BgL_forwardz00_21418;
																																																																										goto
																																																																											BgL_zc3z04anonymousza35780ze3z87_9543;
																																																																									}
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_matchz00_9747
																																																																										=
																																																																										BgL_newzd2matchzd2_9544;
																																																																								}
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 409 */
																																																																							int
																																																																								BgL_curz00_9549;
																																																																							{	/* Read/reader.scm 409 */
																																																																								obj_t
																																																																									BgL_tmpz00_21420;
																																																																								BgL_tmpz00_21420
																																																																									=
																																																																									(
																																																																									(obj_t)
																																																																									BgL_iportz00_9539);
																																																																								BgL_curz00_9549
																																																																									=
																																																																									RGC_BUFFER_GET_CHAR
																																																																									(BgL_tmpz00_21420,
																																																																									BgL_forwardz00_9541);
																																																																							}
																																																																							{	/* Read/reader.scm 409 */

																																																																								if (((long) (BgL_curz00_9549) == 58L))
																																																																									{	/* Read/reader.scm 409 */
																																																																										BgL_iportz00_7590
																																																																											=
																																																																											BgL_iportz00_9539;
																																																																										BgL_lastzd2matchzd2_7591
																																																																											=
																																																																											BgL_newzd2matchzd2_9544;
																																																																										BgL_forwardz00_7592
																																																																											=
																																																																											(1L
																																																																											+
																																																																											BgL_forwardz00_9541);
																																																																										BgL_bufposz00_7593
																																																																											=
																																																																											BgL_bufposz00_9542;
																																																																									BgL_zc3z04anonymousza34787ze3z87_7594:
																																																																										{	/* Read/reader.scm 409 */
																																																																											long
																																																																												BgL_newzd2matchzd2_7595;
																																																																											{	/* Read/reader.scm 409 */
																																																																												obj_t
																																																																													BgL_tmpz00_21426;
																																																																												BgL_tmpz00_21426
																																																																													=
																																																																													(
																																																																													(obj_t)
																																																																													BgL_iportz00_7590);
																																																																												RGC_STOP_MATCH
																																																																													(BgL_tmpz00_21426,
																																																																													BgL_forwardz00_7592);
																																																																											}
																																																																											BgL_newzd2matchzd2_7595
																																																																												=
																																																																												20L;
																																																																											if ((BgL_forwardz00_7592 == BgL_bufposz00_7593))
																																																																												{	/* Read/reader.scm 409 */
																																																																													if (rgc_fill_buffer(((obj_t) BgL_iportz00_7590)))
																																																																														{	/* Read/reader.scm 409 */
																																																																															long
																																																																																BgL_arg4790z00_7598;
																																																																															long
																																																																																BgL_arg4791z00_7599;
																																																																															{	/* Read/reader.scm 409 */
																																																																																obj_t
																																																																																	BgL_tmpz00_21434;
																																																																																BgL_tmpz00_21434
																																																																																	=
																																																																																	(
																																																																																	(obj_t)
																																																																																	BgL_iportz00_7590);
																																																																																BgL_arg4790z00_7598
																																																																																	=
																																																																																	RGC_BUFFER_FORWARD
																																																																																	(BgL_tmpz00_21434);
																																																																															}
																																																																															{	/* Read/reader.scm 409 */
																																																																																obj_t
																																																																																	BgL_tmpz00_21437;
																																																																																BgL_tmpz00_21437
																																																																																	=
																																																																																	(
																																																																																	(obj_t)
																																																																																	BgL_iportz00_7590);
																																																																																BgL_arg4791z00_7599
																																																																																	=
																																																																																	RGC_BUFFER_BUFPOS
																																																																																	(BgL_tmpz00_21437);
																																																																															}
																																																																															{
																																																																																long
																																																																																	BgL_bufposz00_21441;
																																																																																long
																																																																																	BgL_forwardz00_21440;
																																																																																BgL_forwardz00_21440
																																																																																	=
																																																																																	BgL_arg4790z00_7598;
																																																																																BgL_bufposz00_21441
																																																																																	=
																																																																																	BgL_arg4791z00_7599;
																																																																																BgL_bufposz00_7593
																																																																																	=
																																																																																	BgL_bufposz00_21441;
																																																																																BgL_forwardz00_7592
																																																																																	=
																																																																																	BgL_forwardz00_21440;
																																																																																goto
																																																																																	BgL_zc3z04anonymousza34787ze3z87_7594;
																																																																															}
																																																																														}
																																																																													else
																																																																														{	/* Read/reader.scm 409 */
																																																																															BgL_matchz00_9747
																																																																																=
																																																																																BgL_newzd2matchzd2_7595;
																																																																														}
																																																																												}
																																																																											else
																																																																												{	/* Read/reader.scm 409 */
																																																																													int
																																																																														BgL_curz00_7600;
																																																																													{	/* Read/reader.scm 409 */
																																																																														obj_t
																																																																															BgL_tmpz00_21442;
																																																																														BgL_tmpz00_21442
																																																																															=
																																																																															(
																																																																															(obj_t)
																																																																															BgL_iportz00_7590);
																																																																														BgL_curz00_7600
																																																																															=
																																																																															RGC_BUFFER_GET_CHAR
																																																																															(BgL_tmpz00_21442,
																																																																															BgL_forwardz00_7592);
																																																																													}
																																																																													{	/* Read/reader.scm 409 */

																																																																														if (((long) (BgL_curz00_7600) == 58L))
																																																																															{	/* Read/reader.scm 409 */
																																																																																BgL_iportz00_4078
																																																																																	=
																																																																																	BgL_iportz00_7590;
																																																																																BgL_lastzd2matchzd2_4079
																																																																																	=
																																																																																	BgL_newzd2matchzd2_7595;
																																																																																BgL_forwardz00_4080
																																																																																	=
																																																																																	(1L
																																																																																	+
																																																																																	BgL_forwardz00_7592);
																																																																																BgL_bufposz00_4081
																																																																																	=
																																																																																	BgL_bufposz00_7593;
																																																																															BgL_zc3z04anonymousza32898ze3z87_4082:
																																																																																{	/* Read/reader.scm 409 */
																																																																																	long
																																																																																		BgL_newzd2matchzd2_4083;
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		obj_t
																																																																																			BgL_tmpz00_21448;
																																																																																		BgL_tmpz00_21448
																																																																																			=
																																																																																			(
																																																																																			(obj_t)
																																																																																			BgL_iportz00_4078);
																																																																																		RGC_STOP_MATCH
																																																																																			(BgL_tmpz00_21448,
																																																																																			BgL_forwardz00_4080);
																																																																																	}
																																																																																	BgL_newzd2matchzd2_4083
																																																																																		=
																																																																																		22L;
																																																																																	if ((BgL_forwardz00_4080 == BgL_bufposz00_4081))
																																																																																		{	/* Read/reader.scm 409 */
																																																																																			if (rgc_fill_buffer(((obj_t) BgL_iportz00_4078)))
																																																																																				{	/* Read/reader.scm 409 */
																																																																																					long
																																																																																						BgL_arg2909z00_4086;
																																																																																					long
																																																																																						BgL_arg2910z00_4087;
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						obj_t
																																																																																							BgL_tmpz00_21456;
																																																																																						BgL_tmpz00_21456
																																																																																							=
																																																																																							(
																																																																																							(obj_t)
																																																																																							BgL_iportz00_4078);
																																																																																						BgL_arg2909z00_4086
																																																																																							=
																																																																																							RGC_BUFFER_FORWARD
																																																																																							(BgL_tmpz00_21456);
																																																																																					}
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						obj_t
																																																																																							BgL_tmpz00_21459;
																																																																																						BgL_tmpz00_21459
																																																																																							=
																																																																																							(
																																																																																							(obj_t)
																																																																																							BgL_iportz00_4078);
																																																																																						BgL_arg2910z00_4087
																																																																																							=
																																																																																							RGC_BUFFER_BUFPOS
																																																																																							(BgL_tmpz00_21459);
																																																																																					}
																																																																																					{
																																																																																						long
																																																																																							BgL_bufposz00_21463;
																																																																																						long
																																																																																							BgL_forwardz00_21462;
																																																																																						BgL_forwardz00_21462
																																																																																							=
																																																																																							BgL_arg2909z00_4086;
																																																																																						BgL_bufposz00_21463
																																																																																							=
																																																																																							BgL_arg2910z00_4087;
																																																																																						BgL_bufposz00_4081
																																																																																							=
																																																																																							BgL_bufposz00_21463;
																																																																																						BgL_forwardz00_4080
																																																																																							=
																																																																																							BgL_forwardz00_21462;
																																																																																						goto
																																																																																							BgL_zc3z04anonymousza32898ze3z87_4082;
																																																																																					}
																																																																																				}
																																																																																			else
																																																																																				{	/* Read/reader.scm 409 */
																																																																																					BgL_matchz00_9747
																																																																																						=
																																																																																						BgL_newzd2matchzd2_4083;
																																																																																				}
																																																																																		}
																																																																																	else
																																																																																		{	/* Read/reader.scm 409 */
																																																																																			int
																																																																																				BgL_curz00_4088;
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				obj_t
																																																																																					BgL_tmpz00_21464;
																																																																																				BgL_tmpz00_21464
																																																																																					=
																																																																																					(
																																																																																					(obj_t)
																																																																																					BgL_iportz00_4078);
																																																																																				BgL_curz00_4088
																																																																																					=
																																																																																					RGC_BUFFER_GET_CHAR
																																																																																					(BgL_tmpz00_21464,
																																																																																					BgL_forwardz00_4080);
																																																																																			}
																																																																																			{	/* Read/reader.scm 409 */

																																																																																				if (((long) (BgL_curz00_4088) == 58L))
																																																																																					{
																																																																																						long
																																																																																							BgL_forwardz00_21471;
																																																																																						long
																																																																																							BgL_lastzd2matchzd2_21470;
																																																																																						BgL_lastzd2matchzd2_21470
																																																																																							=
																																																																																							BgL_newzd2matchzd2_4083;
																																																																																						BgL_forwardz00_21471
																																																																																							=
																																																																																							(1L
																																																																																							+
																																																																																							BgL_forwardz00_4080);
																																																																																						BgL_forwardz00_4080
																																																																																							=
																																																																																							BgL_forwardz00_21471;
																																																																																						BgL_lastzd2matchzd2_4079
																																																																																							=
																																																																																							BgL_lastzd2matchzd2_21470;
																																																																																						goto
																																																																																							BgL_zc3z04anonymousza32898ze3z87_4082;
																																																																																					}
																																																																																				else
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						bool_t
																																																																																							BgL_test7647z00_21473;
																																																																																						if (((long) (BgL_curz00_4088) == 39L))
																																																																																							{	/* Read/reader.scm 409 */
																																																																																								BgL_test7647z00_21473
																																																																																									=
																																																																																									(
																																																																																									(bool_t)
																																																																																									1);
																																																																																							}
																																																																																						else
																																																																																							{	/* Read/reader.scm 409 */
																																																																																								if (((long) (BgL_curz00_4088) == 44L))
																																																																																									{	/* Read/reader.scm 409 */
																																																																																										BgL_test7647z00_21473
																																																																																											=
																																																																																											(
																																																																																											(bool_t)
																																																																																											1);
																																																																																									}
																																																																																								else
																																																																																									{	/* Read/reader.scm 409 */
																																																																																										BgL_test7647z00_21473
																																																																																											=
																																																																																											(
																																																																																											(long)
																																																																																											(BgL_curz00_4088)
																																																																																											==
																																																																																											96L);
																																																																																							}}
																																																																																						if (BgL_test7647z00_21473)
																																																																																							{
																																																																																								long
																																																																																									BgL_bufposz00_21486;
																																																																																								long
																																																																																									BgL_forwardz00_21484;
																																																																																								long
																																																																																									BgL_lastzd2matchzd2_21483;
																																																																																								obj_t
																																																																																									BgL_iportz00_21482;
																																																																																								BgL_iportz00_21482
																																																																																									=
																																																																																									BgL_iportz00_4078;
																																																																																								BgL_lastzd2matchzd2_21483
																																																																																									=
																																																																																									BgL_newzd2matchzd2_4083;
																																																																																								BgL_forwardz00_21484
																																																																																									=
																																																																																									(1L
																																																																																									+
																																																																																									BgL_forwardz00_4080);
																																																																																								BgL_bufposz00_21486
																																																																																									=
																																																																																									BgL_bufposz00_4081;
																																																																																								BgL_bufposz00_7365
																																																																																									=
																																																																																									BgL_bufposz00_21486;
																																																																																								BgL_forwardz00_7364
																																																																																									=
																																																																																									BgL_forwardz00_21484;
																																																																																								BgL_lastzd2matchzd2_7363
																																																																																									=
																																																																																									BgL_lastzd2matchzd2_21483;
																																																																																								BgL_iportz00_7362
																																																																																									=
																																																																																									BgL_iportz00_21482;
																																																																																								goto
																																																																																									BgL_zc3z04anonymousza34670ze3z87_7366;
																																																																																							}
																																																																																						else
																																																																																							{	/* Read/reader.scm 409 */
																																																																																								bool_t
																																																																																									BgL_test7650z00_21487;
																																																																																								if (((long) (BgL_curz00_4088) < 33L))
																																																																																									{	/* Read/reader.scm 409 */
																																																																																										BgL_test7650z00_21487
																																																																																											=
																																																																																											(
																																																																																											(bool_t)
																																																																																											1);
																																																																																									}
																																																																																								else
																																																																																									{	/* Read/reader.scm 409 */
																																																																																										bool_t
																																																																																											BgL_test7652z00_21491;
																																																																																										if (((long) (BgL_curz00_4088) == 35L))
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												BgL_test7652z00_21491
																																																																																													=
																																																																																													(
																																																																																													(bool_t)
																																																																																													1);
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												BgL_test7652z00_21491
																																																																																													=
																																																																																													(
																																																																																													(long)
																																																																																													(BgL_curz00_4088)
																																																																																													==
																																																																																													34L);
																																																																																											}
																																																																																										if (BgL_test7652z00_21491)
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												BgL_test7650z00_21487
																																																																																													=
																																																																																													(
																																																																																													(bool_t)
																																																																																													1);
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												bool_t
																																																																																													BgL_test7654z00_21497;
																																																																																												if (((long) (BgL_curz00_4088) == 41L))
																																																																																													{	/* Read/reader.scm 409 */
																																																																																														BgL_test7654z00_21497
																																																																																															=
																																																																																															(
																																																																																															(bool_t)
																																																																																															1);
																																																																																													}
																																																																																												else
																																																																																													{	/* Read/reader.scm 409 */
																																																																																														if (((long) (BgL_curz00_4088) == 40L))
																																																																																															{	/* Read/reader.scm 409 */
																																																																																																BgL_test7654z00_21497
																																																																																																	=
																																																																																																	(
																																																																																																	(bool_t)
																																																																																																	1);
																																																																																															}
																																																																																														else
																																																																																															{	/* Read/reader.scm 409 */
																																																																																																BgL_test7654z00_21497
																																																																																																	=
																																																																																																	(
																																																																																																	(long)
																																																																																																	(BgL_curz00_4088)
																																																																																																	==
																																																																																																	39L);
																																																																																													}}
																																																																																												if (BgL_test7654z00_21497)
																																																																																													{	/* Read/reader.scm 409 */
																																																																																														BgL_test7650z00_21487
																																																																																															=
																																																																																															(
																																																																																															(bool_t)
																																																																																															1);
																																																																																													}
																																																																																												else
																																																																																													{	/* Read/reader.scm 409 */
																																																																																														if (((long) (BgL_curz00_4088) == 44L))
																																																																																															{	/* Read/reader.scm 409 */
																																																																																																BgL_test7650z00_21487
																																																																																																	=
																																																																																																	(
																																																																																																	(bool_t)
																																																																																																	1);
																																																																																															}
																																																																																														else
																																																																																															{	/* Read/reader.scm 409 */
																																																																																																bool_t
																																																																																																	BgL_test7658z00_21509;
																																																																																																if (((long) (BgL_curz00_4088) == 59L))
																																																																																																	{	/* Read/reader.scm 409 */
																																																																																																		BgL_test7658z00_21509
																																																																																																			=
																																																																																																			(
																																																																																																			(bool_t)
																																																																																																			1);
																																																																																																	}
																																																																																																else
																																																																																																	{	/* Read/reader.scm 409 */
																																																																																																		BgL_test7658z00_21509
																																																																																																			=
																																																																																																			(
																																																																																																			(long)
																																																																																																			(BgL_curz00_4088)
																																																																																																			==
																																																																																																			58L);
																																																																																																	}
																																																																																																if (BgL_test7658z00_21509)
																																																																																																	{	/* Read/reader.scm 409 */
																																																																																																		BgL_test7650z00_21487
																																																																																																			=
																																																																																																			(
																																																																																																			(bool_t)
																																																																																																			1);
																																																																																																	}
																																																																																																else
																																																																																																	{	/* Read/reader.scm 409 */
																																																																																																		if (((long) (BgL_curz00_4088) == 91L))
																																																																																																			{	/* Read/reader.scm 409 */
																																																																																																				BgL_test7650z00_21487
																																																																																																					=
																																																																																																					(
																																																																																																					(bool_t)
																																																																																																					1);
																																																																																																			}
																																																																																																		else
																																																																																																			{	/* Read/reader.scm 409 */
																																																																																																				if (((long) (BgL_curz00_4088) == 93L))
																																																																																																					{	/* Read/reader.scm 409 */
																																																																																																						BgL_test7650z00_21487
																																																																																																							=
																																																																																																							(
																																																																																																							(bool_t)
																																																																																																							1);
																																																																																																					}
																																																																																																				else
																																																																																																					{	/* Read/reader.scm 409 */
																																																																																																						if (((long) (BgL_curz00_4088) == 96L))
																																																																																																							{	/* Read/reader.scm 409 */
																																																																																																								BgL_test7650z00_21487
																																																																																																									=
																																																																																																									(
																																																																																																									(bool_t)
																																																																																																									1);
																																																																																																							}
																																																																																																						else
																																																																																																							{	/* Read/reader.scm 409 */
																																																																																																								bool_t
																																																																																																									BgL_test7663z00_21524;
																																																																																																								if (((long) (BgL_curz00_4088) == 125L))
																																																																																																									{	/* Read/reader.scm 409 */
																																																																																																										BgL_test7663z00_21524
																																																																																																											=
																																																																																																											(
																																																																																																											(bool_t)
																																																																																																											1);
																																																																																																									}
																																																																																																								else
																																																																																																									{	/* Read/reader.scm 409 */
																																																																																																										if (((long) (BgL_curz00_4088) == 124L))
																																																																																																											{	/* Read/reader.scm 409 */
																																																																																																												BgL_test7663z00_21524
																																																																																																													=
																																																																																																													(
																																																																																																													(bool_t)
																																																																																																													1);
																																																																																																											}
																																																																																																										else
																																																																																																											{	/* Read/reader.scm 409 */
																																																																																																												BgL_test7663z00_21524
																																																																																																													=
																																																																																																													(
																																																																																																													(long)
																																																																																																													(BgL_curz00_4088)
																																																																																																													==
																																																																																																													123L);
																																																																																																									}}
																																																																																																								if (BgL_test7663z00_21524)
																																																																																																									{	/* Read/reader.scm 409 */
																																																																																																										BgL_test7650z00_21487
																																																																																																											=
																																																																																																											(
																																																																																																											(bool_t)
																																																																																																											1);
																																																																																																									}
																																																																																																								else
																																																																																																									{	/* Read/reader.scm 409 */
																																																																																																										BgL_test7650z00_21487
																																																																																																											=
																																																																																																											(
																																																																																																											(long)
																																																																																																											(BgL_curz00_4088)
																																																																																																											==
																																																																																																											127L);
																																																																																									}}}}}}}}}
																																																																																								if (BgL_test7650z00_21487)
																																																																																									{	/* Read/reader.scm 409 */
																																																																																										BgL_matchz00_9747
																																																																																											=
																																																																																											BgL_newzd2matchzd2_4083;
																																																																																									}
																																																																																								else
																																																																																									{
																																																																																										long
																																																																																											BgL_bufposz00_21539;
																																																																																										long
																																																																																											BgL_forwardz00_21537;
																																																																																										long
																																																																																											BgL_lastzd2matchzd2_21536;
																																																																																										obj_t
																																																																																											BgL_iportz00_21535;
																																																																																										BgL_iportz00_21535
																																																																																											=
																																																																																											BgL_iportz00_4078;
																																																																																										BgL_lastzd2matchzd2_21536
																																																																																											=
																																																																																											BgL_newzd2matchzd2_4083;
																																																																																										BgL_forwardz00_21537
																																																																																											=
																																																																																											(1L
																																																																																											+
																																																																																											BgL_forwardz00_4080);
																																																																																										BgL_bufposz00_21539
																																																																																											=
																																																																																											BgL_bufposz00_4081;
																																																																																										BgL_bufposz00_9542
																																																																																											=
																																																																																											BgL_bufposz00_21539;
																																																																																										BgL_forwardz00_9541
																																																																																											=
																																																																																											BgL_forwardz00_21537;
																																																																																										BgL_lastzd2matchzd2_9540
																																																																																											=
																																																																																											BgL_lastzd2matchzd2_21536;
																																																																																										BgL_iportz00_9539
																																																																																											=
																																																																																											BgL_iportz00_21535;
																																																																																										goto
																																																																																											BgL_zc3z04anonymousza35780ze3z87_9543;
																																																																																									}
																																																																																							}
																																																																																					}
																																																																																			}
																																																																																		}
																																																																																}
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 409 */
																																																																																bool_t
																																																																																	BgL_test7666z00_21541;
																																																																																if (((long) (BgL_curz00_7600) == 39L))
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		BgL_test7666z00_21541
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			1);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		if (((long) (BgL_curz00_7600) == 44L))
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				BgL_test7666z00_21541
																																																																																					=
																																																																																					(
																																																																																					(bool_t)
																																																																																					1);
																																																																																			}
																																																																																		else
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				BgL_test7666z00_21541
																																																																																					=
																																																																																					(
																																																																																					(long)
																																																																																					(BgL_curz00_7600)
																																																																																					==
																																																																																					96L);
																																																																																	}}
																																																																																if (BgL_test7666z00_21541)
																																																																																	{
																																																																																		long
																																																																																			BgL_bufposz00_21554;
																																																																																		long
																																																																																			BgL_forwardz00_21552;
																																																																																		long
																																																																																			BgL_lastzd2matchzd2_21551;
																																																																																		obj_t
																																																																																			BgL_iportz00_21550;
																																																																																		BgL_iportz00_21550
																																																																																			=
																																																																																			BgL_iportz00_7590;
																																																																																		BgL_lastzd2matchzd2_21551
																																																																																			=
																																																																																			BgL_newzd2matchzd2_7595;
																																																																																		BgL_forwardz00_21552
																																																																																			=
																																																																																			(1L
																																																																																			+
																																																																																			BgL_forwardz00_7592);
																																																																																		BgL_bufposz00_21554
																																																																																			=
																																																																																			BgL_bufposz00_7593;
																																																																																		BgL_bufposz00_7365
																																																																																			=
																																																																																			BgL_bufposz00_21554;
																																																																																		BgL_forwardz00_7364
																																																																																			=
																																																																																			BgL_forwardz00_21552;
																																																																																		BgL_lastzd2matchzd2_7363
																																																																																			=
																																																																																			BgL_lastzd2matchzd2_21551;
																																																																																		BgL_iportz00_7362
																																																																																			=
																																																																																			BgL_iportz00_21550;
																																																																																		goto
																																																																																			BgL_zc3z04anonymousza34670ze3z87_7366;
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		bool_t
																																																																																			BgL_test7669z00_21555;
																																																																																		if (((long) (BgL_curz00_7600) < 33L))
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				BgL_test7669z00_21555
																																																																																					=
																																																																																					(
																																																																																					(bool_t)
																																																																																					1);
																																																																																			}
																																																																																		else
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				bool_t
																																																																																					BgL_test7671z00_21559;
																																																																																				if (((long) (BgL_curz00_7600) == 35L))
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						BgL_test7671z00_21559
																																																																																							=
																																																																																							(
																																																																																							(bool_t)
																																																																																							1);
																																																																																					}
																																																																																				else
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						BgL_test7671z00_21559
																																																																																							=
																																																																																							(
																																																																																							(long)
																																																																																							(BgL_curz00_7600)
																																																																																							==
																																																																																							34L);
																																																																																					}
																																																																																				if (BgL_test7671z00_21559)
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						BgL_test7669z00_21555
																																																																																							=
																																																																																							(
																																																																																							(bool_t)
																																																																																							1);
																																																																																					}
																																																																																				else
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						bool_t
																																																																																							BgL_test7673z00_21565;
																																																																																						if (((long) (BgL_curz00_7600) == 41L))
																																																																																							{	/* Read/reader.scm 409 */
																																																																																								BgL_test7673z00_21565
																																																																																									=
																																																																																									(
																																																																																									(bool_t)
																																																																																									1);
																																																																																							}
																																																																																						else
																																																																																							{	/* Read/reader.scm 409 */
																																																																																								if (((long) (BgL_curz00_7600) == 40L))
																																																																																									{	/* Read/reader.scm 409 */
																																																																																										BgL_test7673z00_21565
																																																																																											=
																																																																																											(
																																																																																											(bool_t)
																																																																																											1);
																																																																																									}
																																																																																								else
																																																																																									{	/* Read/reader.scm 409 */
																																																																																										BgL_test7673z00_21565
																																																																																											=
																																																																																											(
																																																																																											(long)
																																																																																											(BgL_curz00_7600)
																																																																																											==
																																																																																											39L);
																																																																																							}}
																																																																																						if (BgL_test7673z00_21565)
																																																																																							{	/* Read/reader.scm 409 */
																																																																																								BgL_test7669z00_21555
																																																																																									=
																																																																																									(
																																																																																									(bool_t)
																																																																																									1);
																																																																																							}
																																																																																						else
																																																																																							{	/* Read/reader.scm 409 */
																																																																																								if (((long) (BgL_curz00_7600) == 44L))
																																																																																									{	/* Read/reader.scm 409 */
																																																																																										BgL_test7669z00_21555
																																																																																											=
																																																																																											(
																																																																																											(bool_t)
																																																																																											1);
																																																																																									}
																																																																																								else
																																																																																									{	/* Read/reader.scm 409 */
																																																																																										bool_t
																																																																																											BgL_test7677z00_21577;
																																																																																										if (((long) (BgL_curz00_7600) == 59L))
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												BgL_test7677z00_21577
																																																																																													=
																																																																																													(
																																																																																													(bool_t)
																																																																																													1);
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												BgL_test7677z00_21577
																																																																																													=
																																																																																													(
																																																																																													(long)
																																																																																													(BgL_curz00_7600)
																																																																																													==
																																																																																													58L);
																																																																																											}
																																																																																										if (BgL_test7677z00_21577)
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												BgL_test7669z00_21555
																																																																																													=
																																																																																													(
																																																																																													(bool_t)
																																																																																													1);
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												if (((long) (BgL_curz00_7600) == 91L))
																																																																																													{	/* Read/reader.scm 409 */
																																																																																														BgL_test7669z00_21555
																																																																																															=
																																																																																															(
																																																																																															(bool_t)
																																																																																															1);
																																																																																													}
																																																																																												else
																																																																																													{	/* Read/reader.scm 409 */
																																																																																														if (((long) (BgL_curz00_7600) == 93L))
																																																																																															{	/* Read/reader.scm 409 */
																																																																																																BgL_test7669z00_21555
																																																																																																	=
																																																																																																	(
																																																																																																	(bool_t)
																																																																																																	1);
																																																																																															}
																																																																																														else
																																																																																															{	/* Read/reader.scm 409 */
																																																																																																if (((long) (BgL_curz00_7600) == 96L))
																																																																																																	{	/* Read/reader.scm 409 */
																																																																																																		BgL_test7669z00_21555
																																																																																																			=
																																																																																																			(
																																																																																																			(bool_t)
																																																																																																			1);
																																																																																																	}
																																																																																																else
																																																																																																	{	/* Read/reader.scm 409 */
																																																																																																		bool_t
																																																																																																			BgL_test7682z00_21592;
																																																																																																		if (((long) (BgL_curz00_7600) == 125L))
																																																																																																			{	/* Read/reader.scm 409 */
																																																																																																				BgL_test7682z00_21592
																																																																																																					=
																																																																																																					(
																																																																																																					(bool_t)
																																																																																																					1);
																																																																																																			}
																																																																																																		else
																																																																																																			{	/* Read/reader.scm 409 */
																																																																																																				if (((long) (BgL_curz00_7600) == 124L))
																																																																																																					{	/* Read/reader.scm 409 */
																																																																																																						BgL_test7682z00_21592
																																																																																																							=
																																																																																																							(
																																																																																																							(bool_t)
																																																																																																							1);
																																																																																																					}
																																																																																																				else
																																																																																																					{	/* Read/reader.scm 409 */
																																																																																																						BgL_test7682z00_21592
																																																																																																							=
																																																																																																							(
																																																																																																							(long)
																																																																																																							(BgL_curz00_7600)
																																																																																																							==
																																																																																																							123L);
																																																																																																			}}
																																																																																																		if (BgL_test7682z00_21592)
																																																																																																			{	/* Read/reader.scm 409 */
																																																																																																				BgL_test7669z00_21555
																																																																																																					=
																																																																																																					(
																																																																																																					(bool_t)
																																																																																																					1);
																																																																																																			}
																																																																																																		else
																																																																																																			{	/* Read/reader.scm 409 */
																																																																																																				BgL_test7669z00_21555
																																																																																																					=
																																																																																																					(
																																																																																																					(long)
																																																																																																					(BgL_curz00_7600)
																																																																																																					==
																																																																																																					127L);
																																																																																			}}}}}}}}}
																																																																																		if (BgL_test7669z00_21555)
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				BgL_matchz00_9747
																																																																																					=
																																																																																					BgL_newzd2matchzd2_7595;
																																																																																			}
																																																																																		else
																																																																																			{
																																																																																				long
																																																																																					BgL_bufposz00_21607;
																																																																																				long
																																																																																					BgL_forwardz00_21605;
																																																																																				long
																																																																																					BgL_lastzd2matchzd2_21604;
																																																																																				obj_t
																																																																																					BgL_iportz00_21603;
																																																																																				BgL_iportz00_21603
																																																																																					=
																																																																																					BgL_iportz00_7590;
																																																																																				BgL_lastzd2matchzd2_21604
																																																																																					=
																																																																																					BgL_newzd2matchzd2_7595;
																																																																																				BgL_forwardz00_21605
																																																																																					=
																																																																																					(1L
																																																																																					+
																																																																																					BgL_forwardz00_7592);
																																																																																				BgL_bufposz00_21607
																																																																																					=
																																																																																					BgL_bufposz00_7593;
																																																																																				BgL_bufposz00_9542
																																																																																					=
																																																																																					BgL_bufposz00_21607;
																																																																																				BgL_forwardz00_9541
																																																																																					=
																																																																																					BgL_forwardz00_21605;
																																																																																				BgL_lastzd2matchzd2_9540
																																																																																					=
																																																																																					BgL_lastzd2matchzd2_21604;
																																																																																				BgL_iportz00_9539
																																																																																					=
																																																																																					BgL_iportz00_21603;
																																																																																				goto
																																																																																					BgL_zc3z04anonymousza35780ze3z87_9543;
																																																																																			}
																																																																																	}
																																																																															}
																																																																													}
																																																																												}
																																																																										}
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 409 */
																																																																										bool_t
																																																																											BgL_test7685z00_21609;
																																																																										if (((long) (BgL_curz00_9549) == 39L))
																																																																											{	/* Read/reader.scm 409 */
																																																																												BgL_test7685z00_21609
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 409 */
																																																																												if (((long) (BgL_curz00_9549) == 44L))
																																																																													{	/* Read/reader.scm 409 */
																																																																														BgL_test7685z00_21609
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 409 */
																																																																														BgL_test7685z00_21609
																																																																															=
																																																																															(
																																																																															(long)
																																																																															(BgL_curz00_9549)
																																																																															==
																																																																															96L);
																																																																											}}
																																																																										if (BgL_test7685z00_21609)
																																																																											{
																																																																												long
																																																																													BgL_bufposz00_21622;
																																																																												long
																																																																													BgL_forwardz00_21620;
																																																																												long
																																																																													BgL_lastzd2matchzd2_21619;
																																																																												obj_t
																																																																													BgL_iportz00_21618;
																																																																												BgL_iportz00_21618
																																																																													=
																																																																													BgL_iportz00_9539;
																																																																												BgL_lastzd2matchzd2_21619
																																																																													=
																																																																													BgL_newzd2matchzd2_9544;
																																																																												BgL_forwardz00_21620
																																																																													=
																																																																													(1L
																																																																													+
																																																																													BgL_forwardz00_9541);
																																																																												BgL_bufposz00_21622
																																																																													=
																																																																													BgL_bufposz00_9542;
																																																																												BgL_bufposz00_7365
																																																																													=
																																																																													BgL_bufposz00_21622;
																																																																												BgL_forwardz00_7364
																																																																													=
																																																																													BgL_forwardz00_21620;
																																																																												BgL_lastzd2matchzd2_7363
																																																																													=
																																																																													BgL_lastzd2matchzd2_21619;
																																																																												BgL_iportz00_7362
																																																																													=
																																																																													BgL_iportz00_21618;
																																																																												goto
																																																																													BgL_zc3z04anonymousza34670ze3z87_7366;
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 409 */
																																																																												bool_t
																																																																													BgL_test7688z00_21623;
																																																																												if (((long) (BgL_curz00_9549) < 33L))
																																																																													{	/* Read/reader.scm 409 */
																																																																														BgL_test7688z00_21623
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 409 */
																																																																														bool_t
																																																																															BgL_test7690z00_21627;
																																																																														if (((long) (BgL_curz00_9549) == 35L))
																																																																															{	/* Read/reader.scm 409 */
																																																																																BgL_test7690z00_21627
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 409 */
																																																																																BgL_test7690z00_21627
																																																																																	=
																																																																																	(
																																																																																	(long)
																																																																																	(BgL_curz00_9549)
																																																																																	==
																																																																																	34L);
																																																																															}
																																																																														if (BgL_test7690z00_21627)
																																																																															{	/* Read/reader.scm 409 */
																																																																																BgL_test7688z00_21623
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 409 */
																																																																																bool_t
																																																																																	BgL_test7692z00_21633;
																																																																																if (((long) (BgL_curz00_9549) == 41L))
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		BgL_test7692z00_21633
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			1);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		if (((long) (BgL_curz00_9549) == 40L))
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				BgL_test7692z00_21633
																																																																																					=
																																																																																					(
																																																																																					(bool_t)
																																																																																					1);
																																																																																			}
																																																																																		else
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				BgL_test7692z00_21633
																																																																																					=
																																																																																					(
																																																																																					(long)
																																																																																					(BgL_curz00_9549)
																																																																																					==
																																																																																					39L);
																																																																																	}}
																																																																																if (BgL_test7692z00_21633)
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		BgL_test7688z00_21623
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			1);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		if (((long) (BgL_curz00_9549) == 44L))
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				BgL_test7688z00_21623
																																																																																					=
																																																																																					(
																																																																																					(bool_t)
																																																																																					1);
																																																																																			}
																																																																																		else
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				bool_t
																																																																																					BgL_test7696z00_21645;
																																																																																				if (((long) (BgL_curz00_9549) == 59L))
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						BgL_test7696z00_21645
																																																																																							=
																																																																																							(
																																																																																							(bool_t)
																																																																																							1);
																																																																																					}
																																																																																				else
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						BgL_test7696z00_21645
																																																																																							=
																																																																																							(
																																																																																							(long)
																																																																																							(BgL_curz00_9549)
																																																																																							==
																																																																																							58L);
																																																																																					}
																																																																																				if (BgL_test7696z00_21645)
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						BgL_test7688z00_21623
																																																																																							=
																																																																																							(
																																																																																							(bool_t)
																																																																																							1);
																																																																																					}
																																																																																				else
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						if (((long) (BgL_curz00_9549) == 91L))
																																																																																							{	/* Read/reader.scm 409 */
																																																																																								BgL_test7688z00_21623
																																																																																									=
																																																																																									(
																																																																																									(bool_t)
																																																																																									1);
																																																																																							}
																																																																																						else
																																																																																							{	/* Read/reader.scm 409 */
																																																																																								if (((long) (BgL_curz00_9549) == 93L))
																																																																																									{	/* Read/reader.scm 409 */
																																																																																										BgL_test7688z00_21623
																																																																																											=
																																																																																											(
																																																																																											(bool_t)
																																																																																											1);
																																																																																									}
																																																																																								else
																																																																																									{	/* Read/reader.scm 409 */
																																																																																										if (((long) (BgL_curz00_9549) == 96L))
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												BgL_test7688z00_21623
																																																																																													=
																																																																																													(
																																																																																													(bool_t)
																																																																																													1);
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												bool_t
																																																																																													BgL_test7701z00_21660;
																																																																																												if (((long) (BgL_curz00_9549) == 125L))
																																																																																													{	/* Read/reader.scm 409 */
																																																																																														BgL_test7701z00_21660
																																																																																															=
																																																																																															(
																																																																																															(bool_t)
																																																																																															1);
																																																																																													}
																																																																																												else
																																																																																													{	/* Read/reader.scm 409 */
																																																																																														if (((long) (BgL_curz00_9549) == 124L))
																																																																																															{	/* Read/reader.scm 409 */
																																																																																																BgL_test7701z00_21660
																																																																																																	=
																																																																																																	(
																																																																																																	(bool_t)
																																																																																																	1);
																																																																																															}
																																																																																														else
																																																																																															{	/* Read/reader.scm 409 */
																																																																																																BgL_test7701z00_21660
																																																																																																	=
																																																																																																	(
																																																																																																	(long)
																																																																																																	(BgL_curz00_9549)
																																																																																																	==
																																																																																																	123L);
																																																																																													}}
																																																																																												if (BgL_test7701z00_21660)
																																																																																													{	/* Read/reader.scm 409 */
																																																																																														BgL_test7688z00_21623
																																																																																															=
																																																																																															(
																																																																																															(bool_t)
																																																																																															1);
																																																																																													}
																																																																																												else
																																																																																													{	/* Read/reader.scm 409 */
																																																																																														BgL_test7688z00_21623
																																																																																															=
																																																																																															(
																																																																																															(long)
																																																																																															(BgL_curz00_9549)
																																																																																															==
																																																																																															127L);
																																																																													}}}}}}}}}
																																																																												if (BgL_test7688z00_21623)
																																																																													{	/* Read/reader.scm 409 */
																																																																														BgL_matchz00_9747
																																																																															=
																																																																															BgL_newzd2matchzd2_9544;
																																																																													}
																																																																												else
																																																																													{
																																																																														long
																																																																															BgL_forwardz00_21672;
																																																																														long
																																																																															BgL_lastzd2matchzd2_21671;
																																																																														BgL_lastzd2matchzd2_21671
																																																																															=
																																																																															BgL_newzd2matchzd2_9544;
																																																																														BgL_forwardz00_21672
																																																																															=
																																																																															(1L
																																																																															+
																																																																															BgL_forwardz00_9541);
																																																																														BgL_forwardz00_9541
																																																																															=
																																																																															BgL_forwardz00_21672;
																																																																														BgL_lastzd2matchzd2_9540
																																																																															=
																																																																															BgL_lastzd2matchzd2_21671;
																																																																														goto
																																																																															BgL_zc3z04anonymousza35780ze3z87_9543;
																																																																													}
																																																																											}
																																																																									}
																																																																							}
																																																																						}
																																																																				}
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 409 */
																																																																				bool_t
																																																																					BgL_test7704z00_21675;
																																																																				if (((long) (BgL_curz00_6336) == 39L))
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test7704z00_21675
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 409 */
																																																																						if (((long) (BgL_curz00_6336) == 44L))
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test7704z00_21675
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test7704z00_21675
																																																																									=
																																																																									(
																																																																									(long)
																																																																									(BgL_curz00_6336)
																																																																									==
																																																																									96L);
																																																																					}}
																																																																				if (BgL_test7704z00_21675)
																																																																					{
																																																																						long
																																																																							BgL_bufposz00_21688;
																																																																						long
																																																																							BgL_forwardz00_21686;
																																																																						long
																																																																							BgL_lastzd2matchzd2_21685;
																																																																						obj_t
																																																																							BgL_iportz00_21684;
																																																																						BgL_iportz00_21684
																																																																							=
																																																																							BgL_iportz00_6326;
																																																																						BgL_lastzd2matchzd2_21685
																																																																							=
																																																																							BgL_newzd2matchzd2_6331;
																																																																						BgL_forwardz00_21686
																																																																							=
																																																																							(1L
																																																																							+
																																																																							BgL_forwardz00_6328);
																																																																						BgL_bufposz00_21688
																																																																							=
																																																																							BgL_bufposz00_6329;
																																																																						BgL_bufposz00_7365
																																																																							=
																																																																							BgL_bufposz00_21688;
																																																																						BgL_forwardz00_7364
																																																																							=
																																																																							BgL_forwardz00_21686;
																																																																						BgL_lastzd2matchzd2_7363
																																																																							=
																																																																							BgL_lastzd2matchzd2_21685;
																																																																						BgL_iportz00_7362
																																																																							=
																																																																							BgL_iportz00_21684;
																																																																						goto
																																																																							BgL_zc3z04anonymousza34670ze3z87_7366;
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 409 */
																																																																						bool_t
																																																																							BgL_test7707z00_21689;
																																																																						if (((long) (BgL_curz00_6336) < 33L))
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test7707z00_21689
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 409 */
																																																																								bool_t
																																																																									BgL_test7709z00_21693;
																																																																								if (((long) (BgL_curz00_6336) == 35L))
																																																																									{	/* Read/reader.scm 409 */
																																																																										BgL_test7709z00_21693
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 409 */
																																																																										BgL_test7709z00_21693
																																																																											=
																																																																											(
																																																																											(long)
																																																																											(BgL_curz00_6336)
																																																																											==
																																																																											34L);
																																																																									}
																																																																								if (BgL_test7709z00_21693)
																																																																									{	/* Read/reader.scm 409 */
																																																																										BgL_test7707z00_21689
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 409 */
																																																																										bool_t
																																																																											BgL_test7711z00_21699;
																																																																										if (((long) (BgL_curz00_6336) == 41L))
																																																																											{	/* Read/reader.scm 409 */
																																																																												BgL_test7711z00_21699
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 409 */
																																																																												if (((long) (BgL_curz00_6336) == 40L))
																																																																													{	/* Read/reader.scm 409 */
																																																																														BgL_test7711z00_21699
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 409 */
																																																																														BgL_test7711z00_21699
																																																																															=
																																																																															(
																																																																															(long)
																																																																															(BgL_curz00_6336)
																																																																															==
																																																																															39L);
																																																																											}}
																																																																										if (BgL_test7711z00_21699)
																																																																											{	/* Read/reader.scm 409 */
																																																																												BgL_test7707z00_21689
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 409 */
																																																																												if (((long) (BgL_curz00_6336) == 44L))
																																																																													{	/* Read/reader.scm 409 */
																																																																														BgL_test7707z00_21689
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 409 */
																																																																														if (((long) (BgL_curz00_6336) == 46L))
																																																																															{	/* Read/reader.scm 409 */
																																																																																BgL_test7707z00_21689
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 409 */
																																																																																bool_t
																																																																																	BgL_test7716z00_21714;
																																																																																if (((long) (BgL_curz00_6336) >= 48L))
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		BgL_test7716z00_21714
																																																																																			=
																																																																																			(
																																																																																			(long)
																																																																																			(BgL_curz00_6336)
																																																																																			<
																																																																																			60L);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		BgL_test7716z00_21714
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			0);
																																																																																	}
																																																																																if (BgL_test7716z00_21714)
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		BgL_test7707z00_21689
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			1);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		if (((long) (BgL_curz00_6336) == 91L))
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				BgL_test7707z00_21689
																																																																																					=
																																																																																					(
																																																																																					(bool_t)
																																																																																					1);
																																																																																			}
																																																																																		else
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				if (((long) (BgL_curz00_6336) == 93L))
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						BgL_test7707z00_21689
																																																																																							=
																																																																																							(
																																																																																							(bool_t)
																																																																																							1);
																																																																																					}
																																																																																				else
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						if (((long) (BgL_curz00_6336) == 96L))
																																																																																							{	/* Read/reader.scm 409 */
																																																																																								BgL_test7707z00_21689
																																																																																									=
																																																																																									(
																																																																																									(bool_t)
																																																																																									1);
																																																																																							}
																																																																																						else
																																																																																							{	/* Read/reader.scm 409 */
																																																																																								bool_t
																																																																																									BgL_test7721z00_21729;
																																																																																								if (((long) (BgL_curz00_6336) == 125L))
																																																																																									{	/* Read/reader.scm 409 */
																																																																																										BgL_test7721z00_21729
																																																																																											=
																																																																																											(
																																																																																											(bool_t)
																																																																																											1);
																																																																																									}
																																																																																								else
																																																																																									{	/* Read/reader.scm 409 */
																																																																																										if (((long) (BgL_curz00_6336) == 124L))
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												BgL_test7721z00_21729
																																																																																													=
																																																																																													(
																																																																																													(bool_t)
																																																																																													1);
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												BgL_test7721z00_21729
																																																																																													=
																																																																																													(
																																																																																													(long)
																																																																																													(BgL_curz00_6336)
																																																																																													==
																																																																																													123L);
																																																																																									}}
																																																																																								if (BgL_test7721z00_21729)
																																																																																									{	/* Read/reader.scm 409 */
																																																																																										BgL_test7707z00_21689
																																																																																											=
																																																																																											(
																																																																																											(bool_t)
																																																																																											1);
																																																																																									}
																																																																																								else
																																																																																									{	/* Read/reader.scm 409 */
																																																																																										BgL_test7707z00_21689
																																																																																											=
																																																																																											(
																																																																																											(long)
																																																																																											(BgL_curz00_6336)
																																																																																											==
																																																																																											127L);
																																																																							}}}}}}}}}}
																																																																						if (BgL_test7707z00_21689)
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_matchz00_9747
																																																																									=
																																																																									BgL_newzd2matchzd2_6331;
																																																																							}
																																																																						else
																																																																							{
																																																																								long
																																																																									BgL_bufposz00_21744;
																																																																								long
																																																																									BgL_forwardz00_21742;
																																																																								long
																																																																									BgL_lastzd2matchzd2_21741;
																																																																								obj_t
																																																																									BgL_iportz00_21740;
																																																																								BgL_iportz00_21740
																																																																									=
																																																																									BgL_iportz00_6326;
																																																																								BgL_lastzd2matchzd2_21741
																																																																									=
																																																																									BgL_newzd2matchzd2_6331;
																																																																								BgL_forwardz00_21742
																																																																									=
																																																																									(1L
																																																																									+
																																																																									BgL_forwardz00_6328);
																																																																								BgL_bufposz00_21744
																																																																									=
																																																																									BgL_bufposz00_6329;
																																																																								BgL_bufposz00_4197
																																																																									=
																																																																									BgL_bufposz00_21744;
																																																																								BgL_forwardz00_4196
																																																																									=
																																																																									BgL_forwardz00_21742;
																																																																								BgL_lastzd2matchzd2_4195
																																																																									=
																																																																									BgL_lastzd2matchzd2_21741;
																																																																								BgL_iportz00_4194
																																																																									=
																																																																									BgL_iportz00_21740;
																																																																								goto
																																																																									BgL_zc3z04anonymousza32973ze3z87_4198;
																																																																							}
																																																																					}
																																																																			}
																																																																	}
																																																															}
																																																													}
																																																												}
																																																										}
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										bool_t
																																																											BgL_test7724z00_21746;
																																																										if (((long) (BgL_curz00_8753) == 39L))
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test7724z00_21746
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												if (((long) (BgL_curz00_8753) == 44L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7724z00_21746
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7724z00_21746
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_8753)
																																																															==
																																																															96L);
																																																											}}
																																																										if (BgL_test7724z00_21746)
																																																											{
																																																												long
																																																													BgL_bufposz00_21759;
																																																												long
																																																													BgL_forwardz00_21757;
																																																												long
																																																													BgL_lastzd2matchzd2_21756;
																																																												obj_t
																																																													BgL_iportz00_21755;
																																																												BgL_iportz00_21755
																																																													=
																																																													BgL_iportz00_8743;
																																																												BgL_lastzd2matchzd2_21756
																																																													=
																																																													BgL_newzd2matchzd2_8748;
																																																												BgL_forwardz00_21757
																																																													=
																																																													(1L
																																																													+
																																																													BgL_forwardz00_8745);
																																																												BgL_bufposz00_21759
																																																													=
																																																													BgL_bufposz00_8746;
																																																												BgL_bufposz00_7550
																																																													=
																																																													BgL_bufposz00_21759;
																																																												BgL_forwardz00_7549
																																																													=
																																																													BgL_forwardz00_21757;
																																																												BgL_lastzd2matchzd2_7548
																																																													=
																																																													BgL_lastzd2matchzd2_21756;
																																																												BgL_iportz00_7547
																																																													=
																																																													BgL_iportz00_21755;
																																																												goto
																																																													BgL_zc3z04anonymousza34766ze3z87_7551;
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												bool_t
																																																													BgL_test7727z00_21760;
																																																												if (((long) (BgL_curz00_8753) < 33L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7727z00_21760
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														bool_t
																																																															BgL_test7729z00_21764;
																																																														if (((long) (BgL_curz00_8753) == 35L))
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test7729z00_21764
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test7729z00_21764
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_8753)
																																																																	==
																																																																	34L);
																																																															}
																																																														if (BgL_test7729z00_21764)
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test7727z00_21760
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																bool_t
																																																																	BgL_test7731z00_21770;
																																																																if (((long) (BgL_curz00_8753) == 41L))
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test7731z00_21770
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		if (((long) (BgL_curz00_8753) == 40L))
																																																																			{	/* Read/reader.scm 409 */
																																																																				BgL_test7731z00_21770
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 409 */
																																																																				BgL_test7731z00_21770
																																																																					=
																																																																					(
																																																																					(long)
																																																																					(BgL_curz00_8753)
																																																																					==
																																																																					39L);
																																																																	}}
																																																																if (BgL_test7731z00_21770)
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test7727z00_21760
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		if (((long) (BgL_curz00_8753) == 44L))
																																																																			{	/* Read/reader.scm 409 */
																																																																				BgL_test7727z00_21760
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 409 */
																																																																				if (((long) (BgL_curz00_8753) == 46L))
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test7727z00_21760
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 409 */
																																																																						bool_t
																																																																							BgL_test7736z00_21785;
																																																																						if (((long) (BgL_curz00_8753) == 59L))
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test7736z00_21785
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test7736z00_21785
																																																																									=
																																																																									(
																																																																									(long)
																																																																									(BgL_curz00_8753)
																																																																									==
																																																																									58L);
																																																																							}
																																																																						if (BgL_test7736z00_21785)
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test7727z00_21760
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 409 */
																																																																								if (((long) (BgL_curz00_8753) == 91L))
																																																																									{	/* Read/reader.scm 409 */
																																																																										BgL_test7727z00_21760
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 409 */
																																																																										if (((long) (BgL_curz00_8753) == 93L))
																																																																											{	/* Read/reader.scm 409 */
																																																																												BgL_test7727z00_21760
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 409 */
																																																																												if (((long) (BgL_curz00_8753) == 96L))
																																																																													{	/* Read/reader.scm 409 */
																																																																														BgL_test7727z00_21760
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 409 */
																																																																														bool_t
																																																																															BgL_test7741z00_21800;
																																																																														if (((long) (BgL_curz00_8753) == 125L))
																																																																															{	/* Read/reader.scm 409 */
																																																																																BgL_test7741z00_21800
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 409 */
																																																																																if (((long) (BgL_curz00_8753) == 124L))
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		BgL_test7741z00_21800
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			1);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		BgL_test7741z00_21800
																																																																																			=
																																																																																			(
																																																																																			(long)
																																																																																			(BgL_curz00_8753)
																																																																																			==
																																																																																			123L);
																																																																															}}
																																																																														if (BgL_test7741z00_21800)
																																																																															{	/* Read/reader.scm 409 */
																																																																																BgL_test7727z00_21760
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 409 */
																																																																																BgL_test7727z00_21760
																																																																																	=
																																																																																	(
																																																																																	(long)
																																																																																	(BgL_curz00_8753)
																																																																																	==
																																																																																	127L);
																																																													}}}}}}}}}}
																																																												if (BgL_test7727z00_21760)
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_matchz00_9747
																																																															=
																																																															BgL_newzd2matchzd2_8748;
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_iportz00_5100
																																																															=
																																																															BgL_iportz00_8743;
																																																														BgL_lastzd2matchzd2_5101
																																																															=
																																																															BgL_newzd2matchzd2_8748;
																																																														BgL_forwardz00_5102
																																																															=
																																																															(1L
																																																															+
																																																															BgL_forwardz00_8745);
																																																														BgL_bufposz00_5103
																																																															=
																																																															BgL_bufposz00_8746;
																																																													BgL_zc3z04anonymousza33512ze3z87_5104:
																																																														{	/* Read/reader.scm 409 */
																																																															long
																																																																BgL_newzd2matchzd2_5105;
																																																															{	/* Read/reader.scm 409 */
																																																																obj_t
																																																																	BgL_tmpz00_21811;
																																																																BgL_tmpz00_21811
																																																																	=
																																																																	(
																																																																	(obj_t)
																																																																	BgL_iportz00_5100);
																																																																RGC_STOP_MATCH
																																																																	(BgL_tmpz00_21811,
																																																																	BgL_forwardz00_5102);
																																																															}
																																																															BgL_newzd2matchzd2_5105
																																																																=
																																																																21L;
																																																															if ((BgL_forwardz00_5102 == BgL_bufposz00_5103))
																																																																{	/* Read/reader.scm 409 */
																																																																	if (rgc_fill_buffer(((obj_t) BgL_iportz00_5100)))
																																																																		{	/* Read/reader.scm 409 */
																																																																			long
																																																																				BgL_arg3515z00_5108;
																																																																			long
																																																																				BgL_arg3517z00_5109;
																																																																			{	/* Read/reader.scm 409 */
																																																																				obj_t
																																																																					BgL_tmpz00_21819;
																																																																				BgL_tmpz00_21819
																																																																					=
																																																																					(
																																																																					(obj_t)
																																																																					BgL_iportz00_5100);
																																																																				BgL_arg3515z00_5108
																																																																					=
																																																																					RGC_BUFFER_FORWARD
																																																																					(BgL_tmpz00_21819);
																																																																			}
																																																																			{	/* Read/reader.scm 409 */
																																																																				obj_t
																																																																					BgL_tmpz00_21822;
																																																																				BgL_tmpz00_21822
																																																																					=
																																																																					(
																																																																					(obj_t)
																																																																					BgL_iportz00_5100);
																																																																				BgL_arg3517z00_5109
																																																																					=
																																																																					RGC_BUFFER_BUFPOS
																																																																					(BgL_tmpz00_21822);
																																																																			}
																																																																			{
																																																																				long
																																																																					BgL_bufposz00_21826;
																																																																				long
																																																																					BgL_forwardz00_21825;
																																																																				BgL_forwardz00_21825
																																																																					=
																																																																					BgL_arg3515z00_5108;
																																																																				BgL_bufposz00_21826
																																																																					=
																																																																					BgL_arg3517z00_5109;
																																																																				BgL_bufposz00_5103
																																																																					=
																																																																					BgL_bufposz00_21826;
																																																																				BgL_forwardz00_5102
																																																																					=
																																																																					BgL_forwardz00_21825;
																																																																				goto
																																																																					BgL_zc3z04anonymousza33512ze3z87_5104;
																																																																			}
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_matchz00_9747
																																																																				=
																																																																				BgL_newzd2matchzd2_5105;
																																																																		}
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	int
																																																																		BgL_curz00_5110;
																																																																	{	/* Read/reader.scm 409 */
																																																																		obj_t
																																																																			BgL_tmpz00_21827;
																																																																		BgL_tmpz00_21827
																																																																			=
																																																																			(
																																																																			(obj_t)
																																																																			BgL_iportz00_5100);
																																																																		BgL_curz00_5110
																																																																			=
																																																																			RGC_BUFFER_GET_CHAR
																																																																			(BgL_tmpz00_21827,
																																																																			BgL_forwardz00_5102);
																																																																	}
																																																																	{	/* Read/reader.scm 409 */

																																																																		if (((long) (BgL_curz00_5110) == 58L))
																																																																			{
																																																																				long
																																																																					BgL_bufposz00_21837;
																																																																				long
																																																																					BgL_forwardz00_21835;
																																																																				long
																																																																					BgL_lastzd2matchzd2_21834;
																																																																				obj_t
																																																																					BgL_iportz00_21833;
																																																																				BgL_iportz00_21833
																																																																					=
																																																																					BgL_iportz00_5100;
																																																																				BgL_lastzd2matchzd2_21834
																																																																					=
																																																																					BgL_newzd2matchzd2_5105;
																																																																				BgL_forwardz00_21835
																																																																					=
																																																																					(1L
																																																																					+
																																																																					BgL_forwardz00_5102);
																																																																				BgL_bufposz00_21837
																																																																					=
																																																																					BgL_bufposz00_5103;
																																																																				BgL_bufposz00_7304
																																																																					=
																																																																					BgL_bufposz00_21837;
																																																																				BgL_forwardz00_7303
																																																																					=
																																																																					BgL_forwardz00_21835;
																																																																				BgL_lastzd2matchzd2_7302
																																																																					=
																																																																					BgL_lastzd2matchzd2_21834;
																																																																				BgL_iportz00_7301
																																																																					=
																																																																					BgL_iportz00_21833;
																																																																				goto
																																																																					BgL_zc3z04anonymousza34639ze3z87_7305;
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 409 */
																																																																				if (((long) (BgL_curz00_5110) == 46L))
																																																																					{
																																																																						long
																																																																							BgL_bufposz00_21845;
																																																																						long
																																																																							BgL_forwardz00_21843;
																																																																						long
																																																																							BgL_lastzd2matchzd2_21842;
																																																																						obj_t
																																																																							BgL_iportz00_21841;
																																																																						BgL_iportz00_21841
																																																																							=
																																																																							BgL_iportz00_5100;
																																																																						BgL_lastzd2matchzd2_21842
																																																																							=
																																																																							BgL_newzd2matchzd2_5105;
																																																																						BgL_forwardz00_21843
																																																																							=
																																																																							(1L
																																																																							+
																																																																							BgL_forwardz00_5102);
																																																																						BgL_bufposz00_21845
																																																																							=
																																																																							BgL_bufposz00_5103;
																																																																						BgL_bufposz00_6329
																																																																							=
																																																																							BgL_bufposz00_21845;
																																																																						BgL_forwardz00_6328
																																																																							=
																																																																							BgL_forwardz00_21843;
																																																																						BgL_lastzd2matchzd2_6327
																																																																							=
																																																																							BgL_lastzd2matchzd2_21842;
																																																																						BgL_iportz00_6326
																																																																							=
																																																																							BgL_iportz00_21841;
																																																																						goto
																																																																							BgL_zc3z04anonymousza34133ze3z87_6330;
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 409 */
																																																																						bool_t
																																																																							BgL_test7748z00_21846;
																																																																						if (((long) (BgL_curz00_5110) == 39L))
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test7748z00_21846
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 409 */
																																																																								if (((long) (BgL_curz00_5110) == 44L))
																																																																									{	/* Read/reader.scm 409 */
																																																																										BgL_test7748z00_21846
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 409 */
																																																																										BgL_test7748z00_21846
																																																																											=
																																																																											(
																																																																											(long)
																																																																											(BgL_curz00_5110)
																																																																											==
																																																																											96L);
																																																																							}}
																																																																						if (BgL_test7748z00_21846)
																																																																							{
																																																																								long
																																																																									BgL_bufposz00_21859;
																																																																								long
																																																																									BgL_forwardz00_21857;
																																																																								long
																																																																									BgL_lastzd2matchzd2_21856;
																																																																								obj_t
																																																																									BgL_iportz00_21855;
																																																																								BgL_iportz00_21855
																																																																									=
																																																																									BgL_iportz00_5100;
																																																																								BgL_lastzd2matchzd2_21856
																																																																									=
																																																																									BgL_newzd2matchzd2_5105;
																																																																								BgL_forwardz00_21857
																																																																									=
																																																																									(1L
																																																																									+
																																																																									BgL_forwardz00_5102);
																																																																								BgL_bufposz00_21859
																																																																									=
																																																																									BgL_bufposz00_5103;
																																																																								BgL_bufposz00_7550
																																																																									=
																																																																									BgL_bufposz00_21859;
																																																																								BgL_forwardz00_7549
																																																																									=
																																																																									BgL_forwardz00_21857;
																																																																								BgL_lastzd2matchzd2_7548
																																																																									=
																																																																									BgL_lastzd2matchzd2_21856;
																																																																								BgL_iportz00_7547
																																																																									=
																																																																									BgL_iportz00_21855;
																																																																								goto
																																																																									BgL_zc3z04anonymousza34766ze3z87_7551;
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 409 */
																																																																								bool_t
																																																																									BgL_test7751z00_21860;
																																																																								if (((long) (BgL_curz00_5110) < 33L))
																																																																									{	/* Read/reader.scm 409 */
																																																																										BgL_test7751z00_21860
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 409 */
																																																																										bool_t
																																																																											BgL_test7753z00_21864;
																																																																										if (((long) (BgL_curz00_5110) == 35L))
																																																																											{	/* Read/reader.scm 409 */
																																																																												BgL_test7753z00_21864
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 409 */
																																																																												BgL_test7753z00_21864
																																																																													=
																																																																													(
																																																																													(long)
																																																																													(BgL_curz00_5110)
																																																																													==
																																																																													34L);
																																																																											}
																																																																										if (BgL_test7753z00_21864)
																																																																											{	/* Read/reader.scm 409 */
																																																																												BgL_test7751z00_21860
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 409 */
																																																																												bool_t
																																																																													BgL_test7755z00_21870;
																																																																												if (((long) (BgL_curz00_5110) == 41L))
																																																																													{	/* Read/reader.scm 409 */
																																																																														BgL_test7755z00_21870
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 409 */
																																																																														if (((long) (BgL_curz00_5110) == 40L))
																																																																															{	/* Read/reader.scm 409 */
																																																																																BgL_test7755z00_21870
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 409 */
																																																																																BgL_test7755z00_21870
																																																																																	=
																																																																																	(
																																																																																	(long)
																																																																																	(BgL_curz00_5110)
																																																																																	==
																																																																																	39L);
																																																																													}}
																																																																												if (BgL_test7755z00_21870)
																																																																													{	/* Read/reader.scm 409 */
																																																																														BgL_test7751z00_21860
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 409 */
																																																																														if (((long) (BgL_curz00_5110) == 44L))
																																																																															{	/* Read/reader.scm 409 */
																																																																																BgL_test7751z00_21860
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 409 */
																																																																																if (((long) (BgL_curz00_5110) == 46L))
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		BgL_test7751z00_21860
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			1);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		bool_t
																																																																																			BgL_test7760z00_21885;
																																																																																		if (((long) (BgL_curz00_5110) == 59L))
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				BgL_test7760z00_21885
																																																																																					=
																																																																																					(
																																																																																					(bool_t)
																																																																																					1);
																																																																																			}
																																																																																		else
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				BgL_test7760z00_21885
																																																																																					=
																																																																																					(
																																																																																					(long)
																																																																																					(BgL_curz00_5110)
																																																																																					==
																																																																																					58L);
																																																																																			}
																																																																																		if (BgL_test7760z00_21885)
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				BgL_test7751z00_21860
																																																																																					=
																																																																																					(
																																																																																					(bool_t)
																																																																																					1);
																																																																																			}
																																																																																		else
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				if (((long) (BgL_curz00_5110) == 91L))
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						BgL_test7751z00_21860
																																																																																							=
																																																																																							(
																																																																																							(bool_t)
																																																																																							1);
																																																																																					}
																																																																																				else
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						if (((long) (BgL_curz00_5110) == 93L))
																																																																																							{	/* Read/reader.scm 409 */
																																																																																								BgL_test7751z00_21860
																																																																																									=
																																																																																									(
																																																																																									(bool_t)
																																																																																									1);
																																																																																							}
																																																																																						else
																																																																																							{	/* Read/reader.scm 409 */
																																																																																								if (((long) (BgL_curz00_5110) == 96L))
																																																																																									{	/* Read/reader.scm 409 */
																																																																																										BgL_test7751z00_21860
																																																																																											=
																																																																																											(
																																																																																											(bool_t)
																																																																																											1);
																																																																																									}
																																																																																								else
																																																																																									{	/* Read/reader.scm 409 */
																																																																																										bool_t
																																																																																											BgL_test7765z00_21900;
																																																																																										if (((long) (BgL_curz00_5110) == 125L))
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												BgL_test7765z00_21900
																																																																																													=
																																																																																													(
																																																																																													(bool_t)
																																																																																													1);
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												if (((long) (BgL_curz00_5110) == 124L))
																																																																																													{	/* Read/reader.scm 409 */
																																																																																														BgL_test7765z00_21900
																																																																																															=
																																																																																															(
																																																																																															(bool_t)
																																																																																															1);
																																																																																													}
																																																																																												else
																																																																																													{	/* Read/reader.scm 409 */
																																																																																														BgL_test7765z00_21900
																																																																																															=
																																																																																															(
																																																																																															(long)
																																																																																															(BgL_curz00_5110)
																																																																																															==
																																																																																															123L);
																																																																																											}}
																																																																																										if (BgL_test7765z00_21900)
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												BgL_test7751z00_21860
																																																																																													=
																																																																																													(
																																																																																													(bool_t)
																																																																																													1);
																																																																																											}
																																																																																										else
																																																																																											{	/* Read/reader.scm 409 */
																																																																																												BgL_test7751z00_21860
																																																																																													=
																																																																																													(
																																																																																													(long)
																																																																																													(BgL_curz00_5110)
																																																																																													==
																																																																																													127L);
																																																																									}}}}}}}}}}
																																																																								if (BgL_test7751z00_21860)
																																																																									{	/* Read/reader.scm 409 */
																																																																										BgL_matchz00_9747
																																																																											=
																																																																											BgL_newzd2matchzd2_5105;
																																																																									}
																																																																								else
																																																																									{
																																																																										long
																																																																											BgL_forwardz00_21912;
																																																																										long
																																																																											BgL_lastzd2matchzd2_21911;
																																																																										BgL_lastzd2matchzd2_21911
																																																																											=
																																																																											BgL_newzd2matchzd2_5105;
																																																																										BgL_forwardz00_21912
																																																																											=
																																																																											(1L
																																																																											+
																																																																											BgL_forwardz00_5102);
																																																																										BgL_forwardz00_5102
																																																																											=
																																																																											BgL_forwardz00_21912;
																																																																										BgL_lastzd2matchzd2_5101
																																																																											=
																																																																											BgL_lastzd2matchzd2_21911;
																																																																										goto
																																																																											BgL_zc3z04anonymousza33512ze3z87_5104;
																																																																									}
																																																																							}
																																																																					}
																																																																			}
																																																																	}
																																																																}
																																																														}
																																																													}
																																																											}
																																																									}
																																																							}
																																																					}
																																																				}
																																																		}
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		if (((long) (BgL_curz00_7311) == 46L))
																																																			{
																																																				long
																																																					BgL_bufposz00_21923;
																																																				long
																																																					BgL_forwardz00_21921;
																																																				long
																																																					BgL_lastzd2matchzd2_21920;
																																																				obj_t
																																																					BgL_iportz00_21919;
																																																				BgL_iportz00_21919
																																																					=
																																																					BgL_iportz00_7301;
																																																				BgL_lastzd2matchzd2_21920
																																																					=
																																																					BgL_newzd2matchzd2_7306;
																																																				BgL_forwardz00_21921
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_7303);
																																																				BgL_bufposz00_21923
																																																					=
																																																					BgL_bufposz00_7304;
																																																				BgL_bufposz00_6329
																																																					=
																																																					BgL_bufposz00_21923;
																																																				BgL_forwardz00_6328
																																																					=
																																																					BgL_forwardz00_21921;
																																																				BgL_lastzd2matchzd2_6327
																																																					=
																																																					BgL_lastzd2matchzd2_21920;
																																																				BgL_iportz00_6326
																																																					=
																																																					BgL_iportz00_21919;
																																																				goto
																																																					BgL_zc3z04anonymousza34133ze3z87_6330;
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				bool_t
																																																					BgL_test7769z00_21924;
																																																				if (((long) (BgL_curz00_7311) == 39L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test7769z00_21924
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						if (((long) (BgL_curz00_7311) == 44L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7769z00_21924
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7769z00_21924
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_7311)
																																																									==
																																																									96L);
																																																					}}
																																																				if (BgL_test7769z00_21924)
																																																					{
																																																						long
																																																							BgL_bufposz00_21937;
																																																						long
																																																							BgL_forwardz00_21935;
																																																						long
																																																							BgL_lastzd2matchzd2_21934;
																																																						obj_t
																																																							BgL_iportz00_21933;
																																																						BgL_iportz00_21933
																																																							=
																																																							BgL_iportz00_7301;
																																																						BgL_lastzd2matchzd2_21934
																																																							=
																																																							BgL_newzd2matchzd2_7306;
																																																						BgL_forwardz00_21935
																																																							=
																																																							(1L
																																																							+
																																																							BgL_forwardz00_7303);
																																																						BgL_bufposz00_21937
																																																							=
																																																							BgL_bufposz00_7304;
																																																						BgL_bufposz00_7550
																																																							=
																																																							BgL_bufposz00_21937;
																																																						BgL_forwardz00_7549
																																																							=
																																																							BgL_forwardz00_21935;
																																																						BgL_lastzd2matchzd2_7548
																																																							=
																																																							BgL_lastzd2matchzd2_21934;
																																																						BgL_iportz00_7547
																																																							=
																																																							BgL_iportz00_21933;
																																																						goto
																																																							BgL_zc3z04anonymousza34766ze3z87_7551;
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						bool_t
																																																							BgL_test7772z00_21938;
																																																						if (((long) (BgL_curz00_7311) < 33L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7772z00_21938
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								bool_t
																																																									BgL_test7774z00_21942;
																																																								if (((long) (BgL_curz00_7311) == 35L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test7774z00_21942
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test7774z00_21942
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_7311)
																																																											==
																																																											34L);
																																																									}
																																																								if (BgL_test7774z00_21942)
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test7772z00_21938
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										bool_t
																																																											BgL_test7776z00_21948;
																																																										if (((long) (BgL_curz00_7311) == 41L))
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test7776z00_21948
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												if (((long) (BgL_curz00_7311) == 40L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7776z00_21948
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7776z00_21948
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_7311)
																																																															==
																																																															39L);
																																																											}}
																																																										if (BgL_test7776z00_21948)
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test7772z00_21938
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												if (((long) (BgL_curz00_7311) == 44L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7772z00_21938
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														if (((long) (BgL_curz00_7311) == 46L))
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test7772z00_21938
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																bool_t
																																																																	BgL_test7781z00_21963;
																																																																if (((long) (BgL_curz00_7311) == 59L))
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test7781z00_21963
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test7781z00_21963
																																																																			=
																																																																			(
																																																																			(long)
																																																																			(BgL_curz00_7311)
																																																																			==
																																																																			58L);
																																																																	}
																																																																if (BgL_test7781z00_21963)
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test7772z00_21938
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		if (((long) (BgL_curz00_7311) == 91L))
																																																																			{	/* Read/reader.scm 409 */
																																																																				BgL_test7772z00_21938
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 409 */
																																																																				if (((long) (BgL_curz00_7311) == 93L))
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test7772z00_21938
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 409 */
																																																																						if (((long) (BgL_curz00_7311) == 96L))
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test7772z00_21938
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 409 */
																																																																								bool_t
																																																																									BgL_test7786z00_21978;
																																																																								if (((long) (BgL_curz00_7311) == 125L))
																																																																									{	/* Read/reader.scm 409 */
																																																																										BgL_test7786z00_21978
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 409 */
																																																																										if (((long) (BgL_curz00_7311) == 124L))
																																																																											{	/* Read/reader.scm 409 */
																																																																												BgL_test7786z00_21978
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 409 */
																																																																												BgL_test7786z00_21978
																																																																													=
																																																																													(
																																																																													(long)
																																																																													(BgL_curz00_7311)
																																																																													==
																																																																													123L);
																																																																									}}
																																																																								if (BgL_test7786z00_21978)
																																																																									{	/* Read/reader.scm 409 */
																																																																										BgL_test7772z00_21938
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 409 */
																																																																										BgL_test7772z00_21938
																																																																											=
																																																																											(
																																																																											(long)
																																																																											(BgL_curz00_7311)
																																																																											==
																																																																											127L);
																																																							}}}}}}}}}}
																																																						if (BgL_test7772z00_21938)
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_matchz00_9747
																																																									=
																																																									BgL_newzd2matchzd2_7306;
																																																							}
																																																						else
																																																							{
																																																								long
																																																									BgL_bufposz00_21993;
																																																								long
																																																									BgL_forwardz00_21991;
																																																								long
																																																									BgL_lastzd2matchzd2_21990;
																																																								obj_t
																																																									BgL_iportz00_21989;
																																																								BgL_iportz00_21989
																																																									=
																																																									BgL_iportz00_7301;
																																																								BgL_lastzd2matchzd2_21990
																																																									=
																																																									BgL_newzd2matchzd2_7306;
																																																								BgL_forwardz00_21991
																																																									=
																																																									(1L
																																																									+
																																																									BgL_forwardz00_7303);
																																																								BgL_bufposz00_21993
																																																									=
																																																									BgL_bufposz00_7304;
																																																								BgL_bufposz00_5103
																																																									=
																																																									BgL_bufposz00_21993;
																																																								BgL_forwardz00_5102
																																																									=
																																																									BgL_forwardz00_21991;
																																																								BgL_lastzd2matchzd2_5101
																																																									=
																																																									BgL_lastzd2matchzd2_21990;
																																																								BgL_iportz00_5100
																																																									=
																																																									BgL_iportz00_21989;
																																																								goto
																																																									BgL_zc3z04anonymousza33512ze3z87_5104;
																																																							}
																																																					}
																																																			}
																																																	}
																																															}
																																														}
																																												}
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												bool_t
																																													BgL_test7789z00_21995;
																																												if (((long) (BgL_curz00_3950) >= 48L))
																																													{	/* Read/reader.scm 409 */
																																														BgL_test7789z00_21995
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_3950)
																																															<
																																															58L);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														BgL_test7789z00_21995
																																															=
																																															(
																																															(bool_t)
																																															0);
																																													}
																																												if (BgL_test7789z00_21995)
																																													{
																																														long
																																															BgL_forwardz00_22002;
																																														long
																																															BgL_lastzd2matchzd2_22001;
																																														BgL_lastzd2matchzd2_22001
																																															=
																																															BgL_newzd2matchzd2_3945;
																																														BgL_forwardz00_22002
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_3942);
																																														BgL_forwardz00_3942
																																															=
																																															BgL_forwardz00_22002;
																																														BgL_lastzd2matchzd2_3941
																																															=
																																															BgL_lastzd2matchzd2_22001;
																																														goto
																																															BgL_zc3z04anonymousza32819ze3z87_3944;
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														if (((long) (BgL_curz00_3950) == 46L))
																																															{
																																																long
																																																	BgL_bufposz00_22011;
																																																long
																																																	BgL_forwardz00_22009;
																																																long
																																																	BgL_lastzd2matchzd2_22008;
																																																obj_t
																																																	BgL_iportz00_22007;
																																																BgL_iportz00_22007
																																																	=
																																																	BgL_iportz00_3940;
																																																BgL_lastzd2matchzd2_22008
																																																	=
																																																	BgL_newzd2matchzd2_3945;
																																																BgL_forwardz00_22009
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_3942);
																																																BgL_bufposz00_22011
																																																	=
																																																	BgL_bufposz00_3943;
																																																BgL_bufposz00_9542
																																																	=
																																																	BgL_bufposz00_22011;
																																																BgL_forwardz00_9541
																																																	=
																																																	BgL_forwardz00_22009;
																																																BgL_lastzd2matchzd2_9540
																																																	=
																																																	BgL_lastzd2matchzd2_22008;
																																																BgL_iportz00_9539
																																																	=
																																																	BgL_iportz00_22007;
																																																goto
																																																	BgL_zc3z04anonymousza35780ze3z87_9543;
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																bool_t
																																																	BgL_test7792z00_22012;
																																																if (((long) (BgL_curz00_3950) == 39L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test7792z00_22012
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		if (((long) (BgL_curz00_3950) == 44L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7792z00_22012
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7792z00_22012
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_3950)
																																																					==
																																																					96L);
																																																	}}
																																																if (BgL_test7792z00_22012)
																																																	{
																																																		long
																																																			BgL_bufposz00_22025;
																																																		long
																																																			BgL_forwardz00_22023;
																																																		long
																																																			BgL_lastzd2matchzd2_22022;
																																																		obj_t
																																																			BgL_iportz00_22021;
																																																		BgL_iportz00_22021
																																																			=
																																																			BgL_iportz00_3940;
																																																		BgL_lastzd2matchzd2_22022
																																																			=
																																																			BgL_newzd2matchzd2_3945;
																																																		BgL_forwardz00_22023
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_3942);
																																																		BgL_bufposz00_22025
																																																			=
																																																			BgL_bufposz00_3943;
																																																		BgL_bufposz00_7365
																																																			=
																																																			BgL_bufposz00_22025;
																																																		BgL_forwardz00_7364
																																																			=
																																																			BgL_forwardz00_22023;
																																																		BgL_lastzd2matchzd2_7363
																																																			=
																																																			BgL_lastzd2matchzd2_22022;
																																																		BgL_iportz00_7362
																																																			=
																																																			BgL_iportz00_22021;
																																																		goto
																																																			BgL_zc3z04anonymousza34670ze3z87_7366;
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		bool_t
																																																			BgL_test7795z00_22026;
																																																		if (((long) (BgL_curz00_3950) < 33L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7795z00_22026
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				bool_t
																																																					BgL_test7797z00_22030;
																																																				if (((long) (BgL_curz00_3950) == 35L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test7797z00_22030
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test7797z00_22030
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_3950)
																																																							==
																																																							34L);
																																																					}
																																																				if (BgL_test7797z00_22030)
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test7795z00_22026
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						bool_t
																																																							BgL_test7799z00_22036;
																																																						if (((long) (BgL_curz00_3950) == 41L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7799z00_22036
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								if (((long) (BgL_curz00_3950) == 40L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test7799z00_22036
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test7799z00_22036
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_3950)
																																																											==
																																																											39L);
																																																							}}
																																																						if (BgL_test7799z00_22036)
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7795z00_22026
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								if (((long) (BgL_curz00_3950) == 44L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test7795z00_22026
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										if (((long) (BgL_curz00_3950) == 46L))
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test7795z00_22026
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												bool_t
																																																													BgL_test7804z00_22051;
																																																												if (((long) (BgL_curz00_3950) >= 48L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7804z00_22051
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_3950)
																																																															<
																																																															60L);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7804z00_22051
																																																															=
																																																															(
																																																															(bool_t)
																																																															0);
																																																													}
																																																												if (BgL_test7804z00_22051)
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7795z00_22026
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														if (((long) (BgL_curz00_3950) == 91L))
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test7795z00_22026
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																if (((long) (BgL_curz00_3950) == 93L))
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test7795z00_22026
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		if (((long) (BgL_curz00_3950) == 96L))
																																																																			{	/* Read/reader.scm 409 */
																																																																				BgL_test7795z00_22026
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 409 */
																																																																				bool_t
																																																																					BgL_test7809z00_22066;
																																																																				if (((long) (BgL_curz00_3950) == 125L))
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test7809z00_22066
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 409 */
																																																																						if (((long) (BgL_curz00_3950) == 124L))
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test7809z00_22066
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test7809z00_22066
																																																																									=
																																																																									(
																																																																									(long)
																																																																									(BgL_curz00_3950)
																																																																									==
																																																																									123L);
																																																																					}}
																																																																				if (BgL_test7809z00_22066)
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test7795z00_22026
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test7795z00_22026
																																																																							=
																																																																							(
																																																																							(long)
																																																																							(BgL_curz00_3950)
																																																																							==
																																																																							127L);
																																																			}}}}}}}}}}
																																																		if (BgL_test7795z00_22026)
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_matchz00_9747
																																																					=
																																																					BgL_newzd2matchzd2_3945;
																																																			}
																																																		else
																																																			{
																																																				long
																																																					BgL_bufposz00_22081;
																																																				long
																																																					BgL_forwardz00_22079;
																																																				long
																																																					BgL_lastzd2matchzd2_22078;
																																																				obj_t
																																																					BgL_iportz00_22077;
																																																				BgL_iportz00_22077
																																																					=
																																																					BgL_iportz00_3940;
																																																				BgL_lastzd2matchzd2_22078
																																																					=
																																																					BgL_newzd2matchzd2_3945;
																																																				BgL_forwardz00_22079
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_3942);
																																																				BgL_bufposz00_22081
																																																					=
																																																					BgL_bufposz00_3943;
																																																				BgL_bufposz00_5103
																																																					=
																																																					BgL_bufposz00_22081;
																																																				BgL_forwardz00_5102
																																																					=
																																																					BgL_forwardz00_22079;
																																																				BgL_lastzd2matchzd2_5101
																																																					=
																																																					BgL_lastzd2matchzd2_22078;
																																																				BgL_iportz00_5100
																																																					=
																																																					BgL_iportz00_22077;
																																																				goto
																																																					BgL_zc3z04anonymousza33512ze3z87_5104;
																																																			}
																																																	}
																																															}
																																													}
																																											}
																																									}
																																								}
																																						}
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						bool_t
																																							BgL_test7812z00_22083;
																																						if (
																																							((long) (BgL_curz00_8814) == 39L))
																																							{	/* Read/reader.scm 409 */
																																								BgL_test7812z00_22083
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								if (((long) (BgL_curz00_8814) == 44L))
																																									{	/* Read/reader.scm 409 */
																																										BgL_test7812z00_22083
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										BgL_test7812z00_22083
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_8814)
																																											==
																																											96L);
																																							}}
																																						if (BgL_test7812z00_22083)
																																							{
																																								long
																																									BgL_bufposz00_22096;
																																								long
																																									BgL_forwardz00_22094;
																																								long
																																									BgL_lastzd2matchzd2_22093;
																																								obj_t
																																									BgL_iportz00_22092;
																																								BgL_iportz00_22092
																																									=
																																									BgL_iportz00_8804;
																																								BgL_lastzd2matchzd2_22093
																																									=
																																									BgL_newzd2matchzd2_8809;
																																								BgL_forwardz00_22094
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_8806);
																																								BgL_bufposz00_22096
																																									=
																																									BgL_bufposz00_8807;
																																								BgL_bufposz00_6105
																																									=
																																									BgL_bufposz00_22096;
																																								BgL_forwardz00_6104
																																									=
																																									BgL_forwardz00_22094;
																																								BgL_lastzd2matchzd2_6103
																																									=
																																									BgL_lastzd2matchzd2_22093;
																																								BgL_iportz00_6102
																																									=
																																									BgL_iportz00_22092;
																																								goto
																																									BgL_zc3z04anonymousza34018ze3z87_6106;
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								bool_t
																																									BgL_test7815z00_22097;
																																								if (((long) (BgL_curz00_8814) < 33L))
																																									{	/* Read/reader.scm 409 */
																																										BgL_test7815z00_22097
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										bool_t
																																											BgL_test7817z00_22101;
																																										if (((long) (BgL_curz00_8814) == 35L))
																																											{	/* Read/reader.scm 409 */
																																												BgL_test7817z00_22101
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												BgL_test7817z00_22101
																																													=
																																													(
																																													(long)
																																													(BgL_curz00_8814)
																																													==
																																													34L);
																																											}
																																										if (BgL_test7817z00_22101)
																																											{	/* Read/reader.scm 409 */
																																												BgL_test7815z00_22097
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												bool_t
																																													BgL_test7819z00_22107;
																																												if (((long) (BgL_curz00_8814) == 41L))
																																													{	/* Read/reader.scm 409 */
																																														BgL_test7819z00_22107
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														if (((long) (BgL_curz00_8814) == 40L))
																																															{	/* Read/reader.scm 409 */
																																																BgL_test7819z00_22107
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																BgL_test7819z00_22107
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_8814)
																																																	==
																																																	39L);
																																													}}
																																												if (BgL_test7819z00_22107)
																																													{	/* Read/reader.scm 409 */
																																														BgL_test7815z00_22097
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														if (((long) (BgL_curz00_8814) == 44L))
																																															{	/* Read/reader.scm 409 */
																																																BgL_test7815z00_22097
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																if (((long) (BgL_curz00_8814) == 46L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test7815z00_22097
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		bool_t
																																																			BgL_test7824z00_22122;
																																																		if (((long) (BgL_curz00_8814) == 59L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7824z00_22122
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7824z00_22122
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_8814)
																																																					==
																																																					58L);
																																																			}
																																																		if (BgL_test7824z00_22122)
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7815z00_22097
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				if (((long) (BgL_curz00_8814) == 91L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test7815z00_22097
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						if (((long) (BgL_curz00_8814) == 93L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7815z00_22097
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								if (((long) (BgL_curz00_8814) == 96L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test7815z00_22097
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										bool_t
																																																											BgL_test7829z00_22137;
																																																										if (((long) (BgL_curz00_8814) == 125L))
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test7829z00_22137
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												if (((long) (BgL_curz00_8814) == 124L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7829z00_22137
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7829z00_22137
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_8814)
																																																															==
																																																															123L);
																																																											}}
																																																										if (BgL_test7829z00_22137)
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test7815z00_22097
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test7815z00_22097
																																																													=
																																																													(
																																																													(long)
																																																													(BgL_curz00_8814)
																																																													==
																																																													127L);
																																									}}}}}}}}}}
																																								if (BgL_test7815z00_22097)
																																									{	/* Read/reader.scm 409 */
																																										BgL_matchz00_9747
																																											=
																																											BgL_newzd2matchzd2_8809;
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										BgL_iportz00_4960
																																											=
																																											BgL_iportz00_8804;
																																										BgL_lastzd2matchzd2_4961
																																											=
																																											BgL_newzd2matchzd2_8809;
																																										BgL_forwardz00_4962
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_8806);
																																										BgL_bufposz00_4963
																																											=
																																											BgL_bufposz00_8807;
																																									BgL_zc3z04anonymousza33439ze3z87_4964:
																																										{	/* Read/reader.scm 409 */
																																											long
																																												BgL_newzd2matchzd2_4965;
																																											{	/* Read/reader.scm 409 */
																																												obj_t
																																													BgL_tmpz00_22148;
																																												BgL_tmpz00_22148
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_4960);
																																												RGC_STOP_MATCH
																																													(BgL_tmpz00_22148,
																																													BgL_forwardz00_4962);
																																											}
																																											BgL_newzd2matchzd2_4965
																																												=
																																												22L;
																																											if ((BgL_forwardz00_4962 == BgL_bufposz00_4963))
																																												{	/* Read/reader.scm 409 */
																																													if (rgc_fill_buffer(((obj_t) BgL_iportz00_4960)))
																																														{	/* Read/reader.scm 409 */
																																															long
																																																BgL_arg3442z00_4968;
																																															long
																																																BgL_arg3443z00_4969;
																																															{	/* Read/reader.scm 409 */
																																																obj_t
																																																	BgL_tmpz00_22156;
																																																BgL_tmpz00_22156
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_4960);
																																																BgL_arg3442z00_4968
																																																	=
																																																	RGC_BUFFER_FORWARD
																																																	(BgL_tmpz00_22156);
																																															}
																																															{	/* Read/reader.scm 409 */
																																																obj_t
																																																	BgL_tmpz00_22159;
																																																BgL_tmpz00_22159
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_4960);
																																																BgL_arg3443z00_4969
																																																	=
																																																	RGC_BUFFER_BUFPOS
																																																	(BgL_tmpz00_22159);
																																															}
																																															{
																																																long
																																																	BgL_bufposz00_22163;
																																																long
																																																	BgL_forwardz00_22162;
																																																BgL_forwardz00_22162
																																																	=
																																																	BgL_arg3442z00_4968;
																																																BgL_bufposz00_22163
																																																	=
																																																	BgL_arg3443z00_4969;
																																																BgL_bufposz00_4963
																																																	=
																																																	BgL_bufposz00_22163;
																																																BgL_forwardz00_4962
																																																	=
																																																	BgL_forwardz00_22162;
																																																goto
																																																	BgL_zc3z04anonymousza33439ze3z87_4964;
																																															}
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															BgL_matchz00_9747
																																																=
																																																BgL_newzd2matchzd2_4965;
																																														}
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													int
																																														BgL_curz00_4970;
																																													{	/* Read/reader.scm 409 */
																																														obj_t
																																															BgL_tmpz00_22164;
																																														BgL_tmpz00_22164
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_4960);
																																														BgL_curz00_4970
																																															=
																																															RGC_BUFFER_GET_CHAR
																																															(BgL_tmpz00_22164,
																																															BgL_forwardz00_4962);
																																													}
																																													{	/* Read/reader.scm 409 */

																																														if (((long) (BgL_curz00_4970) == 58L))
																																															{
																																																long
																																																	BgL_bufposz00_22174;
																																																long
																																																	BgL_forwardz00_22172;
																																																long
																																																	BgL_lastzd2matchzd2_22171;
																																																obj_t
																																																	BgL_iportz00_22170;
																																																BgL_iportz00_22170
																																																	=
																																																	BgL_iportz00_4960;
																																																BgL_lastzd2matchzd2_22171
																																																	=
																																																	BgL_newzd2matchzd2_4965;
																																																BgL_forwardz00_22172
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_4962);
																																																BgL_bufposz00_22174
																																																	=
																																																	BgL_bufposz00_4963;
																																																BgL_bufposz00_6394
																																																	=
																																																	BgL_bufposz00_22174;
																																																BgL_forwardz00_6393
																																																	=
																																																	BgL_forwardz00_22172;
																																																BgL_lastzd2matchzd2_6392
																																																	=
																																																	BgL_lastzd2matchzd2_22171;
																																																BgL_iportz00_6391
																																																	=
																																																	BgL_iportz00_22170;
																																																goto
																																																	BgL_zc3z04anonymousza34167ze3z87_6395;
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																if (((long) (BgL_curz00_4970) == 46L))
																																																	{
																																																		long
																																																			BgL_bufposz00_22182;
																																																		long
																																																			BgL_forwardz00_22180;
																																																		long
																																																			BgL_lastzd2matchzd2_22179;
																																																		obj_t
																																																			BgL_iportz00_22178;
																																																		BgL_iportz00_22178
																																																			=
																																																			BgL_iportz00_4960;
																																																		BgL_lastzd2matchzd2_22179
																																																			=
																																																			BgL_newzd2matchzd2_4965;
																																																		BgL_forwardz00_22180
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_4962);
																																																		BgL_bufposz00_22182
																																																			=
																																																			BgL_bufposz00_4963;
																																																		BgL_bufposz00_3943
																																																			=
																																																			BgL_bufposz00_22182;
																																																		BgL_forwardz00_3942
																																																			=
																																																			BgL_forwardz00_22180;
																																																		BgL_lastzd2matchzd2_3941
																																																			=
																																																			BgL_lastzd2matchzd2_22179;
																																																		BgL_iportz00_3940
																																																			=
																																																			BgL_iportz00_22178;
																																																		goto
																																																			BgL_zc3z04anonymousza32819ze3z87_3944;
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		bool_t
																																																			BgL_test7836z00_22183;
																																																		if (((long) (BgL_curz00_4970) == 39L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7836z00_22183
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				if (((long) (BgL_curz00_4970) == 44L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test7836z00_22183
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test7836z00_22183
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_4970)
																																																							==
																																																							96L);
																																																			}}
																																																		if (BgL_test7836z00_22183)
																																																			{
																																																				long
																																																					BgL_bufposz00_22196;
																																																				long
																																																					BgL_forwardz00_22194;
																																																				long
																																																					BgL_lastzd2matchzd2_22193;
																																																				obj_t
																																																					BgL_iportz00_22192;
																																																				BgL_iportz00_22192
																																																					=
																																																					BgL_iportz00_4960;
																																																				BgL_lastzd2matchzd2_22193
																																																					=
																																																					BgL_newzd2matchzd2_4965;
																																																				BgL_forwardz00_22194
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_4962);
																																																				BgL_bufposz00_22196
																																																					=
																																																					BgL_bufposz00_4963;
																																																				BgL_bufposz00_6105
																																																					=
																																																					BgL_bufposz00_22196;
																																																				BgL_forwardz00_6104
																																																					=
																																																					BgL_forwardz00_22194;
																																																				BgL_lastzd2matchzd2_6103
																																																					=
																																																					BgL_lastzd2matchzd2_22193;
																																																				BgL_iportz00_6102
																																																					=
																																																					BgL_iportz00_22192;
																																																				goto
																																																					BgL_zc3z04anonymousza34018ze3z87_6106;
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				bool_t
																																																					BgL_test7839z00_22197;
																																																				if (((long) (BgL_curz00_4970) < 33L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test7839z00_22197
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						bool_t
																																																							BgL_test7841z00_22201;
																																																						if (((long) (BgL_curz00_4970) == 35L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7841z00_22201
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7841z00_22201
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_4970)
																																																									==
																																																									34L);
																																																							}
																																																						if (BgL_test7841z00_22201)
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7839z00_22197
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								bool_t
																																																									BgL_test7843z00_22207;
																																																								if (((long) (BgL_curz00_4970) == 41L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test7843z00_22207
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										if (((long) (BgL_curz00_4970) == 40L))
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test7843z00_22207
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test7843z00_22207
																																																													=
																																																													(
																																																													(long)
																																																													(BgL_curz00_4970)
																																																													==
																																																													39L);
																																																									}}
																																																								if (BgL_test7843z00_22207)
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test7839z00_22197
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										if (((long) (BgL_curz00_4970) == 44L))
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test7839z00_22197
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												if (((long) (BgL_curz00_4970) == 46L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7839z00_22197
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														bool_t
																																																															BgL_test7848z00_22222;
																																																														if (((long) (BgL_curz00_4970) == 59L))
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test7848z00_22222
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test7848z00_22222
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_4970)
																																																																	==
																																																																	58L);
																																																															}
																																																														if (BgL_test7848z00_22222)
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test7839z00_22197
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																if (((long) (BgL_curz00_4970) == 91L))
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test7839z00_22197
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		if (((long) (BgL_curz00_4970) == 93L))
																																																																			{	/* Read/reader.scm 409 */
																																																																				BgL_test7839z00_22197
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 409 */
																																																																				if (((long) (BgL_curz00_4970) == 96L))
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test7839z00_22197
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 409 */
																																																																						bool_t
																																																																							BgL_test7853z00_22237;
																																																																						if (((long) (BgL_curz00_4970) == 125L))
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test7853z00_22237
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 409 */
																																																																								if (((long) (BgL_curz00_4970) == 124L))
																																																																									{	/* Read/reader.scm 409 */
																																																																										BgL_test7853z00_22237
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 409 */
																																																																										BgL_test7853z00_22237
																																																																											=
																																																																											(
																																																																											(long)
																																																																											(BgL_curz00_4970)
																																																																											==
																																																																											123L);
																																																																							}}
																																																																						if (BgL_test7853z00_22237)
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test7839z00_22197
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test7839z00_22197
																																																																									=
																																																																									(
																																																																									(long)
																																																																									(BgL_curz00_4970)
																																																																									==
																																																																									127L);
																																																					}}}}}}}}}}
																																																				if (BgL_test7839z00_22197)
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_matchz00_9747
																																																							=
																																																							BgL_newzd2matchzd2_4965;
																																																					}
																																																				else
																																																					{
																																																						long
																																																							BgL_forwardz00_22249;
																																																						long
																																																							BgL_lastzd2matchzd2_22248;
																																																						BgL_lastzd2matchzd2_22248
																																																							=
																																																							BgL_newzd2matchzd2_4965;
																																																						BgL_forwardz00_22249
																																																							=
																																																							(1L
																																																							+
																																																							BgL_forwardz00_4962);
																																																						BgL_forwardz00_4962
																																																							=
																																																							BgL_forwardz00_22249;
																																																						BgL_lastzd2matchzd2_4961
																																																							=
																																																							BgL_lastzd2matchzd2_22248;
																																																						goto
																																																							BgL_zc3z04anonymousza33439ze3z87_4964;
																																																					}
																																																			}
																																																	}
																																															}
																																													}
																																												}
																																										}
																																									}
																																							}
																																					}
																																			}
																																	}
																																}
																														}
																													}
																												else
																													{	/* Read/reader.scm 409 */
																														if (
																															((long)
																																(BgL_curz00_6401)
																																== 46L))
																															{
																																long
																																	BgL_bufposz00_22260;
																																long
																																	BgL_forwardz00_22258;
																																long
																																	BgL_lastzd2matchzd2_22257;
																																obj_t
																																	BgL_iportz00_22256;
																																BgL_iportz00_22256
																																	=
																																	BgL_iportz00_6391;
																																BgL_lastzd2matchzd2_22257
																																	=
																																	BgL_newzd2matchzd2_6396;
																																BgL_forwardz00_22258
																																	=
																																	(1L +
																																	BgL_forwardz00_6393);
																																BgL_bufposz00_22260
																																	=
																																	BgL_bufposz00_6394;
																																BgL_bufposz00_3943
																																	=
																																	BgL_bufposz00_22260;
																																BgL_forwardz00_3942
																																	=
																																	BgL_forwardz00_22258;
																																BgL_lastzd2matchzd2_3941
																																	=
																																	BgL_lastzd2matchzd2_22257;
																																BgL_iportz00_3940
																																	=
																																	BgL_iportz00_22256;
																																goto
																																	BgL_zc3z04anonymousza32819ze3z87_3944;
																															}
																														else
																															{	/* Read/reader.scm 409 */
																																bool_t
																																	BgL_test7857z00_22261;
																																if (((long)
																																		(BgL_curz00_6401)
																																		== 39L))
																																	{	/* Read/reader.scm 409 */
																																		BgL_test7857z00_22261
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 409 */
																																		if (
																																			((long)
																																				(BgL_curz00_6401)
																																				== 44L))
																																			{	/* Read/reader.scm 409 */
																																				BgL_test7857z00_22261
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				BgL_test7857z00_22261
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_6401)
																																					==
																																					96L);
																																	}}
																																if (BgL_test7857z00_22261)
																																	{
																																		long
																																			BgL_bufposz00_22274;
																																		long
																																			BgL_forwardz00_22272;
																																		long
																																			BgL_lastzd2matchzd2_22271;
																																		obj_t
																																			BgL_iportz00_22270;
																																		BgL_iportz00_22270
																																			=
																																			BgL_iportz00_6391;
																																		BgL_lastzd2matchzd2_22271
																																			=
																																			BgL_newzd2matchzd2_6396;
																																		BgL_forwardz00_22272
																																			=
																																			(1L +
																																			BgL_forwardz00_6393);
																																		BgL_bufposz00_22274
																																			=
																																			BgL_bufposz00_6394;
																																		BgL_bufposz00_6105
																																			=
																																			BgL_bufposz00_22274;
																																		BgL_forwardz00_6104
																																			=
																																			BgL_forwardz00_22272;
																																		BgL_lastzd2matchzd2_6103
																																			=
																																			BgL_lastzd2matchzd2_22271;
																																		BgL_iportz00_6102
																																			=
																																			BgL_iportz00_22270;
																																		goto
																																			BgL_zc3z04anonymousza34018ze3z87_6106;
																																	}
																																else
																																	{	/* Read/reader.scm 409 */
																																		bool_t
																																			BgL_test7860z00_22275;
																																		if (((long)
																																				(BgL_curz00_6401)
																																				< 33L))
																																			{	/* Read/reader.scm 409 */
																																				BgL_test7860z00_22275
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				bool_t
																																					BgL_test7862z00_22279;
																																				if ((
																																						(long)
																																						(BgL_curz00_6401)
																																						==
																																						35L))
																																					{	/* Read/reader.scm 409 */
																																						BgL_test7862z00_22279
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						BgL_test7862z00_22279
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_6401)
																																							==
																																							34L);
																																					}
																																				if (BgL_test7862z00_22279)
																																					{	/* Read/reader.scm 409 */
																																						BgL_test7860z00_22275
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						bool_t
																																							BgL_test7864z00_22285;
																																						if (
																																							((long) (BgL_curz00_6401) == 41L))
																																							{	/* Read/reader.scm 409 */
																																								BgL_test7864z00_22285
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								if (((long) (BgL_curz00_6401) == 40L))
																																									{	/* Read/reader.scm 409 */
																																										BgL_test7864z00_22285
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										BgL_test7864z00_22285
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_6401)
																																											==
																																											39L);
																																							}}
																																						if (BgL_test7864z00_22285)
																																							{	/* Read/reader.scm 409 */
																																								BgL_test7860z00_22275
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								if (((long) (BgL_curz00_6401) == 44L))
																																									{	/* Read/reader.scm 409 */
																																										BgL_test7860z00_22275
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										if (((long) (BgL_curz00_6401) == 46L))
																																											{	/* Read/reader.scm 409 */
																																												BgL_test7860z00_22275
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												bool_t
																																													BgL_test7869z00_22300;
																																												if (((long) (BgL_curz00_6401) == 59L))
																																													{	/* Read/reader.scm 409 */
																																														BgL_test7869z00_22300
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														BgL_test7869z00_22300
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_6401)
																																															==
																																															58L);
																																													}
																																												if (BgL_test7869z00_22300)
																																													{	/* Read/reader.scm 409 */
																																														BgL_test7860z00_22275
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														if (((long) (BgL_curz00_6401) == 91L))
																																															{	/* Read/reader.scm 409 */
																																																BgL_test7860z00_22275
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																if (((long) (BgL_curz00_6401) == 93L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test7860z00_22275
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		if (((long) (BgL_curz00_6401) == 96L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7860z00_22275
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				bool_t
																																																					BgL_test7874z00_22315;
																																																				if (((long) (BgL_curz00_6401) == 125L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test7874z00_22315
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						if (((long) (BgL_curz00_6401) == 124L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7874z00_22315
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7874z00_22315
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_6401)
																																																									==
																																																									123L);
																																																					}}
																																																				if (BgL_test7874z00_22315)
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test7860z00_22275
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test7860z00_22275
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_6401)
																																																							==
																																																							127L);
																																			}}}}}}}}}}
																																		if (BgL_test7860z00_22275)
																																			{	/* Read/reader.scm 409 */
																																				BgL_matchz00_9747
																																					=
																																					BgL_newzd2matchzd2_6396;
																																			}
																																		else
																																			{
																																				long
																																					BgL_bufposz00_22330;
																																				long
																																					BgL_forwardz00_22328;
																																				long
																																					BgL_lastzd2matchzd2_22327;
																																				obj_t
																																					BgL_iportz00_22326;
																																				BgL_iportz00_22326
																																					=
																																					BgL_iportz00_6391;
																																				BgL_lastzd2matchzd2_22327
																																					=
																																					BgL_newzd2matchzd2_6396;
																																				BgL_forwardz00_22328
																																					=
																																					(1L +
																																					BgL_forwardz00_6393);
																																				BgL_bufposz00_22330
																																					=
																																					BgL_bufposz00_6394;
																																				BgL_bufposz00_4963
																																					=
																																					BgL_bufposz00_22330;
																																				BgL_forwardz00_4962
																																					=
																																					BgL_forwardz00_22328;
																																				BgL_lastzd2matchzd2_4961
																																					=
																																					BgL_lastzd2matchzd2_22327;
																																				BgL_iportz00_4960
																																					=
																																					BgL_iportz00_22326;
																																				goto
																																					BgL_zc3z04anonymousza33439ze3z87_4964;
																																			}
																																	}
																															}
																													}
																											}
																										}
																								}
																							}
																						else
																							{	/* Read/reader.scm 409 */
																								bool_t BgL_test7877z00_22332;

																								if (
																									((long) (BgL_curz00_5567) >=
																										48L))
																									{	/* Read/reader.scm 409 */
																										BgL_test7877z00_22332 =
																											(
																											(long) (BgL_curz00_5567) <
																											58L);
																									}
																								else
																									{	/* Read/reader.scm 409 */
																										BgL_test7877z00_22332 =
																											((bool_t) 0);
																									}
																								if (BgL_test7877z00_22332)
																									{	/* Read/reader.scm 409 */
																										BgL_iportz00_8539 =
																											BgL_iportz00_5557;
																										BgL_lastzd2matchzd2_8540 =
																											BgL_newzd2matchzd2_5562;
																										BgL_forwardz00_8541 =
																											(1L +
																											BgL_forwardz00_5559);
																										BgL_bufposz00_8542 =
																											BgL_bufposz00_5560;
																									BgL_zc3z04anonymousza35260ze3z87_8543:
																										{	/* Read/reader.scm 409 */
																											long
																												BgL_newzd2matchzd2_8544;
																											{	/* Read/reader.scm 409 */
																												obj_t BgL_tmpz00_22338;

																												BgL_tmpz00_22338 =
																													((obj_t)
																													BgL_iportz00_8539);
																												RGC_STOP_MATCH
																													(BgL_tmpz00_22338,
																													BgL_forwardz00_8541);
																											}
																											BgL_newzd2matchzd2_8544 =
																												13L;
																											if ((BgL_forwardz00_8541
																													==
																													BgL_bufposz00_8542))
																												{	/* Read/reader.scm 409 */
																													if (rgc_fill_buffer(
																															((obj_t)
																																BgL_iportz00_8539)))
																														{	/* Read/reader.scm 409 */
																															long
																																BgL_arg5263z00_8547;
																															long
																																BgL_arg5264z00_8548;
																															{	/* Read/reader.scm 409 */
																																obj_t
																																	BgL_tmpz00_22346;
																																BgL_tmpz00_22346
																																	=
																																	((obj_t)
																																	BgL_iportz00_8539);
																																BgL_arg5263z00_8547
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_tmpz00_22346);
																															}
																															{	/* Read/reader.scm 409 */
																																obj_t
																																	BgL_tmpz00_22349;
																																BgL_tmpz00_22349
																																	=
																																	((obj_t)
																																	BgL_iportz00_8539);
																																BgL_arg5264z00_8548
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_tmpz00_22349);
																															}
																															{
																																long
																																	BgL_bufposz00_22353;
																																long
																																	BgL_forwardz00_22352;
																																BgL_forwardz00_22352
																																	=
																																	BgL_arg5263z00_8547;
																																BgL_bufposz00_22353
																																	=
																																	BgL_arg5264z00_8548;
																																BgL_bufposz00_8542
																																	=
																																	BgL_bufposz00_22353;
																																BgL_forwardz00_8541
																																	=
																																	BgL_forwardz00_22352;
																																goto
																																	BgL_zc3z04anonymousza35260ze3z87_8543;
																															}
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															BgL_matchz00_9747
																																=
																																BgL_newzd2matchzd2_8544;
																														}
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													int BgL_curz00_8549;

																													{	/* Read/reader.scm 409 */
																														obj_t
																															BgL_tmpz00_22354;
																														BgL_tmpz00_22354 =
																															((obj_t)
																															BgL_iportz00_8539);
																														BgL_curz00_8549 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_tmpz00_22354,
																															BgL_forwardz00_8541);
																													}
																													{	/* Read/reader.scm 409 */

																														if (
																															((long)
																																(BgL_curz00_8549)
																																== 58L))
																															{
																																long
																																	BgL_bufposz00_22364;
																																long
																																	BgL_forwardz00_22362;
																																long
																																	BgL_lastzd2matchzd2_22361;
																																obj_t
																																	BgL_iportz00_22360;
																																BgL_iportz00_22360
																																	=
																																	BgL_iportz00_8539;
																																BgL_lastzd2matchzd2_22361
																																	=
																																	BgL_newzd2matchzd2_8544;
																																BgL_forwardz00_22362
																																	=
																																	(1L +
																																	BgL_forwardz00_8541);
																																BgL_bufposz00_22364
																																	=
																																	BgL_bufposz00_8542;
																																BgL_bufposz00_6394
																																	=
																																	BgL_bufposz00_22364;
																																BgL_forwardz00_6393
																																	=
																																	BgL_forwardz00_22362;
																																BgL_lastzd2matchzd2_6392
																																	=
																																	BgL_lastzd2matchzd2_22361;
																																BgL_iportz00_6391
																																	=
																																	BgL_iportz00_22360;
																																goto
																																	BgL_zc3z04anonymousza34167ze3z87_6395;
																															}
																														else
																															{	/* Read/reader.scm 409 */
																																bool_t
																																	BgL_test7882z00_22365;
																																if (((long)
																																		(BgL_curz00_8549)
																																		>= 48L))
																																	{	/* Read/reader.scm 409 */
																																		BgL_test7882z00_22365
																																			=
																																			((long)
																																			(BgL_curz00_8549)
																																			< 58L);
																																	}
																																else
																																	{	/* Read/reader.scm 409 */
																																		BgL_test7882z00_22365
																																			=
																																			((bool_t)
																																			0);
																																	}
																																if (BgL_test7882z00_22365)
																																	{
																																		long
																																			BgL_forwardz00_22372;
																																		long
																																			BgL_lastzd2matchzd2_22371;
																																		BgL_lastzd2matchzd2_22371
																																			=
																																			BgL_newzd2matchzd2_8544;
																																		BgL_forwardz00_22372
																																			=
																																			(1L +
																																			BgL_forwardz00_8541);
																																		BgL_forwardz00_8541
																																			=
																																			BgL_forwardz00_22372;
																																		BgL_lastzd2matchzd2_8540
																																			=
																																			BgL_lastzd2matchzd2_22371;
																																		goto
																																			BgL_zc3z04anonymousza35260ze3z87_8543;
																																	}
																																else
																																	{	/* Read/reader.scm 409 */
																																		if (
																																			((long)
																																				(BgL_curz00_8549)
																																				== 46L))
																																			{
																																				long
																																					BgL_bufposz00_22381;
																																				long
																																					BgL_forwardz00_22379;
																																				long
																																					BgL_lastzd2matchzd2_22378;
																																				obj_t
																																					BgL_iportz00_22377;
																																				BgL_iportz00_22377
																																					=
																																					BgL_iportz00_8539;
																																				BgL_lastzd2matchzd2_22378
																																					=
																																					BgL_newzd2matchzd2_8544;
																																				BgL_forwardz00_22379
																																					=
																																					(1L +
																																					BgL_forwardz00_8541);
																																				BgL_bufposz00_22381
																																					=
																																					BgL_bufposz00_8542;
																																				BgL_bufposz00_3943
																																					=
																																					BgL_bufposz00_22381;
																																				BgL_forwardz00_3942
																																					=
																																					BgL_forwardz00_22379;
																																				BgL_lastzd2matchzd2_3941
																																					=
																																					BgL_lastzd2matchzd2_22378;
																																				BgL_iportz00_3940
																																					=
																																					BgL_iportz00_22377;
																																				goto
																																					BgL_zc3z04anonymousza32819ze3z87_3944;
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				bool_t
																																					BgL_test7885z00_22382;
																																				if ((
																																						(long)
																																						(BgL_curz00_8549)
																																						==
																																						39L))
																																					{	/* Read/reader.scm 409 */
																																						BgL_test7885z00_22382
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						if (
																																							((long) (BgL_curz00_8549) == 44L))
																																							{	/* Read/reader.scm 409 */
																																								BgL_test7885z00_22382
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								BgL_test7885z00_22382
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_8549)
																																									==
																																									96L);
																																					}}
																																				if (BgL_test7885z00_22382)
																																					{
																																						long
																																							BgL_bufposz00_22395;
																																						long
																																							BgL_forwardz00_22393;
																																						long
																																							BgL_lastzd2matchzd2_22392;
																																						obj_t
																																							BgL_iportz00_22391;
																																						BgL_iportz00_22391
																																							=
																																							BgL_iportz00_8539;
																																						BgL_lastzd2matchzd2_22392
																																							=
																																							BgL_newzd2matchzd2_8544;
																																						BgL_forwardz00_22393
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_8541);
																																						BgL_bufposz00_22395
																																							=
																																							BgL_bufposz00_8542;
																																						BgL_bufposz00_6105
																																							=
																																							BgL_bufposz00_22395;
																																						BgL_forwardz00_6104
																																							=
																																							BgL_forwardz00_22393;
																																						BgL_lastzd2matchzd2_6103
																																							=
																																							BgL_lastzd2matchzd2_22392;
																																						BgL_iportz00_6102
																																							=
																																							BgL_iportz00_22391;
																																						goto
																																							BgL_zc3z04anonymousza34018ze3z87_6106;
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						bool_t
																																							BgL_test7888z00_22396;
																																						if (
																																							((long) (BgL_curz00_8549) < 33L))
																																							{	/* Read/reader.scm 409 */
																																								BgL_test7888z00_22396
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								bool_t
																																									BgL_test7890z00_22400;
																																								if (((long) (BgL_curz00_8549) == 35L))
																																									{	/* Read/reader.scm 409 */
																																										BgL_test7890z00_22400
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										BgL_test7890z00_22400
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_8549)
																																											==
																																											34L);
																																									}
																																								if (BgL_test7890z00_22400)
																																									{	/* Read/reader.scm 409 */
																																										BgL_test7888z00_22396
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										bool_t
																																											BgL_test7892z00_22406;
																																										if (((long) (BgL_curz00_8549) == 41L))
																																											{	/* Read/reader.scm 409 */
																																												BgL_test7892z00_22406
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												if (((long) (BgL_curz00_8549) == 40L))
																																													{	/* Read/reader.scm 409 */
																																														BgL_test7892z00_22406
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														BgL_test7892z00_22406
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_8549)
																																															==
																																															39L);
																																											}}
																																										if (BgL_test7892z00_22406)
																																											{	/* Read/reader.scm 409 */
																																												BgL_test7888z00_22396
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												if (((long) (BgL_curz00_8549) == 44L))
																																													{	/* Read/reader.scm 409 */
																																														BgL_test7888z00_22396
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														if (((long) (BgL_curz00_8549) == 46L))
																																															{	/* Read/reader.scm 409 */
																																																BgL_test7888z00_22396
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																bool_t
																																																	BgL_test7897z00_22421;
																																																if (((long) (BgL_curz00_8549) >= 48L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test7897z00_22421
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_8549)
																																																			<
																																																			60L);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test7897z00_22421
																																																			=
																																																			(
																																																			(bool_t)
																																																			0);
																																																	}
																																																if (BgL_test7897z00_22421)
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test7888z00_22396
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		if (((long) (BgL_curz00_8549) == 91L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7888z00_22396
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				if (((long) (BgL_curz00_8549) == 93L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test7888z00_22396
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						if (((long) (BgL_curz00_8549) == 96L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7888z00_22396
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								bool_t
																																																									BgL_test7902z00_22436;
																																																								if (((long) (BgL_curz00_8549) == 125L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test7902z00_22436
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										if (((long) (BgL_curz00_8549) == 124L))
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test7902z00_22436
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test7902z00_22436
																																																													=
																																																													(
																																																													(long)
																																																													(BgL_curz00_8549)
																																																													==
																																																													123L);
																																																									}}
																																																								if (BgL_test7902z00_22436)
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test7888z00_22396
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test7888z00_22396
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_8549)
																																																											==
																																																											127L);
																																							}}}}}}}}}}
																																						if (BgL_test7888z00_22396)
																																							{	/* Read/reader.scm 409 */
																																								BgL_matchz00_9747
																																									=
																																									BgL_newzd2matchzd2_8544;
																																							}
																																						else
																																							{
																																								long
																																									BgL_bufposz00_22451;
																																								long
																																									BgL_forwardz00_22449;
																																								long
																																									BgL_lastzd2matchzd2_22448;
																																								obj_t
																																									BgL_iportz00_22447;
																																								BgL_iportz00_22447
																																									=
																																									BgL_iportz00_8539;
																																								BgL_lastzd2matchzd2_22448
																																									=
																																									BgL_newzd2matchzd2_8544;
																																								BgL_forwardz00_22449
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_8541);
																																								BgL_bufposz00_22451
																																									=
																																									BgL_bufposz00_8542;
																																								BgL_bufposz00_4963
																																									=
																																									BgL_bufposz00_22451;
																																								BgL_forwardz00_4962
																																									=
																																									BgL_forwardz00_22449;
																																								BgL_lastzd2matchzd2_4961
																																									=
																																									BgL_lastzd2matchzd2_22448;
																																								BgL_iportz00_4960
																																									=
																																									BgL_iportz00_22447;
																																								goto
																																									BgL_zc3z04anonymousza33439ze3z87_4964;
																																							}
																																					}
																																			}
																																	}
																															}
																													}
																												}
																										}
																									}
																								else
																									{	/* Read/reader.scm 409 */
																										if (
																											((long) (BgL_curz00_5567)
																												== 46L))
																											{
																												long
																													BgL_bufposz00_22460;
																												long
																													BgL_forwardz00_22458;
																												long
																													BgL_lastzd2matchzd2_22457;
																												obj_t
																													BgL_iportz00_22456;
																												BgL_iportz00_22456 =
																													BgL_iportz00_5557;
																												BgL_lastzd2matchzd2_22457
																													=
																													BgL_newzd2matchzd2_5562;
																												BgL_forwardz00_22458 =
																													(1L +
																													BgL_forwardz00_5559);
																												BgL_bufposz00_22460 =
																													BgL_bufposz00_5560;
																												BgL_bufposz00_3943 =
																													BgL_bufposz00_22460;
																												BgL_forwardz00_3942 =
																													BgL_forwardz00_22458;
																												BgL_lastzd2matchzd2_3941
																													=
																													BgL_lastzd2matchzd2_22457;
																												BgL_iportz00_3940 =
																													BgL_iportz00_22456;
																												goto
																													BgL_zc3z04anonymousza32819ze3z87_3944;
																											}
																										else
																											{	/* Read/reader.scm 409 */
																												bool_t
																													BgL_test7906z00_22461;
																												if (((long)
																														(BgL_curz00_5567) ==
																														43L))
																													{	/* Read/reader.scm 409 */
																														BgL_test7906z00_22461
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Read/reader.scm 409 */
																														BgL_test7906z00_22461
																															=
																															((long)
																															(BgL_curz00_5567)
																															== 45L);
																													}
																												if (BgL_test7906z00_22461)
																													{	/* Read/reader.scm 409 */
																														BgL_iportz00_5627 =
																															BgL_iportz00_5557;
																														BgL_lastzd2matchzd2_5628
																															=
																															BgL_newzd2matchzd2_5562;
																														BgL_forwardz00_5629
																															=
																															(1L +
																															BgL_forwardz00_5559);
																														BgL_bufposz00_5630 =
																															BgL_bufposz00_5560;
																													BgL_zc3z04anonymousza33785ze3z87_5631:
																														{	/* Read/reader.scm 409 */
																															long
																																BgL_newzd2matchzd2_5632;
																															{	/* Read/reader.scm 409 */
																																obj_t
																																	BgL_tmpz00_22467;
																																BgL_tmpz00_22467
																																	=
																																	((obj_t)
																																	BgL_iportz00_5627);
																																RGC_STOP_MATCH
																																	(BgL_tmpz00_22467,
																																	BgL_forwardz00_5629);
																															}
																															BgL_newzd2matchzd2_5632
																																= 22L;
																															if (
																																(BgL_forwardz00_5629
																																	==
																																	BgL_bufposz00_5630))
																																{	/* Read/reader.scm 409 */
																																	if (rgc_fill_buffer(((obj_t) BgL_iportz00_5627)))
																																		{	/* Read/reader.scm 409 */
																																			long
																																				BgL_arg3788z00_5635;
																																			long
																																				BgL_arg3789z00_5636;
																																			{	/* Read/reader.scm 409 */
																																				obj_t
																																					BgL_tmpz00_22475;
																																				BgL_tmpz00_22475
																																					=
																																					(
																																					(obj_t)
																																					BgL_iportz00_5627);
																																				BgL_arg3788z00_5635
																																					=
																																					RGC_BUFFER_FORWARD
																																					(BgL_tmpz00_22475);
																																			}
																																			{	/* Read/reader.scm 409 */
																																				obj_t
																																					BgL_tmpz00_22478;
																																				BgL_tmpz00_22478
																																					=
																																					(
																																					(obj_t)
																																					BgL_iportz00_5627);
																																				BgL_arg3789z00_5636
																																					=
																																					RGC_BUFFER_BUFPOS
																																					(BgL_tmpz00_22478);
																																			}
																																			{
																																				long
																																					BgL_bufposz00_22482;
																																				long
																																					BgL_forwardz00_22481;
																																				BgL_forwardz00_22481
																																					=
																																					BgL_arg3788z00_5635;
																																				BgL_bufposz00_22482
																																					=
																																					BgL_arg3789z00_5636;
																																				BgL_bufposz00_5630
																																					=
																																					BgL_bufposz00_22482;
																																				BgL_forwardz00_5629
																																					=
																																					BgL_forwardz00_22481;
																																				goto
																																					BgL_zc3z04anonymousza33785ze3z87_5631;
																																			}
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			BgL_matchz00_9747
																																				=
																																				BgL_newzd2matchzd2_5632;
																																		}
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	int
																																		BgL_curz00_5637;
																																	{	/* Read/reader.scm 409 */
																																		obj_t
																																			BgL_tmpz00_22483;
																																		BgL_tmpz00_22483
																																			=
																																			((obj_t)
																																			BgL_iportz00_5627);
																																		BgL_curz00_5637
																																			=
																																			RGC_BUFFER_GET_CHAR
																																			(BgL_tmpz00_22483,
																																			BgL_forwardz00_5629);
																																	}
																																	{	/* Read/reader.scm 409 */

																																		if (
																																			((long)
																																				(BgL_curz00_5637)
																																				== 58L))
																																			{
																																				long
																																					BgL_bufposz00_22493;
																																				long
																																					BgL_forwardz00_22491;
																																				long
																																					BgL_lastzd2matchzd2_22490;
																																				obj_t
																																					BgL_iportz00_22489;
																																				BgL_iportz00_22489
																																					=
																																					BgL_iportz00_5627;
																																				BgL_lastzd2matchzd2_22490
																																					=
																																					BgL_newzd2matchzd2_5632;
																																				BgL_forwardz00_22491
																																					=
																																					(1L +
																																					BgL_forwardz00_5629);
																																				BgL_bufposz00_22493
																																					=
																																					BgL_bufposz00_5630;
																																				BgL_bufposz00_6394
																																					=
																																					BgL_bufposz00_22493;
																																				BgL_forwardz00_6393
																																					=
																																					BgL_forwardz00_22491;
																																				BgL_lastzd2matchzd2_6392
																																					=
																																					BgL_lastzd2matchzd2_22490;
																																				BgL_iportz00_6391
																																					=
																																					BgL_iportz00_22489;
																																				goto
																																					BgL_zc3z04anonymousza34167ze3z87_6395;
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				bool_t
																																					BgL_test7911z00_22494;
																																				if ((
																																						(long)
																																						(BgL_curz00_5637)
																																						>=
																																						48L))
																																					{	/* Read/reader.scm 409 */
																																						BgL_test7911z00_22494
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_5637)
																																							<
																																							58L);
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						BgL_test7911z00_22494
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																				if (BgL_test7911z00_22494)
																																					{
																																						long
																																							BgL_bufposz00_22504;
																																						long
																																							BgL_forwardz00_22502;
																																						long
																																							BgL_lastzd2matchzd2_22501;
																																						obj_t
																																							BgL_iportz00_22500;
																																						BgL_iportz00_22500
																																							=
																																							BgL_iportz00_5627;
																																						BgL_lastzd2matchzd2_22501
																																							=
																																							BgL_newzd2matchzd2_5632;
																																						BgL_forwardz00_22502
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_5629);
																																						BgL_bufposz00_22504
																																							=
																																							BgL_bufposz00_5630;
																																						BgL_bufposz00_8542
																																							=
																																							BgL_bufposz00_22504;
																																						BgL_forwardz00_8541
																																							=
																																							BgL_forwardz00_22502;
																																						BgL_lastzd2matchzd2_8540
																																							=
																																							BgL_lastzd2matchzd2_22501;
																																						BgL_iportz00_8539
																																							=
																																							BgL_iportz00_22500;
																																						goto
																																							BgL_zc3z04anonymousza35260ze3z87_8543;
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						if (
																																							((long) (BgL_curz00_5637) == 46L))
																																							{
																																								long
																																									BgL_bufposz00_22512;
																																								long
																																									BgL_forwardz00_22510;
																																								long
																																									BgL_lastzd2matchzd2_22509;
																																								obj_t
																																									BgL_iportz00_22508;
																																								BgL_iportz00_22508
																																									=
																																									BgL_iportz00_5627;
																																								BgL_lastzd2matchzd2_22509
																																									=
																																									BgL_newzd2matchzd2_5632;
																																								BgL_forwardz00_22510
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_5629);
																																								BgL_bufposz00_22512
																																									=
																																									BgL_bufposz00_5630;
																																								BgL_bufposz00_3943
																																									=
																																									BgL_bufposz00_22512;
																																								BgL_forwardz00_3942
																																									=
																																									BgL_forwardz00_22510;
																																								BgL_lastzd2matchzd2_3941
																																									=
																																									BgL_lastzd2matchzd2_22509;
																																								BgL_iportz00_3940
																																									=
																																									BgL_iportz00_22508;
																																								goto
																																									BgL_zc3z04anonymousza32819ze3z87_3944;
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								bool_t
																																									BgL_test7914z00_22513;
																																								if (((long) (BgL_curz00_5637) == 39L))
																																									{	/* Read/reader.scm 409 */
																																										BgL_test7914z00_22513
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										if (((long) (BgL_curz00_5637) == 44L))
																																											{	/* Read/reader.scm 409 */
																																												BgL_test7914z00_22513
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												BgL_test7914z00_22513
																																													=
																																													(
																																													(long)
																																													(BgL_curz00_5637)
																																													==
																																													96L);
																																									}}
																																								if (BgL_test7914z00_22513)
																																									{
																																										long
																																											BgL_bufposz00_22526;
																																										long
																																											BgL_forwardz00_22524;
																																										long
																																											BgL_lastzd2matchzd2_22523;
																																										obj_t
																																											BgL_iportz00_22522;
																																										BgL_iportz00_22522
																																											=
																																											BgL_iportz00_5627;
																																										BgL_lastzd2matchzd2_22523
																																											=
																																											BgL_newzd2matchzd2_5632;
																																										BgL_forwardz00_22524
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_5629);
																																										BgL_bufposz00_22526
																																											=
																																											BgL_bufposz00_5630;
																																										BgL_bufposz00_6105
																																											=
																																											BgL_bufposz00_22526;
																																										BgL_forwardz00_6104
																																											=
																																											BgL_forwardz00_22524;
																																										BgL_lastzd2matchzd2_6103
																																											=
																																											BgL_lastzd2matchzd2_22523;
																																										BgL_iportz00_6102
																																											=
																																											BgL_iportz00_22522;
																																										goto
																																											BgL_zc3z04anonymousza34018ze3z87_6106;
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										bool_t
																																											BgL_test7917z00_22527;
																																										if (((long) (BgL_curz00_5637) < 33L))
																																											{	/* Read/reader.scm 409 */
																																												BgL_test7917z00_22527
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												bool_t
																																													BgL_test7919z00_22531;
																																												if (((long) (BgL_curz00_5637) == 35L))
																																													{	/* Read/reader.scm 409 */
																																														BgL_test7919z00_22531
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														BgL_test7919z00_22531
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_5637)
																																															==
																																															34L);
																																													}
																																												if (BgL_test7919z00_22531)
																																													{	/* Read/reader.scm 409 */
																																														BgL_test7917z00_22527
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														bool_t
																																															BgL_test7921z00_22537;
																																														if (((long) (BgL_curz00_5637) == 41L))
																																															{	/* Read/reader.scm 409 */
																																																BgL_test7921z00_22537
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																if (((long) (BgL_curz00_5637) == 40L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test7921z00_22537
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test7921z00_22537
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_5637)
																																																			==
																																																			39L);
																																															}}
																																														if (BgL_test7921z00_22537)
																																															{	/* Read/reader.scm 409 */
																																																BgL_test7917z00_22527
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																if (((long) (BgL_curz00_5637) == 44L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test7917z00_22527
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		if (((long) (BgL_curz00_5637) == 46L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7917z00_22527
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				bool_t
																																																					BgL_test7926z00_22552;
																																																				if (((long) (BgL_curz00_5637) >= 48L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test7926z00_22552
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_5637)
																																																							<
																																																							60L);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test7926z00_22552
																																																							=
																																																							(
																																																							(bool_t)
																																																							0);
																																																					}
																																																				if (BgL_test7926z00_22552)
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test7917z00_22527
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						if (((long) (BgL_curz00_5637) == 91L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test7917z00_22527
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								if (((long) (BgL_curz00_5637) == 93L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test7917z00_22527
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										if (((long) (BgL_curz00_5637) == 96L))
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test7917z00_22527
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												bool_t
																																																													BgL_test7931z00_22567;
																																																												if (((long) (BgL_curz00_5637) == 125L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7931z00_22567
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														if (((long) (BgL_curz00_5637) == 124L))
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test7931z00_22567
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test7931z00_22567
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_5637)
																																																																	==
																																																																	123L);
																																																													}}
																																																												if (BgL_test7931z00_22567)
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7917z00_22527
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7917z00_22527
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_5637)
																																																															==
																																																															127L);
																																											}}}}}}}}}}
																																										if (BgL_test7917z00_22527)
																																											{	/* Read/reader.scm 409 */
																																												BgL_matchz00_9747
																																													=
																																													BgL_newzd2matchzd2_5632;
																																											}
																																										else
																																											{
																																												long
																																													BgL_bufposz00_22582;
																																												long
																																													BgL_forwardz00_22580;
																																												long
																																													BgL_lastzd2matchzd2_22579;
																																												obj_t
																																													BgL_iportz00_22578;
																																												BgL_iportz00_22578
																																													=
																																													BgL_iportz00_5627;
																																												BgL_lastzd2matchzd2_22579
																																													=
																																													BgL_newzd2matchzd2_5632;
																																												BgL_forwardz00_22580
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_5629);
																																												BgL_bufposz00_22582
																																													=
																																													BgL_bufposz00_5630;
																																												BgL_bufposz00_4963
																																													=
																																													BgL_bufposz00_22582;
																																												BgL_forwardz00_4962
																																													=
																																													BgL_forwardz00_22580;
																																												BgL_lastzd2matchzd2_4961
																																													=
																																													BgL_lastzd2matchzd2_22579;
																																												BgL_iportz00_4960
																																													=
																																													BgL_iportz00_22578;
																																												goto
																																													BgL_zc3z04anonymousza33439ze3z87_4964;
																																											}
																																									}
																																							}
																																					}
																																			}
																																	}
																																}
																														}
																													}
																												else
																													{	/* Read/reader.scm 409 */
																														bool_t
																															BgL_test7934z00_22584;
																														if (((long)
																																(BgL_curz00_5567)
																																== 39L))
																															{	/* Read/reader.scm 409 */
																																BgL_test7934z00_22584
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 409 */
																																if (
																																	((long)
																																		(BgL_curz00_5567)
																																		== 44L))
																																	{	/* Read/reader.scm 409 */
																																		BgL_test7934z00_22584
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 409 */
																																		BgL_test7934z00_22584
																																			=
																																			((long)
																																			(BgL_curz00_5567)
																																			== 96L);
																															}}
																														if (BgL_test7934z00_22584)
																															{
																																long
																																	BgL_bufposz00_22597;
																																long
																																	BgL_forwardz00_22595;
																																long
																																	BgL_lastzd2matchzd2_22594;
																																obj_t
																																	BgL_iportz00_22593;
																																BgL_iportz00_22593
																																	=
																																	BgL_iportz00_5557;
																																BgL_lastzd2matchzd2_22594
																																	=
																																	BgL_newzd2matchzd2_5562;
																																BgL_forwardz00_22595
																																	=
																																	(1L +
																																	BgL_forwardz00_5559);
																																BgL_bufposz00_22597
																																	=
																																	BgL_bufposz00_5560;
																																BgL_bufposz00_6105
																																	=
																																	BgL_bufposz00_22597;
																																BgL_forwardz00_6104
																																	=
																																	BgL_forwardz00_22595;
																																BgL_lastzd2matchzd2_6103
																																	=
																																	BgL_lastzd2matchzd2_22594;
																																BgL_iportz00_6102
																																	=
																																	BgL_iportz00_22593;
																																goto
																																	BgL_zc3z04anonymousza34018ze3z87_6106;
																															}
																														else
																															{	/* Read/reader.scm 409 */
																																bool_t
																																	BgL_test7937z00_22598;
																																if (((long)
																																		(BgL_curz00_5567)
																																		< 33L))
																																	{	/* Read/reader.scm 409 */
																																		BgL_test7937z00_22598
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 409 */
																																		bool_t
																																			BgL_test7939z00_22602;
																																		if (((long)
																																				(BgL_curz00_5567)
																																				== 35L))
																																			{	/* Read/reader.scm 409 */
																																				BgL_test7939z00_22602
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				BgL_test7939z00_22602
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_5567)
																																					==
																																					34L);
																																			}
																																		if (BgL_test7939z00_22602)
																																			{	/* Read/reader.scm 409 */
																																				BgL_test7937z00_22598
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				bool_t
																																					BgL_test7941z00_22608;
																																				if ((
																																						(long)
																																						(BgL_curz00_5567)
																																						==
																																						41L))
																																					{	/* Read/reader.scm 409 */
																																						BgL_test7941z00_22608
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						if (
																																							((long) (BgL_curz00_5567) == 40L))
																																							{	/* Read/reader.scm 409 */
																																								BgL_test7941z00_22608
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								BgL_test7941z00_22608
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_5567)
																																									==
																																									39L);
																																					}}
																																				if (BgL_test7941z00_22608)
																																					{	/* Read/reader.scm 409 */
																																						BgL_test7937z00_22598
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						bool_t
																																							BgL_test7944z00_22617;
																																						if (
																																							((long) (BgL_curz00_5567) >= 43L))
																																							{	/* Read/reader.scm 409 */
																																								BgL_test7944z00_22617
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_5567)
																																									<
																																									47L);
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								BgL_test7944z00_22617
																																									=
																																									(
																																									(bool_t)
																																									0);
																																							}
																																						if (BgL_test7944z00_22617)
																																							{	/* Read/reader.scm 409 */
																																								BgL_test7937z00_22598
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								bool_t
																																									BgL_test7946z00_22623;
																																								if (((long) (BgL_curz00_5567) >= 48L))
																																									{	/* Read/reader.scm 409 */
																																										BgL_test7946z00_22623
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_5567)
																																											<
																																											60L);
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										BgL_test7946z00_22623
																																											=
																																											(
																																											(bool_t)
																																											0);
																																									}
																																								if (BgL_test7946z00_22623)
																																									{	/* Read/reader.scm 409 */
																																										BgL_test7937z00_22598
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										if (((long) (BgL_curz00_5567) == 91L))
																																											{	/* Read/reader.scm 409 */
																																												BgL_test7937z00_22598
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												if (((long) (BgL_curz00_5567) == 93L))
																																													{	/* Read/reader.scm 409 */
																																														BgL_test7937z00_22598
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														if (((long) (BgL_curz00_5567) == 96L))
																																															{	/* Read/reader.scm 409 */
																																																BgL_test7937z00_22598
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																bool_t
																																																	BgL_test7951z00_22638;
																																																if (((long) (BgL_curz00_5567) == 125L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test7951z00_22638
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		if (((long) (BgL_curz00_5567) == 124L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7951z00_22638
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7951z00_22638
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_5567)
																																																					==
																																																					123L);
																																																	}}
																																																if (BgL_test7951z00_22638)
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test7937z00_22598
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test7937z00_22598
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_5567)
																																																			==
																																																			127L);
																																	}}}}}}}}}
																																if (BgL_test7937z00_22598)
																																	{	/* Read/reader.scm 409 */
																																		BgL_matchz00_9747
																																			=
																																			BgL_newzd2matchzd2_5562;
																																	}
																																else
																																	{
																																		long
																																			BgL_bufposz00_22653;
																																		long
																																			BgL_forwardz00_22651;
																																		long
																																			BgL_lastzd2matchzd2_22650;
																																		obj_t
																																			BgL_iportz00_22649;
																																		BgL_iportz00_22649
																																			=
																																			BgL_iportz00_5557;
																																		BgL_lastzd2matchzd2_22650
																																			=
																																			BgL_newzd2matchzd2_5562;
																																		BgL_forwardz00_22651
																																			=
																																			(1L +
																																			BgL_forwardz00_5559);
																																		BgL_bufposz00_22653
																																			=
																																			BgL_bufposz00_5560;
																																		BgL_bufposz00_4963
																																			=
																																			BgL_bufposz00_22653;
																																		BgL_forwardz00_4962
																																			=
																																			BgL_forwardz00_22651;
																																		BgL_lastzd2matchzd2_4961
																																			=
																																			BgL_lastzd2matchzd2_22650;
																																		BgL_iportz00_4960
																																			=
																																			BgL_iportz00_22649;
																																		goto
																																			BgL_zc3z04anonymousza33439ze3z87_4964;
																																	}
																															}
																													}
																											}
																									}
																							}
																					}
																				}
																		}
																	}
																else
																	{	/* Read/reader.scm 409 */
																		if (((long) (BgL_curz00_5171) == 58L))
																			{
																				long BgL_bufposz00_22662;
																				long BgL_forwardz00_22660;
																				long BgL_lastzd2matchzd2_22659;
																				obj_t BgL_iportz00_22658;

																				BgL_iportz00_22658 = BgL_iportz00_5161;
																				BgL_lastzd2matchzd2_22659 =
																					BgL_newzd2matchzd2_5166;
																				BgL_forwardz00_22660 =
																					(1L + BgL_forwardz00_5163);
																				BgL_bufposz00_22662 =
																					BgL_bufposz00_5164;
																				BgL_bufposz00_6394 =
																					BgL_bufposz00_22662;
																				BgL_forwardz00_6393 =
																					BgL_forwardz00_22660;
																				BgL_lastzd2matchzd2_6392 =
																					BgL_lastzd2matchzd2_22659;
																				BgL_iportz00_6391 = BgL_iportz00_22658;
																				goto
																					BgL_zc3z04anonymousza34167ze3z87_6395;
																			}
																		else
																			{	/* Read/reader.scm 409 */
																				bool_t BgL_test7955z00_22663;

																				if (((long) (BgL_curz00_5171) >= 48L))
																					{	/* Read/reader.scm 409 */
																						BgL_test7955z00_22663 =
																							((long) (BgL_curz00_5171) < 58L);
																					}
																				else
																					{	/* Read/reader.scm 409 */
																						BgL_test7955z00_22663 =
																							((bool_t) 0);
																					}
																				if (BgL_test7955z00_22663)
																					{	/* Read/reader.scm 409 */
																						BgL_iportz00_9074 =
																							BgL_iportz00_5161;
																						BgL_lastzd2matchzd2_9075 =
																							BgL_newzd2matchzd2_5166;
																						BgL_forwardz00_9076 =
																							(1L + BgL_forwardz00_5163);
																						BgL_bufposz00_9077 =
																							BgL_bufposz00_5164;
																					BgL_zc3z04anonymousza35538ze3z87_9078:
																						{	/* Read/reader.scm 409 */
																							long BgL_newzd2matchzd2_9079;

																							{	/* Read/reader.scm 409 */
																								obj_t BgL_tmpz00_22669;

																								BgL_tmpz00_22669 =
																									((obj_t) BgL_iportz00_9074);
																								RGC_STOP_MATCH(BgL_tmpz00_22669,
																									BgL_forwardz00_9076);
																							}
																							BgL_newzd2matchzd2_9079 = 12L;
																							if (
																								(BgL_forwardz00_9076 ==
																									BgL_bufposz00_9077))
																								{	/* Read/reader.scm 409 */
																									if (rgc_fill_buffer(
																											((obj_t)
																												BgL_iportz00_9074)))
																										{	/* Read/reader.scm 409 */
																											long BgL_arg5541z00_9082;
																											long BgL_arg5542z00_9083;

																											{	/* Read/reader.scm 409 */
																												obj_t BgL_tmpz00_22677;

																												BgL_tmpz00_22677 =
																													((obj_t)
																													BgL_iportz00_9074);
																												BgL_arg5541z00_9082 =
																													RGC_BUFFER_FORWARD
																													(BgL_tmpz00_22677);
																											}
																											{	/* Read/reader.scm 409 */
																												obj_t BgL_tmpz00_22680;

																												BgL_tmpz00_22680 =
																													((obj_t)
																													BgL_iportz00_9074);
																												BgL_arg5542z00_9083 =
																													RGC_BUFFER_BUFPOS
																													(BgL_tmpz00_22680);
																											}
																											{
																												long
																													BgL_bufposz00_22684;
																												long
																													BgL_forwardz00_22683;
																												BgL_forwardz00_22683 =
																													BgL_arg5541z00_9082;
																												BgL_bufposz00_22684 =
																													BgL_arg5542z00_9083;
																												BgL_bufposz00_9077 =
																													BgL_bufposz00_22684;
																												BgL_forwardz00_9076 =
																													BgL_forwardz00_22683;
																												goto
																													BgL_zc3z04anonymousza35538ze3z87_9078;
																											}
																										}
																									else
																										{	/* Read/reader.scm 409 */
																											BgL_matchz00_9747 =
																												BgL_newzd2matchzd2_9079;
																										}
																								}
																							else
																								{	/* Read/reader.scm 409 */
																									int BgL_curz00_9084;

																									{	/* Read/reader.scm 409 */
																										obj_t BgL_tmpz00_22685;

																										BgL_tmpz00_22685 =
																											((obj_t)
																											BgL_iportz00_9074);
																										BgL_curz00_9084 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_tmpz00_22685,
																											BgL_forwardz00_9076);
																									}
																									{	/* Read/reader.scm 409 */

																										{	/* Read/reader.scm 409 */
																											bool_t
																												BgL_test7959z00_22688;
																											if (((long)
																													(BgL_curz00_9084) ==
																													69L))
																												{	/* Read/reader.scm 409 */
																													BgL_test7959z00_22688
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													BgL_test7959z00_22688
																														=
																														((long)
																														(BgL_curz00_9084) ==
																														101L);
																												}
																											if (BgL_test7959z00_22688)
																												{
																													long
																														BgL_bufposz00_22698;
																													long
																														BgL_forwardz00_22696;
																													long
																														BgL_lastzd2matchzd2_22695;
																													obj_t
																														BgL_iportz00_22694;
																													BgL_iportz00_22694 =
																														BgL_iportz00_9074;
																													BgL_lastzd2matchzd2_22695
																														=
																														BgL_newzd2matchzd2_9079;
																													BgL_forwardz00_22696 =
																														(1L +
																														BgL_forwardz00_9076);
																													BgL_bufposz00_22698 =
																														BgL_bufposz00_9077;
																													BgL_bufposz00_5560 =
																														BgL_bufposz00_22698;
																													BgL_forwardz00_5559 =
																														BgL_forwardz00_22696;
																													BgL_lastzd2matchzd2_5558
																														=
																														BgL_lastzd2matchzd2_22695;
																													BgL_iportz00_5557 =
																														BgL_iportz00_22694;
																													goto
																														BgL_zc3z04anonymousza33748ze3z87_5561;
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													if (
																														((long)
																															(BgL_curz00_9084)
																															== 58L))
																														{
																															long
																																BgL_bufposz00_22706;
																															long
																																BgL_forwardz00_22704;
																															long
																																BgL_lastzd2matchzd2_22703;
																															obj_t
																																BgL_iportz00_22702;
																															BgL_iportz00_22702
																																=
																																BgL_iportz00_9074;
																															BgL_lastzd2matchzd2_22703
																																=
																																BgL_newzd2matchzd2_9079;
																															BgL_forwardz00_22704
																																=
																																(1L +
																																BgL_forwardz00_9076);
																															BgL_bufposz00_22706
																																=
																																BgL_bufposz00_9077;
																															BgL_bufposz00_6394
																																=
																																BgL_bufposz00_22706;
																															BgL_forwardz00_6393
																																=
																																BgL_forwardz00_22704;
																															BgL_lastzd2matchzd2_6392
																																=
																																BgL_lastzd2matchzd2_22703;
																															BgL_iportz00_6391
																																=
																																BgL_iportz00_22702;
																															goto
																																BgL_zc3z04anonymousza34167ze3z87_6395;
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															bool_t
																																BgL_test7962z00_22707;
																															if (((long)
																																	(BgL_curz00_9084)
																																	>= 48L))
																																{	/* Read/reader.scm 409 */
																																	BgL_test7962z00_22707
																																		=
																																		((long)
																																		(BgL_curz00_9084)
																																		< 58L);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	BgL_test7962z00_22707
																																		=
																																		((bool_t)
																																		0);
																																}
																															if (BgL_test7962z00_22707)
																																{
																																	long
																																		BgL_forwardz00_22714;
																																	long
																																		BgL_lastzd2matchzd2_22713;
																																	BgL_lastzd2matchzd2_22713
																																		=
																																		BgL_newzd2matchzd2_9079;
																																	BgL_forwardz00_22714
																																		=
																																		(1L +
																																		BgL_forwardz00_9076);
																																	BgL_forwardz00_9076
																																		=
																																		BgL_forwardz00_22714;
																																	BgL_lastzd2matchzd2_9075
																																		=
																																		BgL_lastzd2matchzd2_22713;
																																	goto
																																		BgL_zc3z04anonymousza35538ze3z87_9078;
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	if (
																																		((long)
																																			(BgL_curz00_9084)
																																			== 46L))
																																		{	/* Read/reader.scm 409 */
																																			BgL_iportz00_7041
																																				=
																																				BgL_iportz00_9074;
																																			BgL_lastzd2matchzd2_7042
																																				=
																																				BgL_newzd2matchzd2_9079;
																																			BgL_forwardz00_7043
																																				=
																																				(1L +
																																				BgL_forwardz00_9076);
																																			BgL_bufposz00_7044
																																				=
																																				BgL_bufposz00_9077;
																																		BgL_zc3z04anonymousza34505ze3z87_7045:
																																			{	/* Read/reader.scm 409 */
																																				long
																																					BgL_newzd2matchzd2_7046;
																																				{	/* Read/reader.scm 409 */
																																					obj_t
																																						BgL_tmpz00_22719;
																																					BgL_tmpz00_22719
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_7041);
																																					RGC_STOP_MATCH
																																						(BgL_tmpz00_22719,
																																						BgL_forwardz00_7043);
																																				}
																																				BgL_newzd2matchzd2_7046
																																					= 13L;
																																				if (
																																					(BgL_forwardz00_7043
																																						==
																																						BgL_bufposz00_7044))
																																					{	/* Read/reader.scm 409 */
																																						if (rgc_fill_buffer(((obj_t) BgL_iportz00_7041)))
																																							{	/* Read/reader.scm 409 */
																																								long
																																									BgL_arg4508z00_7049;
																																								long
																																									BgL_arg4509z00_7050;
																																								{	/* Read/reader.scm 409 */
																																									obj_t
																																										BgL_tmpz00_22727;
																																									BgL_tmpz00_22727
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_7041);
																																									BgL_arg4508z00_7049
																																										=
																																										RGC_BUFFER_FORWARD
																																										(BgL_tmpz00_22727);
																																								}
																																								{	/* Read/reader.scm 409 */
																																									obj_t
																																										BgL_tmpz00_22730;
																																									BgL_tmpz00_22730
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_7041);
																																									BgL_arg4509z00_7050
																																										=
																																										RGC_BUFFER_BUFPOS
																																										(BgL_tmpz00_22730);
																																								}
																																								{
																																									long
																																										BgL_bufposz00_22734;
																																									long
																																										BgL_forwardz00_22733;
																																									BgL_forwardz00_22733
																																										=
																																										BgL_arg4508z00_7049;
																																									BgL_bufposz00_22734
																																										=
																																										BgL_arg4509z00_7050;
																																									BgL_bufposz00_7044
																																										=
																																										BgL_bufposz00_22734;
																																									BgL_forwardz00_7043
																																										=
																																										BgL_forwardz00_22733;
																																									goto
																																										BgL_zc3z04anonymousza34505ze3z87_7045;
																																								}
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								BgL_matchz00_9747
																																									=
																																									BgL_newzd2matchzd2_7046;
																																							}
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						int
																																							BgL_curz00_7051;
																																						{	/* Read/reader.scm 409 */
																																							obj_t
																																								BgL_tmpz00_22735;
																																							BgL_tmpz00_22735
																																								=
																																								(
																																								(obj_t)
																																								BgL_iportz00_7041);
																																							BgL_curz00_7051
																																								=
																																								RGC_BUFFER_GET_CHAR
																																								(BgL_tmpz00_22735,
																																								BgL_forwardz00_7043);
																																						}
																																						{	/* Read/reader.scm 409 */

																																							{	/* Read/reader.scm 409 */
																																								bool_t
																																									BgL_test7967z00_22738;
																																								if (((long) (BgL_curz00_7051) == 69L))
																																									{	/* Read/reader.scm 409 */
																																										BgL_test7967z00_22738
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										BgL_test7967z00_22738
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_7051)
																																											==
																																											101L);
																																									}
																																								if (BgL_test7967z00_22738)
																																									{	/* Read/reader.scm 409 */
																																										BgL_iportz00_4255
																																											=
																																											BgL_iportz00_7041;
																																										BgL_lastzd2matchzd2_4256
																																											=
																																											BgL_newzd2matchzd2_7046;
																																										BgL_forwardz00_4257
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_7043);
																																										BgL_bufposz00_4258
																																											=
																																											BgL_bufposz00_7044;
																																									BgL_zc3z04anonymousza33005ze3z87_4259:
																																										{	/* Read/reader.scm 409 */
																																											long
																																												BgL_newzd2matchzd2_4260;
																																											{	/* Read/reader.scm 409 */
																																												obj_t
																																													BgL_tmpz00_22744;
																																												BgL_tmpz00_22744
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_4255);
																																												RGC_STOP_MATCH
																																													(BgL_tmpz00_22744,
																																													BgL_forwardz00_4257);
																																											}
																																											BgL_newzd2matchzd2_4260
																																												=
																																												22L;
																																											if ((BgL_forwardz00_4257 == BgL_bufposz00_4258))
																																												{	/* Read/reader.scm 409 */
																																													if (rgc_fill_buffer(((obj_t) BgL_iportz00_4255)))
																																														{	/* Read/reader.scm 409 */
																																															long
																																																BgL_arg3008z00_4263;
																																															long
																																																BgL_arg3012z00_4264;
																																															{	/* Read/reader.scm 409 */
																																																obj_t
																																																	BgL_tmpz00_22752;
																																																BgL_tmpz00_22752
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_4255);
																																																BgL_arg3008z00_4263
																																																	=
																																																	RGC_BUFFER_FORWARD
																																																	(BgL_tmpz00_22752);
																																															}
																																															{	/* Read/reader.scm 409 */
																																																obj_t
																																																	BgL_tmpz00_22755;
																																																BgL_tmpz00_22755
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_4255);
																																																BgL_arg3012z00_4264
																																																	=
																																																	RGC_BUFFER_BUFPOS
																																																	(BgL_tmpz00_22755);
																																															}
																																															{
																																																long
																																																	BgL_bufposz00_22759;
																																																long
																																																	BgL_forwardz00_22758;
																																																BgL_forwardz00_22758
																																																	=
																																																	BgL_arg3008z00_4263;
																																																BgL_bufposz00_22759
																																																	=
																																																	BgL_arg3012z00_4264;
																																																BgL_bufposz00_4258
																																																	=
																																																	BgL_bufposz00_22759;
																																																BgL_forwardz00_4257
																																																	=
																																																	BgL_forwardz00_22758;
																																																goto
																																																	BgL_zc3z04anonymousza33005ze3z87_4259;
																																															}
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															BgL_matchz00_9747
																																																=
																																																BgL_newzd2matchzd2_4260;
																																														}
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													int
																																														BgL_curz00_4265;
																																													{	/* Read/reader.scm 409 */
																																														obj_t
																																															BgL_tmpz00_22760;
																																														BgL_tmpz00_22760
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_4255);
																																														BgL_curz00_4265
																																															=
																																															RGC_BUFFER_GET_CHAR
																																															(BgL_tmpz00_22760,
																																															BgL_forwardz00_4257);
																																													}
																																													{	/* Read/reader.scm 409 */

																																														if (((long) (BgL_curz00_4265) == 58L))
																																															{
																																																long
																																																	BgL_bufposz00_22770;
																																																long
																																																	BgL_forwardz00_22768;
																																																long
																																																	BgL_lastzd2matchzd2_22767;
																																																obj_t
																																																	BgL_iportz00_22766;
																																																BgL_iportz00_22766
																																																	=
																																																	BgL_iportz00_4255;
																																																BgL_lastzd2matchzd2_22767
																																																	=
																																																	BgL_newzd2matchzd2_4260;
																																																BgL_forwardz00_22768
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_4257);
																																																BgL_bufposz00_22770
																																																	=
																																																	BgL_bufposz00_4258;
																																																BgL_bufposz00_7593
																																																	=
																																																	BgL_bufposz00_22770;
																																																BgL_forwardz00_7592
																																																	=
																																																	BgL_forwardz00_22768;
																																																BgL_lastzd2matchzd2_7591
																																																	=
																																																	BgL_lastzd2matchzd2_22767;
																																																BgL_iportz00_7590
																																																	=
																																																	BgL_iportz00_22766;
																																																goto
																																																	BgL_zc3z04anonymousza34787ze3z87_7594;
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																bool_t
																																																	BgL_test7972z00_22771;
																																																if (((long) (BgL_curz00_4265) >= 48L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test7972z00_22771
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_4265)
																																																			<
																																																			58L);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test7972z00_22771
																																																			=
																																																			(
																																																			(bool_t)
																																																			0);
																																																	}
																																																if (BgL_test7972z00_22771)
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_iportz00_7179
																																																			=
																																																			BgL_iportz00_4255;
																																																		BgL_lastzd2matchzd2_7180
																																																			=
																																																			BgL_newzd2matchzd2_4260;
																																																		BgL_forwardz00_7181
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_4257);
																																																		BgL_bufposz00_7182
																																																			=
																																																			BgL_bufposz00_4258;
																																																	BgL_zc3z04anonymousza34577ze3z87_7183:
																																																		{	/* Read/reader.scm 409 */
																																																			long
																																																				BgL_newzd2matchzd2_7184;
																																																			{	/* Read/reader.scm 409 */
																																																				obj_t
																																																					BgL_tmpz00_22777;
																																																				BgL_tmpz00_22777
																																																					=
																																																					(
																																																					(obj_t)
																																																					BgL_iportz00_7179);
																																																				RGC_STOP_MATCH
																																																					(BgL_tmpz00_22777,
																																																					BgL_forwardz00_7181);
																																																			}
																																																			BgL_newzd2matchzd2_7184
																																																				=
																																																				13L;
																																																			if ((BgL_forwardz00_7181 == BgL_bufposz00_7182))
																																																				{	/* Read/reader.scm 409 */
																																																					if (rgc_fill_buffer(((obj_t) BgL_iportz00_7179)))
																																																						{	/* Read/reader.scm 409 */
																																																							long
																																																								BgL_arg4580z00_7187;
																																																							long
																																																								BgL_arg4581z00_7188;
																																																							{	/* Read/reader.scm 409 */
																																																								obj_t
																																																									BgL_tmpz00_22785;
																																																								BgL_tmpz00_22785
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_7179);
																																																								BgL_arg4580z00_7187
																																																									=
																																																									RGC_BUFFER_FORWARD
																																																									(BgL_tmpz00_22785);
																																																							}
																																																							{	/* Read/reader.scm 409 */
																																																								obj_t
																																																									BgL_tmpz00_22788;
																																																								BgL_tmpz00_22788
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_7179);
																																																								BgL_arg4581z00_7188
																																																									=
																																																									RGC_BUFFER_BUFPOS
																																																									(BgL_tmpz00_22788);
																																																							}
																																																							{
																																																								long
																																																									BgL_bufposz00_22792;
																																																								long
																																																									BgL_forwardz00_22791;
																																																								BgL_forwardz00_22791
																																																									=
																																																									BgL_arg4580z00_7187;
																																																								BgL_bufposz00_22792
																																																									=
																																																									BgL_arg4581z00_7188;
																																																								BgL_bufposz00_7182
																																																									=
																																																									BgL_bufposz00_22792;
																																																								BgL_forwardz00_7181
																																																									=
																																																									BgL_forwardz00_22791;
																																																								goto
																																																									BgL_zc3z04anonymousza34577ze3z87_7183;
																																																							}
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_matchz00_9747
																																																								=
																																																								BgL_newzd2matchzd2_7184;
																																																						}
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					int
																																																						BgL_curz00_7189;
																																																					{	/* Read/reader.scm 409 */
																																																						obj_t
																																																							BgL_tmpz00_22793;
																																																						BgL_tmpz00_22793
																																																							=
																																																							(
																																																							(obj_t)
																																																							BgL_iportz00_7179);
																																																						BgL_curz00_7189
																																																							=
																																																							RGC_BUFFER_GET_CHAR
																																																							(BgL_tmpz00_22793,
																																																							BgL_forwardz00_7181);
																																																					}
																																																					{	/* Read/reader.scm 409 */

																																																						if (((long) (BgL_curz00_7189) == 58L))
																																																							{
																																																								long
																																																									BgL_bufposz00_22803;
																																																								long
																																																									BgL_forwardz00_22801;
																																																								long
																																																									BgL_lastzd2matchzd2_22800;
																																																								obj_t
																																																									BgL_iportz00_22799;
																																																								BgL_iportz00_22799
																																																									=
																																																									BgL_iportz00_7179;
																																																								BgL_lastzd2matchzd2_22800
																																																									=
																																																									BgL_newzd2matchzd2_7184;
																																																								BgL_forwardz00_22801
																																																									=
																																																									(1L
																																																									+
																																																									BgL_forwardz00_7181);
																																																								BgL_bufposz00_22803
																																																									=
																																																									BgL_bufposz00_7182;
																																																								BgL_bufposz00_7593
																																																									=
																																																									BgL_bufposz00_22803;
																																																								BgL_forwardz00_7592
																																																									=
																																																									BgL_forwardz00_22801;
																																																								BgL_lastzd2matchzd2_7591
																																																									=
																																																									BgL_lastzd2matchzd2_22800;
																																																								BgL_iportz00_7590
																																																									=
																																																									BgL_iportz00_22799;
																																																								goto
																																																									BgL_zc3z04anonymousza34787ze3z87_7594;
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								bool_t
																																																									BgL_test7977z00_22804;
																																																								if (((long) (BgL_curz00_7189) >= 48L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test7977z00_22804
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_7189)
																																																											<
																																																											58L);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test7977z00_22804
																																																											=
																																																											(
																																																											(bool_t)
																																																											0);
																																																									}
																																																								if (BgL_test7977z00_22804)
																																																									{
																																																										long
																																																											BgL_forwardz00_22811;
																																																										long
																																																											BgL_lastzd2matchzd2_22810;
																																																										BgL_lastzd2matchzd2_22810
																																																											=
																																																											BgL_newzd2matchzd2_7184;
																																																										BgL_forwardz00_22811
																																																											=
																																																											(1L
																																																											+
																																																											BgL_forwardz00_7181);
																																																										BgL_forwardz00_7181
																																																											=
																																																											BgL_forwardz00_22811;
																																																										BgL_lastzd2matchzd2_7180
																																																											=
																																																											BgL_lastzd2matchzd2_22810;
																																																										goto
																																																											BgL_zc3z04anonymousza34577ze3z87_7183;
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										bool_t
																																																											BgL_test7979z00_22813;
																																																										if (((long) (BgL_curz00_7189) == 39L))
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test7979z00_22813
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												if (((long) (BgL_curz00_7189) == 44L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7979z00_22813
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7979z00_22813
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_7189)
																																																															==
																																																															96L);
																																																											}}
																																																										if (BgL_test7979z00_22813)
																																																											{
																																																												long
																																																													BgL_bufposz00_22826;
																																																												long
																																																													BgL_forwardz00_22824;
																																																												long
																																																													BgL_lastzd2matchzd2_22823;
																																																												obj_t
																																																													BgL_iportz00_22822;
																																																												BgL_iportz00_22822
																																																													=
																																																													BgL_iportz00_7179;
																																																												BgL_lastzd2matchzd2_22823
																																																													=
																																																													BgL_newzd2matchzd2_7184;
																																																												BgL_forwardz00_22824
																																																													=
																																																													(1L
																																																													+
																																																													BgL_forwardz00_7181);
																																																												BgL_bufposz00_22826
																																																													=
																																																													BgL_bufposz00_7182;
																																																												BgL_bufposz00_7365
																																																													=
																																																													BgL_bufposz00_22826;
																																																												BgL_forwardz00_7364
																																																													=
																																																													BgL_forwardz00_22824;
																																																												BgL_lastzd2matchzd2_7363
																																																													=
																																																													BgL_lastzd2matchzd2_22823;
																																																												BgL_iportz00_7362
																																																													=
																																																													BgL_iportz00_22822;
																																																												goto
																																																													BgL_zc3z04anonymousza34670ze3z87_7366;
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												bool_t
																																																													BgL_test7982z00_22827;
																																																												if (((long) (BgL_curz00_7189) < 33L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test7982z00_22827
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														bool_t
																																																															BgL_test7984z00_22831;
																																																														if (((long) (BgL_curz00_7189) == 35L))
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test7984z00_22831
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test7984z00_22831
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_7189)
																																																																	==
																																																																	34L);
																																																															}
																																																														if (BgL_test7984z00_22831)
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test7982z00_22827
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																bool_t
																																																																	BgL_test7986z00_22837;
																																																																if (((long) (BgL_curz00_7189) == 41L))
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test7986z00_22837
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		if (((long) (BgL_curz00_7189) == 40L))
																																																																			{	/* Read/reader.scm 409 */
																																																																				BgL_test7986z00_22837
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 409 */
																																																																				BgL_test7986z00_22837
																																																																					=
																																																																					(
																																																																					(long)
																																																																					(BgL_curz00_7189)
																																																																					==
																																																																					39L);
																																																																	}}
																																																																if (BgL_test7986z00_22837)
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test7982z00_22827
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		if (((long) (BgL_curz00_7189) == 44L))
																																																																			{	/* Read/reader.scm 409 */
																																																																				BgL_test7982z00_22827
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 409 */
																																																																				bool_t
																																																																					BgL_test7990z00_22849;
																																																																				if (((long) (BgL_curz00_7189) >= 48L))
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test7990z00_22849
																																																																							=
																																																																							(
																																																																							(long)
																																																																							(BgL_curz00_7189)
																																																																							<
																																																																							60L);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test7990z00_22849
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							0);
																																																																					}
																																																																				if (BgL_test7990z00_22849)
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test7982z00_22827
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 409 */
																																																																						if (((long) (BgL_curz00_7189) == 91L))
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test7982z00_22827
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 409 */
																																																																								if (((long) (BgL_curz00_7189) == 93L))
																																																																									{	/* Read/reader.scm 409 */
																																																																										BgL_test7982z00_22827
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 409 */
																																																																										if (((long) (BgL_curz00_7189) == 96L))
																																																																											{	/* Read/reader.scm 409 */
																																																																												BgL_test7982z00_22827
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 409 */
																																																																												bool_t
																																																																													BgL_test7995z00_22864;
																																																																												if (((long) (BgL_curz00_7189) == 125L))
																																																																													{	/* Read/reader.scm 409 */
																																																																														BgL_test7995z00_22864
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 409 */
																																																																														if (((long) (BgL_curz00_7189) == 124L))
																																																																															{	/* Read/reader.scm 409 */
																																																																																BgL_test7995z00_22864
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 409 */
																																																																																BgL_test7995z00_22864
																																																																																	=
																																																																																	(
																																																																																	(long)
																																																																																	(BgL_curz00_7189)
																																																																																	==
																																																																																	123L);
																																																																													}}
																																																																												if (BgL_test7995z00_22864)
																																																																													{	/* Read/reader.scm 409 */
																																																																														BgL_test7982z00_22827
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 409 */
																																																																														BgL_test7982z00_22827
																																																																															=
																																																																															(
																																																																															(long)
																																																																															(BgL_curz00_7189)
																																																																															==
																																																																															127L);
																																																													}}}}}}}}}
																																																												if (BgL_test7982z00_22827)
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_matchz00_9747
																																																															=
																																																															BgL_newzd2matchzd2_7184;
																																																													}
																																																												else
																																																													{
																																																														long
																																																															BgL_bufposz00_22879;
																																																														long
																																																															BgL_forwardz00_22877;
																																																														long
																																																															BgL_lastzd2matchzd2_22876;
																																																														obj_t
																																																															BgL_iportz00_22875;
																																																														BgL_iportz00_22875
																																																															=
																																																															BgL_iportz00_7179;
																																																														BgL_lastzd2matchzd2_22876
																																																															=
																																																															BgL_newzd2matchzd2_7184;
																																																														BgL_forwardz00_22877
																																																															=
																																																															(1L
																																																															+
																																																															BgL_forwardz00_7181);
																																																														BgL_bufposz00_22879
																																																															=
																																																															BgL_bufposz00_7182;
																																																														BgL_bufposz00_9542
																																																															=
																																																															BgL_bufposz00_22879;
																																																														BgL_forwardz00_9541
																																																															=
																																																															BgL_forwardz00_22877;
																																																														BgL_lastzd2matchzd2_9540
																																																															=
																																																															BgL_lastzd2matchzd2_22876;
																																																														BgL_iportz00_9539
																																																															=
																																																															BgL_iportz00_22875;
																																																														goto
																																																															BgL_zc3z04anonymousza35780ze3z87_9543;
																																																													}
																																																											}
																																																									}
																																																							}
																																																					}
																																																				}
																																																		}
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		bool_t
																																																			BgL_test7998z00_22881;
																																																		if (((long) (BgL_curz00_4265) == 43L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7998z00_22881
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test7998z00_22881
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_4265)
																																																					==
																																																					45L);
																																																			}
																																																		if (BgL_test7998z00_22881)
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_iportz00_4326
																																																					=
																																																					BgL_iportz00_4255;
																																																				BgL_lastzd2matchzd2_4327
																																																					=
																																																					BgL_newzd2matchzd2_4260;
																																																				BgL_forwardz00_4328
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_4257);
																																																				BgL_bufposz00_4329
																																																					=
																																																					BgL_bufposz00_4258;
																																																			BgL_zc3z04anonymousza33050ze3z87_4330:
																																																				{	/* Read/reader.scm 409 */
																																																					long
																																																						BgL_newzd2matchzd2_4331;
																																																					{	/* Read/reader.scm 409 */
																																																						obj_t
																																																							BgL_tmpz00_22887;
																																																						BgL_tmpz00_22887
																																																							=
																																																							(
																																																							(obj_t)
																																																							BgL_iportz00_4326);
																																																						RGC_STOP_MATCH
																																																							(BgL_tmpz00_22887,
																																																							BgL_forwardz00_4328);
																																																					}
																																																					BgL_newzd2matchzd2_4331
																																																						=
																																																						22L;
																																																					if ((BgL_forwardz00_4328 == BgL_bufposz00_4329))
																																																						{	/* Read/reader.scm 409 */
																																																							if (rgc_fill_buffer(((obj_t) BgL_iportz00_4326)))
																																																								{	/* Read/reader.scm 409 */
																																																									long
																																																										BgL_arg3053z00_4334;
																																																									long
																																																										BgL_arg3057z00_4335;
																																																									{	/* Read/reader.scm 409 */
																																																										obj_t
																																																											BgL_tmpz00_22895;
																																																										BgL_tmpz00_22895
																																																											=
																																																											(
																																																											(obj_t)
																																																											BgL_iportz00_4326);
																																																										BgL_arg3053z00_4334
																																																											=
																																																											RGC_BUFFER_FORWARD
																																																											(BgL_tmpz00_22895);
																																																									}
																																																									{	/* Read/reader.scm 409 */
																																																										obj_t
																																																											BgL_tmpz00_22898;
																																																										BgL_tmpz00_22898
																																																											=
																																																											(
																																																											(obj_t)
																																																											BgL_iportz00_4326);
																																																										BgL_arg3057z00_4335
																																																											=
																																																											RGC_BUFFER_BUFPOS
																																																											(BgL_tmpz00_22898);
																																																									}
																																																									{
																																																										long
																																																											BgL_bufposz00_22902;
																																																										long
																																																											BgL_forwardz00_22901;
																																																										BgL_forwardz00_22901
																																																											=
																																																											BgL_arg3053z00_4334;
																																																										BgL_bufposz00_22902
																																																											=
																																																											BgL_arg3057z00_4335;
																																																										BgL_bufposz00_4329
																																																											=
																																																											BgL_bufposz00_22902;
																																																										BgL_forwardz00_4328
																																																											=
																																																											BgL_forwardz00_22901;
																																																										goto
																																																											BgL_zc3z04anonymousza33050ze3z87_4330;
																																																									}
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_matchz00_9747
																																																										=
																																																										BgL_newzd2matchzd2_4331;
																																																								}
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							int
																																																								BgL_curz00_4336;
																																																							{	/* Read/reader.scm 409 */
																																																								obj_t
																																																									BgL_tmpz00_22903;
																																																								BgL_tmpz00_22903
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_4326);
																																																								BgL_curz00_4336
																																																									=
																																																									RGC_BUFFER_GET_CHAR
																																																									(BgL_tmpz00_22903,
																																																									BgL_forwardz00_4328);
																																																							}
																																																							{	/* Read/reader.scm 409 */

																																																								if (((long) (BgL_curz00_4336) == 58L))
																																																									{
																																																										long
																																																											BgL_bufposz00_22913;
																																																										long
																																																											BgL_forwardz00_22911;
																																																										long
																																																											BgL_lastzd2matchzd2_22910;
																																																										obj_t
																																																											BgL_iportz00_22909;
																																																										BgL_iportz00_22909
																																																											=
																																																											BgL_iportz00_4326;
																																																										BgL_lastzd2matchzd2_22910
																																																											=
																																																											BgL_newzd2matchzd2_4331;
																																																										BgL_forwardz00_22911
																																																											=
																																																											(1L
																																																											+
																																																											BgL_forwardz00_4328);
																																																										BgL_bufposz00_22913
																																																											=
																																																											BgL_bufposz00_4329;
																																																										BgL_bufposz00_7593
																																																											=
																																																											BgL_bufposz00_22913;
																																																										BgL_forwardz00_7592
																																																											=
																																																											BgL_forwardz00_22911;
																																																										BgL_lastzd2matchzd2_7591
																																																											=
																																																											BgL_lastzd2matchzd2_22910;
																																																										BgL_iportz00_7590
																																																											=
																																																											BgL_iportz00_22909;
																																																										goto
																																																											BgL_zc3z04anonymousza34787ze3z87_7594;
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										bool_t
																																																											BgL_test8003z00_22914;
																																																										if (((long) (BgL_curz00_4336) >= 48L))
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test8003z00_22914
																																																													=
																																																													(
																																																													(long)
																																																													(BgL_curz00_4336)
																																																													<
																																																													58L);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test8003z00_22914
																																																													=
																																																													(
																																																													(bool_t)
																																																													0);
																																																											}
																																																										if (BgL_test8003z00_22914)
																																																											{
																																																												long
																																																													BgL_bufposz00_22924;
																																																												long
																																																													BgL_forwardz00_22922;
																																																												long
																																																													BgL_lastzd2matchzd2_22921;
																																																												obj_t
																																																													BgL_iportz00_22920;
																																																												BgL_iportz00_22920
																																																													=
																																																													BgL_iportz00_4326;
																																																												BgL_lastzd2matchzd2_22921
																																																													=
																																																													BgL_newzd2matchzd2_4331;
																																																												BgL_forwardz00_22922
																																																													=
																																																													(1L
																																																													+
																																																													BgL_forwardz00_4328);
																																																												BgL_bufposz00_22924
																																																													=
																																																													BgL_bufposz00_4329;
																																																												BgL_bufposz00_7182
																																																													=
																																																													BgL_bufposz00_22924;
																																																												BgL_forwardz00_7181
																																																													=
																																																													BgL_forwardz00_22922;
																																																												BgL_lastzd2matchzd2_7180
																																																													=
																																																													BgL_lastzd2matchzd2_22921;
																																																												BgL_iportz00_7179
																																																													=
																																																													BgL_iportz00_22920;
																																																												goto
																																																													BgL_zc3z04anonymousza34577ze3z87_7183;
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												bool_t
																																																													BgL_test8005z00_22925;
																																																												if (((long) (BgL_curz00_4336) == 39L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test8005z00_22925
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														if (((long) (BgL_curz00_4336) == 44L))
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test8005z00_22925
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test8005z00_22925
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_4336)
																																																																	==
																																																																	96L);
																																																													}}
																																																												if (BgL_test8005z00_22925)
																																																													{
																																																														long
																																																															BgL_bufposz00_22938;
																																																														long
																																																															BgL_forwardz00_22936;
																																																														long
																																																															BgL_lastzd2matchzd2_22935;
																																																														obj_t
																																																															BgL_iportz00_22934;
																																																														BgL_iportz00_22934
																																																															=
																																																															BgL_iportz00_4326;
																																																														BgL_lastzd2matchzd2_22935
																																																															=
																																																															BgL_newzd2matchzd2_4331;
																																																														BgL_forwardz00_22936
																																																															=
																																																															(1L
																																																															+
																																																															BgL_forwardz00_4328);
																																																														BgL_bufposz00_22938
																																																															=
																																																															BgL_bufposz00_4329;
																																																														BgL_bufposz00_7365
																																																															=
																																																															BgL_bufposz00_22938;
																																																														BgL_forwardz00_7364
																																																															=
																																																															BgL_forwardz00_22936;
																																																														BgL_lastzd2matchzd2_7363
																																																															=
																																																															BgL_lastzd2matchzd2_22935;
																																																														BgL_iportz00_7362
																																																															=
																																																															BgL_iportz00_22934;
																																																														goto
																																																															BgL_zc3z04anonymousza34670ze3z87_7366;
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														bool_t
																																																															BgL_test8008z00_22939;
																																																														if (((long) (BgL_curz00_4336) < 33L))
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test8008z00_22939
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																bool_t
																																																																	BgL_test8010z00_22943;
																																																																if (((long) (BgL_curz00_4336) == 35L))
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test8010z00_22943
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test8010z00_22943
																																																																			=
																																																																			(
																																																																			(long)
																																																																			(BgL_curz00_4336)
																																																																			==
																																																																			34L);
																																																																	}
																																																																if (BgL_test8010z00_22943)
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test8008z00_22939
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		bool_t
																																																																			BgL_test8012z00_22949;
																																																																		if (((long) (BgL_curz00_4336) == 41L))
																																																																			{	/* Read/reader.scm 409 */
																																																																				BgL_test8012z00_22949
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 409 */
																																																																				if (((long) (BgL_curz00_4336) == 40L))
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test8012z00_22949
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test8012z00_22949
																																																																							=
																																																																							(
																																																																							(long)
																																																																							(BgL_curz00_4336)
																																																																							==
																																																																							39L);
																																																																			}}
																																																																		if (BgL_test8012z00_22949)
																																																																			{	/* Read/reader.scm 409 */
																																																																				BgL_test8008z00_22939
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 409 */
																																																																				if (((long) (BgL_curz00_4336) == 44L))
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test8008z00_22939
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 409 */
																																																																						bool_t
																																																																							BgL_test8016z00_22961;
																																																																						if (((long) (BgL_curz00_4336) >= 48L))
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test8016z00_22961
																																																																									=
																																																																									(
																																																																									(long)
																																																																									(BgL_curz00_4336)
																																																																									<
																																																																									60L);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test8016z00_22961
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									0);
																																																																							}
																																																																						if (BgL_test8016z00_22961)
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test8008z00_22939
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 409 */
																																																																								if (((long) (BgL_curz00_4336) == 91L))
																																																																									{	/* Read/reader.scm 409 */
																																																																										BgL_test8008z00_22939
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 409 */
																																																																										if (((long) (BgL_curz00_4336) == 93L))
																																																																											{	/* Read/reader.scm 409 */
																																																																												BgL_test8008z00_22939
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 409 */
																																																																												if (((long) (BgL_curz00_4336) == 96L))
																																																																													{	/* Read/reader.scm 409 */
																																																																														BgL_test8008z00_22939
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 409 */
																																																																														bool_t
																																																																															BgL_test8021z00_22976;
																																																																														if (((long) (BgL_curz00_4336) == 125L))
																																																																															{	/* Read/reader.scm 409 */
																																																																																BgL_test8021z00_22976
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 409 */
																																																																																if (((long) (BgL_curz00_4336) == 124L))
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		BgL_test8021z00_22976
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			1);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		BgL_test8021z00_22976
																																																																																			=
																																																																																			(
																																																																																			(long)
																																																																																			(BgL_curz00_4336)
																																																																																			==
																																																																																			123L);
																																																																															}}
																																																																														if (BgL_test8021z00_22976)
																																																																															{	/* Read/reader.scm 409 */
																																																																																BgL_test8008z00_22939
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 409 */
																																																																																BgL_test8008z00_22939
																																																																																	=
																																																																																	(
																																																																																	(long)
																																																																																	(BgL_curz00_4336)
																																																																																	==
																																																																																	127L);
																																																															}}}}}}}}}
																																																														if (BgL_test8008z00_22939)
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_matchz00_9747
																																																																	=
																																																																	BgL_newzd2matchzd2_4331;
																																																															}
																																																														else
																																																															{
																																																																long
																																																																	BgL_bufposz00_22991;
																																																																long
																																																																	BgL_forwardz00_22989;
																																																																long
																																																																	BgL_lastzd2matchzd2_22988;
																																																																obj_t
																																																																	BgL_iportz00_22987;
																																																																BgL_iportz00_22987
																																																																	=
																																																																	BgL_iportz00_4326;
																																																																BgL_lastzd2matchzd2_22988
																																																																	=
																																																																	BgL_newzd2matchzd2_4331;
																																																																BgL_forwardz00_22989
																																																																	=
																																																																	(1L
																																																																	+
																																																																	BgL_forwardz00_4328);
																																																																BgL_bufposz00_22991
																																																																	=
																																																																	BgL_bufposz00_4329;
																																																																BgL_bufposz00_9542
																																																																	=
																																																																	BgL_bufposz00_22991;
																																																																BgL_forwardz00_9541
																																																																	=
																																																																	BgL_forwardz00_22989;
																																																																BgL_lastzd2matchzd2_9540
																																																																	=
																																																																	BgL_lastzd2matchzd2_22988;
																																																																BgL_iportz00_9539
																																																																	=
																																																																	BgL_iportz00_22987;
																																																																goto
																																																																	BgL_zc3z04anonymousza35780ze3z87_9543;
																																																															}
																																																													}
																																																											}
																																																									}
																																																							}
																																																						}
																																																				}
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				bool_t
																																																					BgL_test8024z00_22993;
																																																				if (((long) (BgL_curz00_4265) == 39L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test8024z00_22993
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						if (((long) (BgL_curz00_4265) == 44L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test8024z00_22993
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test8024z00_22993
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_4265)
																																																									==
																																																									96L);
																																																					}}
																																																				if (BgL_test8024z00_22993)
																																																					{
																																																						long
																																																							BgL_bufposz00_23006;
																																																						long
																																																							BgL_forwardz00_23004;
																																																						long
																																																							BgL_lastzd2matchzd2_23003;
																																																						obj_t
																																																							BgL_iportz00_23002;
																																																						BgL_iportz00_23002
																																																							=
																																																							BgL_iportz00_4255;
																																																						BgL_lastzd2matchzd2_23003
																																																							=
																																																							BgL_newzd2matchzd2_4260;
																																																						BgL_forwardz00_23004
																																																							=
																																																							(1L
																																																							+
																																																							BgL_forwardz00_4257);
																																																						BgL_bufposz00_23006
																																																							=
																																																							BgL_bufposz00_4258;
																																																						BgL_bufposz00_7365
																																																							=
																																																							BgL_bufposz00_23006;
																																																						BgL_forwardz00_7364
																																																							=
																																																							BgL_forwardz00_23004;
																																																						BgL_lastzd2matchzd2_7363
																																																							=
																																																							BgL_lastzd2matchzd2_23003;
																																																						BgL_iportz00_7362
																																																							=
																																																							BgL_iportz00_23002;
																																																						goto
																																																							BgL_zc3z04anonymousza34670ze3z87_7366;
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						bool_t
																																																							BgL_test8027z00_23007;
																																																						if (((long) (BgL_curz00_4265) < 33L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test8027z00_23007
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								bool_t
																																																									BgL_test8029z00_23011;
																																																								if (((long) (BgL_curz00_4265) == 35L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test8029z00_23011
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test8029z00_23011
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_4265)
																																																											==
																																																											34L);
																																																									}
																																																								if (BgL_test8029z00_23011)
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test8027z00_23007
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										bool_t
																																																											BgL_test8031z00_23017;
																																																										if (((long) (BgL_curz00_4265) == 41L))
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test8031z00_23017
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												if (((long) (BgL_curz00_4265) == 40L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test8031z00_23017
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test8031z00_23017
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_4265)
																																																															==
																																																															39L);
																																																											}}
																																																										if (BgL_test8031z00_23017)
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test8027z00_23007
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												bool_t
																																																													BgL_test8034z00_23026;
																																																												if (((long) (BgL_curz00_4265) == 45L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test8034z00_23026
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														if (((long) (BgL_curz00_4265) == 44L))
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test8034z00_23026
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test8034z00_23026
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_4265)
																																																																	==
																																																																	43L);
																																																													}}
																																																												if (BgL_test8034z00_23026)
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test8027z00_23007
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														bool_t
																																																															BgL_test8037z00_23035;
																																																														if (((long) (BgL_curz00_4265) >= 48L))
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test8037z00_23035
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_4265)
																																																																	<
																																																																	60L);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test8037z00_23035
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	0);
																																																															}
																																																														if (BgL_test8037z00_23035)
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test8027z00_23007
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																if (((long) (BgL_curz00_4265) == 91L))
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test8027z00_23007
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		if (((long) (BgL_curz00_4265) == 93L))
																																																																			{	/* Read/reader.scm 409 */
																																																																				BgL_test8027z00_23007
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 409 */
																																																																				if (((long) (BgL_curz00_4265) == 96L))
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test8027z00_23007
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 409 */
																																																																						bool_t
																																																																							BgL_test8042z00_23050;
																																																																						if (((long) (BgL_curz00_4265) == 125L))
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test8042z00_23050
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 409 */
																																																																								if (((long) (BgL_curz00_4265) == 124L))
																																																																									{	/* Read/reader.scm 409 */
																																																																										BgL_test8042z00_23050
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 409 */
																																																																										BgL_test8042z00_23050
																																																																											=
																																																																											(
																																																																											(long)
																																																																											(BgL_curz00_4265)
																																																																											==
																																																																											123L);
																																																																							}}
																																																																						if (BgL_test8042z00_23050)
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test8027z00_23007
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test8027z00_23007
																																																																									=
																																																																									(
																																																																									(long)
																																																																									(BgL_curz00_4265)
																																																																									==
																																																																									127L);
																																																							}}}}}}}}}
																																																						if (BgL_test8027z00_23007)
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_matchz00_9747
																																																									=
																																																									BgL_newzd2matchzd2_4260;
																																																							}
																																																						else
																																																							{
																																																								long
																																																									BgL_bufposz00_23065;
																																																								long
																																																									BgL_forwardz00_23063;
																																																								long
																																																									BgL_lastzd2matchzd2_23062;
																																																								obj_t
																																																									BgL_iportz00_23061;
																																																								BgL_iportz00_23061
																																																									=
																																																									BgL_iportz00_4255;
																																																								BgL_lastzd2matchzd2_23062
																																																									=
																																																									BgL_newzd2matchzd2_4260;
																																																								BgL_forwardz00_23063
																																																									=
																																																									(1L
																																																									+
																																																									BgL_forwardz00_4257);
																																																								BgL_bufposz00_23065
																																																									=
																																																									BgL_bufposz00_4258;
																																																								BgL_bufposz00_9542
																																																									=
																																																									BgL_bufposz00_23065;
																																																								BgL_forwardz00_9541
																																																									=
																																																									BgL_forwardz00_23063;
																																																								BgL_lastzd2matchzd2_9540
																																																									=
																																																									BgL_lastzd2matchzd2_23062;
																																																								BgL_iportz00_9539
																																																									=
																																																									BgL_iportz00_23061;
																																																								goto
																																																									BgL_zc3z04anonymousza35780ze3z87_9543;
																																																							}
																																																					}
																																																			}
																																																	}
																																															}
																																													}
																																												}
																																										}
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										if (((long) (BgL_curz00_7051) == 58L))
																																											{
																																												long
																																													BgL_bufposz00_23074;
																																												long
																																													BgL_forwardz00_23072;
																																												long
																																													BgL_lastzd2matchzd2_23071;
																																												obj_t
																																													BgL_iportz00_23070;
																																												BgL_iportz00_23070
																																													=
																																													BgL_iportz00_7041;
																																												BgL_lastzd2matchzd2_23071
																																													=
																																													BgL_newzd2matchzd2_7046;
																																												BgL_forwardz00_23072
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_7043);
																																												BgL_bufposz00_23074
																																													=
																																													BgL_bufposz00_7044;
																																												BgL_bufposz00_7593
																																													=
																																													BgL_bufposz00_23074;
																																												BgL_forwardz00_7592
																																													=
																																													BgL_forwardz00_23072;
																																												BgL_lastzd2matchzd2_7591
																																													=
																																													BgL_lastzd2matchzd2_23071;
																																												BgL_iportz00_7590
																																													=
																																													BgL_iportz00_23070;
																																												goto
																																													BgL_zc3z04anonymousza34787ze3z87_7594;
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												bool_t
																																													BgL_test8046z00_23075;
																																												if (((long) (BgL_curz00_7051) >= 48L))
																																													{	/* Read/reader.scm 409 */
																																														BgL_test8046z00_23075
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_7051)
																																															<
																																															58L);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														BgL_test8046z00_23075
																																															=
																																															(
																																															(bool_t)
																																															0);
																																													}
																																												if (BgL_test8046z00_23075)
																																													{	/* Read/reader.scm 409 */
																																														BgL_iportz00_6452
																																															=
																																															BgL_iportz00_7041;
																																														BgL_lastzd2matchzd2_6453
																																															=
																																															BgL_newzd2matchzd2_7046;
																																														BgL_forwardz00_6454
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_7043);
																																														BgL_bufposz00_6455
																																															=
																																															BgL_bufposz00_7044;
																																													BgL_zc3z04anonymousza34198ze3z87_6456:
																																														{	/* Read/reader.scm 409 */
																																															long
																																																BgL_newzd2matchzd2_6457;
																																															{	/* Read/reader.scm 409 */
																																																obj_t
																																																	BgL_tmpz00_23081;
																																																BgL_tmpz00_23081
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_6452);
																																																RGC_STOP_MATCH
																																																	(BgL_tmpz00_23081,
																																																	BgL_forwardz00_6454);
																																															}
																																															BgL_newzd2matchzd2_6457
																																																=
																																																13L;
																																															if ((BgL_forwardz00_6454 == BgL_bufposz00_6455))
																																																{	/* Read/reader.scm 409 */
																																																	if (rgc_fill_buffer(((obj_t) BgL_iportz00_6452)))
																																																		{	/* Read/reader.scm 409 */
																																																			long
																																																				BgL_arg4201z00_6460;
																																																			long
																																																				BgL_arg4202z00_6461;
																																																			{	/* Read/reader.scm 409 */
																																																				obj_t
																																																					BgL_tmpz00_23089;
																																																				BgL_tmpz00_23089
																																																					=
																																																					(
																																																					(obj_t)
																																																					BgL_iportz00_6452);
																																																				BgL_arg4201z00_6460
																																																					=
																																																					RGC_BUFFER_FORWARD
																																																					(BgL_tmpz00_23089);
																																																			}
																																																			{	/* Read/reader.scm 409 */
																																																				obj_t
																																																					BgL_tmpz00_23092;
																																																				BgL_tmpz00_23092
																																																					=
																																																					(
																																																					(obj_t)
																																																					BgL_iportz00_6452);
																																																				BgL_arg4202z00_6461
																																																					=
																																																					RGC_BUFFER_BUFPOS
																																																					(BgL_tmpz00_23092);
																																																			}
																																																			{
																																																				long
																																																					BgL_bufposz00_23096;
																																																				long
																																																					BgL_forwardz00_23095;
																																																				BgL_forwardz00_23095
																																																					=
																																																					BgL_arg4201z00_6460;
																																																				BgL_bufposz00_23096
																																																					=
																																																					BgL_arg4202z00_6461;
																																																				BgL_bufposz00_6455
																																																					=
																																																					BgL_bufposz00_23096;
																																																				BgL_forwardz00_6454
																																																					=
																																																					BgL_forwardz00_23095;
																																																				goto
																																																					BgL_zc3z04anonymousza34198ze3z87_6456;
																																																			}
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_matchz00_9747
																																																				=
																																																				BgL_newzd2matchzd2_6457;
																																																		}
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	int
																																																		BgL_curz00_6462;
																																																	{	/* Read/reader.scm 409 */
																																																		obj_t
																																																			BgL_tmpz00_23097;
																																																		BgL_tmpz00_23097
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_6452);
																																																		BgL_curz00_6462
																																																			=
																																																			RGC_BUFFER_GET_CHAR
																																																			(BgL_tmpz00_23097,
																																																			BgL_forwardz00_6454);
																																																	}
																																																	{	/* Read/reader.scm 409 */

																																																		{	/* Read/reader.scm 409 */
																																																			bool_t
																																																				BgL_test8050z00_23100;
																																																			if (((long) (BgL_curz00_6462) == 69L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8050z00_23100
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8050z00_23100
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_6462)
																																																						==
																																																						101L);
																																																				}
																																																			if (BgL_test8050z00_23100)
																																																				{
																																																					long
																																																						BgL_bufposz00_23110;
																																																					long
																																																						BgL_forwardz00_23108;
																																																					long
																																																						BgL_lastzd2matchzd2_23107;
																																																					obj_t
																																																						BgL_iportz00_23106;
																																																					BgL_iportz00_23106
																																																						=
																																																						BgL_iportz00_6452;
																																																					BgL_lastzd2matchzd2_23107
																																																						=
																																																						BgL_newzd2matchzd2_6457;
																																																					BgL_forwardz00_23108
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_6454);
																																																					BgL_bufposz00_23110
																																																						=
																																																						BgL_bufposz00_6455;
																																																					BgL_bufposz00_4258
																																																						=
																																																						BgL_bufposz00_23110;
																																																					BgL_forwardz00_4257
																																																						=
																																																						BgL_forwardz00_23108;
																																																					BgL_lastzd2matchzd2_4256
																																																						=
																																																						BgL_lastzd2matchzd2_23107;
																																																					BgL_iportz00_4255
																																																						=
																																																						BgL_iportz00_23106;
																																																					goto
																																																						BgL_zc3z04anonymousza33005ze3z87_4259;
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					if (((long) (BgL_curz00_6462) == 58L))
																																																						{
																																																							long
																																																								BgL_bufposz00_23118;
																																																							long
																																																								BgL_forwardz00_23116;
																																																							long
																																																								BgL_lastzd2matchzd2_23115;
																																																							obj_t
																																																								BgL_iportz00_23114;
																																																							BgL_iportz00_23114
																																																								=
																																																								BgL_iportz00_6452;
																																																							BgL_lastzd2matchzd2_23115
																																																								=
																																																								BgL_newzd2matchzd2_6457;
																																																							BgL_forwardz00_23116
																																																								=
																																																								(1L
																																																								+
																																																								BgL_forwardz00_6454);
																																																							BgL_bufposz00_23118
																																																								=
																																																								BgL_bufposz00_6455;
																																																							BgL_bufposz00_7593
																																																								=
																																																								BgL_bufposz00_23118;
																																																							BgL_forwardz00_7592
																																																								=
																																																								BgL_forwardz00_23116;
																																																							BgL_lastzd2matchzd2_7591
																																																								=
																																																								BgL_lastzd2matchzd2_23115;
																																																							BgL_iportz00_7590
																																																								=
																																																								BgL_iportz00_23114;
																																																							goto
																																																								BgL_zc3z04anonymousza34787ze3z87_7594;
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							bool_t
																																																								BgL_test8053z00_23119;
																																																							if (((long) (BgL_curz00_6462) >= 48L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8053z00_23119
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_6462)
																																																										<
																																																										58L);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8053z00_23119
																																																										=
																																																										(
																																																										(bool_t)
																																																										0);
																																																								}
																																																							if (BgL_test8053z00_23119)
																																																								{
																																																									long
																																																										BgL_forwardz00_23126;
																																																									long
																																																										BgL_lastzd2matchzd2_23125;
																																																									BgL_lastzd2matchzd2_23125
																																																										=
																																																										BgL_newzd2matchzd2_6457;
																																																									BgL_forwardz00_23126
																																																										=
																																																										(1L
																																																										+
																																																										BgL_forwardz00_6454);
																																																									BgL_forwardz00_6454
																																																										=
																																																										BgL_forwardz00_23126;
																																																									BgL_lastzd2matchzd2_6453
																																																										=
																																																										BgL_lastzd2matchzd2_23125;
																																																									goto
																																																										BgL_zc3z04anonymousza34198ze3z87_6456;
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									bool_t
																																																										BgL_test8055z00_23128;
																																																									if (((long) (BgL_curz00_6462) == 39L))
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8055z00_23128
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											if (((long) (BgL_curz00_6462) == 44L))
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8055z00_23128
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8055z00_23128
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_6462)
																																																														==
																																																														96L);
																																																										}}
																																																									if (BgL_test8055z00_23128)
																																																										{
																																																											long
																																																												BgL_bufposz00_23141;
																																																											long
																																																												BgL_forwardz00_23139;
																																																											long
																																																												BgL_lastzd2matchzd2_23138;
																																																											obj_t
																																																												BgL_iportz00_23137;
																																																											BgL_iportz00_23137
																																																												=
																																																												BgL_iportz00_6452;
																																																											BgL_lastzd2matchzd2_23138
																																																												=
																																																												BgL_newzd2matchzd2_6457;
																																																											BgL_forwardz00_23139
																																																												=
																																																												(1L
																																																												+
																																																												BgL_forwardz00_6454);
																																																											BgL_bufposz00_23141
																																																												=
																																																												BgL_bufposz00_6455;
																																																											BgL_bufposz00_7365
																																																												=
																																																												BgL_bufposz00_23141;
																																																											BgL_forwardz00_7364
																																																												=
																																																												BgL_forwardz00_23139;
																																																											BgL_lastzd2matchzd2_7363
																																																												=
																																																												BgL_lastzd2matchzd2_23138;
																																																											BgL_iportz00_7362
																																																												=
																																																												BgL_iportz00_23137;
																																																											goto
																																																												BgL_zc3z04anonymousza34670ze3z87_7366;
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											bool_t
																																																												BgL_test8058z00_23142;
																																																											if (((long) (BgL_curz00_6462) < 33L))
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8058z00_23142
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													bool_t
																																																														BgL_test8060z00_23146;
																																																													if (((long) (BgL_curz00_6462) == 35L))
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8060z00_23146
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8060z00_23146
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_6462)
																																																																==
																																																																34L);
																																																														}
																																																													if (BgL_test8060z00_23146)
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8058z00_23142
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															bool_t
																																																																BgL_test8062z00_23152;
																																																															if (((long) (BgL_curz00_6462) == 41L))
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test8062z00_23152
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	if (((long) (BgL_curz00_6462) == 40L))
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test8062z00_23152
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test8062z00_23152
																																																																				=
																																																																				(
																																																																				(long)
																																																																				(BgL_curz00_6462)
																																																																				==
																																																																				39L);
																																																																}}
																																																															if (BgL_test8062z00_23152)
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test8058z00_23142
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	if (((long) (BgL_curz00_6462) == 44L))
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test8058z00_23142
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 409 */
																																																																			bool_t
																																																																				BgL_test8066z00_23164;
																																																																			if (((long) (BgL_curz00_6462) >= 48L))
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test8066z00_23164
																																																																						=
																																																																						(
																																																																						(long)
																																																																						(BgL_curz00_6462)
																																																																						<
																																																																						60L);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test8066z00_23164
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						0);
																																																																				}
																																																																			if (BgL_test8066z00_23164)
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test8058z00_23142
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 409 */
																																																																					if (((long) (BgL_curz00_6462) == 69L))
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test8058z00_23142
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 409 */
																																																																							if (((long) (BgL_curz00_6462) == 91L))
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8058z00_23142
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 409 */
																																																																									if (((long) (BgL_curz00_6462) == 93L))
																																																																										{	/* Read/reader.scm 409 */
																																																																											BgL_test8058z00_23142
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 409 */
																																																																											if (((long) (BgL_curz00_6462) == 96L))
																																																																												{	/* Read/reader.scm 409 */
																																																																													BgL_test8058z00_23142
																																																																														=
																																																																														(
																																																																														(bool_t)
																																																																														1);
																																																																												}
																																																																											else
																																																																												{	/* Read/reader.scm 409 */
																																																																													if (((long) (BgL_curz00_6462) == 101L))
																																																																														{	/* Read/reader.scm 409 */
																																																																															BgL_test8058z00_23142
																																																																																=
																																																																																(
																																																																																(bool_t)
																																																																																1);
																																																																														}
																																																																													else
																																																																														{	/* Read/reader.scm 409 */
																																																																															bool_t
																																																																																BgL_test8073z00_23185;
																																																																															if (((long) (BgL_curz00_6462) == 125L))
																																																																																{	/* Read/reader.scm 409 */
																																																																																	BgL_test8073z00_23185
																																																																																		=
																																																																																		(
																																																																																		(bool_t)
																																																																																		1);
																																																																																}
																																																																															else
																																																																																{	/* Read/reader.scm 409 */
																																																																																	if (((long) (BgL_curz00_6462) == 124L))
																																																																																		{	/* Read/reader.scm 409 */
																																																																																			BgL_test8073z00_23185
																																																																																				=
																																																																																				(
																																																																																				(bool_t)
																																																																																				1);
																																																																																		}
																																																																																	else
																																																																																		{	/* Read/reader.scm 409 */
																																																																																			BgL_test8073z00_23185
																																																																																				=
																																																																																				(
																																																																																				(long)
																																																																																				(BgL_curz00_6462)
																																																																																				==
																																																																																				123L);
																																																																																}}
																																																																															if (BgL_test8073z00_23185)
																																																																																{	/* Read/reader.scm 409 */
																																																																																	BgL_test8058z00_23142
																																																																																		=
																																																																																		(
																																																																																		(bool_t)
																																																																																		1);
																																																																																}
																																																																															else
																																																																																{	/* Read/reader.scm 409 */
																																																																																	BgL_test8058z00_23142
																																																																																		=
																																																																																		(
																																																																																		(long)
																																																																																		(BgL_curz00_6462)
																																																																																		==
																																																																																		127L);
																																																												}}}}}}}}}}}
																																																											if (BgL_test8058z00_23142)
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_matchz00_9747
																																																														=
																																																														BgL_newzd2matchzd2_6457;
																																																												}
																																																											else
																																																												{
																																																													long
																																																														BgL_bufposz00_23200;
																																																													long
																																																														BgL_forwardz00_23198;
																																																													long
																																																														BgL_lastzd2matchzd2_23197;
																																																													obj_t
																																																														BgL_iportz00_23196;
																																																													BgL_iportz00_23196
																																																														=
																																																														BgL_iportz00_6452;
																																																													BgL_lastzd2matchzd2_23197
																																																														=
																																																														BgL_newzd2matchzd2_6457;
																																																													BgL_forwardz00_23198
																																																														=
																																																														(1L
																																																														+
																																																														BgL_forwardz00_6454);
																																																													BgL_bufposz00_23200
																																																														=
																																																														BgL_bufposz00_6455;
																																																													BgL_bufposz00_9542
																																																														=
																																																														BgL_bufposz00_23200;
																																																													BgL_forwardz00_9541
																																																														=
																																																														BgL_forwardz00_23198;
																																																													BgL_lastzd2matchzd2_9540
																																																														=
																																																														BgL_lastzd2matchzd2_23197;
																																																													BgL_iportz00_9539
																																																														=
																																																														BgL_iportz00_23196;
																																																													goto
																																																														BgL_zc3z04anonymousza35780ze3z87_9543;
																																																												}
																																																										}
																																																								}
																																																						}
																																																				}
																																																		}
																																																	}
																																																}
																																														}
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														bool_t
																																															BgL_test8076z00_23202;
																																														if (((long) (BgL_curz00_7051) == 39L))
																																															{	/* Read/reader.scm 409 */
																																																BgL_test8076z00_23202
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																if (((long) (BgL_curz00_7051) == 44L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test8076z00_23202
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test8076z00_23202
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_7051)
																																																			==
																																																			96L);
																																															}}
																																														if (BgL_test8076z00_23202)
																																															{
																																																long
																																																	BgL_bufposz00_23215;
																																																long
																																																	BgL_forwardz00_23213;
																																																long
																																																	BgL_lastzd2matchzd2_23212;
																																																obj_t
																																																	BgL_iportz00_23211;
																																																BgL_iportz00_23211
																																																	=
																																																	BgL_iportz00_7041;
																																																BgL_lastzd2matchzd2_23212
																																																	=
																																																	BgL_newzd2matchzd2_7046;
																																																BgL_forwardz00_23213
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_7043);
																																																BgL_bufposz00_23215
																																																	=
																																																	BgL_bufposz00_7044;
																																																BgL_bufposz00_7365
																																																	=
																																																	BgL_bufposz00_23215;
																																																BgL_forwardz00_7364
																																																	=
																																																	BgL_forwardz00_23213;
																																																BgL_lastzd2matchzd2_7363
																																																	=
																																																	BgL_lastzd2matchzd2_23212;
																																																BgL_iportz00_7362
																																																	=
																																																	BgL_iportz00_23211;
																																																goto
																																																	BgL_zc3z04anonymousza34670ze3z87_7366;
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																bool_t
																																																	BgL_test8079z00_23216;
																																																if (((long) (BgL_curz00_7051) < 33L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test8079z00_23216
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		bool_t
																																																			BgL_test8081z00_23220;
																																																		if (((long) (BgL_curz00_7051) == 35L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test8081z00_23220
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test8081z00_23220
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_7051)
																																																					==
																																																					34L);
																																																			}
																																																		if (BgL_test8081z00_23220)
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test8079z00_23216
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				bool_t
																																																					BgL_test8083z00_23226;
																																																				if (((long) (BgL_curz00_7051) == 41L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test8083z00_23226
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						if (((long) (BgL_curz00_7051) == 40L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test8083z00_23226
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test8083z00_23226
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_7051)
																																																									==
																																																									39L);
																																																					}}
																																																				if (BgL_test8083z00_23226)
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test8079z00_23216
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						if (((long) (BgL_curz00_7051) == 44L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test8079z00_23216
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								bool_t
																																																									BgL_test8087z00_23238;
																																																								if (((long) (BgL_curz00_7051) >= 48L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test8087z00_23238
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_7051)
																																																											<
																																																											60L);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test8087z00_23238
																																																											=
																																																											(
																																																											(bool_t)
																																																											0);
																																																									}
																																																								if (BgL_test8087z00_23238)
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test8079z00_23216
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										if (((long) (BgL_curz00_7051) == 69L))
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test8079z00_23216
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												if (((long) (BgL_curz00_7051) == 91L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test8079z00_23216
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														if (((long) (BgL_curz00_7051) == 93L))
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test8079z00_23216
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																if (((long) (BgL_curz00_7051) == 96L))
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test8079z00_23216
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		if (((long) (BgL_curz00_7051) == 101L))
																																																																			{	/* Read/reader.scm 409 */
																																																																				BgL_test8079z00_23216
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 409 */
																																																																				bool_t
																																																																					BgL_test8094z00_23259;
																																																																				if (((long) (BgL_curz00_7051) == 125L))
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test8094z00_23259
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 409 */
																																																																						if (((long) (BgL_curz00_7051) == 124L))
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test8094z00_23259
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test8094z00_23259
																																																																									=
																																																																									(
																																																																									(long)
																																																																									(BgL_curz00_7051)
																																																																									==
																																																																									123L);
																																																																					}}
																																																																				if (BgL_test8094z00_23259)
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test8079z00_23216
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test8079z00_23216
																																																																							=
																																																																							(
																																																																							(long)
																																																																							(BgL_curz00_7051)
																																																																							==
																																																																							127L);
																																																	}}}}}}}}}}}
																																																if (BgL_test8079z00_23216)
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_matchz00_9747
																																																			=
																																																			BgL_newzd2matchzd2_7046;
																																																	}
																																																else
																																																	{
																																																		long
																																																			BgL_bufposz00_23274;
																																																		long
																																																			BgL_forwardz00_23272;
																																																		long
																																																			BgL_lastzd2matchzd2_23271;
																																																		obj_t
																																																			BgL_iportz00_23270;
																																																		BgL_iportz00_23270
																																																			=
																																																			BgL_iportz00_7041;
																																																		BgL_lastzd2matchzd2_23271
																																																			=
																																																			BgL_newzd2matchzd2_7046;
																																																		BgL_forwardz00_23272
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_7043);
																																																		BgL_bufposz00_23274
																																																			=
																																																			BgL_bufposz00_7044;
																																																		BgL_bufposz00_9542
																																																			=
																																																			BgL_bufposz00_23274;
																																																		BgL_forwardz00_9541
																																																			=
																																																			BgL_forwardz00_23272;
																																																		BgL_lastzd2matchzd2_9540
																																																			=
																																																			BgL_lastzd2matchzd2_23271;
																																																		BgL_iportz00_9539
																																																			=
																																																			BgL_iportz00_23270;
																																																		goto
																																																			BgL_zc3z04anonymousza35780ze3z87_9543;
																																																	}
																																															}
																																													}
																																											}
																																									}
																																							}
																																						}
																																					}
																																			}
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			bool_t
																																				BgL_test8097z00_23276;
																																			if ((
																																					(long)
																																					(BgL_curz00_9084)
																																					<
																																					33L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8097z00_23276
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					bool_t
																																						BgL_test8099z00_23280;
																																					if ((
																																							(long)
																																							(BgL_curz00_9084)
																																							==
																																							35L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8099z00_23280
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8099z00_23280
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_9084)
																																								==
																																								34L);
																																						}
																																					if (BgL_test8099z00_23280)
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8097z00_23276
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							bool_t
																																								BgL_test8101z00_23286;
																																							if (((long) (BgL_curz00_9084) == 41L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8101z00_23286
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_9084) == 40L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8101z00_23286
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8101z00_23286
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_9084)
																																												==
																																												39L);
																																								}}
																																							if (BgL_test8101z00_23286)
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8097z00_23276
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_9084) == 44L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8097z00_23276
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											if (((long) (BgL_curz00_9084) == 46L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8097z00_23276
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													bool_t
																																														BgL_test8106z00_23301;
																																													if (((long) (BgL_curz00_9084) >= 48L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8106z00_23301
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_9084)
																																																<
																																																60L);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8106z00_23301
																																																=
																																																(
																																																(bool_t)
																																																0);
																																														}
																																													if (BgL_test8106z00_23301)
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8097z00_23276
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_9084) == 69L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8097z00_23276
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	if (((long) (BgL_curz00_9084) == 91L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8097z00_23276
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			if (((long) (BgL_curz00_9084) == 93L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8097z00_23276
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					if (((long) (BgL_curz00_9084) == 96L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8097z00_23276
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							if (((long) (BgL_curz00_9084) == 101L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8097z00_23276
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									bool_t
																																																										BgL_test8113z00_23322;
																																																									if (((long) (BgL_curz00_9084) == 125L))
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8113z00_23322
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											if (((long) (BgL_curz00_9084) == 124L))
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8113z00_23322
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8113z00_23322
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_9084)
																																																														==
																																																														123L);
																																																										}}
																																																									if (BgL_test8113z00_23322)
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8097z00_23276
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8097z00_23276
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_9084)
																																																												==
																																																												127L);
																																				}}}}}}}}}}}}
																																			if (BgL_test8097z00_23276)
																																				{	/* Read/reader.scm 409 */
																																					BgL_matchz00_9747
																																						=
																																						BgL_newzd2matchzd2_9079;
																																				}
																																			else
																																				{
																																					long
																																						BgL_bufposz00_23337;
																																					long
																																						BgL_forwardz00_23335;
																																					long
																																						BgL_lastzd2matchzd2_23334;
																																					obj_t
																																						BgL_iportz00_23333;
																																					BgL_iportz00_23333
																																						=
																																						BgL_iportz00_9074;
																																					BgL_lastzd2matchzd2_23334
																																						=
																																						BgL_newzd2matchzd2_9079;
																																					BgL_forwardz00_23335
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_9076);
																																					BgL_bufposz00_23337
																																						=
																																						BgL_bufposz00_9077;
																																					BgL_bufposz00_4963
																																						=
																																						BgL_bufposz00_23337;
																																					BgL_forwardz00_4962
																																						=
																																						BgL_forwardz00_23335;
																																					BgL_lastzd2matchzd2_4961
																																						=
																																						BgL_lastzd2matchzd2_23334;
																																					BgL_iportz00_4960
																																						=
																																						BgL_iportz00_23333;
																																					goto
																																						BgL_zc3z04anonymousza33439ze3z87_4964;
																																				}
																																		}
																																}
																														}
																												}
																										}
																									}
																								}
																						}
																					}
																				else
																					{	/* Read/reader.scm 409 */
																						if (
																							((long) (BgL_curz00_5171) == 46L))
																							{
																								long BgL_bufposz00_23346;
																								long BgL_forwardz00_23344;
																								long BgL_lastzd2matchzd2_23343;
																								obj_t BgL_iportz00_23342;

																								BgL_iportz00_23342 =
																									BgL_iportz00_5161;
																								BgL_lastzd2matchzd2_23343 =
																									BgL_newzd2matchzd2_5166;
																								BgL_forwardz00_23344 =
																									(1L + BgL_forwardz00_5163);
																								BgL_bufposz00_23346 =
																									BgL_bufposz00_5164;
																								BgL_bufposz00_7044 =
																									BgL_bufposz00_23346;
																								BgL_forwardz00_7043 =
																									BgL_forwardz00_23344;
																								BgL_lastzd2matchzd2_7042 =
																									BgL_lastzd2matchzd2_23343;
																								BgL_iportz00_7041 =
																									BgL_iportz00_23342;
																								goto
																									BgL_zc3z04anonymousza34505ze3z87_7045;
																							}
																						else
																							{	/* Read/reader.scm 409 */
																								bool_t BgL_test8117z00_23347;

																								if (
																									((long) (BgL_curz00_5171) <
																										33L))
																									{	/* Read/reader.scm 409 */
																										BgL_test8117z00_23347 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Read/reader.scm 409 */
																										bool_t
																											BgL_test8119z00_23351;
																										if (((long)
																												(BgL_curz00_5171) ==
																												35L))
																											{	/* Read/reader.scm 409 */
																												BgL_test8119z00_23351 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Read/reader.scm 409 */
																												BgL_test8119z00_23351 =
																													(
																													(long)
																													(BgL_curz00_5171) ==
																													34L);
																											}
																										if (BgL_test8119z00_23351)
																											{	/* Read/reader.scm 409 */
																												BgL_test8117z00_23347 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Read/reader.scm 409 */
																												bool_t
																													BgL_test8121z00_23357;
																												if (((long)
																														(BgL_curz00_5171) ==
																														41L))
																													{	/* Read/reader.scm 409 */
																														BgL_test8121z00_23357
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Read/reader.scm 409 */
																														if (
																															((long)
																																(BgL_curz00_5171)
																																== 40L))
																															{	/* Read/reader.scm 409 */
																																BgL_test8121z00_23357
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 409 */
																																BgL_test8121z00_23357
																																	=
																																	((long)
																																	(BgL_curz00_5171)
																																	== 39L);
																													}}
																												if (BgL_test8121z00_23357)
																													{	/* Read/reader.scm 409 */
																														BgL_test8117z00_23347
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Read/reader.scm 409 */
																														if (
																															((long)
																																(BgL_curz00_5171)
																																== 44L))
																															{	/* Read/reader.scm 409 */
																																BgL_test8117z00_23347
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 409 */
																																if (
																																	((long)
																																		(BgL_curz00_5171)
																																		== 46L))
																																	{	/* Read/reader.scm 409 */
																																		BgL_test8117z00_23347
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 409 */
																																		bool_t
																																			BgL_test8126z00_23372;
																																		if (((long)
																																				(BgL_curz00_5171)
																																				>= 48L))
																																			{	/* Read/reader.scm 409 */
																																				BgL_test8126z00_23372
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_5171)
																																					<
																																					60L);
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				BgL_test8126z00_23372
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																		if (BgL_test8126z00_23372)
																																			{	/* Read/reader.scm 409 */
																																				BgL_test8117z00_23347
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				if (
																																					((long) (BgL_curz00_5171) == 69L))
																																					{	/* Read/reader.scm 409 */
																																						BgL_test8117z00_23347
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						if (
																																							((long) (BgL_curz00_5171) == 91L))
																																							{	/* Read/reader.scm 409 */
																																								BgL_test8117z00_23347
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								if (((long) (BgL_curz00_5171) == 93L))
																																									{	/* Read/reader.scm 409 */
																																										BgL_test8117z00_23347
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										if (((long) (BgL_curz00_5171) == 96L))
																																											{	/* Read/reader.scm 409 */
																																												BgL_test8117z00_23347
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												if (((long) (BgL_curz00_5171) == 101L))
																																													{	/* Read/reader.scm 409 */
																																														BgL_test8117z00_23347
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														bool_t
																																															BgL_test8133z00_23393;
																																														if (((long) (BgL_curz00_5171) == 125L))
																																															{	/* Read/reader.scm 409 */
																																																BgL_test8133z00_23393
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																if (((long) (BgL_curz00_5171) == 124L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test8133z00_23393
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test8133z00_23393
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_5171)
																																																			==
																																																			123L);
																																															}}
																																														if (BgL_test8133z00_23393)
																																															{	/* Read/reader.scm 409 */
																																																BgL_test8117z00_23347
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																BgL_test8117z00_23347
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_5171)
																																																	==
																																																	127L);
																									}}}}}}}}}}}}
																								if (BgL_test8117z00_23347)
																									{	/* Read/reader.scm 409 */
																										BgL_matchz00_9747 =
																											BgL_newzd2matchzd2_5166;
																									}
																								else
																									{
																										long BgL_bufposz00_23408;
																										long BgL_forwardz00_23406;
																										long
																											BgL_lastzd2matchzd2_23405;
																										obj_t BgL_iportz00_23404;

																										BgL_iportz00_23404 =
																											BgL_iportz00_5161;
																										BgL_lastzd2matchzd2_23405 =
																											BgL_newzd2matchzd2_5166;
																										BgL_forwardz00_23406 =
																											(1L +
																											BgL_forwardz00_5163);
																										BgL_bufposz00_23408 =
																											BgL_bufposz00_5164;
																										BgL_bufposz00_4963 =
																											BgL_bufposz00_23408;
																										BgL_forwardz00_4962 =
																											BgL_forwardz00_23406;
																										BgL_lastzd2matchzd2_4961 =
																											BgL_lastzd2matchzd2_23405;
																										BgL_iportz00_4960 =
																											BgL_iportz00_23404;
																										goto
																											BgL_zc3z04anonymousza33439ze3z87_4964;
																									}
																							}
																					}
																			}
																	}
															}
														}
													}
											}
											break;
										case 46L:

											BgL_iportz00_7927 = BgL_iportz00_8604;
											BgL_lastzd2matchzd2_7928 = BgL_lastzd2matchzd2_8605;
											BgL_forwardz00_7929 = (1L + BgL_forwardz00_8606);
											BgL_bufposz00_7930 = BgL_bufposz00_8607;
										BgL_zc3z04anonymousza34954ze3z87_7931:
											{	/* Read/reader.scm 409 */
												long BgL_newzd2matchzd2_7932;

												{	/* Read/reader.scm 409 */
													obj_t BgL_tmpz00_23410;

													BgL_tmpz00_23410 = ((obj_t) BgL_iportz00_7927);
													RGC_STOP_MATCH(BgL_tmpz00_23410, BgL_forwardz00_7929);
												}
												BgL_newzd2matchzd2_7932 = 17L;
												if ((BgL_forwardz00_7929 == BgL_bufposz00_7930))
													{	/* Read/reader.scm 409 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_7927)))
															{	/* Read/reader.scm 409 */
																long BgL_arg4957z00_7935;
																long BgL_arg4958z00_7936;

																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_23418;

																	BgL_tmpz00_23418 =
																		((obj_t) BgL_iportz00_7927);
																	BgL_arg4957z00_7935 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_23418);
																}
																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_23421;

																	BgL_tmpz00_23421 =
																		((obj_t) BgL_iportz00_7927);
																	BgL_arg4958z00_7936 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_23421);
																}
																{
																	long BgL_bufposz00_23425;
																	long BgL_forwardz00_23424;

																	BgL_forwardz00_23424 = BgL_arg4957z00_7935;
																	BgL_bufposz00_23425 = BgL_arg4958z00_7936;
																	BgL_bufposz00_7930 = BgL_bufposz00_23425;
																	BgL_forwardz00_7929 = BgL_forwardz00_23424;
																	goto BgL_zc3z04anonymousza34954ze3z87_7931;
																}
															}
														else
															{	/* Read/reader.scm 409 */
																BgL_matchz00_9747 = BgL_newzd2matchzd2_7932;
															}
													}
												else
													{	/* Read/reader.scm 409 */
														int BgL_curz00_7937;

														{	/* Read/reader.scm 409 */
															obj_t BgL_tmpz00_23426;

															BgL_tmpz00_23426 = ((obj_t) BgL_iportz00_7927);
															BgL_curz00_7937 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_23426,
																BgL_forwardz00_7929);
														}
														{	/* Read/reader.scm 409 */

															if (((long) (BgL_curz00_7937) == 58L))
																{
																	long BgL_bufposz00_23436;
																	long BgL_forwardz00_23434;
																	long BgL_lastzd2matchzd2_23433;
																	obj_t BgL_iportz00_23432;

																	BgL_iportz00_23432 = BgL_iportz00_7927;
																	BgL_lastzd2matchzd2_23433 =
																		BgL_newzd2matchzd2_7932;
																	BgL_forwardz00_23434 =
																		(1L + BgL_forwardz00_7929);
																	BgL_bufposz00_23436 = BgL_bufposz00_7930;
																	BgL_bufposz00_7593 = BgL_bufposz00_23436;
																	BgL_forwardz00_7592 = BgL_forwardz00_23434;
																	BgL_lastzd2matchzd2_7591 =
																		BgL_lastzd2matchzd2_23433;
																	BgL_iportz00_7590 = BgL_iportz00_23432;
																	goto BgL_zc3z04anonymousza34787ze3z87_7594;
																}
															else
																{	/* Read/reader.scm 409 */
																	bool_t BgL_test8139z00_23437;

																	if (((long) (BgL_curz00_7937) >= 48L))
																		{	/* Read/reader.scm 409 */
																			BgL_test8139z00_23437 =
																				((long) (BgL_curz00_7937) < 58L);
																		}
																	else
																		{	/* Read/reader.scm 409 */
																			BgL_test8139z00_23437 = ((bool_t) 0);
																		}
																	if (BgL_test8139z00_23437)
																		{	/* Read/reader.scm 409 */
																			BgL_iportz00_7110 = BgL_iportz00_7927;
																			BgL_lastzd2matchzd2_7111 =
																				BgL_newzd2matchzd2_7932;
																			BgL_forwardz00_7112 =
																				(1L + BgL_forwardz00_7929);
																			BgL_bufposz00_7113 = BgL_bufposz00_7930;
																		BgL_zc3z04anonymousza34541ze3z87_7114:
																			{	/* Read/reader.scm 409 */
																				long BgL_newzd2matchzd2_7115;

																				{	/* Read/reader.scm 409 */
																					obj_t BgL_tmpz00_23443;

																					BgL_tmpz00_23443 =
																						((obj_t) BgL_iportz00_7110);
																					RGC_STOP_MATCH(BgL_tmpz00_23443,
																						BgL_forwardz00_7112);
																				}
																				BgL_newzd2matchzd2_7115 = 13L;
																				if (
																					(BgL_forwardz00_7112 ==
																						BgL_bufposz00_7113))
																					{	/* Read/reader.scm 409 */
																						if (rgc_fill_buffer(
																								((obj_t) BgL_iportz00_7110)))
																							{	/* Read/reader.scm 409 */
																								long BgL_arg4544z00_7118;
																								long BgL_arg4545z00_7119;

																								{	/* Read/reader.scm 409 */
																									obj_t BgL_tmpz00_23451;

																									BgL_tmpz00_23451 =
																										((obj_t) BgL_iportz00_7110);
																									BgL_arg4544z00_7118 =
																										RGC_BUFFER_FORWARD
																										(BgL_tmpz00_23451);
																								}
																								{	/* Read/reader.scm 409 */
																									obj_t BgL_tmpz00_23454;

																									BgL_tmpz00_23454 =
																										((obj_t) BgL_iportz00_7110);
																									BgL_arg4545z00_7119 =
																										RGC_BUFFER_BUFPOS
																										(BgL_tmpz00_23454);
																								}
																								{
																									long BgL_bufposz00_23458;
																									long BgL_forwardz00_23457;

																									BgL_forwardz00_23457 =
																										BgL_arg4544z00_7118;
																									BgL_bufposz00_23458 =
																										BgL_arg4545z00_7119;
																									BgL_bufposz00_7113 =
																										BgL_bufposz00_23458;
																									BgL_forwardz00_7112 =
																										BgL_forwardz00_23457;
																									goto
																										BgL_zc3z04anonymousza34541ze3z87_7114;
																								}
																							}
																						else
																							{	/* Read/reader.scm 409 */
																								BgL_matchz00_9747 =
																									BgL_newzd2matchzd2_7115;
																							}
																					}
																				else
																					{	/* Read/reader.scm 409 */
																						int BgL_curz00_7120;

																						{	/* Read/reader.scm 409 */
																							obj_t BgL_tmpz00_23459;

																							BgL_tmpz00_23459 =
																								((obj_t) BgL_iportz00_7110);
																							BgL_curz00_7120 =
																								RGC_BUFFER_GET_CHAR
																								(BgL_tmpz00_23459,
																								BgL_forwardz00_7112);
																						}
																						{	/* Read/reader.scm 409 */

																							{	/* Read/reader.scm 409 */
																								bool_t BgL_test8143z00_23462;

																								if (
																									((long) (BgL_curz00_7120) ==
																										69L))
																									{	/* Read/reader.scm 409 */
																										BgL_test8143z00_23462 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Read/reader.scm 409 */
																										BgL_test8143z00_23462 =
																											(
																											(long) (BgL_curz00_7120)
																											== 101L);
																									}
																								if (BgL_test8143z00_23462)
																									{
																										long BgL_bufposz00_23472;
																										long BgL_forwardz00_23470;
																										long
																											BgL_lastzd2matchzd2_23469;
																										obj_t BgL_iportz00_23468;

																										BgL_iportz00_23468 =
																											BgL_iportz00_7110;
																										BgL_lastzd2matchzd2_23469 =
																											BgL_newzd2matchzd2_7115;
																										BgL_forwardz00_23470 =
																											(1L +
																											BgL_forwardz00_7112);
																										BgL_bufposz00_23472 =
																											BgL_bufposz00_7113;
																										BgL_bufposz00_4258 =
																											BgL_bufposz00_23472;
																										BgL_forwardz00_4257 =
																											BgL_forwardz00_23470;
																										BgL_lastzd2matchzd2_4256 =
																											BgL_lastzd2matchzd2_23469;
																										BgL_iportz00_4255 =
																											BgL_iportz00_23468;
																										goto
																											BgL_zc3z04anonymousza33005ze3z87_4259;
																									}
																								else
																									{	/* Read/reader.scm 409 */
																										if (
																											((long) (BgL_curz00_7120)
																												== 58L))
																											{
																												long
																													BgL_bufposz00_23480;
																												long
																													BgL_forwardz00_23478;
																												long
																													BgL_lastzd2matchzd2_23477;
																												obj_t
																													BgL_iportz00_23476;
																												BgL_iportz00_23476 =
																													BgL_iportz00_7110;
																												BgL_lastzd2matchzd2_23477
																													=
																													BgL_newzd2matchzd2_7115;
																												BgL_forwardz00_23478 =
																													(1L +
																													BgL_forwardz00_7112);
																												BgL_bufposz00_23480 =
																													BgL_bufposz00_7113;
																												BgL_bufposz00_7593 =
																													BgL_bufposz00_23480;
																												BgL_forwardz00_7592 =
																													BgL_forwardz00_23478;
																												BgL_lastzd2matchzd2_7591
																													=
																													BgL_lastzd2matchzd2_23477;
																												BgL_iportz00_7590 =
																													BgL_iportz00_23476;
																												goto
																													BgL_zc3z04anonymousza34787ze3z87_7594;
																											}
																										else
																											{	/* Read/reader.scm 409 */
																												bool_t
																													BgL_test8146z00_23481;
																												if (((long)
																														(BgL_curz00_7120) >=
																														48L))
																													{	/* Read/reader.scm 409 */
																														BgL_test8146z00_23481
																															=
																															((long)
																															(BgL_curz00_7120)
																															< 58L);
																													}
																												else
																													{	/* Read/reader.scm 409 */
																														BgL_test8146z00_23481
																															= ((bool_t) 0);
																													}
																												if (BgL_test8146z00_23481)
																													{
																														long
																															BgL_forwardz00_23488;
																														long
																															BgL_lastzd2matchzd2_23487;
																														BgL_lastzd2matchzd2_23487
																															=
																															BgL_newzd2matchzd2_7115;
																														BgL_forwardz00_23488
																															=
																															(1L +
																															BgL_forwardz00_7112);
																														BgL_forwardz00_7112
																															=
																															BgL_forwardz00_23488;
																														BgL_lastzd2matchzd2_7111
																															=
																															BgL_lastzd2matchzd2_23487;
																														goto
																															BgL_zc3z04anonymousza34541ze3z87_7114;
																													}
																												else
																													{	/* Read/reader.scm 409 */
																														bool_t
																															BgL_test8148z00_23490;
																														if (((long)
																																(BgL_curz00_7120)
																																== 39L))
																															{	/* Read/reader.scm 409 */
																																BgL_test8148z00_23490
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 409 */
																																if (
																																	((long)
																																		(BgL_curz00_7120)
																																		== 44L))
																																	{	/* Read/reader.scm 409 */
																																		BgL_test8148z00_23490
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 409 */
																																		BgL_test8148z00_23490
																																			=
																																			((long)
																																			(BgL_curz00_7120)
																																			== 96L);
																															}}
																														if (BgL_test8148z00_23490)
																															{
																																long
																																	BgL_bufposz00_23503;
																																long
																																	BgL_forwardz00_23501;
																																long
																																	BgL_lastzd2matchzd2_23500;
																																obj_t
																																	BgL_iportz00_23499;
																																BgL_iportz00_23499
																																	=
																																	BgL_iportz00_7110;
																																BgL_lastzd2matchzd2_23500
																																	=
																																	BgL_newzd2matchzd2_7115;
																																BgL_forwardz00_23501
																																	=
																																	(1L +
																																	BgL_forwardz00_7112);
																																BgL_bufposz00_23503
																																	=
																																	BgL_bufposz00_7113;
																																BgL_bufposz00_7365
																																	=
																																	BgL_bufposz00_23503;
																																BgL_forwardz00_7364
																																	=
																																	BgL_forwardz00_23501;
																																BgL_lastzd2matchzd2_7363
																																	=
																																	BgL_lastzd2matchzd2_23500;
																																BgL_iportz00_7362
																																	=
																																	BgL_iportz00_23499;
																																goto
																																	BgL_zc3z04anonymousza34670ze3z87_7366;
																															}
																														else
																															{	/* Read/reader.scm 409 */
																																bool_t
																																	BgL_test8151z00_23504;
																																if (((long)
																																		(BgL_curz00_7120)
																																		< 33L))
																																	{	/* Read/reader.scm 409 */
																																		BgL_test8151z00_23504
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 409 */
																																		bool_t
																																			BgL_test8153z00_23508;
																																		if (((long)
																																				(BgL_curz00_7120)
																																				== 35L))
																																			{	/* Read/reader.scm 409 */
																																				BgL_test8153z00_23508
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				BgL_test8153z00_23508
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_7120)
																																					==
																																					34L);
																																			}
																																		if (BgL_test8153z00_23508)
																																			{	/* Read/reader.scm 409 */
																																				BgL_test8151z00_23504
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				bool_t
																																					BgL_test8155z00_23514;
																																				if ((
																																						(long)
																																						(BgL_curz00_7120)
																																						==
																																						41L))
																																					{	/* Read/reader.scm 409 */
																																						BgL_test8155z00_23514
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						if (
																																							((long) (BgL_curz00_7120) == 40L))
																																							{	/* Read/reader.scm 409 */
																																								BgL_test8155z00_23514
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								BgL_test8155z00_23514
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_7120)
																																									==
																																									39L);
																																					}}
																																				if (BgL_test8155z00_23514)
																																					{	/* Read/reader.scm 409 */
																																						BgL_test8151z00_23504
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						if (
																																							((long) (BgL_curz00_7120) == 44L))
																																							{	/* Read/reader.scm 409 */
																																								BgL_test8151z00_23504
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								bool_t
																																									BgL_test8159z00_23526;
																																								if (((long) (BgL_curz00_7120) >= 48L))
																																									{	/* Read/reader.scm 409 */
																																										BgL_test8159z00_23526
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_7120)
																																											<
																																											60L);
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										BgL_test8159z00_23526
																																											=
																																											(
																																											(bool_t)
																																											0);
																																									}
																																								if (BgL_test8159z00_23526)
																																									{	/* Read/reader.scm 409 */
																																										BgL_test8151z00_23504
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										if (((long) (BgL_curz00_7120) == 69L))
																																											{	/* Read/reader.scm 409 */
																																												BgL_test8151z00_23504
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												if (((long) (BgL_curz00_7120) == 91L))
																																													{	/* Read/reader.scm 409 */
																																														BgL_test8151z00_23504
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														if (((long) (BgL_curz00_7120) == 93L))
																																															{	/* Read/reader.scm 409 */
																																																BgL_test8151z00_23504
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																if (((long) (BgL_curz00_7120) == 96L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test8151z00_23504
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		if (((long) (BgL_curz00_7120) == 101L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test8151z00_23504
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				bool_t
																																																					BgL_test8166z00_23547;
																																																				if (((long) (BgL_curz00_7120) == 125L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test8166z00_23547
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						if (((long) (BgL_curz00_7120) == 124L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test8166z00_23547
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test8166z00_23547
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_7120)
																																																									==
																																																									123L);
																																																					}}
																																																				if (BgL_test8166z00_23547)
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test8151z00_23504
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test8151z00_23504
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_7120)
																																																							==
																																																							127L);
																																	}}}}}}}}}}}
																																if (BgL_test8151z00_23504)
																																	{	/* Read/reader.scm 409 */
																																		BgL_matchz00_9747
																																			=
																																			BgL_newzd2matchzd2_7115;
																																	}
																																else
																																	{
																																		long
																																			BgL_bufposz00_23562;
																																		long
																																			BgL_forwardz00_23560;
																																		long
																																			BgL_lastzd2matchzd2_23559;
																																		obj_t
																																			BgL_iportz00_23558;
																																		BgL_iportz00_23558
																																			=
																																			BgL_iportz00_7110;
																																		BgL_lastzd2matchzd2_23559
																																			=
																																			BgL_newzd2matchzd2_7115;
																																		BgL_forwardz00_23560
																																			=
																																			(1L +
																																			BgL_forwardz00_7112);
																																		BgL_bufposz00_23562
																																			=
																																			BgL_bufposz00_7113;
																																		BgL_bufposz00_9542
																																			=
																																			BgL_bufposz00_23562;
																																		BgL_forwardz00_9541
																																			=
																																			BgL_forwardz00_23560;
																																		BgL_lastzd2matchzd2_9540
																																			=
																																			BgL_lastzd2matchzd2_23559;
																																		BgL_iportz00_9539
																																			=
																																			BgL_iportz00_23558;
																																		goto
																																			BgL_zc3z04anonymousza35780ze3z87_9543;
																																	}
																															}
																													}
																											}
																									}
																							}
																						}
																					}
																			}
																		}
																	else
																		{	/* Read/reader.scm 409 */
																			bool_t BgL_test8169z00_23564;

																			if (((long) (BgL_curz00_7937) == 39L))
																				{	/* Read/reader.scm 409 */
																					BgL_test8169z00_23564 = ((bool_t) 1);
																				}
																			else
																				{	/* Read/reader.scm 409 */
																					if (((long) (BgL_curz00_7937) == 44L))
																						{	/* Read/reader.scm 409 */
																							BgL_test8169z00_23564 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Read/reader.scm 409 */
																							BgL_test8169z00_23564 =
																								(
																								(long) (BgL_curz00_7937) ==
																								96L);
																				}}
																			if (BgL_test8169z00_23564)
																				{
																					long BgL_bufposz00_23577;
																					long BgL_forwardz00_23575;
																					long BgL_lastzd2matchzd2_23574;
																					obj_t BgL_iportz00_23573;

																					BgL_iportz00_23573 =
																						BgL_iportz00_7927;
																					BgL_lastzd2matchzd2_23574 =
																						BgL_newzd2matchzd2_7932;
																					BgL_forwardz00_23575 =
																						(1L + BgL_forwardz00_7929);
																					BgL_bufposz00_23577 =
																						BgL_bufposz00_7930;
																					BgL_bufposz00_7365 =
																						BgL_bufposz00_23577;
																					BgL_forwardz00_7364 =
																						BgL_forwardz00_23575;
																					BgL_lastzd2matchzd2_7363 =
																						BgL_lastzd2matchzd2_23574;
																					BgL_iportz00_7362 =
																						BgL_iportz00_23573;
																					goto
																						BgL_zc3z04anonymousza34670ze3z87_7366;
																				}
																			else
																				{	/* Read/reader.scm 409 */
																					bool_t BgL_test8172z00_23578;

																					if (((long) (BgL_curz00_7937) < 33L))
																						{	/* Read/reader.scm 409 */
																							BgL_test8172z00_23578 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Read/reader.scm 409 */
																							bool_t BgL_test8174z00_23582;

																							if (
																								((long) (BgL_curz00_7937) ==
																									35L))
																								{	/* Read/reader.scm 409 */
																									BgL_test8174z00_23582 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Read/reader.scm 409 */
																									BgL_test8174z00_23582 =
																										(
																										(long) (BgL_curz00_7937) ==
																										34L);
																								}
																							if (BgL_test8174z00_23582)
																								{	/* Read/reader.scm 409 */
																									BgL_test8172z00_23578 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Read/reader.scm 409 */
																									bool_t BgL_test8176z00_23588;

																									if (
																										((long) (BgL_curz00_7937) ==
																											41L))
																										{	/* Read/reader.scm 409 */
																											BgL_test8176z00_23588 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 409 */
																											if (
																												((long)
																													(BgL_curz00_7937) ==
																													40L))
																												{	/* Read/reader.scm 409 */
																													BgL_test8176z00_23588
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													BgL_test8176z00_23588
																														=
																														((long)
																														(BgL_curz00_7937) ==
																														39L);
																										}}
																									if (BgL_test8176z00_23588)
																										{	/* Read/reader.scm 409 */
																											BgL_test8172z00_23578 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 409 */
																											if (
																												((long)
																													(BgL_curz00_7937) ==
																													44L))
																												{	/* Read/reader.scm 409 */
																													BgL_test8172z00_23578
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													bool_t
																														BgL_test8180z00_23600;
																													if (((long)
																															(BgL_curz00_7937)
																															>= 48L))
																														{	/* Read/reader.scm 409 */
																															BgL_test8180z00_23600
																																=
																																((long)
																																(BgL_curz00_7937)
																																< 60L);
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															BgL_test8180z00_23600
																																= ((bool_t) 0);
																														}
																													if (BgL_test8180z00_23600)
																														{	/* Read/reader.scm 409 */
																															BgL_test8172z00_23578
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															if (
																																((long)
																																	(BgL_curz00_7937)
																																	== 91L))
																																{	/* Read/reader.scm 409 */
																																	BgL_test8172z00_23578
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	if (
																																		((long)
																																			(BgL_curz00_7937)
																																			== 93L))
																																		{	/* Read/reader.scm 409 */
																																			BgL_test8172z00_23578
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			if (
																																				((long)
																																					(BgL_curz00_7937)
																																					==
																																					96L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8172z00_23578
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					bool_t
																																						BgL_test8185z00_23615;
																																					if ((
																																							(long)
																																							(BgL_curz00_7937)
																																							==
																																							125L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8185z00_23615
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							if (((long) (BgL_curz00_7937) == 124L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8185z00_23615
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8185z00_23615
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_7937)
																																										==
																																										123L);
																																						}}
																																					if (BgL_test8185z00_23615)
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8172z00_23578
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8172z00_23578
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_7937)
																																								==
																																								127L);
																						}}}}}}}}}
																					if (BgL_test8172z00_23578)
																						{	/* Read/reader.scm 409 */
																							BgL_matchz00_9747 =
																								BgL_newzd2matchzd2_7932;
																						}
																					else
																						{
																							long BgL_bufposz00_23630;
																							long BgL_forwardz00_23628;
																							long BgL_lastzd2matchzd2_23627;
																							obj_t BgL_iportz00_23626;

																							BgL_iportz00_23626 =
																								BgL_iportz00_7927;
																							BgL_lastzd2matchzd2_23627 =
																								BgL_newzd2matchzd2_7932;
																							BgL_forwardz00_23628 =
																								(1L + BgL_forwardz00_7929);
																							BgL_bufposz00_23630 =
																								BgL_bufposz00_7930;
																							BgL_bufposz00_9542 =
																								BgL_bufposz00_23630;
																							BgL_forwardz00_9541 =
																								BgL_forwardz00_23628;
																							BgL_lastzd2matchzd2_9540 =
																								BgL_lastzd2matchzd2_23627;
																							BgL_iportz00_9539 =
																								BgL_iportz00_23626;
																							goto
																								BgL_zc3z04anonymousza35780ze3z87_9543;
																						}
																				}
																		}
																}
														}
													}
											}
											break;
										case 45L:

											BgL_iportz00_4634 = BgL_iportz00_8604;
											BgL_lastzd2matchzd2_4635 = BgL_lastzd2matchzd2_8605;
											BgL_forwardz00_4636 = (1L + BgL_forwardz00_8606);
											BgL_bufposz00_4637 = BgL_bufposz00_8607;
										BgL_zc3z04anonymousza33240ze3z87_4638:
											{	/* Read/reader.scm 409 */
												long BgL_newzd2matchzd2_4639;

												{	/* Read/reader.scm 409 */
													obj_t BgL_tmpz00_23632;

													BgL_tmpz00_23632 = ((obj_t) BgL_iportz00_4634);
													RGC_STOP_MATCH(BgL_tmpz00_23632, BgL_forwardz00_4636);
												}
												BgL_newzd2matchzd2_4639 = 22L;
												if ((BgL_forwardz00_4636 == BgL_bufposz00_4637))
													{	/* Read/reader.scm 409 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_4634)))
															{	/* Read/reader.scm 409 */
																long BgL_arg3245z00_4642;
																long BgL_arg3246z00_4643;

																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_23640;

																	BgL_tmpz00_23640 =
																		((obj_t) BgL_iportz00_4634);
																	BgL_arg3245z00_4642 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_23640);
																}
																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_23643;

																	BgL_tmpz00_23643 =
																		((obj_t) BgL_iportz00_4634);
																	BgL_arg3246z00_4643 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_23643);
																}
																{
																	long BgL_bufposz00_23647;
																	long BgL_forwardz00_23646;

																	BgL_forwardz00_23646 = BgL_arg3245z00_4642;
																	BgL_bufposz00_23647 = BgL_arg3246z00_4643;
																	BgL_bufposz00_4637 = BgL_bufposz00_23647;
																	BgL_forwardz00_4636 = BgL_forwardz00_23646;
																	goto BgL_zc3z04anonymousza33240ze3z87_4638;
																}
															}
														else
															{	/* Read/reader.scm 409 */
																BgL_matchz00_9747 = BgL_newzd2matchzd2_4639;
															}
													}
												else
													{	/* Read/reader.scm 409 */
														int BgL_curz00_4644;

														{	/* Read/reader.scm 409 */
															obj_t BgL_tmpz00_23648;

															BgL_tmpz00_23648 = ((obj_t) BgL_iportz00_4634);
															BgL_curz00_4644 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_23648,
																BgL_forwardz00_4636);
														}
														{	/* Read/reader.scm 409 */

															if (((long) (BgL_curz00_4644) == 105L))
																{	/* Read/reader.scm 409 */
																	BgL_iportz00_9222 = BgL_iportz00_4634;
																	BgL_lastzd2matchzd2_9223 =
																		BgL_newzd2matchzd2_4639;
																	BgL_forwardz00_9224 =
																		(1L + BgL_forwardz00_4636);
																	BgL_bufposz00_9225 = BgL_bufposz00_4637;
																BgL_zc3z04anonymousza35613ze3z87_9226:
																	{	/* Read/reader.scm 409 */
																		long BgL_newzd2matchzd2_9227;

																		{	/* Read/reader.scm 409 */
																			obj_t BgL_tmpz00_23654;

																			BgL_tmpz00_23654 =
																				((obj_t) BgL_iportz00_9222);
																			RGC_STOP_MATCH(BgL_tmpz00_23654,
																				BgL_forwardz00_9224);
																		}
																		BgL_newzd2matchzd2_9227 = 22L;
																		if (
																			(BgL_forwardz00_9224 ==
																				BgL_bufposz00_9225))
																			{	/* Read/reader.scm 409 */
																				if (rgc_fill_buffer(
																						((obj_t) BgL_iportz00_9222)))
																					{	/* Read/reader.scm 409 */
																						long BgL_arg5616z00_9230;
																						long BgL_arg5617z00_9231;

																						{	/* Read/reader.scm 409 */
																							obj_t BgL_tmpz00_23662;

																							BgL_tmpz00_23662 =
																								((obj_t) BgL_iportz00_9222);
																							BgL_arg5616z00_9230 =
																								RGC_BUFFER_FORWARD
																								(BgL_tmpz00_23662);
																						}
																						{	/* Read/reader.scm 409 */
																							obj_t BgL_tmpz00_23665;

																							BgL_tmpz00_23665 =
																								((obj_t) BgL_iportz00_9222);
																							BgL_arg5617z00_9231 =
																								RGC_BUFFER_BUFPOS
																								(BgL_tmpz00_23665);
																						}
																						{
																							long BgL_bufposz00_23669;
																							long BgL_forwardz00_23668;

																							BgL_forwardz00_23668 =
																								BgL_arg5616z00_9230;
																							BgL_bufposz00_23669 =
																								BgL_arg5617z00_9231;
																							BgL_bufposz00_9225 =
																								BgL_bufposz00_23669;
																							BgL_forwardz00_9224 =
																								BgL_forwardz00_23668;
																							goto
																								BgL_zc3z04anonymousza35613ze3z87_9226;
																						}
																					}
																				else
																					{	/* Read/reader.scm 409 */
																						BgL_matchz00_9747 =
																							BgL_newzd2matchzd2_9227;
																					}
																			}
																		else
																			{	/* Read/reader.scm 409 */
																				int BgL_curz00_9232;

																				{	/* Read/reader.scm 409 */
																					obj_t BgL_tmpz00_23670;

																					BgL_tmpz00_23670 =
																						((obj_t) BgL_iportz00_9222);
																					BgL_curz00_9232 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_tmpz00_23670,
																						BgL_forwardz00_9224);
																				}
																				{	/* Read/reader.scm 409 */

																					if (
																						((long) (BgL_curz00_9232) == 110L))
																						{	/* Read/reader.scm 409 */
																							BgL_iportz00_4563 =
																								BgL_iportz00_9222;
																							BgL_lastzd2matchzd2_4564 =
																								BgL_newzd2matchzd2_9227;
																							BgL_forwardz00_4565 =
																								(1L + BgL_forwardz00_9224);
																							BgL_bufposz00_4566 =
																								BgL_bufposz00_9225;
																						BgL_zc3z04anonymousza33205ze3z87_4567:
																							{	/* Read/reader.scm 409 */
																								long BgL_newzd2matchzd2_4568;

																								{	/* Read/reader.scm 409 */
																									obj_t BgL_tmpz00_23676;

																									BgL_tmpz00_23676 =
																										((obj_t) BgL_iportz00_4563);
																									RGC_STOP_MATCH
																										(BgL_tmpz00_23676,
																										BgL_forwardz00_4565);
																								}
																								BgL_newzd2matchzd2_4568 = 22L;
																								if (
																									(BgL_forwardz00_4565 ==
																										BgL_bufposz00_4566))
																									{	/* Read/reader.scm 409 */
																										if (rgc_fill_buffer(
																												((obj_t)
																													BgL_iportz00_4563)))
																											{	/* Read/reader.scm 409 */
																												long
																													BgL_arg3208z00_4571;
																												long
																													BgL_arg3209z00_4572;
																												{	/* Read/reader.scm 409 */
																													obj_t
																														BgL_tmpz00_23684;
																													BgL_tmpz00_23684 =
																														((obj_t)
																														BgL_iportz00_4563);
																													BgL_arg3208z00_4571 =
																														RGC_BUFFER_FORWARD
																														(BgL_tmpz00_23684);
																												}
																												{	/* Read/reader.scm 409 */
																													obj_t
																														BgL_tmpz00_23687;
																													BgL_tmpz00_23687 =
																														((obj_t)
																														BgL_iportz00_4563);
																													BgL_arg3209z00_4572 =
																														RGC_BUFFER_BUFPOS
																														(BgL_tmpz00_23687);
																												}
																												{
																													long
																														BgL_bufposz00_23691;
																													long
																														BgL_forwardz00_23690;
																													BgL_forwardz00_23690 =
																														BgL_arg3208z00_4571;
																													BgL_bufposz00_23691 =
																														BgL_arg3209z00_4572;
																													BgL_bufposz00_4566 =
																														BgL_bufposz00_23691;
																													BgL_forwardz00_4565 =
																														BgL_forwardz00_23690;
																													goto
																														BgL_zc3z04anonymousza33205ze3z87_4567;
																												}
																											}
																										else
																											{	/* Read/reader.scm 409 */
																												BgL_matchz00_9747 =
																													BgL_newzd2matchzd2_4568;
																											}
																									}
																								else
																									{	/* Read/reader.scm 409 */
																										int BgL_curz00_4573;

																										{	/* Read/reader.scm 409 */
																											obj_t BgL_tmpz00_23692;

																											BgL_tmpz00_23692 =
																												((obj_t)
																												BgL_iportz00_4563);
																											BgL_curz00_4573 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_tmpz00_23692,
																												BgL_forwardz00_4565);
																										}
																										{	/* Read/reader.scm 409 */

																											if (
																												((long)
																													(BgL_curz00_4573) ==
																													102L))
																												{	/* Read/reader.scm 409 */
																													BgL_iportz00_6881 =
																														BgL_iportz00_4563;
																													BgL_lastzd2matchzd2_6882
																														=
																														BgL_newzd2matchzd2_4568;
																													BgL_forwardz00_6883 =
																														(1L +
																														BgL_forwardz00_4565);
																													BgL_bufposz00_6884 =
																														BgL_bufposz00_4566;
																												BgL_zc3z04anonymousza34427ze3z87_6885:
																													{	/* Read/reader.scm 409 */
																														long
																															BgL_newzd2matchzd2_6886;
																														{	/* Read/reader.scm 409 */
																															obj_t
																																BgL_tmpz00_23698;
																															BgL_tmpz00_23698 =
																																((obj_t)
																																BgL_iportz00_6881);
																															RGC_STOP_MATCH
																																(BgL_tmpz00_23698,
																																BgL_forwardz00_6883);
																														}
																														BgL_newzd2matchzd2_6886
																															= 22L;
																														if (
																															(BgL_forwardz00_6883
																																==
																																BgL_bufposz00_6884))
																															{	/* Read/reader.scm 409 */
																																if (rgc_fill_buffer(((obj_t) BgL_iportz00_6881)))
																																	{	/* Read/reader.scm 409 */
																																		long
																																			BgL_arg4430z00_6889;
																																		long
																																			BgL_arg4431z00_6890;
																																		{	/* Read/reader.scm 409 */
																																			obj_t
																																				BgL_tmpz00_23706;
																																			BgL_tmpz00_23706
																																				=
																																				((obj_t)
																																				BgL_iportz00_6881);
																																			BgL_arg4430z00_6889
																																				=
																																				RGC_BUFFER_FORWARD
																																				(BgL_tmpz00_23706);
																																		}
																																		{	/* Read/reader.scm 409 */
																																			obj_t
																																				BgL_tmpz00_23709;
																																			BgL_tmpz00_23709
																																				=
																																				((obj_t)
																																				BgL_iportz00_6881);
																																			BgL_arg4431z00_6890
																																				=
																																				RGC_BUFFER_BUFPOS
																																				(BgL_tmpz00_23709);
																																		}
																																		{
																																			long
																																				BgL_bufposz00_23713;
																																			long
																																				BgL_forwardz00_23712;
																																			BgL_forwardz00_23712
																																				=
																																				BgL_arg4430z00_6889;
																																			BgL_bufposz00_23713
																																				=
																																				BgL_arg4431z00_6890;
																																			BgL_bufposz00_6884
																																				=
																																				BgL_bufposz00_23713;
																																			BgL_forwardz00_6883
																																				=
																																				BgL_forwardz00_23712;
																																			goto
																																				BgL_zc3z04anonymousza34427ze3z87_6885;
																																		}
																																	}
																																else
																																	{	/* Read/reader.scm 409 */
																																		BgL_matchz00_9747
																																			=
																																			BgL_newzd2matchzd2_6886;
																																	}
																															}
																														else
																															{	/* Read/reader.scm 409 */
																																int
																																	BgL_curz00_6891;
																																{	/* Read/reader.scm 409 */
																																	obj_t
																																		BgL_tmpz00_23714;
																																	BgL_tmpz00_23714
																																		=
																																		((obj_t)
																																		BgL_iportz00_6881);
																																	BgL_curz00_6891
																																		=
																																		RGC_BUFFER_GET_CHAR
																																		(BgL_tmpz00_23714,
																																		BgL_forwardz00_6883);
																																}
																																{	/* Read/reader.scm 409 */

																																	if (
																																		((long)
																																			(BgL_curz00_6891)
																																			== 58L))
																																		{
																																			long
																																				BgL_bufposz00_23724;
																																			long
																																				BgL_forwardz00_23722;
																																			long
																																				BgL_lastzd2matchzd2_23721;
																																			obj_t
																																				BgL_iportz00_23720;
																																			BgL_iportz00_23720
																																				=
																																				BgL_iportz00_6881;
																																			BgL_lastzd2matchzd2_23721
																																				=
																																				BgL_newzd2matchzd2_6886;
																																			BgL_forwardz00_23722
																																				=
																																				(1L +
																																				BgL_forwardz00_6883);
																																			BgL_bufposz00_23724
																																				=
																																				BgL_bufposz00_6884;
																																			BgL_bufposz00_6394
																																				=
																																				BgL_bufposz00_23724;
																																			BgL_forwardz00_6393
																																				=
																																				BgL_forwardz00_23722;
																																			BgL_lastzd2matchzd2_6392
																																				=
																																				BgL_lastzd2matchzd2_23721;
																																			BgL_iportz00_6391
																																				=
																																				BgL_iportz00_23720;
																																			goto
																																				BgL_zc3z04anonymousza34167ze3z87_6395;
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			if (
																																				((long)
																																					(BgL_curz00_6891)
																																					==
																																					46L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_iportz00_9472
																																						=
																																						BgL_iportz00_6881;
																																					BgL_lastzd2matchzd2_9473
																																						=
																																						BgL_newzd2matchzd2_6886;
																																					BgL_forwardz00_9474
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_6883);
																																					BgL_bufposz00_9475
																																						=
																																						BgL_bufposz00_6884;
																																				BgL_zc3z04anonymousza35744ze3z87_9476:
																																					{	/* Read/reader.scm 409 */
																																						long
																																							BgL_newzd2matchzd2_9477;
																																						{	/* Read/reader.scm 409 */
																																							obj_t
																																								BgL_tmpz00_23728;
																																							BgL_tmpz00_23728
																																								=
																																								(
																																								(obj_t)
																																								BgL_iportz00_9472);
																																							RGC_STOP_MATCH
																																								(BgL_tmpz00_23728,
																																								BgL_forwardz00_9474);
																																						}
																																						BgL_newzd2matchzd2_9477
																																							=
																																							22L;
																																						if (
																																							(BgL_forwardz00_9474
																																								==
																																								BgL_bufposz00_9475))
																																							{	/* Read/reader.scm 409 */
																																								if (rgc_fill_buffer(((obj_t) BgL_iportz00_9472)))
																																									{	/* Read/reader.scm 409 */
																																										long
																																											BgL_arg5747z00_9480;
																																										long
																																											BgL_arg5748z00_9481;
																																										{	/* Read/reader.scm 409 */
																																											obj_t
																																												BgL_tmpz00_23736;
																																											BgL_tmpz00_23736
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_9472);
																																											BgL_arg5747z00_9480
																																												=
																																												RGC_BUFFER_FORWARD
																																												(BgL_tmpz00_23736);
																																										}
																																										{	/* Read/reader.scm 409 */
																																											obj_t
																																												BgL_tmpz00_23739;
																																											BgL_tmpz00_23739
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_9472);
																																											BgL_arg5748z00_9481
																																												=
																																												RGC_BUFFER_BUFPOS
																																												(BgL_tmpz00_23739);
																																										}
																																										{
																																											long
																																												BgL_bufposz00_23743;
																																											long
																																												BgL_forwardz00_23742;
																																											BgL_forwardz00_23742
																																												=
																																												BgL_arg5747z00_9480;
																																											BgL_bufposz00_23743
																																												=
																																												BgL_arg5748z00_9481;
																																											BgL_bufposz00_9475
																																												=
																																												BgL_bufposz00_23743;
																																											BgL_forwardz00_9474
																																												=
																																												BgL_forwardz00_23742;
																																											goto
																																												BgL_zc3z04anonymousza35744ze3z87_9476;
																																										}
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										BgL_matchz00_9747
																																											=
																																											BgL_newzd2matchzd2_9477;
																																									}
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								int
																																									BgL_curz00_9482;
																																								{	/* Read/reader.scm 409 */
																																									obj_t
																																										BgL_tmpz00_23744;
																																									BgL_tmpz00_23744
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_9472);
																																									BgL_curz00_9482
																																										=
																																										RGC_BUFFER_GET_CHAR
																																										(BgL_tmpz00_23744,
																																										BgL_forwardz00_9474);
																																								}
																																								{	/* Read/reader.scm 409 */

																																									if (((long) (BgL_curz00_9482) == 58L))
																																										{
																																											long
																																												BgL_bufposz00_23754;
																																											long
																																												BgL_forwardz00_23752;
																																											long
																																												BgL_lastzd2matchzd2_23751;
																																											obj_t
																																												BgL_iportz00_23750;
																																											BgL_iportz00_23750
																																												=
																																												BgL_iportz00_9472;
																																											BgL_lastzd2matchzd2_23751
																																												=
																																												BgL_newzd2matchzd2_9477;
																																											BgL_forwardz00_23752
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_9474);
																																											BgL_bufposz00_23754
																																												=
																																												BgL_bufposz00_9475;
																																											BgL_bufposz00_7304
																																												=
																																												BgL_bufposz00_23754;
																																											BgL_forwardz00_7303
																																												=
																																												BgL_forwardz00_23752;
																																											BgL_lastzd2matchzd2_7302
																																												=
																																												BgL_lastzd2matchzd2_23751;
																																											BgL_iportz00_7301
																																												=
																																												BgL_iportz00_23750;
																																											goto
																																												BgL_zc3z04anonymousza34639ze3z87_7305;
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											bool_t
																																												BgL_test8204z00_23755;
																																											if (((long) (BgL_curz00_9482) >= 49L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8204z00_23755
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_9482)
																																														<
																																														58L);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8204z00_23755
																																														=
																																														(
																																														(bool_t)
																																														0);
																																												}
																																											if (BgL_test8204z00_23755)
																																												{
																																													long
																																														BgL_bufposz00_23765;
																																													long
																																														BgL_forwardz00_23763;
																																													long
																																														BgL_lastzd2matchzd2_23762;
																																													obj_t
																																														BgL_iportz00_23761;
																																													BgL_iportz00_23761
																																														=
																																														BgL_iportz00_9472;
																																													BgL_lastzd2matchzd2_23762
																																														=
																																														BgL_newzd2matchzd2_9477;
																																													BgL_forwardz00_23763
																																														=
																																														(1L
																																														+
																																														BgL_forwardz00_9474);
																																													BgL_bufposz00_23765
																																														=
																																														BgL_bufposz00_9475;
																																													BgL_bufposz00_3943
																																														=
																																														BgL_bufposz00_23765;
																																													BgL_forwardz00_3942
																																														=
																																														BgL_forwardz00_23763;
																																													BgL_lastzd2matchzd2_3941
																																														=
																																														BgL_lastzd2matchzd2_23762;
																																													BgL_iportz00_3940
																																														=
																																														BgL_iportz00_23761;
																																													goto
																																														BgL_zc3z04anonymousza32819ze3z87_3944;
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													if (((long) (BgL_curz00_9482) == 48L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_iportz00_6540
																																																=
																																																BgL_iportz00_9472;
																																															BgL_lastzd2matchzd2_6541
																																																=
																																																BgL_newzd2matchzd2_9477;
																																															BgL_forwardz00_6542
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_9474);
																																															BgL_bufposz00_6543
																																																=
																																																BgL_bufposz00_9475;
																																														BgL_zc3z04anonymousza34246ze3z87_6544:
																																															{	/* Read/reader.scm 409 */
																																																long
																																																	BgL_newzd2matchzd2_6545;
																																																{	/* Read/reader.scm 409 */
																																																	obj_t
																																																		BgL_tmpz00_23769;
																																																	BgL_tmpz00_23769
																																																		=
																																																		(
																																																		(obj_t)
																																																		BgL_iportz00_6540);
																																																	RGC_STOP_MATCH
																																																		(BgL_tmpz00_23769,
																																																		BgL_forwardz00_6542);
																																																}
																																																BgL_newzd2matchzd2_6545
																																																	=
																																																	16L;
																																																if ((BgL_forwardz00_6542 == BgL_bufposz00_6543))
																																																	{	/* Read/reader.scm 409 */
																																																		if (rgc_fill_buffer(((obj_t) BgL_iportz00_6540)))
																																																			{	/* Read/reader.scm 409 */
																																																				long
																																																					BgL_arg4249z00_6548;
																																																				long
																																																					BgL_arg4250z00_6549;
																																																				{	/* Read/reader.scm 409 */
																																																					obj_t
																																																						BgL_tmpz00_23777;
																																																					BgL_tmpz00_23777
																																																						=
																																																						(
																																																						(obj_t)
																																																						BgL_iportz00_6540);
																																																					BgL_arg4249z00_6548
																																																						=
																																																						RGC_BUFFER_FORWARD
																																																						(BgL_tmpz00_23777);
																																																				}
																																																				{	/* Read/reader.scm 409 */
																																																					obj_t
																																																						BgL_tmpz00_23780;
																																																					BgL_tmpz00_23780
																																																						=
																																																						(
																																																						(obj_t)
																																																						BgL_iportz00_6540);
																																																					BgL_arg4250z00_6549
																																																						=
																																																						RGC_BUFFER_BUFPOS
																																																						(BgL_tmpz00_23780);
																																																				}
																																																				{
																																																					long
																																																						BgL_bufposz00_23784;
																																																					long
																																																						BgL_forwardz00_23783;
																																																					BgL_forwardz00_23783
																																																						=
																																																						BgL_arg4249z00_6548;
																																																					BgL_bufposz00_23784
																																																						=
																																																						BgL_arg4250z00_6549;
																																																					BgL_bufposz00_6543
																																																						=
																																																						BgL_bufposz00_23784;
																																																					BgL_forwardz00_6542
																																																						=
																																																						BgL_forwardz00_23783;
																																																					goto
																																																						BgL_zc3z04anonymousza34246ze3z87_6544;
																																																				}
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_matchz00_9747
																																																					=
																																																					BgL_newzd2matchzd2_6545;
																																																			}
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		int
																																																			BgL_curz00_6550;
																																																		{	/* Read/reader.scm 409 */
																																																			obj_t
																																																				BgL_tmpz00_23785;
																																																			BgL_tmpz00_23785
																																																				=
																																																				(
																																																				(obj_t)
																																																				BgL_iportz00_6540);
																																																			BgL_curz00_6550
																																																				=
																																																				RGC_BUFFER_GET_CHAR
																																																				(BgL_tmpz00_23785,
																																																				BgL_forwardz00_6542);
																																																		}
																																																		{	/* Read/reader.scm 409 */

																																																			if (((long) (BgL_curz00_6550) == 58L))
																																																				{
																																																					long
																																																						BgL_bufposz00_23795;
																																																					long
																																																						BgL_forwardz00_23793;
																																																					long
																																																						BgL_lastzd2matchzd2_23792;
																																																					obj_t
																																																						BgL_iportz00_23791;
																																																					BgL_iportz00_23791
																																																						=
																																																						BgL_iportz00_6540;
																																																					BgL_lastzd2matchzd2_23792
																																																						=
																																																						BgL_newzd2matchzd2_6545;
																																																					BgL_forwardz00_23793
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_6542);
																																																					BgL_bufposz00_23795
																																																						=
																																																						BgL_bufposz00_6543;
																																																					BgL_bufposz00_7304
																																																						=
																																																						BgL_bufposz00_23795;
																																																					BgL_forwardz00_7303
																																																						=
																																																						BgL_forwardz00_23793;
																																																					BgL_lastzd2matchzd2_7302
																																																						=
																																																						BgL_lastzd2matchzd2_23792;
																																																					BgL_iportz00_7301
																																																						=
																																																						BgL_iportz00_23791;
																																																					goto
																																																						BgL_zc3z04anonymousza34639ze3z87_7305;
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					bool_t
																																																						BgL_test8210z00_23796;
																																																					if (((long) (BgL_curz00_6550) >= 48L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8210z00_23796
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_6550)
																																																								<
																																																								58L);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8210z00_23796
																																																								=
																																																								(
																																																								(bool_t)
																																																								0);
																																																						}
																																																					if (BgL_test8210z00_23796)
																																																						{
																																																							long
																																																								BgL_bufposz00_23806;
																																																							long
																																																								BgL_forwardz00_23804;
																																																							long
																																																								BgL_lastzd2matchzd2_23803;
																																																							obj_t
																																																								BgL_iportz00_23802;
																																																							BgL_iportz00_23802
																																																								=
																																																								BgL_iportz00_6540;
																																																							BgL_lastzd2matchzd2_23803
																																																								=
																																																								BgL_newzd2matchzd2_6545;
																																																							BgL_forwardz00_23804
																																																								=
																																																								(1L
																																																								+
																																																								BgL_forwardz00_6542);
																																																							BgL_bufposz00_23806
																																																								=
																																																								BgL_bufposz00_6543;
																																																							BgL_bufposz00_3943
																																																								=
																																																								BgL_bufposz00_23806;
																																																							BgL_forwardz00_3942
																																																								=
																																																								BgL_forwardz00_23804;
																																																							BgL_lastzd2matchzd2_3941
																																																								=
																																																								BgL_lastzd2matchzd2_23803;
																																																							BgL_iportz00_3940
																																																								=
																																																								BgL_iportz00_23802;
																																																							goto
																																																								BgL_zc3z04anonymousza32819ze3z87_3944;
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							if (((long) (BgL_curz00_6550) == 46L))
																																																								{
																																																									long
																																																										BgL_bufposz00_23814;
																																																									long
																																																										BgL_forwardz00_23812;
																																																									long
																																																										BgL_lastzd2matchzd2_23811;
																																																									obj_t
																																																										BgL_iportz00_23810;
																																																									BgL_iportz00_23810
																																																										=
																																																										BgL_iportz00_6540;
																																																									BgL_lastzd2matchzd2_23811
																																																										=
																																																										BgL_newzd2matchzd2_6545;
																																																									BgL_forwardz00_23812
																																																										=
																																																										(1L
																																																										+
																																																										BgL_forwardz00_6542);
																																																									BgL_bufposz00_23814
																																																										=
																																																										BgL_bufposz00_6543;
																																																									BgL_bufposz00_9542
																																																										=
																																																										BgL_bufposz00_23814;
																																																									BgL_forwardz00_9541
																																																										=
																																																										BgL_forwardz00_23812;
																																																									BgL_lastzd2matchzd2_9540
																																																										=
																																																										BgL_lastzd2matchzd2_23811;
																																																									BgL_iportz00_9539
																																																										=
																																																										BgL_iportz00_23810;
																																																									goto
																																																										BgL_zc3z04anonymousza35780ze3z87_9543;
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									bool_t
																																																										BgL_test8213z00_23815;
																																																									if (((long) (BgL_curz00_6550) == 39L))
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8213z00_23815
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											if (((long) (BgL_curz00_6550) == 44L))
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8213z00_23815
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8213z00_23815
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_6550)
																																																														==
																																																														96L);
																																																										}}
																																																									if (BgL_test8213z00_23815)
																																																										{
																																																											long
																																																												BgL_bufposz00_23828;
																																																											long
																																																												BgL_forwardz00_23826;
																																																											long
																																																												BgL_lastzd2matchzd2_23825;
																																																											obj_t
																																																												BgL_iportz00_23824;
																																																											BgL_iportz00_23824
																																																												=
																																																												BgL_iportz00_6540;
																																																											BgL_lastzd2matchzd2_23825
																																																												=
																																																												BgL_newzd2matchzd2_6545;
																																																											BgL_forwardz00_23826
																																																												=
																																																												(1L
																																																												+
																																																												BgL_forwardz00_6542);
																																																											BgL_bufposz00_23828
																																																												=
																																																												BgL_bufposz00_6543;
																																																											BgL_bufposz00_7365
																																																												=
																																																												BgL_bufposz00_23828;
																																																											BgL_forwardz00_7364
																																																												=
																																																												BgL_forwardz00_23826;
																																																											BgL_lastzd2matchzd2_7363
																																																												=
																																																												BgL_lastzd2matchzd2_23825;
																																																											BgL_iportz00_7362
																																																												=
																																																												BgL_iportz00_23824;
																																																											goto
																																																												BgL_zc3z04anonymousza34670ze3z87_7366;
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											bool_t
																																																												BgL_test8216z00_23829;
																																																											if (((long) (BgL_curz00_6550) < 33L))
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8216z00_23829
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													bool_t
																																																														BgL_test8218z00_23833;
																																																													if (((long) (BgL_curz00_6550) == 35L))
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8218z00_23833
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8218z00_23833
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_6550)
																																																																==
																																																																34L);
																																																														}
																																																													if (BgL_test8218z00_23833)
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8216z00_23829
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															bool_t
																																																																BgL_test8220z00_23839;
																																																															if (((long) (BgL_curz00_6550) == 41L))
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test8220z00_23839
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	if (((long) (BgL_curz00_6550) == 40L))
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test8220z00_23839
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test8220z00_23839
																																																																				=
																																																																				(
																																																																				(long)
																																																																				(BgL_curz00_6550)
																																																																				==
																																																																				39L);
																																																																}}
																																																															if (BgL_test8220z00_23839)
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test8216z00_23829
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	if (((long) (BgL_curz00_6550) == 44L))
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test8216z00_23829
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 409 */
																																																																			if (((long) (BgL_curz00_6550) == 46L))
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test8216z00_23829
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 409 */
																																																																					bool_t
																																																																						BgL_test8225z00_23854;
																																																																					if (((long) (BgL_curz00_6550) >= 48L))
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test8225z00_23854
																																																																								=
																																																																								(
																																																																								(long)
																																																																								(BgL_curz00_6550)
																																																																								<
																																																																								60L);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test8225z00_23854
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								0);
																																																																						}
																																																																					if (BgL_test8225z00_23854)
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test8216z00_23829
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 409 */
																																																																							if (((long) (BgL_curz00_6550) == 91L))
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8216z00_23829
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 409 */
																																																																									if (((long) (BgL_curz00_6550) == 93L))
																																																																										{	/* Read/reader.scm 409 */
																																																																											BgL_test8216z00_23829
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 409 */
																																																																											if (((long) (BgL_curz00_6550) == 96L))
																																																																												{	/* Read/reader.scm 409 */
																																																																													BgL_test8216z00_23829
																																																																														=
																																																																														(
																																																																														(bool_t)
																																																																														1);
																																																																												}
																																																																											else
																																																																												{	/* Read/reader.scm 409 */
																																																																													bool_t
																																																																														BgL_test8230z00_23869;
																																																																													if (((long) (BgL_curz00_6550) == 125L))
																																																																														{	/* Read/reader.scm 409 */
																																																																															BgL_test8230z00_23869
																																																																																=
																																																																																(
																																																																																(bool_t)
																																																																																1);
																																																																														}
																																																																													else
																																																																														{	/* Read/reader.scm 409 */
																																																																															if (((long) (BgL_curz00_6550) == 124L))
																																																																																{	/* Read/reader.scm 409 */
																																																																																	BgL_test8230z00_23869
																																																																																		=
																																																																																		(
																																																																																		(bool_t)
																																																																																		1);
																																																																																}
																																																																															else
																																																																																{	/* Read/reader.scm 409 */
																																																																																	BgL_test8230z00_23869
																																																																																		=
																																																																																		(
																																																																																		(long)
																																																																																		(BgL_curz00_6550)
																																																																																		==
																																																																																		123L);
																																																																														}}
																																																																													if (BgL_test8230z00_23869)
																																																																														{	/* Read/reader.scm 409 */
																																																																															BgL_test8216z00_23829
																																																																																=
																																																																																(
																																																																																(bool_t)
																																																																																1);
																																																																														}
																																																																													else
																																																																														{	/* Read/reader.scm 409 */
																																																																															BgL_test8216z00_23829
																																																																																=
																																																																																(
																																																																																(long)
																																																																																(BgL_curz00_6550)
																																																																																==
																																																																																127L);
																																																												}}}}}}}}}}
																																																											if (BgL_test8216z00_23829)
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_matchz00_9747
																																																														=
																																																														BgL_newzd2matchzd2_6545;
																																																												}
																																																											else
																																																												{
																																																													long
																																																														BgL_bufposz00_23884;
																																																													long
																																																														BgL_forwardz00_23882;
																																																													long
																																																														BgL_lastzd2matchzd2_23881;
																																																													obj_t
																																																														BgL_iportz00_23880;
																																																													BgL_iportz00_23880
																																																														=
																																																														BgL_iportz00_6540;
																																																													BgL_lastzd2matchzd2_23881
																																																														=
																																																														BgL_newzd2matchzd2_6545;
																																																													BgL_forwardz00_23882
																																																														=
																																																														(1L
																																																														+
																																																														BgL_forwardz00_6542);
																																																													BgL_bufposz00_23884
																																																														=
																																																														BgL_bufposz00_6543;
																																																													BgL_bufposz00_5103
																																																														=
																																																														BgL_bufposz00_23884;
																																																													BgL_forwardz00_5102
																																																														=
																																																														BgL_forwardz00_23882;
																																																													BgL_lastzd2matchzd2_5101
																																																														=
																																																														BgL_lastzd2matchzd2_23881;
																																																													BgL_iportz00_5100
																																																														=
																																																														BgL_iportz00_23880;
																																																													goto
																																																														BgL_zc3z04anonymousza33512ze3z87_5104;
																																																												}
																																																										}
																																																								}
																																																						}
																																																				}
																																																		}
																																																	}
																																															}
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_9482) == 46L))
																																																{
																																																	long
																																																		BgL_bufposz00_23893;
																																																	long
																																																		BgL_forwardz00_23891;
																																																	long
																																																		BgL_lastzd2matchzd2_23890;
																																																	obj_t
																																																		BgL_iportz00_23889;
																																																	BgL_iportz00_23889
																																																		=
																																																		BgL_iportz00_9472;
																																																	BgL_lastzd2matchzd2_23890
																																																		=
																																																		BgL_newzd2matchzd2_9477;
																																																	BgL_forwardz00_23891
																																																		=
																																																		(1L
																																																		+
																																																		BgL_forwardz00_9474);
																																																	BgL_bufposz00_23893
																																																		=
																																																		BgL_bufposz00_9475;
																																																	BgL_bufposz00_9542
																																																		=
																																																		BgL_bufposz00_23893;
																																																	BgL_forwardz00_9541
																																																		=
																																																		BgL_forwardz00_23891;
																																																	BgL_lastzd2matchzd2_9540
																																																		=
																																																		BgL_lastzd2matchzd2_23890;
																																																	BgL_iportz00_9539
																																																		=
																																																		BgL_iportz00_23889;
																																																	goto
																																																		BgL_zc3z04anonymousza35780ze3z87_9543;
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	bool_t
																																																		BgL_test8234z00_23894;
																																																	if (((long) (BgL_curz00_9482) == 39L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8234z00_23894
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			if (((long) (BgL_curz00_9482) == 44L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8234z00_23894
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8234z00_23894
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_9482)
																																																						==
																																																						96L);
																																																		}}
																																																	if (BgL_test8234z00_23894)
																																																		{
																																																			long
																																																				BgL_bufposz00_23907;
																																																			long
																																																				BgL_forwardz00_23905;
																																																			long
																																																				BgL_lastzd2matchzd2_23904;
																																																			obj_t
																																																				BgL_iportz00_23903;
																																																			BgL_iportz00_23903
																																																				=
																																																				BgL_iportz00_9472;
																																																			BgL_lastzd2matchzd2_23904
																																																				=
																																																				BgL_newzd2matchzd2_9477;
																																																			BgL_forwardz00_23905
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_9474);
																																																			BgL_bufposz00_23907
																																																				=
																																																				BgL_bufposz00_9475;
																																																			BgL_bufposz00_7365
																																																				=
																																																				BgL_bufposz00_23907;
																																																			BgL_forwardz00_7364
																																																				=
																																																				BgL_forwardz00_23905;
																																																			BgL_lastzd2matchzd2_7363
																																																				=
																																																				BgL_lastzd2matchzd2_23904;
																																																			BgL_iportz00_7362
																																																				=
																																																				BgL_iportz00_23903;
																																																			goto
																																																				BgL_zc3z04anonymousza34670ze3z87_7366;
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			bool_t
																																																				BgL_test8237z00_23908;
																																																			if (((long) (BgL_curz00_9482) < 33L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8237z00_23908
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					bool_t
																																																						BgL_test8239z00_23912;
																																																					if (((long) (BgL_curz00_9482) == 35L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8239z00_23912
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8239z00_23912
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_9482)
																																																								==
																																																								34L);
																																																						}
																																																					if (BgL_test8239z00_23912)
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8237z00_23908
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							bool_t
																																																								BgL_test8241z00_23918;
																																																							if (((long) (BgL_curz00_9482) == 41L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8241z00_23918
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									if (((long) (BgL_curz00_9482) == 40L))
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8241z00_23918
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8241z00_23918
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_9482)
																																																												==
																																																												39L);
																																																								}}
																																																							if (BgL_test8241z00_23918)
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8237z00_23908
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									if (((long) (BgL_curz00_9482) == 44L))
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8237z00_23908
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											if (((long) (BgL_curz00_9482) == 46L))
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8237z00_23908
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													bool_t
																																																														BgL_test8246z00_23933;
																																																													if (((long) (BgL_curz00_9482) >= 48L))
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8246z00_23933
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_9482)
																																																																<
																																																																60L);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8246z00_23933
																																																																=
																																																																(
																																																																(bool_t)
																																																																0);
																																																														}
																																																													if (BgL_test8246z00_23933)
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8237z00_23908
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															if (((long) (BgL_curz00_9482) == 91L))
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test8237z00_23908
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	if (((long) (BgL_curz00_9482) == 93L))
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test8237z00_23908
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 409 */
																																																																			if (((long) (BgL_curz00_9482) == 96L))
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test8237z00_23908
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 409 */
																																																																					bool_t
																																																																						BgL_test8251z00_23948;
																																																																					if (((long) (BgL_curz00_9482) == 125L))
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test8251z00_23948
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 409 */
																																																																							if (((long) (BgL_curz00_9482) == 124L))
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8251z00_23948
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8251z00_23948
																																																																										=
																																																																										(
																																																																										(long)
																																																																										(BgL_curz00_9482)
																																																																										==
																																																																										123L);
																																																																						}}
																																																																					if (BgL_test8251z00_23948)
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test8237z00_23908
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test8237z00_23908
																																																																								=
																																																																								(
																																																																								(long)
																																																																								(BgL_curz00_9482)
																																																																								==
																																																																								127L);
																																																				}}}}}}}}}}
																																																			if (BgL_test8237z00_23908)
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_matchz00_9747
																																																						=
																																																						BgL_newzd2matchzd2_9477;
																																																				}
																																																			else
																																																				{
																																																					long
																																																						BgL_bufposz00_23963;
																																																					long
																																																						BgL_forwardz00_23961;
																																																					long
																																																						BgL_lastzd2matchzd2_23960;
																																																					obj_t
																																																						BgL_iportz00_23959;
																																																					BgL_iportz00_23959
																																																						=
																																																						BgL_iportz00_9472;
																																																					BgL_lastzd2matchzd2_23960
																																																						=
																																																						BgL_newzd2matchzd2_9477;
																																																					BgL_forwardz00_23961
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_9474);
																																																					BgL_bufposz00_23963
																																																						=
																																																						BgL_bufposz00_9475;
																																																					BgL_bufposz00_5103
																																																						=
																																																						BgL_bufposz00_23963;
																																																					BgL_forwardz00_5102
																																																						=
																																																						BgL_forwardz00_23961;
																																																					BgL_lastzd2matchzd2_5101
																																																						=
																																																						BgL_lastzd2matchzd2_23960;
																																																					BgL_iportz00_5100
																																																						=
																																																						BgL_iportz00_23959;
																																																					goto
																																																						BgL_zc3z04anonymousza33512ze3z87_5104;
																																																				}
																																																		}
																																																}
																																														}
																																												}
																																										}
																																								}
																																							}
																																					}
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					bool_t
																																						BgL_test8254z00_23965;
																																					if ((
																																							(long)
																																							(BgL_curz00_6891)
																																							==
																																							39L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8254z00_23965
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							if (((long) (BgL_curz00_6891) == 44L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8254z00_23965
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8254z00_23965
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_6891)
																																										==
																																										96L);
																																						}}
																																					if (BgL_test8254z00_23965)
																																						{
																																							long
																																								BgL_bufposz00_23978;
																																							long
																																								BgL_forwardz00_23976;
																																							long
																																								BgL_lastzd2matchzd2_23975;
																																							obj_t
																																								BgL_iportz00_23974;
																																							BgL_iportz00_23974
																																								=
																																								BgL_iportz00_6881;
																																							BgL_lastzd2matchzd2_23975
																																								=
																																								BgL_newzd2matchzd2_6886;
																																							BgL_forwardz00_23976
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_6883);
																																							BgL_bufposz00_23978
																																								=
																																								BgL_bufposz00_6884;
																																							BgL_bufposz00_6105
																																								=
																																								BgL_bufposz00_23978;
																																							BgL_forwardz00_6104
																																								=
																																								BgL_forwardz00_23976;
																																							BgL_lastzd2matchzd2_6103
																																								=
																																								BgL_lastzd2matchzd2_23975;
																																							BgL_iportz00_6102
																																								=
																																								BgL_iportz00_23974;
																																							goto
																																								BgL_zc3z04anonymousza34018ze3z87_6106;
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							bool_t
																																								BgL_test8257z00_23979;
																																							if (((long) (BgL_curz00_6891) < 33L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8257z00_23979
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									bool_t
																																										BgL_test8259z00_23983;
																																									if (((long) (BgL_curz00_6891) == 35L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8259z00_23983
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8259z00_23983
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_6891)
																																												==
																																												34L);
																																										}
																																									if (BgL_test8259z00_23983)
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8257z00_23979
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											bool_t
																																												BgL_test8261z00_23989;
																																											if (((long) (BgL_curz00_6891) == 41L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8261z00_23989
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													if (((long) (BgL_curz00_6891) == 40L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8261z00_23989
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8261z00_23989
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_6891)
																																																==
																																																39L);
																																												}}
																																											if (BgL_test8261z00_23989)
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8257z00_23979
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													if (((long) (BgL_curz00_6891) == 44L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8257z00_23979
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_6891) == 46L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8257z00_23979
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	bool_t
																																																		BgL_test8266z00_24004;
																																																	if (((long) (BgL_curz00_6891) == 59L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8266z00_24004
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8266z00_24004
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_6891)
																																																				==
																																																				58L);
																																																		}
																																																	if (BgL_test8266z00_24004)
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8257z00_23979
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			if (((long) (BgL_curz00_6891) == 91L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8257z00_23979
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					if (((long) (BgL_curz00_6891) == 93L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8257z00_23979
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							if (((long) (BgL_curz00_6891) == 96L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8257z00_23979
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									bool_t
																																																										BgL_test8271z00_24019;
																																																									if (((long) (BgL_curz00_6891) == 125L))
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8271z00_24019
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											if (((long) (BgL_curz00_6891) == 124L))
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8271z00_24019
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8271z00_24019
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_6891)
																																																														==
																																																														123L);
																																																										}}
																																																									if (BgL_test8271z00_24019)
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8257z00_23979
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8257z00_23979
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_6891)
																																																												==
																																																												127L);
																																								}}}}}}}}}}
																																							if (BgL_test8257z00_23979)
																																								{	/* Read/reader.scm 409 */
																																									BgL_matchz00_9747
																																										=
																																										BgL_newzd2matchzd2_6886;
																																								}
																																							else
																																								{
																																									long
																																										BgL_bufposz00_24034;
																																									long
																																										BgL_forwardz00_24032;
																																									long
																																										BgL_lastzd2matchzd2_24031;
																																									obj_t
																																										BgL_iportz00_24030;
																																									BgL_iportz00_24030
																																										=
																																										BgL_iportz00_6881;
																																									BgL_lastzd2matchzd2_24031
																																										=
																																										BgL_newzd2matchzd2_6886;
																																									BgL_forwardz00_24032
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_6883);
																																									BgL_bufposz00_24034
																																										=
																																										BgL_bufposz00_6884;
																																									BgL_bufposz00_4963
																																										=
																																										BgL_bufposz00_24034;
																																									BgL_forwardz00_4962
																																										=
																																										BgL_forwardz00_24032;
																																									BgL_lastzd2matchzd2_4961
																																										=
																																										BgL_lastzd2matchzd2_24031;
																																									BgL_iportz00_4960
																																										=
																																										BgL_iportz00_24030;
																																									goto
																																										BgL_zc3z04anonymousza33439ze3z87_4964;
																																								}
																																						}
																																				}
																																		}
																																}
																															}
																													}
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													if (
																														((long)
																															(BgL_curz00_4573)
																															== 58L))
																														{
																															long
																																BgL_bufposz00_24043;
																															long
																																BgL_forwardz00_24041;
																															long
																																BgL_lastzd2matchzd2_24040;
																															obj_t
																																BgL_iportz00_24039;
																															BgL_iportz00_24039
																																=
																																BgL_iportz00_4563;
																															BgL_lastzd2matchzd2_24040
																																=
																																BgL_newzd2matchzd2_4568;
																															BgL_forwardz00_24041
																																=
																																(1L +
																																BgL_forwardz00_4565);
																															BgL_bufposz00_24043
																																=
																																BgL_bufposz00_4566;
																															BgL_bufposz00_6394
																																=
																																BgL_bufposz00_24043;
																															BgL_forwardz00_6393
																																=
																																BgL_forwardz00_24041;
																															BgL_lastzd2matchzd2_6392
																																=
																																BgL_lastzd2matchzd2_24040;
																															BgL_iportz00_6391
																																=
																																BgL_iportz00_24039;
																															goto
																																BgL_zc3z04anonymousza34167ze3z87_6395;
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															if (
																																((long)
																																	(BgL_curz00_4573)
																																	== 46L))
																																{
																																	long
																																		BgL_bufposz00_24051;
																																	long
																																		BgL_forwardz00_24049;
																																	long
																																		BgL_lastzd2matchzd2_24048;
																																	obj_t
																																		BgL_iportz00_24047;
																																	BgL_iportz00_24047
																																		=
																																		BgL_iportz00_4563;
																																	BgL_lastzd2matchzd2_24048
																																		=
																																		BgL_newzd2matchzd2_4568;
																																	BgL_forwardz00_24049
																																		=
																																		(1L +
																																		BgL_forwardz00_4565);
																																	BgL_bufposz00_24051
																																		=
																																		BgL_bufposz00_4566;
																																	BgL_bufposz00_3943
																																		=
																																		BgL_bufposz00_24051;
																																	BgL_forwardz00_3942
																																		=
																																		BgL_forwardz00_24049;
																																	BgL_lastzd2matchzd2_3941
																																		=
																																		BgL_lastzd2matchzd2_24048;
																																	BgL_iportz00_3940
																																		=
																																		BgL_iportz00_24047;
																																	goto
																																		BgL_zc3z04anonymousza32819ze3z87_3944;
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	bool_t
																																		BgL_test8276z00_24052;
																																	if (((long)
																																			(BgL_curz00_4573)
																																			== 39L))
																																		{	/* Read/reader.scm 409 */
																																			BgL_test8276z00_24052
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			if (
																																				((long)
																																					(BgL_curz00_4573)
																																					==
																																					44L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8276z00_24052
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8276z00_24052
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_4573)
																																						==
																																						96L);
																																		}}
																																	if (BgL_test8276z00_24052)
																																		{
																																			long
																																				BgL_bufposz00_24065;
																																			long
																																				BgL_forwardz00_24063;
																																			long
																																				BgL_lastzd2matchzd2_24062;
																																			obj_t
																																				BgL_iportz00_24061;
																																			BgL_iportz00_24061
																																				=
																																				BgL_iportz00_4563;
																																			BgL_lastzd2matchzd2_24062
																																				=
																																				BgL_newzd2matchzd2_4568;
																																			BgL_forwardz00_24063
																																				=
																																				(1L +
																																				BgL_forwardz00_4565);
																																			BgL_bufposz00_24065
																																				=
																																				BgL_bufposz00_4566;
																																			BgL_bufposz00_6105
																																				=
																																				BgL_bufposz00_24065;
																																			BgL_forwardz00_6104
																																				=
																																				BgL_forwardz00_24063;
																																			BgL_lastzd2matchzd2_6103
																																				=
																																				BgL_lastzd2matchzd2_24062;
																																			BgL_iportz00_6102
																																				=
																																				BgL_iportz00_24061;
																																			goto
																																				BgL_zc3z04anonymousza34018ze3z87_6106;
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			bool_t
																																				BgL_test8279z00_24066;
																																			if ((
																																					(long)
																																					(BgL_curz00_4573)
																																					<
																																					33L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8279z00_24066
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					bool_t
																																						BgL_test8281z00_24070;
																																					if ((
																																							(long)
																																							(BgL_curz00_4573)
																																							==
																																							35L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8281z00_24070
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8281z00_24070
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_4573)
																																								==
																																								34L);
																																						}
																																					if (BgL_test8281z00_24070)
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8279z00_24066
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							bool_t
																																								BgL_test8283z00_24076;
																																							if (((long) (BgL_curz00_4573) == 41L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8283z00_24076
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_4573) == 40L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8283z00_24076
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8283z00_24076
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_4573)
																																												==
																																												39L);
																																								}}
																																							if (BgL_test8283z00_24076)
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8279z00_24066
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_4573) == 44L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8279z00_24066
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											if (((long) (BgL_curz00_4573) == 46L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8279z00_24066
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													bool_t
																																														BgL_test8288z00_24091;
																																													if (((long) (BgL_curz00_4573) == 59L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8288z00_24091
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8288z00_24091
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_4573)
																																																==
																																																58L);
																																														}
																																													if (BgL_test8288z00_24091)
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8279z00_24066
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_4573) == 91L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8279z00_24066
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	if (((long) (BgL_curz00_4573) == 93L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8279z00_24066
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			if (((long) (BgL_curz00_4573) == 96L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8279z00_24066
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					if (((long) (BgL_curz00_4573) == 102L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8279z00_24066
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							bool_t
																																																								BgL_test8294z00_24109;
																																																							if (((long) (BgL_curz00_4573) == 125L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8294z00_24109
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									if (((long) (BgL_curz00_4573) == 124L))
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8294z00_24109
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8294z00_24109
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_4573)
																																																												==
																																																												123L);
																																																								}}
																																																							if (BgL_test8294z00_24109)
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8279z00_24066
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8279z00_24066
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_4573)
																																																										==
																																																										127L);
																																				}}}}}}}}}}}
																																			if (BgL_test8279z00_24066)
																																				{	/* Read/reader.scm 409 */
																																					BgL_matchz00_9747
																																						=
																																						BgL_newzd2matchzd2_4568;
																																				}
																																			else
																																				{
																																					long
																																						BgL_bufposz00_24124;
																																					long
																																						BgL_forwardz00_24122;
																																					long
																																						BgL_lastzd2matchzd2_24121;
																																					obj_t
																																						BgL_iportz00_24120;
																																					BgL_iportz00_24120
																																						=
																																						BgL_iportz00_4563;
																																					BgL_lastzd2matchzd2_24121
																																						=
																																						BgL_newzd2matchzd2_4568;
																																					BgL_forwardz00_24122
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_4565);
																																					BgL_bufposz00_24124
																																						=
																																						BgL_bufposz00_4566;
																																					BgL_bufposz00_4963
																																						=
																																						BgL_bufposz00_24124;
																																					BgL_forwardz00_4962
																																						=
																																						BgL_forwardz00_24122;
																																					BgL_lastzd2matchzd2_4961
																																						=
																																						BgL_lastzd2matchzd2_24121;
																																					BgL_iportz00_4960
																																						=
																																						BgL_iportz00_24120;
																																					goto
																																						BgL_zc3z04anonymousza33439ze3z87_4964;
																																				}
																																		}
																																}
																														}
																												}
																										}
																									}
																							}
																						}
																					else
																						{	/* Read/reader.scm 409 */
																							if (
																								((long) (BgL_curz00_9232) ==
																									58L))
																								{
																									long BgL_bufposz00_24133;
																									long BgL_forwardz00_24131;
																									long
																										BgL_lastzd2matchzd2_24130;
																									obj_t BgL_iportz00_24129;

																									BgL_iportz00_24129 =
																										BgL_iportz00_9222;
																									BgL_lastzd2matchzd2_24130 =
																										BgL_newzd2matchzd2_9227;
																									BgL_forwardz00_24131 =
																										(1L + BgL_forwardz00_9224);
																									BgL_bufposz00_24133 =
																										BgL_bufposz00_9225;
																									BgL_bufposz00_6394 =
																										BgL_bufposz00_24133;
																									BgL_forwardz00_6393 =
																										BgL_forwardz00_24131;
																									BgL_lastzd2matchzd2_6392 =
																										BgL_lastzd2matchzd2_24130;
																									BgL_iportz00_6391 =
																										BgL_iportz00_24129;
																									goto
																										BgL_zc3z04anonymousza34167ze3z87_6395;
																								}
																							else
																								{	/* Read/reader.scm 409 */
																									if (
																										((long) (BgL_curz00_9232) ==
																											46L))
																										{
																											long BgL_bufposz00_24141;
																											long BgL_forwardz00_24139;
																											long
																												BgL_lastzd2matchzd2_24138;
																											obj_t BgL_iportz00_24137;

																											BgL_iportz00_24137 =
																												BgL_iportz00_9222;
																											BgL_lastzd2matchzd2_24138
																												=
																												BgL_newzd2matchzd2_9227;
																											BgL_forwardz00_24139 =
																												(1L +
																												BgL_forwardz00_9224);
																											BgL_bufposz00_24141 =
																												BgL_bufposz00_9225;
																											BgL_bufposz00_3943 =
																												BgL_bufposz00_24141;
																											BgL_forwardz00_3942 =
																												BgL_forwardz00_24139;
																											BgL_lastzd2matchzd2_3941 =
																												BgL_lastzd2matchzd2_24138;
																											BgL_iportz00_3940 =
																												BgL_iportz00_24137;
																											goto
																												BgL_zc3z04anonymousza32819ze3z87_3944;
																										}
																									else
																										{	/* Read/reader.scm 409 */
																											bool_t
																												BgL_test8299z00_24142;
																											if (((long)
																													(BgL_curz00_9232) ==
																													39L))
																												{	/* Read/reader.scm 409 */
																													BgL_test8299z00_24142
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													if (
																														((long)
																															(BgL_curz00_9232)
																															== 44L))
																														{	/* Read/reader.scm 409 */
																															BgL_test8299z00_24142
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															BgL_test8299z00_24142
																																=
																																((long)
																																(BgL_curz00_9232)
																																== 96L);
																												}}
																											if (BgL_test8299z00_24142)
																												{
																													long
																														BgL_bufposz00_24155;
																													long
																														BgL_forwardz00_24153;
																													long
																														BgL_lastzd2matchzd2_24152;
																													obj_t
																														BgL_iportz00_24151;
																													BgL_iportz00_24151 =
																														BgL_iportz00_9222;
																													BgL_lastzd2matchzd2_24152
																														=
																														BgL_newzd2matchzd2_9227;
																													BgL_forwardz00_24153 =
																														(1L +
																														BgL_forwardz00_9224);
																													BgL_bufposz00_24155 =
																														BgL_bufposz00_9225;
																													BgL_bufposz00_6105 =
																														BgL_bufposz00_24155;
																													BgL_forwardz00_6104 =
																														BgL_forwardz00_24153;
																													BgL_lastzd2matchzd2_6103
																														=
																														BgL_lastzd2matchzd2_24152;
																													BgL_iportz00_6102 =
																														BgL_iportz00_24151;
																													goto
																														BgL_zc3z04anonymousza34018ze3z87_6106;
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													bool_t
																														BgL_test8302z00_24156;
																													if (((long)
																															(BgL_curz00_9232)
																															< 33L))
																														{	/* Read/reader.scm 409 */
																															BgL_test8302z00_24156
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															bool_t
																																BgL_test8304z00_24160;
																															if (((long)
																																	(BgL_curz00_9232)
																																	== 35L))
																																{	/* Read/reader.scm 409 */
																																	BgL_test8304z00_24160
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	BgL_test8304z00_24160
																																		=
																																		((long)
																																		(BgL_curz00_9232)
																																		== 34L);
																																}
																															if (BgL_test8304z00_24160)
																																{	/* Read/reader.scm 409 */
																																	BgL_test8302z00_24156
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	bool_t
																																		BgL_test8306z00_24166;
																																	if (((long)
																																			(BgL_curz00_9232)
																																			== 41L))
																																		{	/* Read/reader.scm 409 */
																																			BgL_test8306z00_24166
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			if (
																																				((long)
																																					(BgL_curz00_9232)
																																					==
																																					40L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8306z00_24166
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8306z00_24166
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_9232)
																																						==
																																						39L);
																																		}}
																																	if (BgL_test8306z00_24166)
																																		{	/* Read/reader.scm 409 */
																																			BgL_test8302z00_24156
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			if (
																																				((long)
																																					(BgL_curz00_9232)
																																					==
																																					44L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8302z00_24156
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					if (
																																						((long) (BgL_curz00_9232) == 46L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8302z00_24156
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							bool_t
																																								BgL_test8311z00_24181;
																																							if (((long) (BgL_curz00_9232) == 59L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8311z00_24181
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8311z00_24181
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_9232)
																																										==
																																										58L);
																																								}
																																							if (BgL_test8311z00_24181)
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8302z00_24156
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_9232) == 91L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8302z00_24156
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											if (((long) (BgL_curz00_9232) == 93L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8302z00_24156
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													if (((long) (BgL_curz00_9232) == 96L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8302z00_24156
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_9232) == 110L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8302z00_24156
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	bool_t
																																																		BgL_test8317z00_24199;
																																																	if (((long) (BgL_curz00_9232) == 125L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8317z00_24199
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			if (((long) (BgL_curz00_9232) == 124L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8317z00_24199
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8317z00_24199
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_9232)
																																																						==
																																																						123L);
																																																		}}
																																																	if (BgL_test8317z00_24199)
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8302z00_24156
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8302z00_24156
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_9232)
																																																				==
																																																				127L);
																														}}}}}}}}}}}
																													if (BgL_test8302z00_24156)
																														{	/* Read/reader.scm 409 */
																															BgL_matchz00_9747
																																=
																																BgL_newzd2matchzd2_9227;
																														}
																													else
																														{
																															long
																																BgL_bufposz00_24214;
																															long
																																BgL_forwardz00_24212;
																															long
																																BgL_lastzd2matchzd2_24211;
																															obj_t
																																BgL_iportz00_24210;
																															BgL_iportz00_24210
																																=
																																BgL_iportz00_9222;
																															BgL_lastzd2matchzd2_24211
																																=
																																BgL_newzd2matchzd2_9227;
																															BgL_forwardz00_24212
																																=
																																(1L +
																																BgL_forwardz00_9224);
																															BgL_bufposz00_24214
																																=
																																BgL_bufposz00_9225;
																															BgL_bufposz00_4963
																																=
																																BgL_bufposz00_24214;
																															BgL_forwardz00_4962
																																=
																																BgL_forwardz00_24212;
																															BgL_lastzd2matchzd2_4961
																																=
																																BgL_lastzd2matchzd2_24211;
																															BgL_iportz00_4960
																																=
																																BgL_iportz00_24210;
																															goto
																																BgL_zc3z04anonymousza33439ze3z87_4964;
																														}
																												}
																										}
																								}
																						}
																				}
																			}
																	}
																}
															else
																{	/* Read/reader.scm 409 */
																	if (((long) (BgL_curz00_4644) == 58L))
																		{
																			long BgL_bufposz00_24223;
																			long BgL_forwardz00_24221;
																			long BgL_lastzd2matchzd2_24220;
																			obj_t BgL_iportz00_24219;

																			BgL_iportz00_24219 = BgL_iportz00_4634;
																			BgL_lastzd2matchzd2_24220 =
																				BgL_newzd2matchzd2_4639;
																			BgL_forwardz00_24221 =
																				(1L + BgL_forwardz00_4636);
																			BgL_bufposz00_24223 = BgL_bufposz00_4637;
																			BgL_bufposz00_6394 = BgL_bufposz00_24223;
																			BgL_forwardz00_6393 =
																				BgL_forwardz00_24221;
																			BgL_lastzd2matchzd2_6392 =
																				BgL_lastzd2matchzd2_24220;
																			BgL_iportz00_6391 = BgL_iportz00_24219;
																			goto
																				BgL_zc3z04anonymousza34167ze3z87_6395;
																		}
																	else
																		{	/* Read/reader.scm 409 */
																			bool_t BgL_test8321z00_24224;

																			if (((long) (BgL_curz00_4644) >= 48L))
																				{	/* Read/reader.scm 409 */
																					BgL_test8321z00_24224 =
																						((long) (BgL_curz00_4644) < 58L);
																				}
																			else
																				{	/* Read/reader.scm 409 */
																					BgL_test8321z00_24224 = ((bool_t) 0);
																				}
																			if (BgL_test8321z00_24224)
																				{	/* Read/reader.scm 409 */
																					BgL_iportz00_4005 = BgL_iportz00_4634;
																					BgL_lastzd2matchzd2_4006 =
																						BgL_newzd2matchzd2_4639;
																					BgL_forwardz00_4007 =
																						(1L + BgL_forwardz00_4636);
																					BgL_bufposz00_4008 =
																						BgL_bufposz00_4637;
																				BgL_zc3z04anonymousza32854ze3z87_4009:
																					{	/* Read/reader.scm 409 */
																						long BgL_newzd2matchzd2_4010;

																						{	/* Read/reader.scm 409 */
																							obj_t BgL_tmpz00_24230;

																							BgL_tmpz00_24230 =
																								((obj_t) BgL_iportz00_4005);
																							RGC_STOP_MATCH(BgL_tmpz00_24230,
																								BgL_forwardz00_4007);
																						}
																						BgL_newzd2matchzd2_4010 = 12L;
																						if (
																							(BgL_forwardz00_4007 ==
																								BgL_bufposz00_4008))
																							{	/* Read/reader.scm 409 */
																								if (rgc_fill_buffer(
																										((obj_t)
																											BgL_iportz00_4005)))
																									{	/* Read/reader.scm 409 */
																										long BgL_arg2857z00_4013;
																										long BgL_arg2858z00_4014;

																										{	/* Read/reader.scm 409 */
																											obj_t BgL_tmpz00_24238;

																											BgL_tmpz00_24238 =
																												((obj_t)
																												BgL_iportz00_4005);
																											BgL_arg2857z00_4013 =
																												RGC_BUFFER_FORWARD
																												(BgL_tmpz00_24238);
																										}
																										{	/* Read/reader.scm 409 */
																											obj_t BgL_tmpz00_24241;

																											BgL_tmpz00_24241 =
																												((obj_t)
																												BgL_iportz00_4005);
																											BgL_arg2858z00_4014 =
																												RGC_BUFFER_BUFPOS
																												(BgL_tmpz00_24241);
																										}
																										{
																											long BgL_bufposz00_24245;
																											long BgL_forwardz00_24244;

																											BgL_forwardz00_24244 =
																												BgL_arg2857z00_4013;
																											BgL_bufposz00_24245 =
																												BgL_arg2858z00_4014;
																											BgL_bufposz00_4008 =
																												BgL_bufposz00_24245;
																											BgL_forwardz00_4007 =
																												BgL_forwardz00_24244;
																											goto
																												BgL_zc3z04anonymousza32854ze3z87_4009;
																										}
																									}
																								else
																									{	/* Read/reader.scm 409 */
																										BgL_matchz00_9747 =
																											BgL_newzd2matchzd2_4010;
																									}
																							}
																						else
																							{	/* Read/reader.scm 409 */
																								int BgL_curz00_4015;

																								{	/* Read/reader.scm 409 */
																									obj_t BgL_tmpz00_24246;

																									BgL_tmpz00_24246 =
																										((obj_t) BgL_iportz00_4005);
																									BgL_curz00_4015 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_tmpz00_24246,
																										BgL_forwardz00_4007);
																								}
																								{	/* Read/reader.scm 409 */

																									{	/* Read/reader.scm 409 */
																										bool_t
																											BgL_test8325z00_24249;
																										if (((long)
																												(BgL_curz00_4015) ==
																												69L))
																											{	/* Read/reader.scm 409 */
																												BgL_test8325z00_24249 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Read/reader.scm 409 */
																												BgL_test8325z00_24249 =
																													(
																													(long)
																													(BgL_curz00_4015) ==
																													101L);
																											}
																										if (BgL_test8325z00_24249)
																											{
																												long
																													BgL_bufposz00_24259;
																												long
																													BgL_forwardz00_24257;
																												long
																													BgL_lastzd2matchzd2_24256;
																												obj_t
																													BgL_iportz00_24255;
																												BgL_iportz00_24255 =
																													BgL_iportz00_4005;
																												BgL_lastzd2matchzd2_24256
																													=
																													BgL_newzd2matchzd2_4010;
																												BgL_forwardz00_24257 =
																													(1L +
																													BgL_forwardz00_4007);
																												BgL_bufposz00_24259 =
																													BgL_bufposz00_4008;
																												BgL_bufposz00_5560 =
																													BgL_bufposz00_24259;
																												BgL_forwardz00_5559 =
																													BgL_forwardz00_24257;
																												BgL_lastzd2matchzd2_5558
																													=
																													BgL_lastzd2matchzd2_24256;
																												BgL_iportz00_5557 =
																													BgL_iportz00_24255;
																												goto
																													BgL_zc3z04anonymousza33748ze3z87_5561;
																											}
																										else
																											{	/* Read/reader.scm 409 */
																												if (
																													((long)
																														(BgL_curz00_4015) ==
																														58L))
																													{
																														long
																															BgL_bufposz00_24267;
																														long
																															BgL_forwardz00_24265;
																														long
																															BgL_lastzd2matchzd2_24264;
																														obj_t
																															BgL_iportz00_24263;
																														BgL_iportz00_24263 =
																															BgL_iportz00_4005;
																														BgL_lastzd2matchzd2_24264
																															=
																															BgL_newzd2matchzd2_4010;
																														BgL_forwardz00_24265
																															=
																															(1L +
																															BgL_forwardz00_4007);
																														BgL_bufposz00_24267
																															=
																															BgL_bufposz00_4008;
																														BgL_bufposz00_6394 =
																															BgL_bufposz00_24267;
																														BgL_forwardz00_6393
																															=
																															BgL_forwardz00_24265;
																														BgL_lastzd2matchzd2_6392
																															=
																															BgL_lastzd2matchzd2_24264;
																														BgL_iportz00_6391 =
																															BgL_iportz00_24263;
																														goto
																															BgL_zc3z04anonymousza34167ze3z87_6395;
																													}
																												else
																													{	/* Read/reader.scm 409 */
																														bool_t
																															BgL_test8328z00_24268;
																														if (((long)
																																(BgL_curz00_4015)
																																>= 48L))
																															{	/* Read/reader.scm 409 */
																																BgL_test8328z00_24268
																																	=
																																	((long)
																																	(BgL_curz00_4015)
																																	< 58L);
																															}
																														else
																															{	/* Read/reader.scm 409 */
																																BgL_test8328z00_24268
																																	=
																																	((bool_t) 0);
																															}
																														if (BgL_test8328z00_24268)
																															{
																																long
																																	BgL_forwardz00_24275;
																																long
																																	BgL_lastzd2matchzd2_24274;
																																BgL_lastzd2matchzd2_24274
																																	=
																																	BgL_newzd2matchzd2_4010;
																																BgL_forwardz00_24275
																																	=
																																	(1L +
																																	BgL_forwardz00_4007);
																																BgL_forwardz00_4007
																																	=
																																	BgL_forwardz00_24275;
																																BgL_lastzd2matchzd2_4006
																																	=
																																	BgL_lastzd2matchzd2_24274;
																																goto
																																	BgL_zc3z04anonymousza32854ze3z87_4009;
																															}
																														else
																															{	/* Read/reader.scm 409 */
																																if (
																																	((long)
																																		(BgL_curz00_4015)
																																		== 46L))
																																	{	/* Read/reader.scm 409 */
																																		BgL_iportz00_6145
																																			=
																																			BgL_iportz00_4005;
																																		BgL_lastzd2matchzd2_6146
																																			=
																																			BgL_newzd2matchzd2_4010;
																																		BgL_forwardz00_6147
																																			=
																																			(1L +
																																			BgL_forwardz00_4007);
																																		BgL_bufposz00_6148
																																			=
																																			BgL_bufposz00_4008;
																																	BgL_zc3z04anonymousza34039ze3z87_6149:
																																		{	/* Read/reader.scm 409 */
																																			long
																																				BgL_newzd2matchzd2_6150;
																																			{	/* Read/reader.scm 409 */
																																				obj_t
																																					BgL_tmpz00_24280;
																																				BgL_tmpz00_24280
																																					=
																																					(
																																					(obj_t)
																																					BgL_iportz00_6145);
																																				RGC_STOP_MATCH
																																					(BgL_tmpz00_24280,
																																					BgL_forwardz00_6147);
																																			}
																																			BgL_newzd2matchzd2_6150
																																				= 13L;
																																			if (
																																				(BgL_forwardz00_6147
																																					==
																																					BgL_bufposz00_6148))
																																				{	/* Read/reader.scm 409 */
																																					if (rgc_fill_buffer(((obj_t) BgL_iportz00_6145)))
																																						{	/* Read/reader.scm 409 */
																																							long
																																								BgL_arg4042z00_6153;
																																							long
																																								BgL_arg4043z00_6154;
																																							{	/* Read/reader.scm 409 */
																																								obj_t
																																									BgL_tmpz00_24288;
																																								BgL_tmpz00_24288
																																									=
																																									(
																																									(obj_t)
																																									BgL_iportz00_6145);
																																								BgL_arg4042z00_6153
																																									=
																																									RGC_BUFFER_FORWARD
																																									(BgL_tmpz00_24288);
																																							}
																																							{	/* Read/reader.scm 409 */
																																								obj_t
																																									BgL_tmpz00_24291;
																																								BgL_tmpz00_24291
																																									=
																																									(
																																									(obj_t)
																																									BgL_iportz00_6145);
																																								BgL_arg4043z00_6154
																																									=
																																									RGC_BUFFER_BUFPOS
																																									(BgL_tmpz00_24291);
																																							}
																																							{
																																								long
																																									BgL_bufposz00_24295;
																																								long
																																									BgL_forwardz00_24294;
																																								BgL_forwardz00_24294
																																									=
																																									BgL_arg4042z00_6153;
																																								BgL_bufposz00_24295
																																									=
																																									BgL_arg4043z00_6154;
																																								BgL_bufposz00_6148
																																									=
																																									BgL_bufposz00_24295;
																																								BgL_forwardz00_6147
																																									=
																																									BgL_forwardz00_24294;
																																								goto
																																									BgL_zc3z04anonymousza34039ze3z87_6149;
																																							}
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							BgL_matchz00_9747
																																								=
																																								BgL_newzd2matchzd2_6150;
																																						}
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					int
																																						BgL_curz00_6155;
																																					{	/* Read/reader.scm 409 */
																																						obj_t
																																							BgL_tmpz00_24296;
																																						BgL_tmpz00_24296
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_6145);
																																						BgL_curz00_6155
																																							=
																																							RGC_BUFFER_GET_CHAR
																																							(BgL_tmpz00_24296,
																																							BgL_forwardz00_6147);
																																					}
																																					{	/* Read/reader.scm 409 */

																																						{	/* Read/reader.scm 409 */
																																							bool_t
																																								BgL_test8333z00_24299;
																																							if (((long) (BgL_curz00_6155) == 69L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8333z00_24299
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8333z00_24299
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_6155)
																																										==
																																										101L);
																																								}
																																							if (BgL_test8333z00_24299)
																																								{	/* Read/reader.scm 409 */
																																									BgL_iportz00_7733
																																										=
																																										BgL_iportz00_6145;
																																									BgL_lastzd2matchzd2_7734
																																										=
																																										BgL_newzd2matchzd2_6150;
																																									BgL_forwardz00_7735
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_6147);
																																									BgL_bufposz00_7736
																																										=
																																										BgL_bufposz00_6148;
																																								BgL_zc3z04anonymousza34855ze3z87_7737:
																																									{	/* Read/reader.scm 409 */
																																										long
																																											BgL_newzd2matchzd2_7738;
																																										{	/* Read/reader.scm 409 */
																																											obj_t
																																												BgL_tmpz00_24305;
																																											BgL_tmpz00_24305
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_7733);
																																											RGC_STOP_MATCH
																																												(BgL_tmpz00_24305,
																																												BgL_forwardz00_7735);
																																										}
																																										BgL_newzd2matchzd2_7738
																																											=
																																											21L;
																																										if ((BgL_forwardz00_7735 == BgL_bufposz00_7736))
																																											{	/* Read/reader.scm 409 */
																																												if (rgc_fill_buffer(((obj_t) BgL_iportz00_7733)))
																																													{	/* Read/reader.scm 409 */
																																														long
																																															BgL_arg4858z00_7741;
																																														long
																																															BgL_arg4859z00_7742;
																																														{	/* Read/reader.scm 409 */
																																															obj_t
																																																BgL_tmpz00_24313;
																																															BgL_tmpz00_24313
																																																=
																																																(
																																																(obj_t)
																																																BgL_iportz00_7733);
																																															BgL_arg4858z00_7741
																																																=
																																																RGC_BUFFER_FORWARD
																																																(BgL_tmpz00_24313);
																																														}
																																														{	/* Read/reader.scm 409 */
																																															obj_t
																																																BgL_tmpz00_24316;
																																															BgL_tmpz00_24316
																																																=
																																																(
																																																(obj_t)
																																																BgL_iportz00_7733);
																																															BgL_arg4859z00_7742
																																																=
																																																RGC_BUFFER_BUFPOS
																																																(BgL_tmpz00_24316);
																																														}
																																														{
																																															long
																																																BgL_bufposz00_24320;
																																															long
																																																BgL_forwardz00_24319;
																																															BgL_forwardz00_24319
																																																=
																																																BgL_arg4858z00_7741;
																																															BgL_bufposz00_24320
																																																=
																																																BgL_arg4859z00_7742;
																																															BgL_bufposz00_7736
																																																=
																																																BgL_bufposz00_24320;
																																															BgL_forwardz00_7735
																																																=
																																																BgL_forwardz00_24319;
																																															goto
																																																BgL_zc3z04anonymousza34855ze3z87_7737;
																																														}
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														BgL_matchz00_9747
																																															=
																																															BgL_newzd2matchzd2_7738;
																																													}
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												int
																																													BgL_curz00_7743;
																																												{	/* Read/reader.scm 409 */
																																													obj_t
																																														BgL_tmpz00_24321;
																																													BgL_tmpz00_24321
																																														=
																																														(
																																														(obj_t)
																																														BgL_iportz00_7733);
																																													BgL_curz00_7743
																																														=
																																														RGC_BUFFER_GET_CHAR
																																														(BgL_tmpz00_24321,
																																														BgL_forwardz00_7735);
																																												}
																																												{	/* Read/reader.scm 409 */

																																													if (((long) (BgL_curz00_7743) == 58L))
																																														{
																																															long
																																																BgL_bufposz00_24331;
																																															long
																																																BgL_forwardz00_24329;
																																															long
																																																BgL_lastzd2matchzd2_24328;
																																															obj_t
																																																BgL_iportz00_24327;
																																															BgL_iportz00_24327
																																																=
																																																BgL_iportz00_7733;
																																															BgL_lastzd2matchzd2_24328
																																																=
																																																BgL_newzd2matchzd2_7738;
																																															BgL_forwardz00_24329
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_7735);
																																															BgL_bufposz00_24331
																																																=
																																																BgL_bufposz00_7736;
																																															BgL_bufposz00_7304
																																																=
																																																BgL_bufposz00_24331;
																																															BgL_forwardz00_7303
																																																=
																																																BgL_forwardz00_24329;
																																															BgL_lastzd2matchzd2_7302
																																																=
																																																BgL_lastzd2matchzd2_24328;
																																															BgL_iportz00_7301
																																																=
																																																BgL_iportz00_24327;
																																															goto
																																																BgL_zc3z04anonymousza34639ze3z87_7305;
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															bool_t
																																																BgL_test8338z00_24332;
																																															if (((long) (BgL_curz00_7743) >= 48L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8338z00_24332
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_7743)
																																																		<
																																																		58L);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8338z00_24332
																																																		=
																																																		(
																																																		(bool_t)
																																																		0);
																																																}
																																															if (BgL_test8338z00_24332)
																																																{	/* Read/reader.scm 409 */
																																																	BgL_iportz00_4811
																																																		=
																																																		BgL_iportz00_7733;
																																																	BgL_lastzd2matchzd2_4812
																																																		=
																																																		BgL_newzd2matchzd2_7738;
																																																	BgL_forwardz00_4813
																																																		=
																																																		(1L
																																																		+
																																																		BgL_forwardz00_7735);
																																																	BgL_bufposz00_4814
																																																		=
																																																		BgL_bufposz00_7736;
																																																BgL_zc3z04anonymousza33358ze3z87_4815:
																																																	{	/* Read/reader.scm 409 */
																																																		long
																																																			BgL_newzd2matchzd2_4816;
																																																		{	/* Read/reader.scm 409 */
																																																			obj_t
																																																				BgL_tmpz00_24338;
																																																			BgL_tmpz00_24338
																																																				=
																																																				(
																																																				(obj_t)
																																																				BgL_iportz00_4811);
																																																			RGC_STOP_MATCH
																																																				(BgL_tmpz00_24338,
																																																				BgL_forwardz00_4813);
																																																		}
																																																		BgL_newzd2matchzd2_4816
																																																			=
																																																			13L;
																																																		if ((BgL_forwardz00_4813 == BgL_bufposz00_4814))
																																																			{	/* Read/reader.scm 409 */
																																																				if (rgc_fill_buffer(((obj_t) BgL_iportz00_4811)))
																																																					{	/* Read/reader.scm 409 */
																																																						long
																																																							BgL_arg3362z00_4819;
																																																						long
																																																							BgL_arg3363z00_4820;
																																																						{	/* Read/reader.scm 409 */
																																																							obj_t
																																																								BgL_tmpz00_24346;
																																																							BgL_tmpz00_24346
																																																								=
																																																								(
																																																								(obj_t)
																																																								BgL_iportz00_4811);
																																																							BgL_arg3362z00_4819
																																																								=
																																																								RGC_BUFFER_FORWARD
																																																								(BgL_tmpz00_24346);
																																																						}
																																																						{	/* Read/reader.scm 409 */
																																																							obj_t
																																																								BgL_tmpz00_24349;
																																																							BgL_tmpz00_24349
																																																								=
																																																								(
																																																								(obj_t)
																																																								BgL_iportz00_4811);
																																																							BgL_arg3363z00_4820
																																																								=
																																																								RGC_BUFFER_BUFPOS
																																																								(BgL_tmpz00_24349);
																																																						}
																																																						{
																																																							long
																																																								BgL_bufposz00_24353;
																																																							long
																																																								BgL_forwardz00_24352;
																																																							BgL_forwardz00_24352
																																																								=
																																																								BgL_arg3362z00_4819;
																																																							BgL_bufposz00_24353
																																																								=
																																																								BgL_arg3363z00_4820;
																																																							BgL_bufposz00_4814
																																																								=
																																																								BgL_bufposz00_24353;
																																																							BgL_forwardz00_4813
																																																								=
																																																								BgL_forwardz00_24352;
																																																							goto
																																																								BgL_zc3z04anonymousza33358ze3z87_4815;
																																																						}
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_matchz00_9747
																																																							=
																																																							BgL_newzd2matchzd2_4816;
																																																					}
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				int
																																																					BgL_curz00_4821;
																																																				{	/* Read/reader.scm 409 */
																																																					obj_t
																																																						BgL_tmpz00_24354;
																																																					BgL_tmpz00_24354
																																																						=
																																																						(
																																																						(obj_t)
																																																						BgL_iportz00_4811);
																																																					BgL_curz00_4821
																																																						=
																																																						RGC_BUFFER_GET_CHAR
																																																						(BgL_tmpz00_24354,
																																																						BgL_forwardz00_4813);
																																																				}
																																																				{	/* Read/reader.scm 409 */

																																																					if (((long) (BgL_curz00_4821) == 58L))
																																																						{
																																																							long
																																																								BgL_bufposz00_24364;
																																																							long
																																																								BgL_forwardz00_24362;
																																																							long
																																																								BgL_lastzd2matchzd2_24361;
																																																							obj_t
																																																								BgL_iportz00_24360;
																																																							BgL_iportz00_24360
																																																								=
																																																								BgL_iportz00_4811;
																																																							BgL_lastzd2matchzd2_24361
																																																								=
																																																								BgL_newzd2matchzd2_4816;
																																																							BgL_forwardz00_24362
																																																								=
																																																								(1L
																																																								+
																																																								BgL_forwardz00_4813);
																																																							BgL_bufposz00_24364
																																																								=
																																																								BgL_bufposz00_4814;
																																																							BgL_bufposz00_7304
																																																								=
																																																								BgL_bufposz00_24364;
																																																							BgL_forwardz00_7303
																																																								=
																																																								BgL_forwardz00_24362;
																																																							BgL_lastzd2matchzd2_7302
																																																								=
																																																								BgL_lastzd2matchzd2_24361;
																																																							BgL_iportz00_7301
																																																								=
																																																								BgL_iportz00_24360;
																																																							goto
																																																								BgL_zc3z04anonymousza34639ze3z87_7305;
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							bool_t
																																																								BgL_test8343z00_24365;
																																																							if (((long) (BgL_curz00_4821) >= 48L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8343z00_24365
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_4821)
																																																										<
																																																										58L);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8343z00_24365
																																																										=
																																																										(
																																																										(bool_t)
																																																										0);
																																																								}
																																																							if (BgL_test8343z00_24365)
																																																								{
																																																									long
																																																										BgL_forwardz00_24372;
																																																									long
																																																										BgL_lastzd2matchzd2_24371;
																																																									BgL_lastzd2matchzd2_24371
																																																										=
																																																										BgL_newzd2matchzd2_4816;
																																																									BgL_forwardz00_24372
																																																										=
																																																										(1L
																																																										+
																																																										BgL_forwardz00_4813);
																																																									BgL_forwardz00_4813
																																																										=
																																																										BgL_forwardz00_24372;
																																																									BgL_lastzd2matchzd2_4812
																																																										=
																																																										BgL_lastzd2matchzd2_24371;
																																																									goto
																																																										BgL_zc3z04anonymousza33358ze3z87_4815;
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									if (((long) (BgL_curz00_4821) == 46L))
																																																										{
																																																											long
																																																												BgL_bufposz00_24381;
																																																											long
																																																												BgL_forwardz00_24379;
																																																											long
																																																												BgL_lastzd2matchzd2_24378;
																																																											obj_t
																																																												BgL_iportz00_24377;
																																																											BgL_iportz00_24377
																																																												=
																																																												BgL_iportz00_4811;
																																																											BgL_lastzd2matchzd2_24378
																																																												=
																																																												BgL_newzd2matchzd2_4816;
																																																											BgL_forwardz00_24379
																																																												=
																																																												(1L
																																																												+
																																																												BgL_forwardz00_4813);
																																																											BgL_bufposz00_24381
																																																												=
																																																												BgL_bufposz00_4814;
																																																											BgL_bufposz00_6329
																																																												=
																																																												BgL_bufposz00_24381;
																																																											BgL_forwardz00_6328
																																																												=
																																																												BgL_forwardz00_24379;
																																																											BgL_lastzd2matchzd2_6327
																																																												=
																																																												BgL_lastzd2matchzd2_24378;
																																																											BgL_iportz00_6326
																																																												=
																																																												BgL_iportz00_24377;
																																																											goto
																																																												BgL_zc3z04anonymousza34133ze3z87_6330;
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											bool_t
																																																												BgL_test8346z00_24382;
																																																											if (((long) (BgL_curz00_4821) == 39L))
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8346z00_24382
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													if (((long) (BgL_curz00_4821) == 44L))
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8346z00_24382
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8346z00_24382
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_4821)
																																																																==
																																																																96L);
																																																												}}
																																																											if (BgL_test8346z00_24382)
																																																												{
																																																													long
																																																														BgL_bufposz00_24395;
																																																													long
																																																														BgL_forwardz00_24393;
																																																													long
																																																														BgL_lastzd2matchzd2_24392;
																																																													obj_t
																																																														BgL_iportz00_24391;
																																																													BgL_iportz00_24391
																																																														=
																																																														BgL_iportz00_4811;
																																																													BgL_lastzd2matchzd2_24392
																																																														=
																																																														BgL_newzd2matchzd2_4816;
																																																													BgL_forwardz00_24393
																																																														=
																																																														(1L
																																																														+
																																																														BgL_forwardz00_4813);
																																																													BgL_bufposz00_24395
																																																														=
																																																														BgL_bufposz00_4814;
																																																													BgL_bufposz00_7550
																																																														=
																																																														BgL_bufposz00_24395;
																																																													BgL_forwardz00_7549
																																																														=
																																																														BgL_forwardz00_24393;
																																																													BgL_lastzd2matchzd2_7548
																																																														=
																																																														BgL_lastzd2matchzd2_24392;
																																																													BgL_iportz00_7547
																																																														=
																																																														BgL_iportz00_24391;
																																																													goto
																																																														BgL_zc3z04anonymousza34766ze3z87_7551;
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													bool_t
																																																														BgL_test8349z00_24396;
																																																													if (((long) (BgL_curz00_4821) < 33L))
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8349z00_24396
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															bool_t
																																																																BgL_test8351z00_24400;
																																																															if (((long) (BgL_curz00_4821) == 35L))
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test8351z00_24400
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test8351z00_24400
																																																																		=
																																																																		(
																																																																		(long)
																																																																		(BgL_curz00_4821)
																																																																		==
																																																																		34L);
																																																																}
																																																															if (BgL_test8351z00_24400)
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test8349z00_24396
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	bool_t
																																																																		BgL_test8353z00_24406;
																																																																	if (((long) (BgL_curz00_4821) == 41L))
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test8353z00_24406
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 409 */
																																																																			if (((long) (BgL_curz00_4821) == 40L))
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test8353z00_24406
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test8353z00_24406
																																																																						=
																																																																						(
																																																																						(long)
																																																																						(BgL_curz00_4821)
																																																																						==
																																																																						39L);
																																																																		}}
																																																																	if (BgL_test8353z00_24406)
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test8349z00_24396
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 409 */
																																																																			if (((long) (BgL_curz00_4821) == 44L))
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test8349z00_24396
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 409 */
																																																																					if (((long) (BgL_curz00_4821) == 46L))
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test8349z00_24396
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 409 */
																																																																							bool_t
																																																																								BgL_test8358z00_24421;
																																																																							if (((long) (BgL_curz00_4821) >= 48L))
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8358z00_24421
																																																																										=
																																																																										(
																																																																										(long)
																																																																										(BgL_curz00_4821)
																																																																										<
																																																																										60L);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8358z00_24421
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										0);
																																																																								}
																																																																							if (BgL_test8358z00_24421)
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8349z00_24396
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 409 */
																																																																									if (((long) (BgL_curz00_4821) == 91L))
																																																																										{	/* Read/reader.scm 409 */
																																																																											BgL_test8349z00_24396
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 409 */
																																																																											if (((long) (BgL_curz00_4821) == 93L))
																																																																												{	/* Read/reader.scm 409 */
																																																																													BgL_test8349z00_24396
																																																																														=
																																																																														(
																																																																														(bool_t)
																																																																														1);
																																																																												}
																																																																											else
																																																																												{	/* Read/reader.scm 409 */
																																																																													if (((long) (BgL_curz00_4821) == 96L))
																																																																														{	/* Read/reader.scm 409 */
																																																																															BgL_test8349z00_24396
																																																																																=
																																																																																(
																																																																																(bool_t)
																																																																																1);
																																																																														}
																																																																													else
																																																																														{	/* Read/reader.scm 409 */
																																																																															bool_t
																																																																																BgL_test8363z00_24436;
																																																																															if (((long) (BgL_curz00_4821) == 125L))
																																																																																{	/* Read/reader.scm 409 */
																																																																																	BgL_test8363z00_24436
																																																																																		=
																																																																																		(
																																																																																		(bool_t)
																																																																																		1);
																																																																																}
																																																																															else
																																																																																{	/* Read/reader.scm 409 */
																																																																																	if (((long) (BgL_curz00_4821) == 124L))
																																																																																		{	/* Read/reader.scm 409 */
																																																																																			BgL_test8363z00_24436
																																																																																				=
																																																																																				(
																																																																																				(bool_t)
																																																																																				1);
																																																																																		}
																																																																																	else
																																																																																		{	/* Read/reader.scm 409 */
																																																																																			BgL_test8363z00_24436
																																																																																				=
																																																																																				(
																																																																																				(long)
																																																																																				(BgL_curz00_4821)
																																																																																				==
																																																																																				123L);
																																																																																}}
																																																																															if (BgL_test8363z00_24436)
																																																																																{	/* Read/reader.scm 409 */
																																																																																	BgL_test8349z00_24396
																																																																																		=
																																																																																		(
																																																																																		(bool_t)
																																																																																		1);
																																																																																}
																																																																															else
																																																																																{	/* Read/reader.scm 409 */
																																																																																	BgL_test8349z00_24396
																																																																																		=
																																																																																		(
																																																																																		(long)
																																																																																		(BgL_curz00_4821)
																																																																																		==
																																																																																		127L);
																																																														}}}}}}}}}}
																																																													if (BgL_test8349z00_24396)
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_matchz00_9747
																																																																=
																																																																BgL_newzd2matchzd2_4816;
																																																														}
																																																													else
																																																														{
																																																															long
																																																																BgL_bufposz00_24451;
																																																															long
																																																																BgL_forwardz00_24449;
																																																															long
																																																																BgL_lastzd2matchzd2_24448;
																																																															obj_t
																																																																BgL_iportz00_24447;
																																																															BgL_iportz00_24447
																																																																=
																																																																BgL_iportz00_4811;
																																																															BgL_lastzd2matchzd2_24448
																																																																=
																																																																BgL_newzd2matchzd2_4816;
																																																															BgL_forwardz00_24449
																																																																=
																																																																(1L
																																																																+
																																																																BgL_forwardz00_4813);
																																																															BgL_bufposz00_24451
																																																																=
																																																																BgL_bufposz00_4814;
																																																															BgL_bufposz00_5103
																																																																=
																																																																BgL_bufposz00_24451;
																																																															BgL_forwardz00_5102
																																																																=
																																																																BgL_forwardz00_24449;
																																																															BgL_lastzd2matchzd2_5101
																																																																=
																																																																BgL_lastzd2matchzd2_24448;
																																																															BgL_iportz00_5100
																																																																=
																																																																BgL_iportz00_24447;
																																																															goto
																																																																BgL_zc3z04anonymousza33512ze3z87_5104;
																																																														}
																																																												}
																																																										}
																																																								}
																																																						}
																																																				}
																																																			}
																																																	}
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	if (((long) (BgL_curz00_7743) == 46L))
																																																		{
																																																			long
																																																				BgL_bufposz00_24460;
																																																			long
																																																				BgL_forwardz00_24458;
																																																			long
																																																				BgL_lastzd2matchzd2_24457;
																																																			obj_t
																																																				BgL_iportz00_24456;
																																																			BgL_iportz00_24456
																																																				=
																																																				BgL_iportz00_7733;
																																																			BgL_lastzd2matchzd2_24457
																																																				=
																																																				BgL_newzd2matchzd2_7738;
																																																			BgL_forwardz00_24458
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_7735);
																																																			BgL_bufposz00_24460
																																																				=
																																																				BgL_bufposz00_7736;
																																																			BgL_bufposz00_6329
																																																				=
																																																				BgL_bufposz00_24460;
																																																			BgL_forwardz00_6328
																																																				=
																																																				BgL_forwardz00_24458;
																																																			BgL_lastzd2matchzd2_6327
																																																				=
																																																				BgL_lastzd2matchzd2_24457;
																																																			BgL_iportz00_6326
																																																				=
																																																				BgL_iportz00_24456;
																																																			goto
																																																				BgL_zc3z04anonymousza34133ze3z87_6330;
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			bool_t
																																																				BgL_test8367z00_24461;
																																																			if (((long) (BgL_curz00_7743) == 43L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8367z00_24461
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8367z00_24461
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_7743)
																																																						==
																																																						45L);
																																																				}
																																																			if (BgL_test8367z00_24461)
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_iportz00_5891
																																																						=
																																																						BgL_iportz00_7733;
																																																					BgL_lastzd2matchzd2_5892
																																																						=
																																																						BgL_newzd2matchzd2_7738;
																																																					BgL_forwardz00_5893
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_7735);
																																																					BgL_bufposz00_5894
																																																						=
																																																						BgL_bufposz00_7736;
																																																				BgL_zc3z04anonymousza33918ze3z87_5895:
																																																					{	/* Read/reader.scm 409 */
																																																						long
																																																							BgL_newzd2matchzd2_5896;
																																																						{	/* Read/reader.scm 409 */
																																																							obj_t
																																																								BgL_tmpz00_24467;
																																																							BgL_tmpz00_24467
																																																								=
																																																								(
																																																								(obj_t)
																																																								BgL_iportz00_5891);
																																																							RGC_STOP_MATCH
																																																								(BgL_tmpz00_24467,
																																																								BgL_forwardz00_5893);
																																																						}
																																																						BgL_newzd2matchzd2_5896
																																																							=
																																																							21L;
																																																						if ((BgL_forwardz00_5893 == BgL_bufposz00_5894))
																																																							{	/* Read/reader.scm 409 */
																																																								if (rgc_fill_buffer(((obj_t) BgL_iportz00_5891)))
																																																									{	/* Read/reader.scm 409 */
																																																										long
																																																											BgL_arg3921z00_5899;
																																																										long
																																																											BgL_arg3922z00_5900;
																																																										{	/* Read/reader.scm 409 */
																																																											obj_t
																																																												BgL_tmpz00_24475;
																																																											BgL_tmpz00_24475
																																																												=
																																																												(
																																																												(obj_t)
																																																												BgL_iportz00_5891);
																																																											BgL_arg3921z00_5899
																																																												=
																																																												RGC_BUFFER_FORWARD
																																																												(BgL_tmpz00_24475);
																																																										}
																																																										{	/* Read/reader.scm 409 */
																																																											obj_t
																																																												BgL_tmpz00_24478;
																																																											BgL_tmpz00_24478
																																																												=
																																																												(
																																																												(obj_t)
																																																												BgL_iportz00_5891);
																																																											BgL_arg3922z00_5900
																																																												=
																																																												RGC_BUFFER_BUFPOS
																																																												(BgL_tmpz00_24478);
																																																										}
																																																										{
																																																											long
																																																												BgL_bufposz00_24482;
																																																											long
																																																												BgL_forwardz00_24481;
																																																											BgL_forwardz00_24481
																																																												=
																																																												BgL_arg3921z00_5899;
																																																											BgL_bufposz00_24482
																																																												=
																																																												BgL_arg3922z00_5900;
																																																											BgL_bufposz00_5894
																																																												=
																																																												BgL_bufposz00_24482;
																																																											BgL_forwardz00_5893
																																																												=
																																																												BgL_forwardz00_24481;
																																																											goto
																																																												BgL_zc3z04anonymousza33918ze3z87_5895;
																																																										}
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_matchz00_9747
																																																											=
																																																											BgL_newzd2matchzd2_5896;
																																																									}
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								int
																																																									BgL_curz00_5901;
																																																								{	/* Read/reader.scm 409 */
																																																									obj_t
																																																										BgL_tmpz00_24483;
																																																									BgL_tmpz00_24483
																																																										=
																																																										(
																																																										(obj_t)
																																																										BgL_iportz00_5891);
																																																									BgL_curz00_5901
																																																										=
																																																										RGC_BUFFER_GET_CHAR
																																																										(BgL_tmpz00_24483,
																																																										BgL_forwardz00_5893);
																																																								}
																																																								{	/* Read/reader.scm 409 */

																																																									if (((long) (BgL_curz00_5901) == 58L))
																																																										{
																																																											long
																																																												BgL_bufposz00_24493;
																																																											long
																																																												BgL_forwardz00_24491;
																																																											long
																																																												BgL_lastzd2matchzd2_24490;
																																																											obj_t
																																																												BgL_iportz00_24489;
																																																											BgL_iportz00_24489
																																																												=
																																																												BgL_iportz00_5891;
																																																											BgL_lastzd2matchzd2_24490
																																																												=
																																																												BgL_newzd2matchzd2_5896;
																																																											BgL_forwardz00_24491
																																																												=
																																																												(1L
																																																												+
																																																												BgL_forwardz00_5893);
																																																											BgL_bufposz00_24493
																																																												=
																																																												BgL_bufposz00_5894;
																																																											BgL_bufposz00_7304
																																																												=
																																																												BgL_bufposz00_24493;
																																																											BgL_forwardz00_7303
																																																												=
																																																												BgL_forwardz00_24491;
																																																											BgL_lastzd2matchzd2_7302
																																																												=
																																																												BgL_lastzd2matchzd2_24490;
																																																											BgL_iportz00_7301
																																																												=
																																																												BgL_iportz00_24489;
																																																											goto
																																																												BgL_zc3z04anonymousza34639ze3z87_7305;
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											bool_t
																																																												BgL_test8372z00_24494;
																																																											if (((long) (BgL_curz00_5901) >= 48L))
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8372z00_24494
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_5901)
																																																														<
																																																														58L);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8372z00_24494
																																																														=
																																																														(
																																																														(bool_t)
																																																														0);
																																																												}
																																																											if (BgL_test8372z00_24494)
																																																												{
																																																													long
																																																														BgL_bufposz00_24504;
																																																													long
																																																														BgL_forwardz00_24502;
																																																													long
																																																														BgL_lastzd2matchzd2_24501;
																																																													obj_t
																																																														BgL_iportz00_24500;
																																																													BgL_iportz00_24500
																																																														=
																																																														BgL_iportz00_5891;
																																																													BgL_lastzd2matchzd2_24501
																																																														=
																																																														BgL_newzd2matchzd2_5896;
																																																													BgL_forwardz00_24502
																																																														=
																																																														(1L
																																																														+
																																																														BgL_forwardz00_5893);
																																																													BgL_bufposz00_24504
																																																														=
																																																														BgL_bufposz00_5894;
																																																													BgL_bufposz00_4814
																																																														=
																																																														BgL_bufposz00_24504;
																																																													BgL_forwardz00_4813
																																																														=
																																																														BgL_forwardz00_24502;
																																																													BgL_lastzd2matchzd2_4812
																																																														=
																																																														BgL_lastzd2matchzd2_24501;
																																																													BgL_iportz00_4811
																																																														=
																																																														BgL_iportz00_24500;
																																																													goto
																																																														BgL_zc3z04anonymousza33358ze3z87_4815;
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													if (((long) (BgL_curz00_5901) == 46L))
																																																														{
																																																															long
																																																																BgL_bufposz00_24512;
																																																															long
																																																																BgL_forwardz00_24510;
																																																															long
																																																																BgL_lastzd2matchzd2_24509;
																																																															obj_t
																																																																BgL_iportz00_24508;
																																																															BgL_iportz00_24508
																																																																=
																																																																BgL_iportz00_5891;
																																																															BgL_lastzd2matchzd2_24509
																																																																=
																																																																BgL_newzd2matchzd2_5896;
																																																															BgL_forwardz00_24510
																																																																=
																																																																(1L
																																																																+
																																																																BgL_forwardz00_5893);
																																																															BgL_bufposz00_24512
																																																																=
																																																																BgL_bufposz00_5894;
																																																															BgL_bufposz00_6329
																																																																=
																																																																BgL_bufposz00_24512;
																																																															BgL_forwardz00_6328
																																																																=
																																																																BgL_forwardz00_24510;
																																																															BgL_lastzd2matchzd2_6327
																																																																=
																																																																BgL_lastzd2matchzd2_24509;
																																																															BgL_iportz00_6326
																																																																=
																																																																BgL_iportz00_24508;
																																																															goto
																																																																BgL_zc3z04anonymousza34133ze3z87_6330;
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															bool_t
																																																																BgL_test8375z00_24513;
																																																															if (((long) (BgL_curz00_5901) == 39L))
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test8375z00_24513
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	if (((long) (BgL_curz00_5901) == 44L))
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test8375z00_24513
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test8375z00_24513
																																																																				=
																																																																				(
																																																																				(long)
																																																																				(BgL_curz00_5901)
																																																																				==
																																																																				96L);
																																																																}}
																																																															if (BgL_test8375z00_24513)
																																																																{
																																																																	long
																																																																		BgL_bufposz00_24526;
																																																																	long
																																																																		BgL_forwardz00_24524;
																																																																	long
																																																																		BgL_lastzd2matchzd2_24523;
																																																																	obj_t
																																																																		BgL_iportz00_24522;
																																																																	BgL_iportz00_24522
																																																																		=
																																																																		BgL_iportz00_5891;
																																																																	BgL_lastzd2matchzd2_24523
																																																																		=
																																																																		BgL_newzd2matchzd2_5896;
																																																																	BgL_forwardz00_24524
																																																																		=
																																																																		(1L
																																																																		+
																																																																		BgL_forwardz00_5893);
																																																																	BgL_bufposz00_24526
																																																																		=
																																																																		BgL_bufposz00_5894;
																																																																	BgL_bufposz00_7550
																																																																		=
																																																																		BgL_bufposz00_24526;
																																																																	BgL_forwardz00_7549
																																																																		=
																																																																		BgL_forwardz00_24524;
																																																																	BgL_lastzd2matchzd2_7548
																																																																		=
																																																																		BgL_lastzd2matchzd2_24523;
																																																																	BgL_iportz00_7547
																																																																		=
																																																																		BgL_iportz00_24522;
																																																																	goto
																																																																		BgL_zc3z04anonymousza34766ze3z87_7551;
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	bool_t
																																																																		BgL_test8378z00_24527;
																																																																	if (((long) (BgL_curz00_5901) < 33L))
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test8378z00_24527
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 409 */
																																																																			bool_t
																																																																				BgL_test8380z00_24531;
																																																																			if (((long) (BgL_curz00_5901) == 35L))
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test8380z00_24531
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test8380z00_24531
																																																																						=
																																																																						(
																																																																						(long)
																																																																						(BgL_curz00_5901)
																																																																						==
																																																																						34L);
																																																																				}
																																																																			if (BgL_test8380z00_24531)
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test8378z00_24527
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 409 */
																																																																					bool_t
																																																																						BgL_test8382z00_24537;
																																																																					if (((long) (BgL_curz00_5901) == 41L))
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test8382z00_24537
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 409 */
																																																																							if (((long) (BgL_curz00_5901) == 40L))
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8382z00_24537
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8382z00_24537
																																																																										=
																																																																										(
																																																																										(long)
																																																																										(BgL_curz00_5901)
																																																																										==
																																																																										39L);
																																																																						}}
																																																																					if (BgL_test8382z00_24537)
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test8378z00_24527
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 409 */
																																																																							if (((long) (BgL_curz00_5901) == 44L))
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8378z00_24527
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 409 */
																																																																									if (((long) (BgL_curz00_5901) == 46L))
																																																																										{	/* Read/reader.scm 409 */
																																																																											BgL_test8378z00_24527
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 409 */
																																																																											bool_t
																																																																												BgL_test8387z00_24552;
																																																																											if (((long) (BgL_curz00_5901) >= 48L))
																																																																												{	/* Read/reader.scm 409 */
																																																																													BgL_test8387z00_24552
																																																																														=
																																																																														(
																																																																														(long)
																																																																														(BgL_curz00_5901)
																																																																														<
																																																																														60L);
																																																																												}
																																																																											else
																																																																												{	/* Read/reader.scm 409 */
																																																																													BgL_test8387z00_24552
																																																																														=
																																																																														(
																																																																														(bool_t)
																																																																														0);
																																																																												}
																																																																											if (BgL_test8387z00_24552)
																																																																												{	/* Read/reader.scm 409 */
																																																																													BgL_test8378z00_24527
																																																																														=
																																																																														(
																																																																														(bool_t)
																																																																														1);
																																																																												}
																																																																											else
																																																																												{	/* Read/reader.scm 409 */
																																																																													if (((long) (BgL_curz00_5901) == 91L))
																																																																														{	/* Read/reader.scm 409 */
																																																																															BgL_test8378z00_24527
																																																																																=
																																																																																(
																																																																																(bool_t)
																																																																																1);
																																																																														}
																																																																													else
																																																																														{	/* Read/reader.scm 409 */
																																																																															if (((long) (BgL_curz00_5901) == 93L))
																																																																																{	/* Read/reader.scm 409 */
																																																																																	BgL_test8378z00_24527
																																																																																		=
																																																																																		(
																																																																																		(bool_t)
																																																																																		1);
																																																																																}
																																																																															else
																																																																																{	/* Read/reader.scm 409 */
																																																																																	if (((long) (BgL_curz00_5901) == 96L))
																																																																																		{	/* Read/reader.scm 409 */
																																																																																			BgL_test8378z00_24527
																																																																																				=
																																																																																				(
																																																																																				(bool_t)
																																																																																				1);
																																																																																		}
																																																																																	else
																																																																																		{	/* Read/reader.scm 409 */
																																																																																			bool_t
																																																																																				BgL_test8392z00_24567;
																																																																																			if (((long) (BgL_curz00_5901) == 125L))
																																																																																				{	/* Read/reader.scm 409 */
																																																																																					BgL_test8392z00_24567
																																																																																						=
																																																																																						(
																																																																																						(bool_t)
																																																																																						1);
																																																																																				}
																																																																																			else
																																																																																				{	/* Read/reader.scm 409 */
																																																																																					if (((long) (BgL_curz00_5901) == 124L))
																																																																																						{	/* Read/reader.scm 409 */
																																																																																							BgL_test8392z00_24567
																																																																																								=
																																																																																								(
																																																																																								(bool_t)
																																																																																								1);
																																																																																						}
																																																																																					else
																																																																																						{	/* Read/reader.scm 409 */
																																																																																							BgL_test8392z00_24567
																																																																																								=
																																																																																								(
																																																																																								(long)
																																																																																								(BgL_curz00_5901)
																																																																																								==
																																																																																								123L);
																																																																																				}}
																																																																																			if (BgL_test8392z00_24567)
																																																																																				{	/* Read/reader.scm 409 */
																																																																																					BgL_test8378z00_24527
																																																																																						=
																																																																																						(
																																																																																						(bool_t)
																																																																																						1);
																																																																																				}
																																																																																			else
																																																																																				{	/* Read/reader.scm 409 */
																																																																																					BgL_test8378z00_24527
																																																																																						=
																																																																																						(
																																																																																						(long)
																																																																																						(BgL_curz00_5901)
																																																																																						==
																																																																																						127L);
																																																																		}}}}}}}}}}
																																																																	if (BgL_test8378z00_24527)
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_matchz00_9747
																																																																				=
																																																																				BgL_newzd2matchzd2_5896;
																																																																		}
																																																																	else
																																																																		{
																																																																			long
																																																																				BgL_bufposz00_24582;
																																																																			long
																																																																				BgL_forwardz00_24580;
																																																																			long
																																																																				BgL_lastzd2matchzd2_24579;
																																																																			obj_t
																																																																				BgL_iportz00_24578;
																																																																			BgL_iportz00_24578
																																																																				=
																																																																				BgL_iportz00_5891;
																																																																			BgL_lastzd2matchzd2_24579
																																																																				=
																																																																				BgL_newzd2matchzd2_5896;
																																																																			BgL_forwardz00_24580
																																																																				=
																																																																				(1L
																																																																				+
																																																																				BgL_forwardz00_5893);
																																																																			BgL_bufposz00_24582
																																																																				=
																																																																				BgL_bufposz00_5894;
																																																																			BgL_bufposz00_5103
																																																																				=
																																																																				BgL_bufposz00_24582;
																																																																			BgL_forwardz00_5102
																																																																				=
																																																																				BgL_forwardz00_24580;
																																																																			BgL_lastzd2matchzd2_5101
																																																																				=
																																																																				BgL_lastzd2matchzd2_24579;
																																																																			BgL_iportz00_5100
																																																																				=
																																																																				BgL_iportz00_24578;
																																																																			goto
																																																																				BgL_zc3z04anonymousza33512ze3z87_5104;
																																																																		}
																																																																}
																																																														}
																																																												}
																																																										}
																																																								}
																																																							}
																																																					}
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					bool_t
																																																						BgL_test8395z00_24584;
																																																					if (((long) (BgL_curz00_7743) == 39L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8395z00_24584
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							if (((long) (BgL_curz00_7743) == 44L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8395z00_24584
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8395z00_24584
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_7743)
																																																										==
																																																										96L);
																																																						}}
																																																					if (BgL_test8395z00_24584)
																																																						{
																																																							long
																																																								BgL_bufposz00_24597;
																																																							long
																																																								BgL_forwardz00_24595;
																																																							long
																																																								BgL_lastzd2matchzd2_24594;
																																																							obj_t
																																																								BgL_iportz00_24593;
																																																							BgL_iportz00_24593
																																																								=
																																																								BgL_iportz00_7733;
																																																							BgL_lastzd2matchzd2_24594
																																																								=
																																																								BgL_newzd2matchzd2_7738;
																																																							BgL_forwardz00_24595
																																																								=
																																																								(1L
																																																								+
																																																								BgL_forwardz00_7735);
																																																							BgL_bufposz00_24597
																																																								=
																																																								BgL_bufposz00_7736;
																																																							BgL_bufposz00_7550
																																																								=
																																																								BgL_bufposz00_24597;
																																																							BgL_forwardz00_7549
																																																								=
																																																								BgL_forwardz00_24595;
																																																							BgL_lastzd2matchzd2_7548
																																																								=
																																																								BgL_lastzd2matchzd2_24594;
																																																							BgL_iportz00_7547
																																																								=
																																																								BgL_iportz00_24593;
																																																							goto
																																																								BgL_zc3z04anonymousza34766ze3z87_7551;
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							bool_t
																																																								BgL_test8398z00_24598;
																																																							if (((long) (BgL_curz00_7743) < 33L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8398z00_24598
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									bool_t
																																																										BgL_test8400z00_24602;
																																																									if (((long) (BgL_curz00_7743) == 35L))
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8400z00_24602
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8400z00_24602
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_7743)
																																																												==
																																																												34L);
																																																										}
																																																									if (BgL_test8400z00_24602)
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8398z00_24598
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											bool_t
																																																												BgL_test8402z00_24608;
																																																											if (((long) (BgL_curz00_7743) == 41L))
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8402z00_24608
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													if (((long) (BgL_curz00_7743) == 40L))
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8402z00_24608
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8402z00_24608
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_7743)
																																																																==
																																																																39L);
																																																												}}
																																																											if (BgL_test8402z00_24608)
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8398z00_24598
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													bool_t
																																																														BgL_test8405z00_24617;
																																																													if (((long) (BgL_curz00_7743) >= 43L))
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8405z00_24617
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_7743)
																																																																<
																																																																47L);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8405z00_24617
																																																																=
																																																																(
																																																																(bool_t)
																																																																0);
																																																														}
																																																													if (BgL_test8405z00_24617)
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8398z00_24598
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															bool_t
																																																																BgL_test8407z00_24623;
																																																															if (((long) (BgL_curz00_7743) >= 48L))
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test8407z00_24623
																																																																		=
																																																																		(
																																																																		(long)
																																																																		(BgL_curz00_7743)
																																																																		<
																																																																		60L);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test8407z00_24623
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		0);
																																																																}
																																																															if (BgL_test8407z00_24623)
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test8398z00_24598
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	if (((long) (BgL_curz00_7743) == 91L))
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test8398z00_24598
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 409 */
																																																																			if (((long) (BgL_curz00_7743) == 93L))
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test8398z00_24598
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 409 */
																																																																					if (((long) (BgL_curz00_7743) == 96L))
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test8398z00_24598
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 409 */
																																																																							bool_t
																																																																								BgL_test8412z00_24638;
																																																																							if (((long) (BgL_curz00_7743) == 125L))
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8412z00_24638
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 409 */
																																																																									if (((long) (BgL_curz00_7743) == 124L))
																																																																										{	/* Read/reader.scm 409 */
																																																																											BgL_test8412z00_24638
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 409 */
																																																																											BgL_test8412z00_24638
																																																																												=
																																																																												(
																																																																												(long)
																																																																												(BgL_curz00_7743)
																																																																												==
																																																																												123L);
																																																																								}}
																																																																							if (BgL_test8412z00_24638)
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8398z00_24598
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8398z00_24598
																																																																										=
																																																																										(
																																																																										(long)
																																																																										(BgL_curz00_7743)
																																																																										==
																																																																										127L);
																																																								}}}}}}}}}
																																																							if (BgL_test8398z00_24598)
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_matchz00_9747
																																																										=
																																																										BgL_newzd2matchzd2_7738;
																																																								}
																																																							else
																																																								{
																																																									long
																																																										BgL_bufposz00_24653;
																																																									long
																																																										BgL_forwardz00_24651;
																																																									long
																																																										BgL_lastzd2matchzd2_24650;
																																																									obj_t
																																																										BgL_iportz00_24649;
																																																									BgL_iportz00_24649
																																																										=
																																																										BgL_iportz00_7733;
																																																									BgL_lastzd2matchzd2_24650
																																																										=
																																																										BgL_newzd2matchzd2_7738;
																																																									BgL_forwardz00_24651
																																																										=
																																																										(1L
																																																										+
																																																										BgL_forwardz00_7735);
																																																									BgL_bufposz00_24653
																																																										=
																																																										BgL_bufposz00_7736;
																																																									BgL_bufposz00_5103
																																																										=
																																																										BgL_bufposz00_24653;
																																																									BgL_forwardz00_5102
																																																										=
																																																										BgL_forwardz00_24651;
																																																									BgL_lastzd2matchzd2_5101
																																																										=
																																																										BgL_lastzd2matchzd2_24650;
																																																									BgL_iportz00_5100
																																																										=
																																																										BgL_iportz00_24649;
																																																									goto
																																																										BgL_zc3z04anonymousza33512ze3z87_5104;
																																																								}
																																																						}
																																																				}
																																																		}
																																																}
																																														}
																																												}
																																											}
																																									}
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_6155) == 58L))
																																										{
																																											long
																																												BgL_bufposz00_24662;
																																											long
																																												BgL_forwardz00_24660;
																																											long
																																												BgL_lastzd2matchzd2_24659;
																																											obj_t
																																												BgL_iportz00_24658;
																																											BgL_iportz00_24658
																																												=
																																												BgL_iportz00_6145;
																																											BgL_lastzd2matchzd2_24659
																																												=
																																												BgL_newzd2matchzd2_6150;
																																											BgL_forwardz00_24660
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_6147);
																																											BgL_bufposz00_24662
																																												=
																																												BgL_bufposz00_6148;
																																											BgL_bufposz00_7304
																																												=
																																												BgL_bufposz00_24662;
																																											BgL_forwardz00_7303
																																												=
																																												BgL_forwardz00_24660;
																																											BgL_lastzd2matchzd2_7302
																																												=
																																												BgL_lastzd2matchzd2_24659;
																																											BgL_iportz00_7301
																																												=
																																												BgL_iportz00_24658;
																																											goto
																																												BgL_zc3z04anonymousza34639ze3z87_7305;
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											bool_t
																																												BgL_test8416z00_24663;
																																											if (((long) (BgL_curz00_6155) >= 48L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8416z00_24663
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_6155)
																																														<
																																														58L);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8416z00_24663
																																														=
																																														(
																																														(bool_t)
																																														0);
																																												}
																																											if (BgL_test8416z00_24663)
																																												{	/* Read/reader.scm 409 */
																																													BgL_iportz00_7401
																																														=
																																														BgL_iportz00_6145;
																																													BgL_lastzd2matchzd2_7402
																																														=
																																														BgL_newzd2matchzd2_6150;
																																													BgL_forwardz00_7403
																																														=
																																														(1L
																																														+
																																														BgL_forwardz00_6147);
																																													BgL_bufposz00_7404
																																														=
																																														BgL_bufposz00_6148;
																																												BgL_zc3z04anonymousza34688ze3z87_7405:
																																													{	/* Read/reader.scm 409 */
																																														long
																																															BgL_newzd2matchzd2_7406;
																																														{	/* Read/reader.scm 409 */
																																															obj_t
																																																BgL_tmpz00_24669;
																																															BgL_tmpz00_24669
																																																=
																																																(
																																																(obj_t)
																																																BgL_iportz00_7401);
																																															RGC_STOP_MATCH
																																																(BgL_tmpz00_24669,
																																																BgL_forwardz00_7403);
																																														}
																																														BgL_newzd2matchzd2_7406
																																															=
																																															13L;
																																														if ((BgL_forwardz00_7403 == BgL_bufposz00_7404))
																																															{	/* Read/reader.scm 409 */
																																																if (rgc_fill_buffer(((obj_t) BgL_iportz00_7401)))
																																																	{	/* Read/reader.scm 409 */
																																																		long
																																																			BgL_arg4691z00_7409;
																																																		long
																																																			BgL_arg4692z00_7410;
																																																		{	/* Read/reader.scm 409 */
																																																			obj_t
																																																				BgL_tmpz00_24677;
																																																			BgL_tmpz00_24677
																																																				=
																																																				(
																																																				(obj_t)
																																																				BgL_iportz00_7401);
																																																			BgL_arg4691z00_7409
																																																				=
																																																				RGC_BUFFER_FORWARD
																																																				(BgL_tmpz00_24677);
																																																		}
																																																		{	/* Read/reader.scm 409 */
																																																			obj_t
																																																				BgL_tmpz00_24680;
																																																			BgL_tmpz00_24680
																																																				=
																																																				(
																																																				(obj_t)
																																																				BgL_iportz00_7401);
																																																			BgL_arg4692z00_7410
																																																				=
																																																				RGC_BUFFER_BUFPOS
																																																				(BgL_tmpz00_24680);
																																																		}
																																																		{
																																																			long
																																																				BgL_bufposz00_24684;
																																																			long
																																																				BgL_forwardz00_24683;
																																																			BgL_forwardz00_24683
																																																				=
																																																				BgL_arg4691z00_7409;
																																																			BgL_bufposz00_24684
																																																				=
																																																				BgL_arg4692z00_7410;
																																																			BgL_bufposz00_7404
																																																				=
																																																				BgL_bufposz00_24684;
																																																			BgL_forwardz00_7403
																																																				=
																																																				BgL_forwardz00_24683;
																																																			goto
																																																				BgL_zc3z04anonymousza34688ze3z87_7405;
																																																		}
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_matchz00_9747
																																																			=
																																																			BgL_newzd2matchzd2_7406;
																																																	}
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																int
																																																	BgL_curz00_7411;
																																																{	/* Read/reader.scm 409 */
																																																	obj_t
																																																		BgL_tmpz00_24685;
																																																	BgL_tmpz00_24685
																																																		=
																																																		(
																																																		(obj_t)
																																																		BgL_iportz00_7401);
																																																	BgL_curz00_7411
																																																		=
																																																		RGC_BUFFER_GET_CHAR
																																																		(BgL_tmpz00_24685,
																																																		BgL_forwardz00_7403);
																																																}
																																																{	/* Read/reader.scm 409 */

																																																	{	/* Read/reader.scm 409 */
																																																		bool_t
																																																			BgL_test8420z00_24688;
																																																		if (((long) (BgL_curz00_7411) == 69L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test8420z00_24688
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test8420z00_24688
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_7411)
																																																					==
																																																					101L);
																																																			}
																																																		if (BgL_test8420z00_24688)
																																																			{
																																																				long
																																																					BgL_bufposz00_24698;
																																																				long
																																																					BgL_forwardz00_24696;
																																																				long
																																																					BgL_lastzd2matchzd2_24695;
																																																				obj_t
																																																					BgL_iportz00_24694;
																																																				BgL_iportz00_24694
																																																					=
																																																					BgL_iportz00_7401;
																																																				BgL_lastzd2matchzd2_24695
																																																					=
																																																					BgL_newzd2matchzd2_7406;
																																																				BgL_forwardz00_24696
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_7403);
																																																				BgL_bufposz00_24698
																																																					=
																																																					BgL_bufposz00_7404;
																																																				BgL_bufposz00_7736
																																																					=
																																																					BgL_bufposz00_24698;
																																																				BgL_forwardz00_7735
																																																					=
																																																					BgL_forwardz00_24696;
																																																				BgL_lastzd2matchzd2_7734
																																																					=
																																																					BgL_lastzd2matchzd2_24695;
																																																				BgL_iportz00_7733
																																																					=
																																																					BgL_iportz00_24694;
																																																				goto
																																																					BgL_zc3z04anonymousza34855ze3z87_7737;
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				if (((long) (BgL_curz00_7411) == 58L))
																																																					{
																																																						long
																																																							BgL_bufposz00_24706;
																																																						long
																																																							BgL_forwardz00_24704;
																																																						long
																																																							BgL_lastzd2matchzd2_24703;
																																																						obj_t
																																																							BgL_iportz00_24702;
																																																						BgL_iportz00_24702
																																																							=
																																																							BgL_iportz00_7401;
																																																						BgL_lastzd2matchzd2_24703
																																																							=
																																																							BgL_newzd2matchzd2_7406;
																																																						BgL_forwardz00_24704
																																																							=
																																																							(1L
																																																							+
																																																							BgL_forwardz00_7403);
																																																						BgL_bufposz00_24706
																																																							=
																																																							BgL_bufposz00_7404;
																																																						BgL_bufposz00_7304
																																																							=
																																																							BgL_bufposz00_24706;
																																																						BgL_forwardz00_7303
																																																							=
																																																							BgL_forwardz00_24704;
																																																						BgL_lastzd2matchzd2_7302
																																																							=
																																																							BgL_lastzd2matchzd2_24703;
																																																						BgL_iportz00_7301
																																																							=
																																																							BgL_iportz00_24702;
																																																						goto
																																																							BgL_zc3z04anonymousza34639ze3z87_7305;
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						bool_t
																																																							BgL_test8423z00_24707;
																																																						if (((long) (BgL_curz00_7411) >= 48L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test8423z00_24707
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_7411)
																																																									<
																																																									58L);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test8423z00_24707
																																																									=
																																																									(
																																																									(bool_t)
																																																									0);
																																																							}
																																																						if (BgL_test8423z00_24707)
																																																							{
																																																								long
																																																									BgL_forwardz00_24714;
																																																								long
																																																									BgL_lastzd2matchzd2_24713;
																																																								BgL_lastzd2matchzd2_24713
																																																									=
																																																									BgL_newzd2matchzd2_7406;
																																																								BgL_forwardz00_24714
																																																									=
																																																									(1L
																																																									+
																																																									BgL_forwardz00_7403);
																																																								BgL_forwardz00_7403
																																																									=
																																																									BgL_forwardz00_24714;
																																																								BgL_lastzd2matchzd2_7402
																																																									=
																																																									BgL_lastzd2matchzd2_24713;
																																																								goto
																																																									BgL_zc3z04anonymousza34688ze3z87_7405;
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								if (((long) (BgL_curz00_7411) == 46L))
																																																									{
																																																										long
																																																											BgL_bufposz00_24723;
																																																										long
																																																											BgL_forwardz00_24721;
																																																										long
																																																											BgL_lastzd2matchzd2_24720;
																																																										obj_t
																																																											BgL_iportz00_24719;
																																																										BgL_iportz00_24719
																																																											=
																																																											BgL_iportz00_7401;
																																																										BgL_lastzd2matchzd2_24720
																																																											=
																																																											BgL_newzd2matchzd2_7406;
																																																										BgL_forwardz00_24721
																																																											=
																																																											(1L
																																																											+
																																																											BgL_forwardz00_7403);
																																																										BgL_bufposz00_24723
																																																											=
																																																											BgL_bufposz00_7404;
																																																										BgL_bufposz00_9542
																																																											=
																																																											BgL_bufposz00_24723;
																																																										BgL_forwardz00_9541
																																																											=
																																																											BgL_forwardz00_24721;
																																																										BgL_lastzd2matchzd2_9540
																																																											=
																																																											BgL_lastzd2matchzd2_24720;
																																																										BgL_iportz00_9539
																																																											=
																																																											BgL_iportz00_24719;
																																																										goto
																																																											BgL_zc3z04anonymousza35780ze3z87_9543;
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										bool_t
																																																											BgL_test8426z00_24724;
																																																										if (((long) (BgL_curz00_7411) == 39L))
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test8426z00_24724
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												if (((long) (BgL_curz00_7411) == 44L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test8426z00_24724
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test8426z00_24724
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_7411)
																																																															==
																																																															96L);
																																																											}}
																																																										if (BgL_test8426z00_24724)
																																																											{
																																																												long
																																																													BgL_bufposz00_24737;
																																																												long
																																																													BgL_forwardz00_24735;
																																																												long
																																																													BgL_lastzd2matchzd2_24734;
																																																												obj_t
																																																													BgL_iportz00_24733;
																																																												BgL_iportz00_24733
																																																													=
																																																													BgL_iportz00_7401;
																																																												BgL_lastzd2matchzd2_24734
																																																													=
																																																													BgL_newzd2matchzd2_7406;
																																																												BgL_forwardz00_24735
																																																													=
																																																													(1L
																																																													+
																																																													BgL_forwardz00_7403);
																																																												BgL_bufposz00_24737
																																																													=
																																																													BgL_bufposz00_7404;
																																																												BgL_bufposz00_7365
																																																													=
																																																													BgL_bufposz00_24737;
																																																												BgL_forwardz00_7364
																																																													=
																																																													BgL_forwardz00_24735;
																																																												BgL_lastzd2matchzd2_7363
																																																													=
																																																													BgL_lastzd2matchzd2_24734;
																																																												BgL_iportz00_7362
																																																													=
																																																													BgL_iportz00_24733;
																																																												goto
																																																													BgL_zc3z04anonymousza34670ze3z87_7366;
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												bool_t
																																																													BgL_test8429z00_24738;
																																																												if (((long) (BgL_curz00_7411) < 33L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test8429z00_24738
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														bool_t
																																																															BgL_test8431z00_24742;
																																																														if (((long) (BgL_curz00_7411) == 35L))
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test8431z00_24742
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test8431z00_24742
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_7411)
																																																																	==
																																																																	34L);
																																																															}
																																																														if (BgL_test8431z00_24742)
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test8429z00_24738
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																bool_t
																																																																	BgL_test8433z00_24748;
																																																																if (((long) (BgL_curz00_7411) == 41L))
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test8433z00_24748
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		if (((long) (BgL_curz00_7411) == 40L))
																																																																			{	/* Read/reader.scm 409 */
																																																																				BgL_test8433z00_24748
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 409 */
																																																																				BgL_test8433z00_24748
																																																																					=
																																																																					(
																																																																					(long)
																																																																					(BgL_curz00_7411)
																																																																					==
																																																																					39L);
																																																																	}}
																																																																if (BgL_test8433z00_24748)
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test8429z00_24738
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		if (((long) (BgL_curz00_7411) == 44L))
																																																																			{	/* Read/reader.scm 409 */
																																																																				BgL_test8429z00_24738
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 409 */
																																																																				if (((long) (BgL_curz00_7411) == 46L))
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test8429z00_24738
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 409 */
																																																																						bool_t
																																																																							BgL_test8438z00_24763;
																																																																						if (((long) (BgL_curz00_7411) >= 48L))
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test8438z00_24763
																																																																									=
																																																																									(
																																																																									(long)
																																																																									(BgL_curz00_7411)
																																																																									<
																																																																									60L);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test8438z00_24763
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									0);
																																																																							}
																																																																						if (BgL_test8438z00_24763)
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test8429z00_24738
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 409 */
																																																																								if (((long) (BgL_curz00_7411) == 69L))
																																																																									{	/* Read/reader.scm 409 */
																																																																										BgL_test8429z00_24738
																																																																											=
																																																																											(
																																																																											(bool_t)
																																																																											1);
																																																																									}
																																																																								else
																																																																									{	/* Read/reader.scm 409 */
																																																																										if (((long) (BgL_curz00_7411) == 91L))
																																																																											{	/* Read/reader.scm 409 */
																																																																												BgL_test8429z00_24738
																																																																													=
																																																																													(
																																																																													(bool_t)
																																																																													1);
																																																																											}
																																																																										else
																																																																											{	/* Read/reader.scm 409 */
																																																																												if (((long) (BgL_curz00_7411) == 93L))
																																																																													{	/* Read/reader.scm 409 */
																																																																														BgL_test8429z00_24738
																																																																															=
																																																																															(
																																																																															(bool_t)
																																																																															1);
																																																																													}
																																																																												else
																																																																													{	/* Read/reader.scm 409 */
																																																																														if (((long) (BgL_curz00_7411) == 96L))
																																																																															{	/* Read/reader.scm 409 */
																																																																																BgL_test8429z00_24738
																																																																																	=
																																																																																	(
																																																																																	(bool_t)
																																																																																	1);
																																																																															}
																																																																														else
																																																																															{	/* Read/reader.scm 409 */
																																																																																if (((long) (BgL_curz00_7411) == 101L))
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		BgL_test8429z00_24738
																																																																																			=
																																																																																			(
																																																																																			(bool_t)
																																																																																			1);
																																																																																	}
																																																																																else
																																																																																	{	/* Read/reader.scm 409 */
																																																																																		bool_t
																																																																																			BgL_test8445z00_24784;
																																																																																		if (((long) (BgL_curz00_7411) == 125L))
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				BgL_test8445z00_24784
																																																																																					=
																																																																																					(
																																																																																					(bool_t)
																																																																																					1);
																																																																																			}
																																																																																		else
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				if (((long) (BgL_curz00_7411) == 124L))
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						BgL_test8445z00_24784
																																																																																							=
																																																																																							(
																																																																																							(bool_t)
																																																																																							1);
																																																																																					}
																																																																																				else
																																																																																					{	/* Read/reader.scm 409 */
																																																																																						BgL_test8445z00_24784
																																																																																							=
																																																																																							(
																																																																																							(long)
																																																																																							(BgL_curz00_7411)
																																																																																							==
																																																																																							123L);
																																																																																			}}
																																																																																		if (BgL_test8445z00_24784)
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				BgL_test8429z00_24738
																																																																																					=
																																																																																					(
																																																																																					(bool_t)
																																																																																					1);
																																																																																			}
																																																																																		else
																																																																																			{	/* Read/reader.scm 409 */
																																																																																				BgL_test8429z00_24738
																																																																																					=
																																																																																					(
																																																																																					(long)
																																																																																					(BgL_curz00_7411)
																																																																																					==
																																																																																					127L);
																																																													}}}}}}}}}}}}
																																																												if (BgL_test8429z00_24738)
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_matchz00_9747
																																																															=
																																																															BgL_newzd2matchzd2_7406;
																																																													}
																																																												else
																																																													{
																																																														long
																																																															BgL_bufposz00_24799;
																																																														long
																																																															BgL_forwardz00_24797;
																																																														long
																																																															BgL_lastzd2matchzd2_24796;
																																																														obj_t
																																																															BgL_iportz00_24795;
																																																														BgL_iportz00_24795
																																																															=
																																																															BgL_iportz00_7401;
																																																														BgL_lastzd2matchzd2_24796
																																																															=
																																																															BgL_newzd2matchzd2_7406;
																																																														BgL_forwardz00_24797
																																																															=
																																																															(1L
																																																															+
																																																															BgL_forwardz00_7403);
																																																														BgL_bufposz00_24799
																																																															=
																																																															BgL_bufposz00_7404;
																																																														BgL_bufposz00_5103
																																																															=
																																																															BgL_bufposz00_24799;
																																																														BgL_forwardz00_5102
																																																															=
																																																															BgL_forwardz00_24797;
																																																														BgL_lastzd2matchzd2_5101
																																																															=
																																																															BgL_lastzd2matchzd2_24796;
																																																														BgL_iportz00_5100
																																																															=
																																																															BgL_iportz00_24795;
																																																														goto
																																																															BgL_zc3z04anonymousza33512ze3z87_5104;
																																																													}
																																																											}
																																																									}
																																																							}
																																																					}
																																																			}
																																																	}
																																																}
																																															}
																																													}
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													if (((long) (BgL_curz00_6155) == 46L))
																																														{
																																															long
																																																BgL_bufposz00_24808;
																																															long
																																																BgL_forwardz00_24806;
																																															long
																																																BgL_lastzd2matchzd2_24805;
																																															obj_t
																																																BgL_iportz00_24804;
																																															BgL_iportz00_24804
																																																=
																																																BgL_iportz00_6145;
																																															BgL_lastzd2matchzd2_24805
																																																=
																																																BgL_newzd2matchzd2_6150;
																																															BgL_forwardz00_24806
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_6147);
																																															BgL_bufposz00_24808
																																																=
																																																BgL_bufposz00_6148;
																																															BgL_bufposz00_9542
																																																=
																																																BgL_bufposz00_24808;
																																															BgL_forwardz00_9541
																																																=
																																																BgL_forwardz00_24806;
																																															BgL_lastzd2matchzd2_9540
																																																=
																																																BgL_lastzd2matchzd2_24805;
																																															BgL_iportz00_9539
																																																=
																																																BgL_iportz00_24804;
																																															goto
																																																BgL_zc3z04anonymousza35780ze3z87_9543;
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															bool_t
																																																BgL_test8449z00_24809;
																																															if (((long) (BgL_curz00_6155) == 39L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8449z00_24809
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	if (((long) (BgL_curz00_6155) == 44L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8449z00_24809
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8449z00_24809
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_6155)
																																																				==
																																																				96L);
																																																}}
																																															if (BgL_test8449z00_24809)
																																																{
																																																	long
																																																		BgL_bufposz00_24822;
																																																	long
																																																		BgL_forwardz00_24820;
																																																	long
																																																		BgL_lastzd2matchzd2_24819;
																																																	obj_t
																																																		BgL_iportz00_24818;
																																																	BgL_iportz00_24818
																																																		=
																																																		BgL_iportz00_6145;
																																																	BgL_lastzd2matchzd2_24819
																																																		=
																																																		BgL_newzd2matchzd2_6150;
																																																	BgL_forwardz00_24820
																																																		=
																																																		(1L
																																																		+
																																																		BgL_forwardz00_6147);
																																																	BgL_bufposz00_24822
																																																		=
																																																		BgL_bufposz00_6148;
																																																	BgL_bufposz00_7365
																																																		=
																																																		BgL_bufposz00_24822;
																																																	BgL_forwardz00_7364
																																																		=
																																																		BgL_forwardz00_24820;
																																																	BgL_lastzd2matchzd2_7363
																																																		=
																																																		BgL_lastzd2matchzd2_24819;
																																																	BgL_iportz00_7362
																																																		=
																																																		BgL_iportz00_24818;
																																																	goto
																																																		BgL_zc3z04anonymousza34670ze3z87_7366;
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	bool_t
																																																		BgL_test8452z00_24823;
																																																	if (((long) (BgL_curz00_6155) < 33L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8452z00_24823
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			bool_t
																																																				BgL_test8454z00_24827;
																																																			if (((long) (BgL_curz00_6155) == 35L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8454z00_24827
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8454z00_24827
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_6155)
																																																						==
																																																						34L);
																																																				}
																																																			if (BgL_test8454z00_24827)
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8452z00_24823
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					bool_t
																																																						BgL_test8456z00_24833;
																																																					if (((long) (BgL_curz00_6155) == 41L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8456z00_24833
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							if (((long) (BgL_curz00_6155) == 40L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8456z00_24833
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8456z00_24833
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_6155)
																																																										==
																																																										39L);
																																																						}}
																																																					if (BgL_test8456z00_24833)
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8452z00_24823
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							if (((long) (BgL_curz00_6155) == 44L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8452z00_24823
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									if (((long) (BgL_curz00_6155) == 46L))
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8452z00_24823
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											bool_t
																																																												BgL_test8461z00_24848;
																																																											if (((long) (BgL_curz00_6155) >= 48L))
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8461z00_24848
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_6155)
																																																														<
																																																														60L);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8461z00_24848
																																																														=
																																																														(
																																																														(bool_t)
																																																														0);
																																																												}
																																																											if (BgL_test8461z00_24848)
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8452z00_24823
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													if (((long) (BgL_curz00_6155) == 69L))
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8452z00_24823
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															if (((long) (BgL_curz00_6155) == 91L))
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test8452z00_24823
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	if (((long) (BgL_curz00_6155) == 93L))
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test8452z00_24823
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 409 */
																																																																			if (((long) (BgL_curz00_6155) == 96L))
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test8452z00_24823
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 409 */
																																																																					if (((long) (BgL_curz00_6155) == 101L))
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test8452z00_24823
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 409 */
																																																																							bool_t
																																																																								BgL_test8468z00_24869;
																																																																							if (((long) (BgL_curz00_6155) == 125L))
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8468z00_24869
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 409 */
																																																																									if (((long) (BgL_curz00_6155) == 124L))
																																																																										{	/* Read/reader.scm 409 */
																																																																											BgL_test8468z00_24869
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 409 */
																																																																											BgL_test8468z00_24869
																																																																												=
																																																																												(
																																																																												(long)
																																																																												(BgL_curz00_6155)
																																																																												==
																																																																												123L);
																																																																								}}
																																																																							if (BgL_test8468z00_24869)
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8452z00_24823
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8452z00_24823
																																																																										=
																																																																										(
																																																																										(long)
																																																																										(BgL_curz00_6155)
																																																																										==
																																																																										127L);
																																																		}}}}}}}}}}}}
																																																	if (BgL_test8452z00_24823)
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_matchz00_9747
																																																				=
																																																				BgL_newzd2matchzd2_6150;
																																																		}
																																																	else
																																																		{
																																																			long
																																																				BgL_bufposz00_24884;
																																																			long
																																																				BgL_forwardz00_24882;
																																																			long
																																																				BgL_lastzd2matchzd2_24881;
																																																			obj_t
																																																				BgL_iportz00_24880;
																																																			BgL_iportz00_24880
																																																				=
																																																				BgL_iportz00_6145;
																																																			BgL_lastzd2matchzd2_24881
																																																				=
																																																				BgL_newzd2matchzd2_6150;
																																																			BgL_forwardz00_24882
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_6147);
																																																			BgL_bufposz00_24884
																																																				=
																																																				BgL_bufposz00_6148;
																																																			BgL_bufposz00_5103
																																																				=
																																																				BgL_bufposz00_24884;
																																																			BgL_forwardz00_5102
																																																				=
																																																				BgL_forwardz00_24882;
																																																			BgL_lastzd2matchzd2_5101
																																																				=
																																																				BgL_lastzd2matchzd2_24881;
																																																			BgL_iportz00_5100
																																																				=
																																																				BgL_iportz00_24880;
																																																			goto
																																																				BgL_zc3z04anonymousza33512ze3z87_5104;
																																																		}
																																																}
																																														}
																																												}
																																										}
																																								}
																																						}
																																					}
																																				}
																																		}
																																	}
																																else
																																	{	/* Read/reader.scm 409 */
																																		bool_t
																																			BgL_test8471z00_24886;
																																		if (((long)
																																				(BgL_curz00_4015)
																																				== 39L))
																																			{	/* Read/reader.scm 409 */
																																				BgL_test8471z00_24886
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				if (
																																					((long) (BgL_curz00_4015) == 44L))
																																					{	/* Read/reader.scm 409 */
																																						BgL_test8471z00_24886
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						BgL_test8471z00_24886
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_4015)
																																							==
																																							96L);
																																			}}
																																		if (BgL_test8471z00_24886)
																																			{
																																				long
																																					BgL_bufposz00_24899;
																																				long
																																					BgL_forwardz00_24897;
																																				long
																																					BgL_lastzd2matchzd2_24896;
																																				obj_t
																																					BgL_iportz00_24895;
																																				BgL_iportz00_24895
																																					=
																																					BgL_iportz00_4005;
																																				BgL_lastzd2matchzd2_24896
																																					=
																																					BgL_newzd2matchzd2_4010;
																																				BgL_forwardz00_24897
																																					=
																																					(1L +
																																					BgL_forwardz00_4007);
																																				BgL_bufposz00_24899
																																					=
																																					BgL_bufposz00_4008;
																																				BgL_bufposz00_6105
																																					=
																																					BgL_bufposz00_24899;
																																				BgL_forwardz00_6104
																																					=
																																					BgL_forwardz00_24897;
																																				BgL_lastzd2matchzd2_6103
																																					=
																																					BgL_lastzd2matchzd2_24896;
																																				BgL_iportz00_6102
																																					=
																																					BgL_iportz00_24895;
																																				goto
																																					BgL_zc3z04anonymousza34018ze3z87_6106;
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				bool_t
																																					BgL_test8474z00_24900;
																																				if ((
																																						(long)
																																						(BgL_curz00_4015)
																																						<
																																						33L))
																																					{	/* Read/reader.scm 409 */
																																						BgL_test8474z00_24900
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						bool_t
																																							BgL_test8476z00_24904;
																																						if (
																																							((long) (BgL_curz00_4015) == 35L))
																																							{	/* Read/reader.scm 409 */
																																								BgL_test8476z00_24904
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								BgL_test8476z00_24904
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_4015)
																																									==
																																									34L);
																																							}
																																						if (BgL_test8476z00_24904)
																																							{	/* Read/reader.scm 409 */
																																								BgL_test8474z00_24900
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								bool_t
																																									BgL_test8478z00_24910;
																																								if (((long) (BgL_curz00_4015) == 41L))
																																									{	/* Read/reader.scm 409 */
																																										BgL_test8478z00_24910
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										if (((long) (BgL_curz00_4015) == 40L))
																																											{	/* Read/reader.scm 409 */
																																												BgL_test8478z00_24910
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												BgL_test8478z00_24910
																																													=
																																													(
																																													(long)
																																													(BgL_curz00_4015)
																																													==
																																													39L);
																																									}}
																																								if (BgL_test8478z00_24910)
																																									{	/* Read/reader.scm 409 */
																																										BgL_test8474z00_24900
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										if (((long) (BgL_curz00_4015) == 44L))
																																											{	/* Read/reader.scm 409 */
																																												BgL_test8474z00_24900
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												if (((long) (BgL_curz00_4015) == 46L))
																																													{	/* Read/reader.scm 409 */
																																														BgL_test8474z00_24900
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														bool_t
																																															BgL_test8483z00_24925;
																																														if (((long) (BgL_curz00_4015) >= 48L))
																																															{	/* Read/reader.scm 409 */
																																																BgL_test8483z00_24925
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_4015)
																																																	<
																																																	60L);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																BgL_test8483z00_24925
																																																	=
																																																	(
																																																	(bool_t)
																																																	0);
																																															}
																																														if (BgL_test8483z00_24925)
																																															{	/* Read/reader.scm 409 */
																																																BgL_test8474z00_24900
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																if (((long) (BgL_curz00_4015) == 69L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test8474z00_24900
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		if (((long) (BgL_curz00_4015) == 91L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test8474z00_24900
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				if (((long) (BgL_curz00_4015) == 93L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test8474z00_24900
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						if (((long) (BgL_curz00_4015) == 96L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test8474z00_24900
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								if (((long) (BgL_curz00_4015) == 101L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test8474z00_24900
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										bool_t
																																																											BgL_test8490z00_24946;
																																																										if (((long) (BgL_curz00_4015) == 125L))
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test8490z00_24946
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												if (((long) (BgL_curz00_4015) == 124L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test8490z00_24946
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test8490z00_24946
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_4015)
																																																															==
																																																															123L);
																																																											}}
																																																										if (BgL_test8490z00_24946)
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test8474z00_24900
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test8474z00_24900
																																																													=
																																																													(
																																																													(long)
																																																													(BgL_curz00_4015)
																																																													==
																																																													127L);
																																					}}}}}}}}}}}}
																																				if (BgL_test8474z00_24900)
																																					{	/* Read/reader.scm 409 */
																																						BgL_matchz00_9747
																																							=
																																							BgL_newzd2matchzd2_4010;
																																					}
																																				else
																																					{
																																						long
																																							BgL_bufposz00_24961;
																																						long
																																							BgL_forwardz00_24959;
																																						long
																																							BgL_lastzd2matchzd2_24958;
																																						obj_t
																																							BgL_iportz00_24957;
																																						BgL_iportz00_24957
																																							=
																																							BgL_iportz00_4005;
																																						BgL_lastzd2matchzd2_24958
																																							=
																																							BgL_newzd2matchzd2_4010;
																																						BgL_forwardz00_24959
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_4007);
																																						BgL_bufposz00_24961
																																							=
																																							BgL_bufposz00_4008;
																																						BgL_bufposz00_4963
																																							=
																																							BgL_bufposz00_24961;
																																						BgL_forwardz00_4962
																																							=
																																							BgL_forwardz00_24959;
																																						BgL_lastzd2matchzd2_4961
																																							=
																																							BgL_lastzd2matchzd2_24958;
																																						BgL_iportz00_4960
																																							=
																																							BgL_iportz00_24957;
																																						goto
																																							BgL_zc3z04anonymousza33439ze3z87_4964;
																																					}
																																			}
																																	}
																															}
																													}
																											}
																									}
																								}
																							}
																					}
																				}
																			else
																				{	/* Read/reader.scm 409 */
																					if (((long) (BgL_curz00_4644) == 46L))
																						{	/* Read/reader.scm 409 */
																							BgL_iportz00_6970 =
																								BgL_iportz00_4634;
																							BgL_lastzd2matchzd2_6971 =
																								BgL_newzd2matchzd2_4639;
																							BgL_forwardz00_6972 =
																								(1L + BgL_forwardz00_4636);
																							BgL_bufposz00_6973 =
																								BgL_bufposz00_4637;
																						BgL_zc3z04anonymousza34470ze3z87_6974:
																							{	/* Read/reader.scm 409 */
																								long BgL_newzd2matchzd2_6975;

																								{	/* Read/reader.scm 409 */
																									obj_t BgL_tmpz00_24966;

																									BgL_tmpz00_24966 =
																										((obj_t) BgL_iportz00_6970);
																									RGC_STOP_MATCH
																										(BgL_tmpz00_24966,
																										BgL_forwardz00_6972);
																								}
																								BgL_newzd2matchzd2_6975 = 22L;
																								if (
																									(BgL_forwardz00_6972 ==
																										BgL_bufposz00_6973))
																									{	/* Read/reader.scm 409 */
																										if (rgc_fill_buffer(
																												((obj_t)
																													BgL_iportz00_6970)))
																											{	/* Read/reader.scm 409 */
																												long
																													BgL_arg4473z00_6978;
																												long
																													BgL_arg4474z00_6979;
																												{	/* Read/reader.scm 409 */
																													obj_t
																														BgL_tmpz00_24974;
																													BgL_tmpz00_24974 =
																														((obj_t)
																														BgL_iportz00_6970);
																													BgL_arg4473z00_6978 =
																														RGC_BUFFER_FORWARD
																														(BgL_tmpz00_24974);
																												}
																												{	/* Read/reader.scm 409 */
																													obj_t
																														BgL_tmpz00_24977;
																													BgL_tmpz00_24977 =
																														((obj_t)
																														BgL_iportz00_6970);
																													BgL_arg4474z00_6979 =
																														RGC_BUFFER_BUFPOS
																														(BgL_tmpz00_24977);
																												}
																												{
																													long
																														BgL_bufposz00_24981;
																													long
																														BgL_forwardz00_24980;
																													BgL_forwardz00_24980 =
																														BgL_arg4473z00_6978;
																													BgL_bufposz00_24981 =
																														BgL_arg4474z00_6979;
																													BgL_bufposz00_6973 =
																														BgL_bufposz00_24981;
																													BgL_forwardz00_6972 =
																														BgL_forwardz00_24980;
																													goto
																														BgL_zc3z04anonymousza34470ze3z87_6974;
																												}
																											}
																										else
																											{	/* Read/reader.scm 409 */
																												BgL_matchz00_9747 =
																													BgL_newzd2matchzd2_6975;
																											}
																									}
																								else
																									{	/* Read/reader.scm 409 */
																										int BgL_curz00_6980;

																										{	/* Read/reader.scm 409 */
																											obj_t BgL_tmpz00_24982;

																											BgL_tmpz00_24982 =
																												((obj_t)
																												BgL_iportz00_6970);
																											BgL_curz00_6980 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_tmpz00_24982,
																												BgL_forwardz00_6972);
																										}
																										{	/* Read/reader.scm 409 */

																											if (
																												((long)
																													(BgL_curz00_6980) ==
																													58L))
																												{
																													long
																														BgL_bufposz00_24992;
																													long
																														BgL_forwardz00_24990;
																													long
																														BgL_lastzd2matchzd2_24989;
																													obj_t
																														BgL_iportz00_24988;
																													BgL_iportz00_24988 =
																														BgL_iportz00_6970;
																													BgL_lastzd2matchzd2_24989
																														=
																														BgL_newzd2matchzd2_6975;
																													BgL_forwardz00_24990 =
																														(1L +
																														BgL_forwardz00_6972);
																													BgL_bufposz00_24992 =
																														BgL_bufposz00_6973;
																													BgL_bufposz00_7304 =
																														BgL_bufposz00_24992;
																													BgL_forwardz00_7303 =
																														BgL_forwardz00_24990;
																													BgL_lastzd2matchzd2_7302
																														=
																														BgL_lastzd2matchzd2_24989;
																													BgL_iportz00_7301 =
																														BgL_iportz00_24988;
																													goto
																														BgL_zc3z04anonymousza34639ze3z87_7305;
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													bool_t
																														BgL_test8497z00_24993;
																													if (((long)
																															(BgL_curz00_6980)
																															>= 48L))
																														{	/* Read/reader.scm 409 */
																															BgL_test8497z00_24993
																																=
																																((long)
																																(BgL_curz00_6980)
																																< 58L);
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															BgL_test8497z00_24993
																																= ((bool_t) 0);
																														}
																													if (BgL_test8497z00_24993)
																														{	/* Read/reader.scm 409 */
																															BgL_iportz00_7474
																																=
																																BgL_iportz00_6970;
																															BgL_lastzd2matchzd2_7475
																																=
																																BgL_newzd2matchzd2_6975;
																															BgL_forwardz00_7476
																																=
																																(1L +
																																BgL_forwardz00_6972);
																															BgL_bufposz00_7477
																																=
																																BgL_bufposz00_6973;
																														BgL_zc3z04anonymousza34727ze3z87_7478:
																															{	/* Read/reader.scm 409 */
																																long
																																	BgL_newzd2matchzd2_7479;
																																{	/* Read/reader.scm 409 */
																																	obj_t
																																		BgL_tmpz00_24999;
																																	BgL_tmpz00_24999
																																		=
																																		((obj_t)
																																		BgL_iportz00_7474);
																																	RGC_STOP_MATCH
																																		(BgL_tmpz00_24999,
																																		BgL_forwardz00_7476);
																																}
																																BgL_newzd2matchzd2_7479
																																	= 13L;
																																if (
																																	(BgL_forwardz00_7476
																																		==
																																		BgL_bufposz00_7477))
																																	{	/* Read/reader.scm 409 */
																																		if (rgc_fill_buffer(((obj_t) BgL_iportz00_7474)))
																																			{	/* Read/reader.scm 409 */
																																				long
																																					BgL_arg4730z00_7482;
																																				long
																																					BgL_arg4731z00_7483;
																																				{	/* Read/reader.scm 409 */
																																					obj_t
																																						BgL_tmpz00_25007;
																																					BgL_tmpz00_25007
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_7474);
																																					BgL_arg4730z00_7482
																																						=
																																						RGC_BUFFER_FORWARD
																																						(BgL_tmpz00_25007);
																																				}
																																				{	/* Read/reader.scm 409 */
																																					obj_t
																																						BgL_tmpz00_25010;
																																					BgL_tmpz00_25010
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_7474);
																																					BgL_arg4731z00_7483
																																						=
																																						RGC_BUFFER_BUFPOS
																																						(BgL_tmpz00_25010);
																																				}
																																				{
																																					long
																																						BgL_bufposz00_25014;
																																					long
																																						BgL_forwardz00_25013;
																																					BgL_forwardz00_25013
																																						=
																																						BgL_arg4730z00_7482;
																																					BgL_bufposz00_25014
																																						=
																																						BgL_arg4731z00_7483;
																																					BgL_bufposz00_7477
																																						=
																																						BgL_bufposz00_25014;
																																					BgL_forwardz00_7476
																																						=
																																						BgL_forwardz00_25013;
																																					goto
																																						BgL_zc3z04anonymousza34727ze3z87_7478;
																																				}
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				BgL_matchz00_9747
																																					=
																																					BgL_newzd2matchzd2_7479;
																																			}
																																	}
																																else
																																	{	/* Read/reader.scm 409 */
																																		int
																																			BgL_curz00_7484;
																																		{	/* Read/reader.scm 409 */
																																			obj_t
																																				BgL_tmpz00_25015;
																																			BgL_tmpz00_25015
																																				=
																																				((obj_t)
																																				BgL_iportz00_7474);
																																			BgL_curz00_7484
																																				=
																																				RGC_BUFFER_GET_CHAR
																																				(BgL_tmpz00_25015,
																																				BgL_forwardz00_7476);
																																		}
																																		{	/* Read/reader.scm 409 */

																																			{	/* Read/reader.scm 409 */
																																				bool_t
																																					BgL_test8501z00_25018;
																																				if ((
																																						(long)
																																						(BgL_curz00_7484)
																																						==
																																						69L))
																																					{	/* Read/reader.scm 409 */
																																						BgL_test8501z00_25018
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						BgL_test8501z00_25018
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_7484)
																																							==
																																							101L);
																																					}
																																				if (BgL_test8501z00_25018)
																																					{
																																						long
																																							BgL_bufposz00_25028;
																																						long
																																							BgL_forwardz00_25026;
																																						long
																																							BgL_lastzd2matchzd2_25025;
																																						obj_t
																																							BgL_iportz00_25024;
																																						BgL_iportz00_25024
																																							=
																																							BgL_iportz00_7474;
																																						BgL_lastzd2matchzd2_25025
																																							=
																																							BgL_newzd2matchzd2_7479;
																																						BgL_forwardz00_25026
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_7476);
																																						BgL_bufposz00_25028
																																							=
																																							BgL_bufposz00_7477;
																																						BgL_bufposz00_7736
																																							=
																																							BgL_bufposz00_25028;
																																						BgL_forwardz00_7735
																																							=
																																							BgL_forwardz00_25026;
																																						BgL_lastzd2matchzd2_7734
																																							=
																																							BgL_lastzd2matchzd2_25025;
																																						BgL_iportz00_7733
																																							=
																																							BgL_iportz00_25024;
																																						goto
																																							BgL_zc3z04anonymousza34855ze3z87_7737;
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						if (
																																							((long) (BgL_curz00_7484) == 58L))
																																							{
																																								long
																																									BgL_bufposz00_25036;
																																								long
																																									BgL_forwardz00_25034;
																																								long
																																									BgL_lastzd2matchzd2_25033;
																																								obj_t
																																									BgL_iportz00_25032;
																																								BgL_iportz00_25032
																																									=
																																									BgL_iportz00_7474;
																																								BgL_lastzd2matchzd2_25033
																																									=
																																									BgL_newzd2matchzd2_7479;
																																								BgL_forwardz00_25034
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_7476);
																																								BgL_bufposz00_25036
																																									=
																																									BgL_bufposz00_7477;
																																								BgL_bufposz00_7304
																																									=
																																									BgL_bufposz00_25036;
																																								BgL_forwardz00_7303
																																									=
																																									BgL_forwardz00_25034;
																																								BgL_lastzd2matchzd2_7302
																																									=
																																									BgL_lastzd2matchzd2_25033;
																																								BgL_iportz00_7301
																																									=
																																									BgL_iportz00_25032;
																																								goto
																																									BgL_zc3z04anonymousza34639ze3z87_7305;
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								bool_t
																																									BgL_test8504z00_25037;
																																								if (((long) (BgL_curz00_7484) >= 48L))
																																									{	/* Read/reader.scm 409 */
																																										BgL_test8504z00_25037
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_7484)
																																											<
																																											58L);
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										BgL_test8504z00_25037
																																											=
																																											(
																																											(bool_t)
																																											0);
																																									}
																																								if (BgL_test8504z00_25037)
																																									{
																																										long
																																											BgL_forwardz00_25044;
																																										long
																																											BgL_lastzd2matchzd2_25043;
																																										BgL_lastzd2matchzd2_25043
																																											=
																																											BgL_newzd2matchzd2_7479;
																																										BgL_forwardz00_25044
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_7476);
																																										BgL_forwardz00_7476
																																											=
																																											BgL_forwardz00_25044;
																																										BgL_lastzd2matchzd2_7475
																																											=
																																											BgL_lastzd2matchzd2_25043;
																																										goto
																																											BgL_zc3z04anonymousza34727ze3z87_7478;
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										if (((long) (BgL_curz00_7484) == 46L))
																																											{
																																												long
																																													BgL_bufposz00_25053;
																																												long
																																													BgL_forwardz00_25051;
																																												long
																																													BgL_lastzd2matchzd2_25050;
																																												obj_t
																																													BgL_iportz00_25049;
																																												BgL_iportz00_25049
																																													=
																																													BgL_iportz00_7474;
																																												BgL_lastzd2matchzd2_25050
																																													=
																																													BgL_newzd2matchzd2_7479;
																																												BgL_forwardz00_25051
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_7476);
																																												BgL_bufposz00_25053
																																													=
																																													BgL_bufposz00_7477;
																																												BgL_bufposz00_9542
																																													=
																																													BgL_bufposz00_25053;
																																												BgL_forwardz00_9541
																																													=
																																													BgL_forwardz00_25051;
																																												BgL_lastzd2matchzd2_9540
																																													=
																																													BgL_lastzd2matchzd2_25050;
																																												BgL_iportz00_9539
																																													=
																																													BgL_iportz00_25049;
																																												goto
																																													BgL_zc3z04anonymousza35780ze3z87_9543;
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												bool_t
																																													BgL_test8507z00_25054;
																																												if (((long) (BgL_curz00_7484) == 39L))
																																													{	/* Read/reader.scm 409 */
																																														BgL_test8507z00_25054
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														if (((long) (BgL_curz00_7484) == 44L))
																																															{	/* Read/reader.scm 409 */
																																																BgL_test8507z00_25054
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																BgL_test8507z00_25054
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_7484)
																																																	==
																																																	96L);
																																													}}
																																												if (BgL_test8507z00_25054)
																																													{
																																														long
																																															BgL_bufposz00_25067;
																																														long
																																															BgL_forwardz00_25065;
																																														long
																																															BgL_lastzd2matchzd2_25064;
																																														obj_t
																																															BgL_iportz00_25063;
																																														BgL_iportz00_25063
																																															=
																																															BgL_iportz00_7474;
																																														BgL_lastzd2matchzd2_25064
																																															=
																																															BgL_newzd2matchzd2_7479;
																																														BgL_forwardz00_25065
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_7476);
																																														BgL_bufposz00_25067
																																															=
																																															BgL_bufposz00_7477;
																																														BgL_bufposz00_7365
																																															=
																																															BgL_bufposz00_25067;
																																														BgL_forwardz00_7364
																																															=
																																															BgL_forwardz00_25065;
																																														BgL_lastzd2matchzd2_7363
																																															=
																																															BgL_lastzd2matchzd2_25064;
																																														BgL_iportz00_7362
																																															=
																																															BgL_iportz00_25063;
																																														goto
																																															BgL_zc3z04anonymousza34670ze3z87_7366;
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														bool_t
																																															BgL_test8510z00_25068;
																																														if (((long) (BgL_curz00_7484) < 33L))
																																															{	/* Read/reader.scm 409 */
																																																BgL_test8510z00_25068
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																bool_t
																																																	BgL_test8512z00_25072;
																																																if (((long) (BgL_curz00_7484) == 35L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test8512z00_25072
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test8512z00_25072
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_7484)
																																																			==
																																																			34L);
																																																	}
																																																if (BgL_test8512z00_25072)
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test8510z00_25068
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		bool_t
																																																			BgL_test8514z00_25078;
																																																		if (((long) (BgL_curz00_7484) == 41L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test8514z00_25078
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				if (((long) (BgL_curz00_7484) == 40L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test8514z00_25078
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test8514z00_25078
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_7484)
																																																							==
																																																							39L);
																																																			}}
																																																		if (BgL_test8514z00_25078)
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test8510z00_25068
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				if (((long) (BgL_curz00_7484) == 44L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test8510z00_25068
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						if (((long) (BgL_curz00_7484) == 46L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test8510z00_25068
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								bool_t
																																																									BgL_test8519z00_25093;
																																																								if (((long) (BgL_curz00_7484) >= 48L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test8519z00_25093
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_7484)
																																																											<
																																																											60L);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test8519z00_25093
																																																											=
																																																											(
																																																											(bool_t)
																																																											0);
																																																									}
																																																								if (BgL_test8519z00_25093)
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test8510z00_25068
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										if (((long) (BgL_curz00_7484) == 69L))
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test8510z00_25068
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												if (((long) (BgL_curz00_7484) == 91L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test8510z00_25068
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														if (((long) (BgL_curz00_7484) == 93L))
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test8510z00_25068
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																if (((long) (BgL_curz00_7484) == 96L))
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test8510z00_25068
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		if (((long) (BgL_curz00_7484) == 101L))
																																																																			{	/* Read/reader.scm 409 */
																																																																				BgL_test8510z00_25068
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 409 */
																																																																				bool_t
																																																																					BgL_test8526z00_25114;
																																																																				if (((long) (BgL_curz00_7484) == 125L))
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test8526z00_25114
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 409 */
																																																																						if (((long) (BgL_curz00_7484) == 124L))
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test8526z00_25114
																																																																									=
																																																																									(
																																																																									(bool_t)
																																																																									1);
																																																																							}
																																																																						else
																																																																							{	/* Read/reader.scm 409 */
																																																																								BgL_test8526z00_25114
																																																																									=
																																																																									(
																																																																									(long)
																																																																									(BgL_curz00_7484)
																																																																									==
																																																																									123L);
																																																																					}}
																																																																				if (BgL_test8526z00_25114)
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test8510z00_25068
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							1);
																																																																					}
																																																																				else
																																																																					{	/* Read/reader.scm 409 */
																																																																						BgL_test8510z00_25068
																																																																							=
																																																																							(
																																																																							(long)
																																																																							(BgL_curz00_7484)
																																																																							==
																																																																							127L);
																																															}}}}}}}}}}}}
																																														if (BgL_test8510z00_25068)
																																															{	/* Read/reader.scm 409 */
																																																BgL_matchz00_9747
																																																	=
																																																	BgL_newzd2matchzd2_7479;
																																															}
																																														else
																																															{
																																																long
																																																	BgL_bufposz00_25129;
																																																long
																																																	BgL_forwardz00_25127;
																																																long
																																																	BgL_lastzd2matchzd2_25126;
																																																obj_t
																																																	BgL_iportz00_25125;
																																																BgL_iportz00_25125
																																																	=
																																																	BgL_iportz00_7474;
																																																BgL_lastzd2matchzd2_25126
																																																	=
																																																	BgL_newzd2matchzd2_7479;
																																																BgL_forwardz00_25127
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_7476);
																																																BgL_bufposz00_25129
																																																	=
																																																	BgL_bufposz00_7477;
																																																BgL_bufposz00_5103
																																																	=
																																																	BgL_bufposz00_25129;
																																																BgL_forwardz00_5102
																																																	=
																																																	BgL_forwardz00_25127;
																																																BgL_lastzd2matchzd2_5101
																																																	=
																																																	BgL_lastzd2matchzd2_25126;
																																																BgL_iportz00_5100
																																																	=
																																																	BgL_iportz00_25125;
																																																goto
																																																	BgL_zc3z04anonymousza33512ze3z87_5104;
																																															}
																																													}
																																											}
																																									}
																																							}
																																					}
																																			}
																																		}
																																	}
																															}
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															if (
																																((long)
																																	(BgL_curz00_6980)
																																	== 46L))
																																{
																																	long
																																		BgL_bufposz00_25138;
																																	long
																																		BgL_forwardz00_25136;
																																	long
																																		BgL_lastzd2matchzd2_25135;
																																	obj_t
																																		BgL_iportz00_25134;
																																	BgL_iportz00_25134
																																		=
																																		BgL_iportz00_6970;
																																	BgL_lastzd2matchzd2_25135
																																		=
																																		BgL_newzd2matchzd2_6975;
																																	BgL_forwardz00_25136
																																		=
																																		(1L +
																																		BgL_forwardz00_6972);
																																	BgL_bufposz00_25138
																																		=
																																		BgL_bufposz00_6973;
																																	BgL_bufposz00_9542
																																		=
																																		BgL_bufposz00_25138;
																																	BgL_forwardz00_9541
																																		=
																																		BgL_forwardz00_25136;
																																	BgL_lastzd2matchzd2_9540
																																		=
																																		BgL_lastzd2matchzd2_25135;
																																	BgL_iportz00_9539
																																		=
																																		BgL_iportz00_25134;
																																	goto
																																		BgL_zc3z04anonymousza35780ze3z87_9543;
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	bool_t
																																		BgL_test8530z00_25139;
																																	if (((long)
																																			(BgL_curz00_6980)
																																			== 39L))
																																		{	/* Read/reader.scm 409 */
																																			BgL_test8530z00_25139
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			if (
																																				((long)
																																					(BgL_curz00_6980)
																																					==
																																					44L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8530z00_25139
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8530z00_25139
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_6980)
																																						==
																																						96L);
																																		}}
																																	if (BgL_test8530z00_25139)
																																		{
																																			long
																																				BgL_bufposz00_25152;
																																			long
																																				BgL_forwardz00_25150;
																																			long
																																				BgL_lastzd2matchzd2_25149;
																																			obj_t
																																				BgL_iportz00_25148;
																																			BgL_iportz00_25148
																																				=
																																				BgL_iportz00_6970;
																																			BgL_lastzd2matchzd2_25149
																																				=
																																				BgL_newzd2matchzd2_6975;
																																			BgL_forwardz00_25150
																																				=
																																				(1L +
																																				BgL_forwardz00_6972);
																																			BgL_bufposz00_25152
																																				=
																																				BgL_bufposz00_6973;
																																			BgL_bufposz00_7365
																																				=
																																				BgL_bufposz00_25152;
																																			BgL_forwardz00_7364
																																				=
																																				BgL_forwardz00_25150;
																																			BgL_lastzd2matchzd2_7363
																																				=
																																				BgL_lastzd2matchzd2_25149;
																																			BgL_iportz00_7362
																																				=
																																				BgL_iportz00_25148;
																																			goto
																																				BgL_zc3z04anonymousza34670ze3z87_7366;
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			bool_t
																																				BgL_test8533z00_25153;
																																			if ((
																																					(long)
																																					(BgL_curz00_6980)
																																					<
																																					33L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8533z00_25153
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					bool_t
																																						BgL_test8535z00_25157;
																																					if ((
																																							(long)
																																							(BgL_curz00_6980)
																																							==
																																							35L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8535z00_25157
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8535z00_25157
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_6980)
																																								==
																																								34L);
																																						}
																																					if (BgL_test8535z00_25157)
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8533z00_25153
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							bool_t
																																								BgL_test8537z00_25163;
																																							if (((long) (BgL_curz00_6980) == 41L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8537z00_25163
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_6980) == 40L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8537z00_25163
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8537z00_25163
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_6980)
																																												==
																																												39L);
																																								}}
																																							if (BgL_test8537z00_25163)
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8533z00_25153
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_6980) == 44L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8533z00_25153
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											if (((long) (BgL_curz00_6980) == 46L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8533z00_25153
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													bool_t
																																														BgL_test8542z00_25178;
																																													if (((long) (BgL_curz00_6980) >= 48L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8542z00_25178
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_6980)
																																																<
																																																60L);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8542z00_25178
																																																=
																																																(
																																																(bool_t)
																																																0);
																																														}
																																													if (BgL_test8542z00_25178)
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8533z00_25153
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_6980) == 91L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8533z00_25153
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	if (((long) (BgL_curz00_6980) == 93L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8533z00_25153
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			if (((long) (BgL_curz00_6980) == 96L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8533z00_25153
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					bool_t
																																																						BgL_test8547z00_25193;
																																																					if (((long) (BgL_curz00_6980) == 125L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8547z00_25193
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							if (((long) (BgL_curz00_6980) == 124L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8547z00_25193
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8547z00_25193
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_6980)
																																																										==
																																																										123L);
																																																						}}
																																																					if (BgL_test8547z00_25193)
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8533z00_25153
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8533z00_25153
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_6980)
																																																								==
																																																								127L);
																																				}}}}}}}}}}
																																			if (BgL_test8533z00_25153)
																																				{	/* Read/reader.scm 409 */
																																					BgL_matchz00_9747
																																						=
																																						BgL_newzd2matchzd2_6975;
																																				}
																																			else
																																				{
																																					long
																																						BgL_bufposz00_25208;
																																					long
																																						BgL_forwardz00_25206;
																																					long
																																						BgL_lastzd2matchzd2_25205;
																																					obj_t
																																						BgL_iportz00_25204;
																																					BgL_iportz00_25204
																																						=
																																						BgL_iportz00_6970;
																																					BgL_lastzd2matchzd2_25205
																																						=
																																						BgL_newzd2matchzd2_6975;
																																					BgL_forwardz00_25206
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_6972);
																																					BgL_bufposz00_25208
																																						=
																																						BgL_bufposz00_6973;
																																					BgL_bufposz00_5103
																																						=
																																						BgL_bufposz00_25208;
																																					BgL_forwardz00_5102
																																						=
																																						BgL_forwardz00_25206;
																																					BgL_lastzd2matchzd2_5101
																																						=
																																						BgL_lastzd2matchzd2_25205;
																																					BgL_iportz00_5100
																																						=
																																						BgL_iportz00_25204;
																																					goto
																																						BgL_zc3z04anonymousza33512ze3z87_5104;
																																				}
																																		}
																																}
																														}
																												}
																										}
																									}
																							}
																						}
																					else
																						{	/* Read/reader.scm 409 */
																							bool_t BgL_test8550z00_25210;

																							if (
																								((long) (BgL_curz00_4644) ==
																									39L))
																								{	/* Read/reader.scm 409 */
																									BgL_test8550z00_25210 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Read/reader.scm 409 */
																									if (
																										((long) (BgL_curz00_4644) ==
																											44L))
																										{	/* Read/reader.scm 409 */
																											BgL_test8550z00_25210 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 409 */
																											BgL_test8550z00_25210 =
																												(
																												(long) (BgL_curz00_4644)
																												== 96L);
																								}}
																							if (BgL_test8550z00_25210)
																								{
																									long BgL_bufposz00_25223;
																									long BgL_forwardz00_25221;
																									long
																										BgL_lastzd2matchzd2_25220;
																									obj_t BgL_iportz00_25219;

																									BgL_iportz00_25219 =
																										BgL_iportz00_4634;
																									BgL_lastzd2matchzd2_25220 =
																										BgL_newzd2matchzd2_4639;
																									BgL_forwardz00_25221 =
																										(1L + BgL_forwardz00_4636);
																									BgL_bufposz00_25223 =
																										BgL_bufposz00_4637;
																									BgL_bufposz00_6105 =
																										BgL_bufposz00_25223;
																									BgL_forwardz00_6104 =
																										BgL_forwardz00_25221;
																									BgL_lastzd2matchzd2_6103 =
																										BgL_lastzd2matchzd2_25220;
																									BgL_iportz00_6102 =
																										BgL_iportz00_25219;
																									goto
																										BgL_zc3z04anonymousza34018ze3z87_6106;
																								}
																							else
																								{	/* Read/reader.scm 409 */
																									bool_t BgL_test8553z00_25224;

																									if (
																										((long) (BgL_curz00_4644) <
																											33L))
																										{	/* Read/reader.scm 409 */
																											BgL_test8553z00_25224 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 409 */
																											bool_t
																												BgL_test8555z00_25228;
																											if (((long)
																													(BgL_curz00_4644) ==
																													35L))
																												{	/* Read/reader.scm 409 */
																													BgL_test8555z00_25228
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													BgL_test8555z00_25228
																														=
																														((long)
																														(BgL_curz00_4644) ==
																														34L);
																												}
																											if (BgL_test8555z00_25228)
																												{	/* Read/reader.scm 409 */
																													BgL_test8553z00_25224
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													bool_t
																														BgL_test8557z00_25234;
																													if (((long)
																															(BgL_curz00_4644)
																															== 41L))
																														{	/* Read/reader.scm 409 */
																															BgL_test8557z00_25234
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															if (
																																((long)
																																	(BgL_curz00_4644)
																																	== 40L))
																																{	/* Read/reader.scm 409 */
																																	BgL_test8557z00_25234
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	BgL_test8557z00_25234
																																		=
																																		((long)
																																		(BgL_curz00_4644)
																																		== 39L);
																														}}
																													if (BgL_test8557z00_25234)
																														{	/* Read/reader.scm 409 */
																															BgL_test8553z00_25224
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															if (
																																((long)
																																	(BgL_curz00_4644)
																																	== 44L))
																																{	/* Read/reader.scm 409 */
																																	BgL_test8553z00_25224
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	if (
																																		((long)
																																			(BgL_curz00_4644)
																																			== 46L))
																																		{	/* Read/reader.scm 409 */
																																			BgL_test8553z00_25224
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			bool_t
																																				BgL_test8562z00_25249;
																																			if ((
																																					(long)
																																					(BgL_curz00_4644)
																																					>=
																																					48L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8562z00_25249
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_4644)
																																						<
																																						60L);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8562z00_25249
																																						=
																																						(
																																						(bool_t)
																																						0);
																																				}
																																			if (BgL_test8562z00_25249)
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8553z00_25224
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					if (
																																						((long) (BgL_curz00_4644) == 91L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8553z00_25224
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							if (((long) (BgL_curz00_4644) == 93L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8553z00_25224
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_4644) == 96L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8553z00_25224
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											if (((long) (BgL_curz00_4644) == 105L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8553z00_25224
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													bool_t
																																														BgL_test8568z00_25267;
																																													if (((long) (BgL_curz00_4644) == 125L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8568z00_25267
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_4644) == 124L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8568z00_25267
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8568z00_25267
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_4644)
																																																		==
																																																		123L);
																																														}}
																																													if (BgL_test8568z00_25267)
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8553z00_25224
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8553z00_25224
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_4644)
																																																==
																																																127L);
																										}}}}}}}}}}}
																									if (BgL_test8553z00_25224)
																										{	/* Read/reader.scm 409 */
																											BgL_matchz00_9747 =
																												BgL_newzd2matchzd2_4639;
																										}
																									else
																										{
																											long BgL_bufposz00_25282;
																											long BgL_forwardz00_25280;
																											long
																												BgL_lastzd2matchzd2_25279;
																											obj_t BgL_iportz00_25278;

																											BgL_iportz00_25278 =
																												BgL_iportz00_4634;
																											BgL_lastzd2matchzd2_25279
																												=
																												BgL_newzd2matchzd2_4639;
																											BgL_forwardz00_25280 =
																												(1L +
																												BgL_forwardz00_4636);
																											BgL_bufposz00_25282 =
																												BgL_bufposz00_4637;
																											BgL_bufposz00_4963 =
																												BgL_bufposz00_25282;
																											BgL_forwardz00_4962 =
																												BgL_forwardz00_25280;
																											BgL_lastzd2matchzd2_4961 =
																												BgL_lastzd2matchzd2_25279;
																											BgL_iportz00_4960 =
																												BgL_iportz00_25278;
																											goto
																												BgL_zc3z04anonymousza33439ze3z87_4964;
																										}
																								}
																						}
																				}
																		}
																}
														}
													}
											}
											break;
										case 44L:

											BgL_iportz00_8448 = BgL_iportz00_8604;
											BgL_lastzd2matchzd2_8449 = BgL_lastzd2matchzd2_8605;
											BgL_forwardz00_8450 = (1L + BgL_forwardz00_8606);
											BgL_bufposz00_8451 = BgL_bufposz00_8607;
										BgL_zc3z04anonymousza35213ze3z87_8452:
											{	/* Read/reader.scm 409 */
												long BgL_newzd2matchzd2_8453;

												{	/* Read/reader.scm 409 */
													obj_t BgL_tmpz00_25284;

													BgL_tmpz00_25284 = ((obj_t) BgL_iportz00_8448);
													RGC_STOP_MATCH(BgL_tmpz00_25284, BgL_forwardz00_8450);
												}
												BgL_newzd2matchzd2_8453 = 26L;
												if ((BgL_forwardz00_8450 == BgL_bufposz00_8451))
													{	/* Read/reader.scm 409 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_8448)))
															{	/* Read/reader.scm 409 */
																long BgL_arg5216z00_8456;
																long BgL_arg5217z00_8457;

																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_25292;

																	BgL_tmpz00_25292 =
																		((obj_t) BgL_iportz00_8448);
																	BgL_arg5216z00_8456 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_25292);
																}
																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_25295;

																	BgL_tmpz00_25295 =
																		((obj_t) BgL_iportz00_8448);
																	BgL_arg5217z00_8457 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_25295);
																}
																{
																	long BgL_bufposz00_25299;
																	long BgL_forwardz00_25298;

																	BgL_forwardz00_25298 = BgL_arg5216z00_8456;
																	BgL_bufposz00_25299 = BgL_arg5217z00_8457;
																	BgL_bufposz00_8451 = BgL_bufposz00_25299;
																	BgL_forwardz00_8450 = BgL_forwardz00_25298;
																	goto BgL_zc3z04anonymousza35213ze3z87_8452;
																}
															}
														else
															{	/* Read/reader.scm 409 */
																BgL_matchz00_9747 = BgL_newzd2matchzd2_8453;
															}
													}
												else
													{	/* Read/reader.scm 409 */
														int BgL_curz00_8458;

														{	/* Read/reader.scm 409 */
															obj_t BgL_tmpz00_25300;

															BgL_tmpz00_25300 = ((obj_t) BgL_iportz00_8448);
															BgL_curz00_8458 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_25300,
																BgL_forwardz00_8450);
														}
														{	/* Read/reader.scm 409 */

															if (((long) (BgL_curz00_8458) == 64L))
																{	/* Read/reader.scm 409 */
																	long BgL_arg5219z00_8460;

																	BgL_arg5219z00_8460 =
																		(1L + BgL_forwardz00_8450);
																	{	/* Read/reader.scm 409 */
																		long BgL_newzd2matchzd2_15919;

																		{	/* Read/reader.scm 409 */
																			obj_t BgL_tmpz00_25307;

																			BgL_tmpz00_25307 =
																				((obj_t) BgL_iportz00_8448);
																			RGC_STOP_MATCH(BgL_tmpz00_25307,
																				BgL_arg5219z00_8460);
																		}
																		BgL_newzd2matchzd2_15919 = 27L;
																		BgL_matchz00_9747 =
																			BgL_newzd2matchzd2_15919;
																}}
															else
																{	/* Read/reader.scm 409 */
																	BgL_matchz00_9747 = BgL_newzd2matchzd2_8453;
																}
														}
													}
											}
											break;
										case 43L:

											BgL_iportz00_9399 = BgL_iportz00_8604;
											BgL_lastzd2matchzd2_9400 = BgL_lastzd2matchzd2_8605;
											BgL_forwardz00_9401 = (1L + BgL_forwardz00_8606);
											BgL_bufposz00_9402 = BgL_bufposz00_8607;
										BgL_zc3z04anonymousza35704ze3z87_9403:
											{	/* Read/reader.scm 409 */
												long BgL_newzd2matchzd2_9404;

												{	/* Read/reader.scm 409 */
													obj_t BgL_tmpz00_25311;

													BgL_tmpz00_25311 = ((obj_t) BgL_iportz00_9399);
													RGC_STOP_MATCH(BgL_tmpz00_25311, BgL_forwardz00_9401);
												}
												BgL_newzd2matchzd2_9404 = 22L;
												if ((BgL_forwardz00_9401 == BgL_bufposz00_9402))
													{	/* Read/reader.scm 409 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_9399)))
															{	/* Read/reader.scm 409 */
																long BgL_arg5707z00_9407;
																long BgL_arg5708z00_9408;

																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_25319;

																	BgL_tmpz00_25319 =
																		((obj_t) BgL_iportz00_9399);
																	BgL_arg5707z00_9407 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_25319);
																}
																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_25322;

																	BgL_tmpz00_25322 =
																		((obj_t) BgL_iportz00_9399);
																	BgL_arg5708z00_9408 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_25322);
																}
																{
																	long BgL_bufposz00_25326;
																	long BgL_forwardz00_25325;

																	BgL_forwardz00_25325 = BgL_arg5707z00_9407;
																	BgL_bufposz00_25326 = BgL_arg5708z00_9408;
																	BgL_bufposz00_9402 = BgL_bufposz00_25326;
																	BgL_forwardz00_9401 = BgL_forwardz00_25325;
																	goto BgL_zc3z04anonymousza35704ze3z87_9403;
																}
															}
														else
															{	/* Read/reader.scm 409 */
																BgL_matchz00_9747 = BgL_newzd2matchzd2_9404;
															}
													}
												else
													{	/* Read/reader.scm 409 */
														int BgL_curz00_9409;

														{	/* Read/reader.scm 409 */
															obj_t BgL_tmpz00_25327;

															BgL_tmpz00_25327 = ((obj_t) BgL_iportz00_9399);
															BgL_curz00_9409 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_25327,
																BgL_forwardz00_9401);
														}
														{	/* Read/reader.scm 409 */

															if (((long) (BgL_curz00_9409) == 110L))
																{	/* Read/reader.scm 409 */
																	BgL_iportz00_8053 = BgL_iportz00_9399;
																	BgL_lastzd2matchzd2_8054 =
																		BgL_newzd2matchzd2_9404;
																	BgL_forwardz00_8055 =
																		(1L + BgL_forwardz00_9401);
																	BgL_bufposz00_8056 = BgL_bufposz00_9402;
																BgL_zc3z04anonymousza35021ze3z87_8057:
																	{	/* Read/reader.scm 409 */
																		long BgL_newzd2matchzd2_8058;

																		{	/* Read/reader.scm 409 */
																			obj_t BgL_tmpz00_25333;

																			BgL_tmpz00_25333 =
																				((obj_t) BgL_iportz00_8053);
																			RGC_STOP_MATCH(BgL_tmpz00_25333,
																				BgL_forwardz00_8055);
																		}
																		BgL_newzd2matchzd2_8058 = 22L;
																		if (
																			(BgL_forwardz00_8055 ==
																				BgL_bufposz00_8056))
																			{	/* Read/reader.scm 409 */
																				if (rgc_fill_buffer(
																						((obj_t) BgL_iportz00_8053)))
																					{	/* Read/reader.scm 409 */
																						long BgL_arg5024z00_8061;
																						long BgL_arg5025z00_8062;

																						{	/* Read/reader.scm 409 */
																							obj_t BgL_tmpz00_25341;

																							BgL_tmpz00_25341 =
																								((obj_t) BgL_iportz00_8053);
																							BgL_arg5024z00_8061 =
																								RGC_BUFFER_FORWARD
																								(BgL_tmpz00_25341);
																						}
																						{	/* Read/reader.scm 409 */
																							obj_t BgL_tmpz00_25344;

																							BgL_tmpz00_25344 =
																								((obj_t) BgL_iportz00_8053);
																							BgL_arg5025z00_8062 =
																								RGC_BUFFER_BUFPOS
																								(BgL_tmpz00_25344);
																						}
																						{
																							long BgL_bufposz00_25348;
																							long BgL_forwardz00_25347;

																							BgL_forwardz00_25347 =
																								BgL_arg5024z00_8061;
																							BgL_bufposz00_25348 =
																								BgL_arg5025z00_8062;
																							BgL_bufposz00_8056 =
																								BgL_bufposz00_25348;
																							BgL_forwardz00_8055 =
																								BgL_forwardz00_25347;
																							goto
																								BgL_zc3z04anonymousza35021ze3z87_8057;
																						}
																					}
																				else
																					{	/* Read/reader.scm 409 */
																						BgL_matchz00_9747 =
																							BgL_newzd2matchzd2_8058;
																					}
																			}
																		else
																			{	/* Read/reader.scm 409 */
																				int BgL_curz00_8063;

																				{	/* Read/reader.scm 409 */
																					obj_t BgL_tmpz00_25349;

																					BgL_tmpz00_25349 =
																						((obj_t) BgL_iportz00_8053);
																					BgL_curz00_8063 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_tmpz00_25349,
																						BgL_forwardz00_8055);
																				}
																				{	/* Read/reader.scm 409 */

																					if (((long) (BgL_curz00_8063) == 97L))
																						{	/* Read/reader.scm 409 */
																							BgL_iportz00_5240 =
																								BgL_iportz00_8053;
																							BgL_lastzd2matchzd2_5241 =
																								BgL_newzd2matchzd2_8058;
																							BgL_forwardz00_5242 =
																								(1L + BgL_forwardz00_8055);
																							BgL_bufposz00_5243 =
																								BgL_bufposz00_8056;
																						BgL_zc3z04anonymousza33583ze3z87_5244:
																							{	/* Read/reader.scm 409 */
																								long BgL_newzd2matchzd2_5245;

																								{	/* Read/reader.scm 409 */
																									obj_t BgL_tmpz00_25355;

																									BgL_tmpz00_25355 =
																										((obj_t) BgL_iportz00_5240);
																									RGC_STOP_MATCH
																										(BgL_tmpz00_25355,
																										BgL_forwardz00_5242);
																								}
																								BgL_newzd2matchzd2_5245 = 22L;
																								if (
																									(BgL_forwardz00_5242 ==
																										BgL_bufposz00_5243))
																									{	/* Read/reader.scm 409 */
																										if (rgc_fill_buffer(
																												((obj_t)
																													BgL_iportz00_5240)))
																											{	/* Read/reader.scm 409 */
																												long
																													BgL_arg3586z00_5248;
																												long
																													BgL_arg3588z00_5249;
																												{	/* Read/reader.scm 409 */
																													obj_t
																														BgL_tmpz00_25363;
																													BgL_tmpz00_25363 =
																														((obj_t)
																														BgL_iportz00_5240);
																													BgL_arg3586z00_5248 =
																														RGC_BUFFER_FORWARD
																														(BgL_tmpz00_25363);
																												}
																												{	/* Read/reader.scm 409 */
																													obj_t
																														BgL_tmpz00_25366;
																													BgL_tmpz00_25366 =
																														((obj_t)
																														BgL_iportz00_5240);
																													BgL_arg3588z00_5249 =
																														RGC_BUFFER_BUFPOS
																														(BgL_tmpz00_25366);
																												}
																												{
																													long
																														BgL_bufposz00_25370;
																													long
																														BgL_forwardz00_25369;
																													BgL_forwardz00_25369 =
																														BgL_arg3586z00_5248;
																													BgL_bufposz00_25370 =
																														BgL_arg3588z00_5249;
																													BgL_bufposz00_5243 =
																														BgL_bufposz00_25370;
																													BgL_forwardz00_5242 =
																														BgL_forwardz00_25369;
																													goto
																														BgL_zc3z04anonymousza33583ze3z87_5244;
																												}
																											}
																										else
																											{	/* Read/reader.scm 409 */
																												BgL_matchz00_9747 =
																													BgL_newzd2matchzd2_5245;
																											}
																									}
																								else
																									{	/* Read/reader.scm 409 */
																										int BgL_curz00_5250;

																										{	/* Read/reader.scm 409 */
																											obj_t BgL_tmpz00_25371;

																											BgL_tmpz00_25371 =
																												((obj_t)
																												BgL_iportz00_5240);
																											BgL_curz00_5250 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_tmpz00_25371,
																												BgL_forwardz00_5242);
																										}
																										{	/* Read/reader.scm 409 */

																											if (
																												((long)
																													(BgL_curz00_5250) ==
																													110L))
																												{	/* Read/reader.scm 409 */
																													BgL_iportz00_8119 =
																														BgL_iportz00_5240;
																													BgL_lastzd2matchzd2_8120
																														=
																														BgL_newzd2matchzd2_5245;
																													BgL_forwardz00_8121 =
																														(1L +
																														BgL_forwardz00_5242);
																													BgL_bufposz00_8122 =
																														BgL_bufposz00_5243;
																												BgL_zc3z04anonymousza35055ze3z87_8123:
																													{	/* Read/reader.scm 409 */
																														long
																															BgL_newzd2matchzd2_8124;
																														{	/* Read/reader.scm 409 */
																															obj_t
																																BgL_tmpz00_25377;
																															BgL_tmpz00_25377 =
																																((obj_t)
																																BgL_iportz00_8119);
																															RGC_STOP_MATCH
																																(BgL_tmpz00_25377,
																																BgL_forwardz00_8121);
																														}
																														BgL_newzd2matchzd2_8124
																															= 22L;
																														if (
																															(BgL_forwardz00_8121
																																==
																																BgL_bufposz00_8122))
																															{	/* Read/reader.scm 409 */
																																if (rgc_fill_buffer(((obj_t) BgL_iportz00_8119)))
																																	{	/* Read/reader.scm 409 */
																																		long
																																			BgL_arg5058z00_8127;
																																		long
																																			BgL_arg5059z00_8128;
																																		{	/* Read/reader.scm 409 */
																																			obj_t
																																				BgL_tmpz00_25385;
																																			BgL_tmpz00_25385
																																				=
																																				((obj_t)
																																				BgL_iportz00_8119);
																																			BgL_arg5058z00_8127
																																				=
																																				RGC_BUFFER_FORWARD
																																				(BgL_tmpz00_25385);
																																		}
																																		{	/* Read/reader.scm 409 */
																																			obj_t
																																				BgL_tmpz00_25388;
																																			BgL_tmpz00_25388
																																				=
																																				((obj_t)
																																				BgL_iportz00_8119);
																																			BgL_arg5059z00_8128
																																				=
																																				RGC_BUFFER_BUFPOS
																																				(BgL_tmpz00_25388);
																																		}
																																		{
																																			long
																																				BgL_bufposz00_25392;
																																			long
																																				BgL_forwardz00_25391;
																																			BgL_forwardz00_25391
																																				=
																																				BgL_arg5058z00_8127;
																																			BgL_bufposz00_25392
																																				=
																																				BgL_arg5059z00_8128;
																																			BgL_bufposz00_8122
																																				=
																																				BgL_bufposz00_25392;
																																			BgL_forwardz00_8121
																																				=
																																				BgL_forwardz00_25391;
																																			goto
																																				BgL_zc3z04anonymousza35055ze3z87_8123;
																																		}
																																	}
																																else
																																	{	/* Read/reader.scm 409 */
																																		BgL_matchz00_9747
																																			=
																																			BgL_newzd2matchzd2_8124;
																																	}
																															}
																														else
																															{	/* Read/reader.scm 409 */
																																int
																																	BgL_curz00_8129;
																																{	/* Read/reader.scm 409 */
																																	obj_t
																																		BgL_tmpz00_25393;
																																	BgL_tmpz00_25393
																																		=
																																		((obj_t)
																																		BgL_iportz00_8119);
																																	BgL_curz00_8129
																																		=
																																		RGC_BUFFER_GET_CHAR
																																		(BgL_tmpz00_25393,
																																		BgL_forwardz00_8121);
																																}
																																{	/* Read/reader.scm 409 */

																																	if (
																																		((long)
																																			(BgL_curz00_8129)
																																			== 58L))
																																		{
																																			long
																																				BgL_bufposz00_25403;
																																			long
																																				BgL_forwardz00_25401;
																																			long
																																				BgL_lastzd2matchzd2_25400;
																																			obj_t
																																				BgL_iportz00_25399;
																																			BgL_iportz00_25399
																																				=
																																				BgL_iportz00_8119;
																																			BgL_lastzd2matchzd2_25400
																																				=
																																				BgL_newzd2matchzd2_8124;
																																			BgL_forwardz00_25401
																																				=
																																				(1L +
																																				BgL_forwardz00_8121);
																																			BgL_bufposz00_25403
																																				=
																																				BgL_bufposz00_8122;
																																			BgL_bufposz00_6394
																																				=
																																				BgL_bufposz00_25403;
																																			BgL_forwardz00_6393
																																				=
																																				BgL_forwardz00_25401;
																																			BgL_lastzd2matchzd2_6392
																																				=
																																				BgL_lastzd2matchzd2_25400;
																																			BgL_iportz00_6391
																																				=
																																				BgL_iportz00_25399;
																																			goto
																																				BgL_zc3z04anonymousza34167ze3z87_6395;
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			if (
																																				((long)
																																					(BgL_curz00_8129)
																																					==
																																					46L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_iportz00_6749
																																						=
																																						BgL_iportz00_8119;
																																					BgL_lastzd2matchzd2_6750
																																						=
																																						BgL_newzd2matchzd2_8124;
																																					BgL_forwardz00_6751
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_8121);
																																					BgL_bufposz00_6752
																																						=
																																						BgL_bufposz00_8122;
																																				BgL_zc3z04anonymousza34357ze3z87_6753:
																																					{	/* Read/reader.scm 409 */
																																						long
																																							BgL_newzd2matchzd2_6754;
																																						{	/* Read/reader.scm 409 */
																																							obj_t
																																								BgL_tmpz00_25407;
																																							BgL_tmpz00_25407
																																								=
																																								(
																																								(obj_t)
																																								BgL_iportz00_6749);
																																							RGC_STOP_MATCH
																																								(BgL_tmpz00_25407,
																																								BgL_forwardz00_6751);
																																						}
																																						BgL_newzd2matchzd2_6754
																																							=
																																							22L;
																																						if (
																																							(BgL_forwardz00_6751
																																								==
																																								BgL_bufposz00_6752))
																																							{	/* Read/reader.scm 409 */
																																								if (rgc_fill_buffer(((obj_t) BgL_iportz00_6749)))
																																									{	/* Read/reader.scm 409 */
																																										long
																																											BgL_arg4360z00_6757;
																																										long
																																											BgL_arg4361z00_6758;
																																										{	/* Read/reader.scm 409 */
																																											obj_t
																																												BgL_tmpz00_25415;
																																											BgL_tmpz00_25415
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_6749);
																																											BgL_arg4360z00_6757
																																												=
																																												RGC_BUFFER_FORWARD
																																												(BgL_tmpz00_25415);
																																										}
																																										{	/* Read/reader.scm 409 */
																																											obj_t
																																												BgL_tmpz00_25418;
																																											BgL_tmpz00_25418
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_6749);
																																											BgL_arg4361z00_6758
																																												=
																																												RGC_BUFFER_BUFPOS
																																												(BgL_tmpz00_25418);
																																										}
																																										{
																																											long
																																												BgL_bufposz00_25422;
																																											long
																																												BgL_forwardz00_25421;
																																											BgL_forwardz00_25421
																																												=
																																												BgL_arg4360z00_6757;
																																											BgL_bufposz00_25422
																																												=
																																												BgL_arg4361z00_6758;
																																											BgL_bufposz00_6752
																																												=
																																												BgL_bufposz00_25422;
																																											BgL_forwardz00_6751
																																												=
																																												BgL_forwardz00_25421;
																																											goto
																																												BgL_zc3z04anonymousza34357ze3z87_6753;
																																										}
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										BgL_matchz00_9747
																																											=
																																											BgL_newzd2matchzd2_6754;
																																									}
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								int
																																									BgL_curz00_6759;
																																								{	/* Read/reader.scm 409 */
																																									obj_t
																																										BgL_tmpz00_25423;
																																									BgL_tmpz00_25423
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_6749);
																																									BgL_curz00_6759
																																										=
																																										RGC_BUFFER_GET_CHAR
																																										(BgL_tmpz00_25423,
																																										BgL_forwardz00_6751);
																																								}
																																								{	/* Read/reader.scm 409 */

																																									if (((long) (BgL_curz00_6759) == 58L))
																																										{
																																											long
																																												BgL_bufposz00_25433;
																																											long
																																												BgL_forwardz00_25431;
																																											long
																																												BgL_lastzd2matchzd2_25430;
																																											obj_t
																																												BgL_iportz00_25429;
																																											BgL_iportz00_25429
																																												=
																																												BgL_iportz00_6749;
																																											BgL_lastzd2matchzd2_25430
																																												=
																																												BgL_newzd2matchzd2_6754;
																																											BgL_forwardz00_25431
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_6751);
																																											BgL_bufposz00_25433
																																												=
																																												BgL_bufposz00_6752;
																																											BgL_bufposz00_7304
																																												=
																																												BgL_bufposz00_25433;
																																											BgL_forwardz00_7303
																																												=
																																												BgL_forwardz00_25431;
																																											BgL_lastzd2matchzd2_7302
																																												=
																																												BgL_lastzd2matchzd2_25430;
																																											BgL_iportz00_7301
																																												=
																																												BgL_iportz00_25429;
																																											goto
																																												BgL_zc3z04anonymousza34639ze3z87_7305;
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											bool_t
																																												BgL_test8590z00_25434;
																																											if (((long) (BgL_curz00_6759) >= 49L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8590z00_25434
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_6759)
																																														<
																																														58L);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8590z00_25434
																																														=
																																														(
																																														(bool_t)
																																														0);
																																												}
																																											if (BgL_test8590z00_25434)
																																												{
																																													long
																																														BgL_bufposz00_25444;
																																													long
																																														BgL_forwardz00_25442;
																																													long
																																														BgL_lastzd2matchzd2_25441;
																																													obj_t
																																														BgL_iportz00_25440;
																																													BgL_iportz00_25440
																																														=
																																														BgL_iportz00_6749;
																																													BgL_lastzd2matchzd2_25441
																																														=
																																														BgL_newzd2matchzd2_6754;
																																													BgL_forwardz00_25442
																																														=
																																														(1L
																																														+
																																														BgL_forwardz00_6751);
																																													BgL_bufposz00_25444
																																														=
																																														BgL_bufposz00_6752;
																																													BgL_bufposz00_3943
																																														=
																																														BgL_bufposz00_25444;
																																													BgL_forwardz00_3942
																																														=
																																														BgL_forwardz00_25442;
																																													BgL_lastzd2matchzd2_3941
																																														=
																																														BgL_lastzd2matchzd2_25441;
																																													BgL_iportz00_3940
																																														=
																																														BgL_iportz00_25440;
																																													goto
																																														BgL_zc3z04anonymousza32819ze3z87_3944;
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													if (((long) (BgL_curz00_6759) == 48L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_iportz00_6617
																																																=
																																																BgL_iportz00_6749;
																																															BgL_lastzd2matchzd2_6618
																																																=
																																																BgL_newzd2matchzd2_6754;
																																															BgL_forwardz00_6619
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_6751);
																																															BgL_bufposz00_6620
																																																=
																																																BgL_bufposz00_6752;
																																														BgL_zc3z04anonymousza34287ze3z87_6621:
																																															{	/* Read/reader.scm 409 */
																																																long
																																																	BgL_newzd2matchzd2_6622;
																																																{	/* Read/reader.scm 409 */
																																																	obj_t
																																																		BgL_tmpz00_25448;
																																																	BgL_tmpz00_25448
																																																		=
																																																		(
																																																		(obj_t)
																																																		BgL_iportz00_6617);
																																																	RGC_STOP_MATCH
																																																		(BgL_tmpz00_25448,
																																																		BgL_forwardz00_6619);
																																																}
																																																BgL_newzd2matchzd2_6622
																																																	=
																																																	14L;
																																																if ((BgL_forwardz00_6619 == BgL_bufposz00_6620))
																																																	{	/* Read/reader.scm 409 */
																																																		if (rgc_fill_buffer(((obj_t) BgL_iportz00_6617)))
																																																			{	/* Read/reader.scm 409 */
																																																				long
																																																					BgL_arg4290z00_6625;
																																																				long
																																																					BgL_arg4291z00_6626;
																																																				{	/* Read/reader.scm 409 */
																																																					obj_t
																																																						BgL_tmpz00_25456;
																																																					BgL_tmpz00_25456
																																																						=
																																																						(
																																																						(obj_t)
																																																						BgL_iportz00_6617);
																																																					BgL_arg4290z00_6625
																																																						=
																																																						RGC_BUFFER_FORWARD
																																																						(BgL_tmpz00_25456);
																																																				}
																																																				{	/* Read/reader.scm 409 */
																																																					obj_t
																																																						BgL_tmpz00_25459;
																																																					BgL_tmpz00_25459
																																																						=
																																																						(
																																																						(obj_t)
																																																						BgL_iportz00_6617);
																																																					BgL_arg4291z00_6626
																																																						=
																																																						RGC_BUFFER_BUFPOS
																																																						(BgL_tmpz00_25459);
																																																				}
																																																				{
																																																					long
																																																						BgL_bufposz00_25463;
																																																					long
																																																						BgL_forwardz00_25462;
																																																					BgL_forwardz00_25462
																																																						=
																																																						BgL_arg4290z00_6625;
																																																					BgL_bufposz00_25463
																																																						=
																																																						BgL_arg4291z00_6626;
																																																					BgL_bufposz00_6620
																																																						=
																																																						BgL_bufposz00_25463;
																																																					BgL_forwardz00_6619
																																																						=
																																																						BgL_forwardz00_25462;
																																																					goto
																																																						BgL_zc3z04anonymousza34287ze3z87_6621;
																																																				}
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_matchz00_9747
																																																					=
																																																					BgL_newzd2matchzd2_6622;
																																																			}
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		int
																																																			BgL_curz00_6627;
																																																		{	/* Read/reader.scm 409 */
																																																			obj_t
																																																				BgL_tmpz00_25464;
																																																			BgL_tmpz00_25464
																																																				=
																																																				(
																																																				(obj_t)
																																																				BgL_iportz00_6617);
																																																			BgL_curz00_6627
																																																				=
																																																				RGC_BUFFER_GET_CHAR
																																																				(BgL_tmpz00_25464,
																																																				BgL_forwardz00_6619);
																																																		}
																																																		{	/* Read/reader.scm 409 */

																																																			if (((long) (BgL_curz00_6627) == 58L))
																																																				{
																																																					long
																																																						BgL_bufposz00_25474;
																																																					long
																																																						BgL_forwardz00_25472;
																																																					long
																																																						BgL_lastzd2matchzd2_25471;
																																																					obj_t
																																																						BgL_iportz00_25470;
																																																					BgL_iportz00_25470
																																																						=
																																																						BgL_iportz00_6617;
																																																					BgL_lastzd2matchzd2_25471
																																																						=
																																																						BgL_newzd2matchzd2_6622;
																																																					BgL_forwardz00_25472
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_6619);
																																																					BgL_bufposz00_25474
																																																						=
																																																						BgL_bufposz00_6620;
																																																					BgL_bufposz00_7304
																																																						=
																																																						BgL_bufposz00_25474;
																																																					BgL_forwardz00_7303
																																																						=
																																																						BgL_forwardz00_25472;
																																																					BgL_lastzd2matchzd2_7302
																																																						=
																																																						BgL_lastzd2matchzd2_25471;
																																																					BgL_iportz00_7301
																																																						=
																																																						BgL_iportz00_25470;
																																																					goto
																																																						BgL_zc3z04anonymousza34639ze3z87_7305;
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					bool_t
																																																						BgL_test8596z00_25475;
																																																					if (((long) (BgL_curz00_6627) >= 48L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8596z00_25475
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_6627)
																																																								<
																																																								58L);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8596z00_25475
																																																								=
																																																								(
																																																								(bool_t)
																																																								0);
																																																						}
																																																					if (BgL_test8596z00_25475)
																																																						{
																																																							long
																																																								BgL_bufposz00_25485;
																																																							long
																																																								BgL_forwardz00_25483;
																																																							long
																																																								BgL_lastzd2matchzd2_25482;
																																																							obj_t
																																																								BgL_iportz00_25481;
																																																							BgL_iportz00_25481
																																																								=
																																																								BgL_iportz00_6617;
																																																							BgL_lastzd2matchzd2_25482
																																																								=
																																																								BgL_newzd2matchzd2_6622;
																																																							BgL_forwardz00_25483
																																																								=
																																																								(1L
																																																								+
																																																								BgL_forwardz00_6619);
																																																							BgL_bufposz00_25485
																																																								=
																																																								BgL_bufposz00_6620;
																																																							BgL_bufposz00_3943
																																																								=
																																																								BgL_bufposz00_25485;
																																																							BgL_forwardz00_3942
																																																								=
																																																								BgL_forwardz00_25483;
																																																							BgL_lastzd2matchzd2_3941
																																																								=
																																																								BgL_lastzd2matchzd2_25482;
																																																							BgL_iportz00_3940
																																																								=
																																																								BgL_iportz00_25481;
																																																							goto
																																																								BgL_zc3z04anonymousza32819ze3z87_3944;
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							if (((long) (BgL_curz00_6627) == 46L))
																																																								{
																																																									long
																																																										BgL_bufposz00_25493;
																																																									long
																																																										BgL_forwardz00_25491;
																																																									long
																																																										BgL_lastzd2matchzd2_25490;
																																																									obj_t
																																																										BgL_iportz00_25489;
																																																									BgL_iportz00_25489
																																																										=
																																																										BgL_iportz00_6617;
																																																									BgL_lastzd2matchzd2_25490
																																																										=
																																																										BgL_newzd2matchzd2_6622;
																																																									BgL_forwardz00_25491
																																																										=
																																																										(1L
																																																										+
																																																										BgL_forwardz00_6619);
																																																									BgL_bufposz00_25493
																																																										=
																																																										BgL_bufposz00_6620;
																																																									BgL_bufposz00_9542
																																																										=
																																																										BgL_bufposz00_25493;
																																																									BgL_forwardz00_9541
																																																										=
																																																										BgL_forwardz00_25491;
																																																									BgL_lastzd2matchzd2_9540
																																																										=
																																																										BgL_lastzd2matchzd2_25490;
																																																									BgL_iportz00_9539
																																																										=
																																																										BgL_iportz00_25489;
																																																									goto
																																																										BgL_zc3z04anonymousza35780ze3z87_9543;
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									bool_t
																																																										BgL_test8599z00_25494;
																																																									if (((long) (BgL_curz00_6627) == 39L))
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8599z00_25494
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											if (((long) (BgL_curz00_6627) == 44L))
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8599z00_25494
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8599z00_25494
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_6627)
																																																														==
																																																														96L);
																																																										}}
																																																									if (BgL_test8599z00_25494)
																																																										{
																																																											long
																																																												BgL_bufposz00_25507;
																																																											long
																																																												BgL_forwardz00_25505;
																																																											long
																																																												BgL_lastzd2matchzd2_25504;
																																																											obj_t
																																																												BgL_iportz00_25503;
																																																											BgL_iportz00_25503
																																																												=
																																																												BgL_iportz00_6617;
																																																											BgL_lastzd2matchzd2_25504
																																																												=
																																																												BgL_newzd2matchzd2_6622;
																																																											BgL_forwardz00_25505
																																																												=
																																																												(1L
																																																												+
																																																												BgL_forwardz00_6619);
																																																											BgL_bufposz00_25507
																																																												=
																																																												BgL_bufposz00_6620;
																																																											BgL_bufposz00_7365
																																																												=
																																																												BgL_bufposz00_25507;
																																																											BgL_forwardz00_7364
																																																												=
																																																												BgL_forwardz00_25505;
																																																											BgL_lastzd2matchzd2_7363
																																																												=
																																																												BgL_lastzd2matchzd2_25504;
																																																											BgL_iportz00_7362
																																																												=
																																																												BgL_iportz00_25503;
																																																											goto
																																																												BgL_zc3z04anonymousza34670ze3z87_7366;
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											bool_t
																																																												BgL_test8602z00_25508;
																																																											if (((long) (BgL_curz00_6627) < 33L))
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8602z00_25508
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													bool_t
																																																														BgL_test8604z00_25512;
																																																													if (((long) (BgL_curz00_6627) == 35L))
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8604z00_25512
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8604z00_25512
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_6627)
																																																																==
																																																																34L);
																																																														}
																																																													if (BgL_test8604z00_25512)
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8602z00_25508
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															bool_t
																																																																BgL_test8606z00_25518;
																																																															if (((long) (BgL_curz00_6627) == 41L))
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test8606z00_25518
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	if (((long) (BgL_curz00_6627) == 40L))
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test8606z00_25518
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test8606z00_25518
																																																																				=
																																																																				(
																																																																				(long)
																																																																				(BgL_curz00_6627)
																																																																				==
																																																																				39L);
																																																																}}
																																																															if (BgL_test8606z00_25518)
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test8602z00_25508
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	if (((long) (BgL_curz00_6627) == 44L))
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test8602z00_25508
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 409 */
																																																																			if (((long) (BgL_curz00_6627) == 46L))
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test8602z00_25508
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 409 */
																																																																					bool_t
																																																																						BgL_test8611z00_25533;
																																																																					if (((long) (BgL_curz00_6627) >= 48L))
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test8611z00_25533
																																																																								=
																																																																								(
																																																																								(long)
																																																																								(BgL_curz00_6627)
																																																																								<
																																																																								60L);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test8611z00_25533
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								0);
																																																																						}
																																																																					if (BgL_test8611z00_25533)
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test8602z00_25508
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 409 */
																																																																							if (((long) (BgL_curz00_6627) == 91L))
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8602z00_25508
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 409 */
																																																																									if (((long) (BgL_curz00_6627) == 93L))
																																																																										{	/* Read/reader.scm 409 */
																																																																											BgL_test8602z00_25508
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 409 */
																																																																											if (((long) (BgL_curz00_6627) == 96L))
																																																																												{	/* Read/reader.scm 409 */
																																																																													BgL_test8602z00_25508
																																																																														=
																																																																														(
																																																																														(bool_t)
																																																																														1);
																																																																												}
																																																																											else
																																																																												{	/* Read/reader.scm 409 */
																																																																													bool_t
																																																																														BgL_test8616z00_25548;
																																																																													if (((long) (BgL_curz00_6627) == 125L))
																																																																														{	/* Read/reader.scm 409 */
																																																																															BgL_test8616z00_25548
																																																																																=
																																																																																(
																																																																																(bool_t)
																																																																																1);
																																																																														}
																																																																													else
																																																																														{	/* Read/reader.scm 409 */
																																																																															if (((long) (BgL_curz00_6627) == 124L))
																																																																																{	/* Read/reader.scm 409 */
																																																																																	BgL_test8616z00_25548
																																																																																		=
																																																																																		(
																																																																																		(bool_t)
																																																																																		1);
																																																																																}
																																																																															else
																																																																																{	/* Read/reader.scm 409 */
																																																																																	BgL_test8616z00_25548
																																																																																		=
																																																																																		(
																																																																																		(long)
																																																																																		(BgL_curz00_6627)
																																																																																		==
																																																																																		123L);
																																																																														}}
																																																																													if (BgL_test8616z00_25548)
																																																																														{	/* Read/reader.scm 409 */
																																																																															BgL_test8602z00_25508
																																																																																=
																																																																																(
																																																																																(bool_t)
																																																																																1);
																																																																														}
																																																																													else
																																																																														{	/* Read/reader.scm 409 */
																																																																															BgL_test8602z00_25508
																																																																																=
																																																																																(
																																																																																(long)
																																																																																(BgL_curz00_6627)
																																																																																==
																																																																																127L);
																																																												}}}}}}}}}}
																																																											if (BgL_test8602z00_25508)
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_matchz00_9747
																																																														=
																																																														BgL_newzd2matchzd2_6622;
																																																												}
																																																											else
																																																												{
																																																													long
																																																														BgL_bufposz00_25563;
																																																													long
																																																														BgL_forwardz00_25561;
																																																													long
																																																														BgL_lastzd2matchzd2_25560;
																																																													obj_t
																																																														BgL_iportz00_25559;
																																																													BgL_iportz00_25559
																																																														=
																																																														BgL_iportz00_6617;
																																																													BgL_lastzd2matchzd2_25560
																																																														=
																																																														BgL_newzd2matchzd2_6622;
																																																													BgL_forwardz00_25561
																																																														=
																																																														(1L
																																																														+
																																																														BgL_forwardz00_6619);
																																																													BgL_bufposz00_25563
																																																														=
																																																														BgL_bufposz00_6620;
																																																													BgL_bufposz00_5103
																																																														=
																																																														BgL_bufposz00_25563;
																																																													BgL_forwardz00_5102
																																																														=
																																																														BgL_forwardz00_25561;
																																																													BgL_lastzd2matchzd2_5101
																																																														=
																																																														BgL_lastzd2matchzd2_25560;
																																																													BgL_iportz00_5100
																																																														=
																																																														BgL_iportz00_25559;
																																																													goto
																																																														BgL_zc3z04anonymousza33512ze3z87_5104;
																																																												}
																																																										}
																																																								}
																																																						}
																																																				}
																																																		}
																																																	}
																																															}
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_6759) == 46L))
																																																{
																																																	long
																																																		BgL_bufposz00_25572;
																																																	long
																																																		BgL_forwardz00_25570;
																																																	long
																																																		BgL_lastzd2matchzd2_25569;
																																																	obj_t
																																																		BgL_iportz00_25568;
																																																	BgL_iportz00_25568
																																																		=
																																																		BgL_iportz00_6749;
																																																	BgL_lastzd2matchzd2_25569
																																																		=
																																																		BgL_newzd2matchzd2_6754;
																																																	BgL_forwardz00_25570
																																																		=
																																																		(1L
																																																		+
																																																		BgL_forwardz00_6751);
																																																	BgL_bufposz00_25572
																																																		=
																																																		BgL_bufposz00_6752;
																																																	BgL_bufposz00_9542
																																																		=
																																																		BgL_bufposz00_25572;
																																																	BgL_forwardz00_9541
																																																		=
																																																		BgL_forwardz00_25570;
																																																	BgL_lastzd2matchzd2_9540
																																																		=
																																																		BgL_lastzd2matchzd2_25569;
																																																	BgL_iportz00_9539
																																																		=
																																																		BgL_iportz00_25568;
																																																	goto
																																																		BgL_zc3z04anonymousza35780ze3z87_9543;
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	bool_t
																																																		BgL_test8620z00_25573;
																																																	if (((long) (BgL_curz00_6759) == 39L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8620z00_25573
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			if (((long) (BgL_curz00_6759) == 44L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8620z00_25573
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8620z00_25573
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_6759)
																																																						==
																																																						96L);
																																																		}}
																																																	if (BgL_test8620z00_25573)
																																																		{
																																																			long
																																																				BgL_bufposz00_25586;
																																																			long
																																																				BgL_forwardz00_25584;
																																																			long
																																																				BgL_lastzd2matchzd2_25583;
																																																			obj_t
																																																				BgL_iportz00_25582;
																																																			BgL_iportz00_25582
																																																				=
																																																				BgL_iportz00_6749;
																																																			BgL_lastzd2matchzd2_25583
																																																				=
																																																				BgL_newzd2matchzd2_6754;
																																																			BgL_forwardz00_25584
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_6751);
																																																			BgL_bufposz00_25586
																																																				=
																																																				BgL_bufposz00_6752;
																																																			BgL_bufposz00_7365
																																																				=
																																																				BgL_bufposz00_25586;
																																																			BgL_forwardz00_7364
																																																				=
																																																				BgL_forwardz00_25584;
																																																			BgL_lastzd2matchzd2_7363
																																																				=
																																																				BgL_lastzd2matchzd2_25583;
																																																			BgL_iportz00_7362
																																																				=
																																																				BgL_iportz00_25582;
																																																			goto
																																																				BgL_zc3z04anonymousza34670ze3z87_7366;
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			bool_t
																																																				BgL_test8623z00_25587;
																																																			if (((long) (BgL_curz00_6759) < 33L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8623z00_25587
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					bool_t
																																																						BgL_test8625z00_25591;
																																																					if (((long) (BgL_curz00_6759) == 35L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8625z00_25591
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8625z00_25591
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_6759)
																																																								==
																																																								34L);
																																																						}
																																																					if (BgL_test8625z00_25591)
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8623z00_25587
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							bool_t
																																																								BgL_test8627z00_25597;
																																																							if (((long) (BgL_curz00_6759) == 41L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8627z00_25597
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									if (((long) (BgL_curz00_6759) == 40L))
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8627z00_25597
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8627z00_25597
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_6759)
																																																												==
																																																												39L);
																																																								}}
																																																							if (BgL_test8627z00_25597)
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8623z00_25587
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									if (((long) (BgL_curz00_6759) == 44L))
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8623z00_25587
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											if (((long) (BgL_curz00_6759) == 46L))
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8623z00_25587
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													bool_t
																																																														BgL_test8632z00_25612;
																																																													if (((long) (BgL_curz00_6759) >= 48L))
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8632z00_25612
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_6759)
																																																																<
																																																																60L);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8632z00_25612
																																																																=
																																																																(
																																																																(bool_t)
																																																																0);
																																																														}
																																																													if (BgL_test8632z00_25612)
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8623z00_25587
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															if (((long) (BgL_curz00_6759) == 91L))
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test8623z00_25587
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	if (((long) (BgL_curz00_6759) == 93L))
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test8623z00_25587
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 409 */
																																																																			if (((long) (BgL_curz00_6759) == 96L))
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test8623z00_25587
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 409 */
																																																																					bool_t
																																																																						BgL_test8637z00_25627;
																																																																					if (((long) (BgL_curz00_6759) == 125L))
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test8637z00_25627
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 409 */
																																																																							if (((long) (BgL_curz00_6759) == 124L))
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8637z00_25627
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8637z00_25627
																																																																										=
																																																																										(
																																																																										(long)
																																																																										(BgL_curz00_6759)
																																																																										==
																																																																										123L);
																																																																						}}
																																																																					if (BgL_test8637z00_25627)
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test8623z00_25587
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test8623z00_25587
																																																																								=
																																																																								(
																																																																								(long)
																																																																								(BgL_curz00_6759)
																																																																								==
																																																																								127L);
																																																				}}}}}}}}}}
																																																			if (BgL_test8623z00_25587)
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_matchz00_9747
																																																						=
																																																						BgL_newzd2matchzd2_6754;
																																																				}
																																																			else
																																																				{
																																																					long
																																																						BgL_bufposz00_25642;
																																																					long
																																																						BgL_forwardz00_25640;
																																																					long
																																																						BgL_lastzd2matchzd2_25639;
																																																					obj_t
																																																						BgL_iportz00_25638;
																																																					BgL_iportz00_25638
																																																						=
																																																						BgL_iportz00_6749;
																																																					BgL_lastzd2matchzd2_25639
																																																						=
																																																						BgL_newzd2matchzd2_6754;
																																																					BgL_forwardz00_25640
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_6751);
																																																					BgL_bufposz00_25642
																																																						=
																																																						BgL_bufposz00_6752;
																																																					BgL_bufposz00_5103
																																																						=
																																																						BgL_bufposz00_25642;
																																																					BgL_forwardz00_5102
																																																						=
																																																						BgL_forwardz00_25640;
																																																					BgL_lastzd2matchzd2_5101
																																																						=
																																																						BgL_lastzd2matchzd2_25639;
																																																					BgL_iportz00_5100
																																																						=
																																																						BgL_iportz00_25638;
																																																					goto
																																																						BgL_zc3z04anonymousza33512ze3z87_5104;
																																																				}
																																																		}
																																																}
																																														}
																																												}
																																										}
																																								}
																																							}
																																					}
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					bool_t
																																						BgL_test8640z00_25644;
																																					if ((
																																							(long)
																																							(BgL_curz00_8129)
																																							==
																																							39L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8640z00_25644
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							if (((long) (BgL_curz00_8129) == 44L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8640z00_25644
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8640z00_25644
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_8129)
																																										==
																																										96L);
																																						}}
																																					if (BgL_test8640z00_25644)
																																						{
																																							long
																																								BgL_bufposz00_25657;
																																							long
																																								BgL_forwardz00_25655;
																																							long
																																								BgL_lastzd2matchzd2_25654;
																																							obj_t
																																								BgL_iportz00_25653;
																																							BgL_iportz00_25653
																																								=
																																								BgL_iportz00_8119;
																																							BgL_lastzd2matchzd2_25654
																																								=
																																								BgL_newzd2matchzd2_8124;
																																							BgL_forwardz00_25655
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_8121);
																																							BgL_bufposz00_25657
																																								=
																																								BgL_bufposz00_8122;
																																							BgL_bufposz00_6105
																																								=
																																								BgL_bufposz00_25657;
																																							BgL_forwardz00_6104
																																								=
																																								BgL_forwardz00_25655;
																																							BgL_lastzd2matchzd2_6103
																																								=
																																								BgL_lastzd2matchzd2_25654;
																																							BgL_iportz00_6102
																																								=
																																								BgL_iportz00_25653;
																																							goto
																																								BgL_zc3z04anonymousza34018ze3z87_6106;
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							bool_t
																																								BgL_test8643z00_25658;
																																							if (((long) (BgL_curz00_8129) < 33L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8643z00_25658
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									bool_t
																																										BgL_test8645z00_25662;
																																									if (((long) (BgL_curz00_8129) == 35L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8645z00_25662
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8645z00_25662
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_8129)
																																												==
																																												34L);
																																										}
																																									if (BgL_test8645z00_25662)
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8643z00_25658
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											bool_t
																																												BgL_test8647z00_25668;
																																											if (((long) (BgL_curz00_8129) == 41L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8647z00_25668
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													if (((long) (BgL_curz00_8129) == 40L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8647z00_25668
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8647z00_25668
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_8129)
																																																==
																																																39L);
																																												}}
																																											if (BgL_test8647z00_25668)
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8643z00_25658
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													if (((long) (BgL_curz00_8129) == 44L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8643z00_25658
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_8129) == 46L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8643z00_25658
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	bool_t
																																																		BgL_test8652z00_25683;
																																																	if (((long) (BgL_curz00_8129) == 59L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8652z00_25683
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8652z00_25683
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_8129)
																																																				==
																																																				58L);
																																																		}
																																																	if (BgL_test8652z00_25683)
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8643z00_25658
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			if (((long) (BgL_curz00_8129) == 91L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8643z00_25658
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					if (((long) (BgL_curz00_8129) == 93L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8643z00_25658
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							if (((long) (BgL_curz00_8129) == 96L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8643z00_25658
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									bool_t
																																																										BgL_test8657z00_25698;
																																																									if (((long) (BgL_curz00_8129) == 125L))
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8657z00_25698
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											if (((long) (BgL_curz00_8129) == 124L))
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8657z00_25698
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8657z00_25698
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_8129)
																																																														==
																																																														123L);
																																																										}}
																																																									if (BgL_test8657z00_25698)
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8643z00_25658
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8643z00_25658
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_8129)
																																																												==
																																																												127L);
																																								}}}}}}}}}}
																																							if (BgL_test8643z00_25658)
																																								{	/* Read/reader.scm 409 */
																																									BgL_matchz00_9747
																																										=
																																										BgL_newzd2matchzd2_8124;
																																								}
																																							else
																																								{
																																									long
																																										BgL_bufposz00_25713;
																																									long
																																										BgL_forwardz00_25711;
																																									long
																																										BgL_lastzd2matchzd2_25710;
																																									obj_t
																																										BgL_iportz00_25709;
																																									BgL_iportz00_25709
																																										=
																																										BgL_iportz00_8119;
																																									BgL_lastzd2matchzd2_25710
																																										=
																																										BgL_newzd2matchzd2_8124;
																																									BgL_forwardz00_25711
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_8121);
																																									BgL_bufposz00_25713
																																										=
																																										BgL_bufposz00_8122;
																																									BgL_bufposz00_4963
																																										=
																																										BgL_bufposz00_25713;
																																									BgL_forwardz00_4962
																																										=
																																										BgL_forwardz00_25711;
																																									BgL_lastzd2matchzd2_4961
																																										=
																																										BgL_lastzd2matchzd2_25710;
																																									BgL_iportz00_4960
																																										=
																																										BgL_iportz00_25709;
																																									goto
																																										BgL_zc3z04anonymousza33439ze3z87_4964;
																																								}
																																						}
																																				}
																																		}
																																}
																															}
																													}
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													if (
																														((long)
																															(BgL_curz00_5250)
																															== 58L))
																														{
																															long
																																BgL_bufposz00_25722;
																															long
																																BgL_forwardz00_25720;
																															long
																																BgL_lastzd2matchzd2_25719;
																															obj_t
																																BgL_iportz00_25718;
																															BgL_iportz00_25718
																																=
																																BgL_iportz00_5240;
																															BgL_lastzd2matchzd2_25719
																																=
																																BgL_newzd2matchzd2_5245;
																															BgL_forwardz00_25720
																																=
																																(1L +
																																BgL_forwardz00_5242);
																															BgL_bufposz00_25722
																																=
																																BgL_bufposz00_5243;
																															BgL_bufposz00_6394
																																=
																																BgL_bufposz00_25722;
																															BgL_forwardz00_6393
																																=
																																BgL_forwardz00_25720;
																															BgL_lastzd2matchzd2_6392
																																=
																																BgL_lastzd2matchzd2_25719;
																															BgL_iportz00_6391
																																=
																																BgL_iportz00_25718;
																															goto
																																BgL_zc3z04anonymousza34167ze3z87_6395;
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															if (
																																((long)
																																	(BgL_curz00_5250)
																																	== 46L))
																																{
																																	long
																																		BgL_bufposz00_25730;
																																	long
																																		BgL_forwardz00_25728;
																																	long
																																		BgL_lastzd2matchzd2_25727;
																																	obj_t
																																		BgL_iportz00_25726;
																																	BgL_iportz00_25726
																																		=
																																		BgL_iportz00_5240;
																																	BgL_lastzd2matchzd2_25727
																																		=
																																		BgL_newzd2matchzd2_5245;
																																	BgL_forwardz00_25728
																																		=
																																		(1L +
																																		BgL_forwardz00_5242);
																																	BgL_bufposz00_25730
																																		=
																																		BgL_bufposz00_5243;
																																	BgL_bufposz00_3943
																																		=
																																		BgL_bufposz00_25730;
																																	BgL_forwardz00_3942
																																		=
																																		BgL_forwardz00_25728;
																																	BgL_lastzd2matchzd2_3941
																																		=
																																		BgL_lastzd2matchzd2_25727;
																																	BgL_iportz00_3940
																																		=
																																		BgL_iportz00_25726;
																																	goto
																																		BgL_zc3z04anonymousza32819ze3z87_3944;
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	bool_t
																																		BgL_test8662z00_25731;
																																	if (((long)
																																			(BgL_curz00_5250)
																																			== 39L))
																																		{	/* Read/reader.scm 409 */
																																			BgL_test8662z00_25731
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			if (
																																				((long)
																																					(BgL_curz00_5250)
																																					==
																																					44L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8662z00_25731
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8662z00_25731
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_5250)
																																						==
																																						96L);
																																		}}
																																	if (BgL_test8662z00_25731)
																																		{
																																			long
																																				BgL_bufposz00_25744;
																																			long
																																				BgL_forwardz00_25742;
																																			long
																																				BgL_lastzd2matchzd2_25741;
																																			obj_t
																																				BgL_iportz00_25740;
																																			BgL_iportz00_25740
																																				=
																																				BgL_iportz00_5240;
																																			BgL_lastzd2matchzd2_25741
																																				=
																																				BgL_newzd2matchzd2_5245;
																																			BgL_forwardz00_25742
																																				=
																																				(1L +
																																				BgL_forwardz00_5242);
																																			BgL_bufposz00_25744
																																				=
																																				BgL_bufposz00_5243;
																																			BgL_bufposz00_6105
																																				=
																																				BgL_bufposz00_25744;
																																			BgL_forwardz00_6104
																																				=
																																				BgL_forwardz00_25742;
																																			BgL_lastzd2matchzd2_6103
																																				=
																																				BgL_lastzd2matchzd2_25741;
																																			BgL_iportz00_6102
																																				=
																																				BgL_iportz00_25740;
																																			goto
																																				BgL_zc3z04anonymousza34018ze3z87_6106;
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			bool_t
																																				BgL_test8665z00_25745;
																																			if ((
																																					(long)
																																					(BgL_curz00_5250)
																																					<
																																					33L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8665z00_25745
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					bool_t
																																						BgL_test8667z00_25749;
																																					if ((
																																							(long)
																																							(BgL_curz00_5250)
																																							==
																																							35L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8667z00_25749
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8667z00_25749
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_5250)
																																								==
																																								34L);
																																						}
																																					if (BgL_test8667z00_25749)
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8665z00_25745
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							bool_t
																																								BgL_test8669z00_25755;
																																							if (((long) (BgL_curz00_5250) == 41L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8669z00_25755
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_5250) == 40L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8669z00_25755
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8669z00_25755
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_5250)
																																												==
																																												39L);
																																								}}
																																							if (BgL_test8669z00_25755)
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8665z00_25745
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_5250) == 44L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8665z00_25745
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											if (((long) (BgL_curz00_5250) == 46L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8665z00_25745
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													bool_t
																																														BgL_test8674z00_25770;
																																													if (((long) (BgL_curz00_5250) == 59L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8674z00_25770
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8674z00_25770
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_5250)
																																																==
																																																58L);
																																														}
																																													if (BgL_test8674z00_25770)
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8665z00_25745
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_5250) == 91L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8665z00_25745
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	if (((long) (BgL_curz00_5250) == 93L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8665z00_25745
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			if (((long) (BgL_curz00_5250) == 96L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8665z00_25745
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					if (((long) (BgL_curz00_5250) == 110L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8665z00_25745
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							bool_t
																																																								BgL_test8680z00_25788;
																																																							if (((long) (BgL_curz00_5250) == 125L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8680z00_25788
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									if (((long) (BgL_curz00_5250) == 124L))
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8680z00_25788
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8680z00_25788
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_5250)
																																																												==
																																																												123L);
																																																								}}
																																																							if (BgL_test8680z00_25788)
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8665z00_25745
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8665z00_25745
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_5250)
																																																										==
																																																										127L);
																																				}}}}}}}}}}}
																																			if (BgL_test8665z00_25745)
																																				{	/* Read/reader.scm 409 */
																																					BgL_matchz00_9747
																																						=
																																						BgL_newzd2matchzd2_5245;
																																				}
																																			else
																																				{
																																					long
																																						BgL_bufposz00_25803;
																																					long
																																						BgL_forwardz00_25801;
																																					long
																																						BgL_lastzd2matchzd2_25800;
																																					obj_t
																																						BgL_iportz00_25799;
																																					BgL_iportz00_25799
																																						=
																																						BgL_iportz00_5240;
																																					BgL_lastzd2matchzd2_25800
																																						=
																																						BgL_newzd2matchzd2_5245;
																																					BgL_forwardz00_25801
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_5242);
																																					BgL_bufposz00_25803
																																						=
																																						BgL_bufposz00_5243;
																																					BgL_bufposz00_4963
																																						=
																																						BgL_bufposz00_25803;
																																					BgL_forwardz00_4962
																																						=
																																						BgL_forwardz00_25801;
																																					BgL_lastzd2matchzd2_4961
																																						=
																																						BgL_lastzd2matchzd2_25800;
																																					BgL_iportz00_4960
																																						=
																																						BgL_iportz00_25799;
																																					goto
																																						BgL_zc3z04anonymousza33439ze3z87_4964;
																																				}
																																		}
																																}
																														}
																												}
																										}
																									}
																							}
																						}
																					else
																						{	/* Read/reader.scm 409 */
																							if (
																								((long) (BgL_curz00_8063) ==
																									58L))
																								{
																									long BgL_bufposz00_25812;
																									long BgL_forwardz00_25810;
																									long
																										BgL_lastzd2matchzd2_25809;
																									obj_t BgL_iportz00_25808;

																									BgL_iportz00_25808 =
																										BgL_iportz00_8053;
																									BgL_lastzd2matchzd2_25809 =
																										BgL_newzd2matchzd2_8058;
																									BgL_forwardz00_25810 =
																										(1L + BgL_forwardz00_8055);
																									BgL_bufposz00_25812 =
																										BgL_bufposz00_8056;
																									BgL_bufposz00_6394 =
																										BgL_bufposz00_25812;
																									BgL_forwardz00_6393 =
																										BgL_forwardz00_25810;
																									BgL_lastzd2matchzd2_6392 =
																										BgL_lastzd2matchzd2_25809;
																									BgL_iportz00_6391 =
																										BgL_iportz00_25808;
																									goto
																										BgL_zc3z04anonymousza34167ze3z87_6395;
																								}
																							else
																								{	/* Read/reader.scm 409 */
																									if (
																										((long) (BgL_curz00_8063) ==
																											46L))
																										{
																											long BgL_bufposz00_25820;
																											long BgL_forwardz00_25818;
																											long
																												BgL_lastzd2matchzd2_25817;
																											obj_t BgL_iportz00_25816;

																											BgL_iportz00_25816 =
																												BgL_iportz00_8053;
																											BgL_lastzd2matchzd2_25817
																												=
																												BgL_newzd2matchzd2_8058;
																											BgL_forwardz00_25818 =
																												(1L +
																												BgL_forwardz00_8055);
																											BgL_bufposz00_25820 =
																												BgL_bufposz00_8056;
																											BgL_bufposz00_3943 =
																												BgL_bufposz00_25820;
																											BgL_forwardz00_3942 =
																												BgL_forwardz00_25818;
																											BgL_lastzd2matchzd2_3941 =
																												BgL_lastzd2matchzd2_25817;
																											BgL_iportz00_3940 =
																												BgL_iportz00_25816;
																											goto
																												BgL_zc3z04anonymousza32819ze3z87_3944;
																										}
																									else
																										{	/* Read/reader.scm 409 */
																											bool_t
																												BgL_test8685z00_25821;
																											if (((long)
																													(BgL_curz00_8063) ==
																													39L))
																												{	/* Read/reader.scm 409 */
																													BgL_test8685z00_25821
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													if (
																														((long)
																															(BgL_curz00_8063)
																															== 44L))
																														{	/* Read/reader.scm 409 */
																															BgL_test8685z00_25821
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															BgL_test8685z00_25821
																																=
																																((long)
																																(BgL_curz00_8063)
																																== 96L);
																												}}
																											if (BgL_test8685z00_25821)
																												{
																													long
																														BgL_bufposz00_25834;
																													long
																														BgL_forwardz00_25832;
																													long
																														BgL_lastzd2matchzd2_25831;
																													obj_t
																														BgL_iportz00_25830;
																													BgL_iportz00_25830 =
																														BgL_iportz00_8053;
																													BgL_lastzd2matchzd2_25831
																														=
																														BgL_newzd2matchzd2_8058;
																													BgL_forwardz00_25832 =
																														(1L +
																														BgL_forwardz00_8055);
																													BgL_bufposz00_25834 =
																														BgL_bufposz00_8056;
																													BgL_bufposz00_6105 =
																														BgL_bufposz00_25834;
																													BgL_forwardz00_6104 =
																														BgL_forwardz00_25832;
																													BgL_lastzd2matchzd2_6103
																														=
																														BgL_lastzd2matchzd2_25831;
																													BgL_iportz00_6102 =
																														BgL_iportz00_25830;
																													goto
																														BgL_zc3z04anonymousza34018ze3z87_6106;
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													bool_t
																														BgL_test8688z00_25835;
																													if (((long)
																															(BgL_curz00_8063)
																															< 33L))
																														{	/* Read/reader.scm 409 */
																															BgL_test8688z00_25835
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															bool_t
																																BgL_test8690z00_25839;
																															if (((long)
																																	(BgL_curz00_8063)
																																	== 35L))
																																{	/* Read/reader.scm 409 */
																																	BgL_test8690z00_25839
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	BgL_test8690z00_25839
																																		=
																																		((long)
																																		(BgL_curz00_8063)
																																		== 34L);
																																}
																															if (BgL_test8690z00_25839)
																																{	/* Read/reader.scm 409 */
																																	BgL_test8688z00_25835
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	bool_t
																																		BgL_test8692z00_25845;
																																	if (((long)
																																			(BgL_curz00_8063)
																																			== 41L))
																																		{	/* Read/reader.scm 409 */
																																			BgL_test8692z00_25845
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			if (
																																				((long)
																																					(BgL_curz00_8063)
																																					==
																																					40L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8692z00_25845
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8692z00_25845
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_8063)
																																						==
																																						39L);
																																		}}
																																	if (BgL_test8692z00_25845)
																																		{	/* Read/reader.scm 409 */
																																			BgL_test8688z00_25835
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			if (
																																				((long)
																																					(BgL_curz00_8063)
																																					==
																																					44L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8688z00_25835
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					if (
																																						((long) (BgL_curz00_8063) == 46L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8688z00_25835
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							bool_t
																																								BgL_test8697z00_25860;
																																							if (((long) (BgL_curz00_8063) == 59L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8697z00_25860
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8697z00_25860
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_8063)
																																										==
																																										58L);
																																								}
																																							if (BgL_test8697z00_25860)
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8688z00_25835
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_8063) == 91L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8688z00_25835
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											if (((long) (BgL_curz00_8063) == 93L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8688z00_25835
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													bool_t
																																														BgL_test8701z00_25872;
																																													if (((long) (BgL_curz00_8063) == 97L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8701z00_25872
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8701z00_25872
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_8063)
																																																==
																																																96L);
																																														}
																																													if (BgL_test8701z00_25872)
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8688z00_25835
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															bool_t
																																																BgL_test8703z00_25878;
																																															if (((long) (BgL_curz00_8063) == 125L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8703z00_25878
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	if (((long) (BgL_curz00_8063) == 124L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8703z00_25878
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8703z00_25878
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_8063)
																																																				==
																																																				123L);
																																																}}
																																															if (BgL_test8703z00_25878)
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8688z00_25835
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8688z00_25835
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_8063)
																																																		==
																																																		127L);
																														}}}}}}}}}}
																													if (BgL_test8688z00_25835)
																														{	/* Read/reader.scm 409 */
																															BgL_matchz00_9747
																																=
																																BgL_newzd2matchzd2_8058;
																														}
																													else
																														{
																															long
																																BgL_bufposz00_25893;
																															long
																																BgL_forwardz00_25891;
																															long
																																BgL_lastzd2matchzd2_25890;
																															obj_t
																																BgL_iportz00_25889;
																															BgL_iportz00_25889
																																=
																																BgL_iportz00_8053;
																															BgL_lastzd2matchzd2_25890
																																=
																																BgL_newzd2matchzd2_8058;
																															BgL_forwardz00_25891
																																=
																																(1L +
																																BgL_forwardz00_8055);
																															BgL_bufposz00_25893
																																=
																																BgL_bufposz00_8056;
																															BgL_bufposz00_4963
																																=
																																BgL_bufposz00_25893;
																															BgL_forwardz00_4962
																																=
																																BgL_forwardz00_25891;
																															BgL_lastzd2matchzd2_4961
																																=
																																BgL_lastzd2matchzd2_25890;
																															BgL_iportz00_4960
																																=
																																BgL_iportz00_25889;
																															goto
																																BgL_zc3z04anonymousza33439ze3z87_4964;
																														}
																												}
																										}
																								}
																						}
																				}
																			}
																	}
																}
															else
																{	/* Read/reader.scm 409 */
																	if (((long) (BgL_curz00_9409) == 105L))
																		{	/* Read/reader.scm 409 */
																			BgL_iportz00_8277 = BgL_iportz00_9399;
																			BgL_lastzd2matchzd2_8278 =
																				BgL_newzd2matchzd2_9404;
																			BgL_forwardz00_8279 =
																				(1L + BgL_forwardz00_9401);
																			BgL_bufposz00_8280 = BgL_bufposz00_9402;
																		BgL_zc3z04anonymousza35135ze3z87_8281:
																			{	/* Read/reader.scm 409 */
																				long BgL_newzd2matchzd2_8282;

																				{	/* Read/reader.scm 409 */
																					obj_t BgL_tmpz00_25898;

																					BgL_tmpz00_25898 =
																						((obj_t) BgL_iportz00_8277);
																					RGC_STOP_MATCH(BgL_tmpz00_25898,
																						BgL_forwardz00_8279);
																				}
																				BgL_newzd2matchzd2_8282 = 22L;
																				if (
																					(BgL_forwardz00_8279 ==
																						BgL_bufposz00_8280))
																					{	/* Read/reader.scm 409 */
																						if (rgc_fill_buffer(
																								((obj_t) BgL_iportz00_8277)))
																							{	/* Read/reader.scm 409 */
																								long BgL_arg5138z00_8285;
																								long BgL_arg5139z00_8286;

																								{	/* Read/reader.scm 409 */
																									obj_t BgL_tmpz00_25906;

																									BgL_tmpz00_25906 =
																										((obj_t) BgL_iportz00_8277);
																									BgL_arg5138z00_8285 =
																										RGC_BUFFER_FORWARD
																										(BgL_tmpz00_25906);
																								}
																								{	/* Read/reader.scm 409 */
																									obj_t BgL_tmpz00_25909;

																									BgL_tmpz00_25909 =
																										((obj_t) BgL_iportz00_8277);
																									BgL_arg5139z00_8286 =
																										RGC_BUFFER_BUFPOS
																										(BgL_tmpz00_25909);
																								}
																								{
																									long BgL_bufposz00_25913;
																									long BgL_forwardz00_25912;

																									BgL_forwardz00_25912 =
																										BgL_arg5138z00_8285;
																									BgL_bufposz00_25913 =
																										BgL_arg5139z00_8286;
																									BgL_bufposz00_8280 =
																										BgL_bufposz00_25913;
																									BgL_forwardz00_8279 =
																										BgL_forwardz00_25912;
																									goto
																										BgL_zc3z04anonymousza35135ze3z87_8281;
																								}
																							}
																						else
																							{	/* Read/reader.scm 409 */
																								BgL_matchz00_9747 =
																									BgL_newzd2matchzd2_8282;
																							}
																					}
																				else
																					{	/* Read/reader.scm 409 */
																						int BgL_curz00_8287;

																						{	/* Read/reader.scm 409 */
																							obj_t BgL_tmpz00_25914;

																							BgL_tmpz00_25914 =
																								((obj_t) BgL_iportz00_8277);
																							BgL_curz00_8287 =
																								RGC_BUFFER_GET_CHAR
																								(BgL_tmpz00_25914,
																								BgL_forwardz00_8279);
																						}
																						{	/* Read/reader.scm 409 */

																							if (
																								((long) (BgL_curz00_8287) ==
																									110L))
																								{	/* Read/reader.scm 409 */
																									BgL_iportz00_5305 =
																										BgL_iportz00_8277;
																									BgL_lastzd2matchzd2_5306 =
																										BgL_newzd2matchzd2_8282;
																									BgL_forwardz00_5307 =
																										(1L + BgL_forwardz00_8279);
																									BgL_bufposz00_5308 =
																										BgL_bufposz00_8280;
																								BgL_zc3z04anonymousza33619ze3z87_5309:
																									{	/* Read/reader.scm 409 */
																										long
																											BgL_newzd2matchzd2_5310;
																										{	/* Read/reader.scm 409 */
																											obj_t BgL_tmpz00_25920;

																											BgL_tmpz00_25920 =
																												((obj_t)
																												BgL_iportz00_5305);
																											RGC_STOP_MATCH
																												(BgL_tmpz00_25920,
																												BgL_forwardz00_5307);
																										}
																										BgL_newzd2matchzd2_5310 =
																											22L;
																										if ((BgL_forwardz00_5307 ==
																												BgL_bufposz00_5308))
																											{	/* Read/reader.scm 409 */
																												if (rgc_fill_buffer(
																														((obj_t)
																															BgL_iportz00_5305)))
																													{	/* Read/reader.scm 409 */
																														long
																															BgL_arg3622z00_5313;
																														long
																															BgL_arg3624z00_5314;
																														{	/* Read/reader.scm 409 */
																															obj_t
																																BgL_tmpz00_25928;
																															BgL_tmpz00_25928 =
																																((obj_t)
																																BgL_iportz00_5305);
																															BgL_arg3622z00_5313
																																=
																																RGC_BUFFER_FORWARD
																																(BgL_tmpz00_25928);
																														}
																														{	/* Read/reader.scm 409 */
																															obj_t
																																BgL_tmpz00_25931;
																															BgL_tmpz00_25931 =
																																((obj_t)
																																BgL_iportz00_5305);
																															BgL_arg3624z00_5314
																																=
																																RGC_BUFFER_BUFPOS
																																(BgL_tmpz00_25931);
																														}
																														{
																															long
																																BgL_bufposz00_25935;
																															long
																																BgL_forwardz00_25934;
																															BgL_forwardz00_25934
																																=
																																BgL_arg3622z00_5313;
																															BgL_bufposz00_25935
																																=
																																BgL_arg3624z00_5314;
																															BgL_bufposz00_5308
																																=
																																BgL_bufposz00_25935;
																															BgL_forwardz00_5307
																																=
																																BgL_forwardz00_25934;
																															goto
																																BgL_zc3z04anonymousza33619ze3z87_5309;
																														}
																													}
																												else
																													{	/* Read/reader.scm 409 */
																														BgL_matchz00_9747 =
																															BgL_newzd2matchzd2_5310;
																													}
																											}
																										else
																											{	/* Read/reader.scm 409 */
																												int BgL_curz00_5315;

																												{	/* Read/reader.scm 409 */
																													obj_t
																														BgL_tmpz00_25936;
																													BgL_tmpz00_25936 =
																														((obj_t)
																														BgL_iportz00_5305);
																													BgL_curz00_5315 =
																														RGC_BUFFER_GET_CHAR
																														(BgL_tmpz00_25936,
																														BgL_forwardz00_5307);
																												}
																												{	/* Read/reader.scm 409 */

																													if (
																														((long)
																															(BgL_curz00_5315)
																															== 102L))
																														{	/* Read/reader.scm 409 */
																															BgL_iportz00_8180
																																=
																																BgL_iportz00_5305;
																															BgL_lastzd2matchzd2_8181
																																=
																																BgL_newzd2matchzd2_5310;
																															BgL_forwardz00_8182
																																=
																																(1L +
																																BgL_forwardz00_5307);
																															BgL_bufposz00_8183
																																=
																																BgL_bufposz00_5308;
																														BgL_zc3z04anonymousza35086ze3z87_8184:
																															{	/* Read/reader.scm 409 */
																																long
																																	BgL_newzd2matchzd2_8185;
																																{	/* Read/reader.scm 409 */
																																	obj_t
																																		BgL_tmpz00_25942;
																																	BgL_tmpz00_25942
																																		=
																																		((obj_t)
																																		BgL_iportz00_8180);
																																	RGC_STOP_MATCH
																																		(BgL_tmpz00_25942,
																																		BgL_forwardz00_8182);
																																}
																																BgL_newzd2matchzd2_8185
																																	= 22L;
																																if (
																																	(BgL_forwardz00_8182
																																		==
																																		BgL_bufposz00_8183))
																																	{	/* Read/reader.scm 409 */
																																		if (rgc_fill_buffer(((obj_t) BgL_iportz00_8180)))
																																			{	/* Read/reader.scm 409 */
																																				long
																																					BgL_arg5089z00_8188;
																																				long
																																					BgL_arg5090z00_8189;
																																				{	/* Read/reader.scm 409 */
																																					obj_t
																																						BgL_tmpz00_25950;
																																					BgL_tmpz00_25950
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_8180);
																																					BgL_arg5089z00_8188
																																						=
																																						RGC_BUFFER_FORWARD
																																						(BgL_tmpz00_25950);
																																				}
																																				{	/* Read/reader.scm 409 */
																																					obj_t
																																						BgL_tmpz00_25953;
																																					BgL_tmpz00_25953
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_8180);
																																					BgL_arg5090z00_8189
																																						=
																																						RGC_BUFFER_BUFPOS
																																						(BgL_tmpz00_25953);
																																				}
																																				{
																																					long
																																						BgL_bufposz00_25957;
																																					long
																																						BgL_forwardz00_25956;
																																					BgL_forwardz00_25956
																																						=
																																						BgL_arg5089z00_8188;
																																					BgL_bufposz00_25957
																																						=
																																						BgL_arg5090z00_8189;
																																					BgL_bufposz00_8183
																																						=
																																						BgL_bufposz00_25957;
																																					BgL_forwardz00_8182
																																						=
																																						BgL_forwardz00_25956;
																																					goto
																																						BgL_zc3z04anonymousza35086ze3z87_8184;
																																				}
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				BgL_matchz00_9747
																																					=
																																					BgL_newzd2matchzd2_8185;
																																			}
																																	}
																																else
																																	{	/* Read/reader.scm 409 */
																																		int
																																			BgL_curz00_8190;
																																		{	/* Read/reader.scm 409 */
																																			obj_t
																																				BgL_tmpz00_25958;
																																			BgL_tmpz00_25958
																																				=
																																				((obj_t)
																																				BgL_iportz00_8180);
																																			BgL_curz00_8190
																																				=
																																				RGC_BUFFER_GET_CHAR
																																				(BgL_tmpz00_25958,
																																				BgL_forwardz00_8182);
																																		}
																																		{	/* Read/reader.scm 409 */

																																			if (
																																				((long)
																																					(BgL_curz00_8190)
																																					==
																																					58L))
																																				{
																																					long
																																						BgL_bufposz00_25968;
																																					long
																																						BgL_forwardz00_25966;
																																					long
																																						BgL_lastzd2matchzd2_25965;
																																					obj_t
																																						BgL_iportz00_25964;
																																					BgL_iportz00_25964
																																						=
																																						BgL_iportz00_8180;
																																					BgL_lastzd2matchzd2_25965
																																						=
																																						BgL_newzd2matchzd2_8185;
																																					BgL_forwardz00_25966
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_8182);
																																					BgL_bufposz00_25968
																																						=
																																						BgL_bufposz00_8183;
																																					BgL_bufposz00_6394
																																						=
																																						BgL_bufposz00_25968;
																																					BgL_forwardz00_6393
																																						=
																																						BgL_forwardz00_25966;
																																					BgL_lastzd2matchzd2_6392
																																						=
																																						BgL_lastzd2matchzd2_25965;
																																					BgL_iportz00_6391
																																						=
																																						BgL_iportz00_25964;
																																					goto
																																						BgL_zc3z04anonymousza34167ze3z87_6395;
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					if (
																																						((long) (BgL_curz00_8190) == 46L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_iportz00_6682
																																								=
																																								BgL_iportz00_8180;
																																							BgL_lastzd2matchzd2_6683
																																								=
																																								BgL_newzd2matchzd2_8185;
																																							BgL_forwardz00_6684
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_8182);
																																							BgL_bufposz00_6685
																																								=
																																								BgL_bufposz00_8183;
																																						BgL_zc3z04anonymousza34321ze3z87_6686:
																																							{	/* Read/reader.scm 409 */
																																								long
																																									BgL_newzd2matchzd2_6687;
																																								{	/* Read/reader.scm 409 */
																																									obj_t
																																										BgL_tmpz00_25972;
																																									BgL_tmpz00_25972
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_6682);
																																									RGC_STOP_MATCH
																																										(BgL_tmpz00_25972,
																																										BgL_forwardz00_6684);
																																								}
																																								BgL_newzd2matchzd2_6687
																																									=
																																									22L;
																																								if ((BgL_forwardz00_6684 == BgL_bufposz00_6685))
																																									{	/* Read/reader.scm 409 */
																																										if (rgc_fill_buffer(((obj_t) BgL_iportz00_6682)))
																																											{	/* Read/reader.scm 409 */
																																												long
																																													BgL_arg4324z00_6690;
																																												long
																																													BgL_arg4325z00_6691;
																																												{	/* Read/reader.scm 409 */
																																													obj_t
																																														BgL_tmpz00_25980;
																																													BgL_tmpz00_25980
																																														=
																																														(
																																														(obj_t)
																																														BgL_iportz00_6682);
																																													BgL_arg4324z00_6690
																																														=
																																														RGC_BUFFER_FORWARD
																																														(BgL_tmpz00_25980);
																																												}
																																												{	/* Read/reader.scm 409 */
																																													obj_t
																																														BgL_tmpz00_25983;
																																													BgL_tmpz00_25983
																																														=
																																														(
																																														(obj_t)
																																														BgL_iportz00_6682);
																																													BgL_arg4325z00_6691
																																														=
																																														RGC_BUFFER_BUFPOS
																																														(BgL_tmpz00_25983);
																																												}
																																												{
																																													long
																																														BgL_bufposz00_25987;
																																													long
																																														BgL_forwardz00_25986;
																																													BgL_forwardz00_25986
																																														=
																																														BgL_arg4324z00_6690;
																																													BgL_bufposz00_25987
																																														=
																																														BgL_arg4325z00_6691;
																																													BgL_bufposz00_6685
																																														=
																																														BgL_bufposz00_25987;
																																													BgL_forwardz00_6684
																																														=
																																														BgL_forwardz00_25986;
																																													goto
																																														BgL_zc3z04anonymousza34321ze3z87_6686;
																																												}
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												BgL_matchz00_9747
																																													=
																																													BgL_newzd2matchzd2_6687;
																																											}
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										int
																																											BgL_curz00_6692;
																																										{	/* Read/reader.scm 409 */
																																											obj_t
																																												BgL_tmpz00_25988;
																																											BgL_tmpz00_25988
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_6682);
																																											BgL_curz00_6692
																																												=
																																												RGC_BUFFER_GET_CHAR
																																												(BgL_tmpz00_25988,
																																												BgL_forwardz00_6684);
																																										}
																																										{	/* Read/reader.scm 409 */

																																											if (((long) (BgL_curz00_6692) == 58L))
																																												{
																																													long
																																														BgL_bufposz00_25998;
																																													long
																																														BgL_forwardz00_25996;
																																													long
																																														BgL_lastzd2matchzd2_25995;
																																													obj_t
																																														BgL_iportz00_25994;
																																													BgL_iportz00_25994
																																														=
																																														BgL_iportz00_6682;
																																													BgL_lastzd2matchzd2_25995
																																														=
																																														BgL_newzd2matchzd2_6687;
																																													BgL_forwardz00_25996
																																														=
																																														(1L
																																														+
																																														BgL_forwardz00_6684);
																																													BgL_bufposz00_25998
																																														=
																																														BgL_bufposz00_6685;
																																													BgL_bufposz00_7304
																																														=
																																														BgL_bufposz00_25998;
																																													BgL_forwardz00_7303
																																														=
																																														BgL_forwardz00_25996;
																																													BgL_lastzd2matchzd2_7302
																																														=
																																														BgL_lastzd2matchzd2_25995;
																																													BgL_iportz00_7301
																																														=
																																														BgL_iportz00_25994;
																																													goto
																																														BgL_zc3z04anonymousza34639ze3z87_7305;
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													bool_t
																																														BgL_test8720z00_25999;
																																													if (((long) (BgL_curz00_6692) >= 49L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8720z00_25999
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_6692)
																																																<
																																																58L);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8720z00_25999
																																																=
																																																(
																																																(bool_t)
																																																0);
																																														}
																																													if (BgL_test8720z00_25999)
																																														{
																																															long
																																																BgL_bufposz00_26009;
																																															long
																																																BgL_forwardz00_26007;
																																															long
																																																BgL_lastzd2matchzd2_26006;
																																															obj_t
																																																BgL_iportz00_26005;
																																															BgL_iportz00_26005
																																																=
																																																BgL_iportz00_6682;
																																															BgL_lastzd2matchzd2_26006
																																																=
																																																BgL_newzd2matchzd2_6687;
																																															BgL_forwardz00_26007
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_6684);
																																															BgL_bufposz00_26009
																																																=
																																																BgL_bufposz00_6685;
																																															BgL_bufposz00_3943
																																																=
																																																BgL_bufposz00_26009;
																																															BgL_forwardz00_3942
																																																=
																																																BgL_forwardz00_26007;
																																															BgL_lastzd2matchzd2_3941
																																																=
																																																BgL_lastzd2matchzd2_26006;
																																															BgL_iportz00_3940
																																																=
																																																BgL_iportz00_26005;
																																															goto
																																																BgL_zc3z04anonymousza32819ze3z87_3944;
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_6692) == 48L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_iportz00_6816
																																																		=
																																																		BgL_iportz00_6682;
																																																	BgL_lastzd2matchzd2_6817
																																																		=
																																																		BgL_newzd2matchzd2_6687;
																																																	BgL_forwardz00_6818
																																																		=
																																																		(1L
																																																		+
																																																		BgL_forwardz00_6684);
																																																	BgL_bufposz00_6819
																																																		=
																																																		BgL_bufposz00_6685;
																																																BgL_zc3z04anonymousza34393ze3z87_6820:
																																																	{	/* Read/reader.scm 409 */
																																																		long
																																																			BgL_newzd2matchzd2_6821;
																																																		{	/* Read/reader.scm 409 */
																																																			obj_t
																																																				BgL_tmpz00_26013;
																																																			BgL_tmpz00_26013
																																																				=
																																																				(
																																																				(obj_t)
																																																				BgL_iportz00_6816);
																																																			RGC_STOP_MATCH
																																																				(BgL_tmpz00_26013,
																																																				BgL_forwardz00_6818);
																																																		}
																																																		BgL_newzd2matchzd2_6821
																																																			=
																																																			15L;
																																																		if ((BgL_forwardz00_6818 == BgL_bufposz00_6819))
																																																			{	/* Read/reader.scm 409 */
																																																				if (rgc_fill_buffer(((obj_t) BgL_iportz00_6816)))
																																																					{	/* Read/reader.scm 409 */
																																																						long
																																																							BgL_arg4396z00_6824;
																																																						long
																																																							BgL_arg4397z00_6825;
																																																						{	/* Read/reader.scm 409 */
																																																							obj_t
																																																								BgL_tmpz00_26021;
																																																							BgL_tmpz00_26021
																																																								=
																																																								(
																																																								(obj_t)
																																																								BgL_iportz00_6816);
																																																							BgL_arg4396z00_6824
																																																								=
																																																								RGC_BUFFER_FORWARD
																																																								(BgL_tmpz00_26021);
																																																						}
																																																						{	/* Read/reader.scm 409 */
																																																							obj_t
																																																								BgL_tmpz00_26024;
																																																							BgL_tmpz00_26024
																																																								=
																																																								(
																																																								(obj_t)
																																																								BgL_iportz00_6816);
																																																							BgL_arg4397z00_6825
																																																								=
																																																								RGC_BUFFER_BUFPOS
																																																								(BgL_tmpz00_26024);
																																																						}
																																																						{
																																																							long
																																																								BgL_bufposz00_26028;
																																																							long
																																																								BgL_forwardz00_26027;
																																																							BgL_forwardz00_26027
																																																								=
																																																								BgL_arg4396z00_6824;
																																																							BgL_bufposz00_26028
																																																								=
																																																								BgL_arg4397z00_6825;
																																																							BgL_bufposz00_6819
																																																								=
																																																								BgL_bufposz00_26028;
																																																							BgL_forwardz00_6818
																																																								=
																																																								BgL_forwardz00_26027;
																																																							goto
																																																								BgL_zc3z04anonymousza34393ze3z87_6820;
																																																						}
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_matchz00_9747
																																																							=
																																																							BgL_newzd2matchzd2_6821;
																																																					}
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				int
																																																					BgL_curz00_6826;
																																																				{	/* Read/reader.scm 409 */
																																																					obj_t
																																																						BgL_tmpz00_26029;
																																																					BgL_tmpz00_26029
																																																						=
																																																						(
																																																						(obj_t)
																																																						BgL_iportz00_6816);
																																																					BgL_curz00_6826
																																																						=
																																																						RGC_BUFFER_GET_CHAR
																																																						(BgL_tmpz00_26029,
																																																						BgL_forwardz00_6818);
																																																				}
																																																				{	/* Read/reader.scm 409 */

																																																					if (((long) (BgL_curz00_6826) == 58L))
																																																						{
																																																							long
																																																								BgL_bufposz00_26039;
																																																							long
																																																								BgL_forwardz00_26037;
																																																							long
																																																								BgL_lastzd2matchzd2_26036;
																																																							obj_t
																																																								BgL_iportz00_26035;
																																																							BgL_iportz00_26035
																																																								=
																																																								BgL_iportz00_6816;
																																																							BgL_lastzd2matchzd2_26036
																																																								=
																																																								BgL_newzd2matchzd2_6821;
																																																							BgL_forwardz00_26037
																																																								=
																																																								(1L
																																																								+
																																																								BgL_forwardz00_6818);
																																																							BgL_bufposz00_26039
																																																								=
																																																								BgL_bufposz00_6819;
																																																							BgL_bufposz00_7304
																																																								=
																																																								BgL_bufposz00_26039;
																																																							BgL_forwardz00_7303
																																																								=
																																																								BgL_forwardz00_26037;
																																																							BgL_lastzd2matchzd2_7302
																																																								=
																																																								BgL_lastzd2matchzd2_26036;
																																																							BgL_iportz00_7301
																																																								=
																																																								BgL_iportz00_26035;
																																																							goto
																																																								BgL_zc3z04anonymousza34639ze3z87_7305;
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							bool_t
																																																								BgL_test8726z00_26040;
																																																							if (((long) (BgL_curz00_6826) >= 48L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8726z00_26040
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_6826)
																																																										<
																																																										58L);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8726z00_26040
																																																										=
																																																										(
																																																										(bool_t)
																																																										0);
																																																								}
																																																							if (BgL_test8726z00_26040)
																																																								{
																																																									long
																																																										BgL_bufposz00_26050;
																																																									long
																																																										BgL_forwardz00_26048;
																																																									long
																																																										BgL_lastzd2matchzd2_26047;
																																																									obj_t
																																																										BgL_iportz00_26046;
																																																									BgL_iportz00_26046
																																																										=
																																																										BgL_iportz00_6816;
																																																									BgL_lastzd2matchzd2_26047
																																																										=
																																																										BgL_newzd2matchzd2_6821;
																																																									BgL_forwardz00_26048
																																																										=
																																																										(1L
																																																										+
																																																										BgL_forwardz00_6818);
																																																									BgL_bufposz00_26050
																																																										=
																																																										BgL_bufposz00_6819;
																																																									BgL_bufposz00_3943
																																																										=
																																																										BgL_bufposz00_26050;
																																																									BgL_forwardz00_3942
																																																										=
																																																										BgL_forwardz00_26048;
																																																									BgL_lastzd2matchzd2_3941
																																																										=
																																																										BgL_lastzd2matchzd2_26047;
																																																									BgL_iportz00_3940
																																																										=
																																																										BgL_iportz00_26046;
																																																									goto
																																																										BgL_zc3z04anonymousza32819ze3z87_3944;
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									if (((long) (BgL_curz00_6826) == 46L))
																																																										{
																																																											long
																																																												BgL_bufposz00_26058;
																																																											long
																																																												BgL_forwardz00_26056;
																																																											long
																																																												BgL_lastzd2matchzd2_26055;
																																																											obj_t
																																																												BgL_iportz00_26054;
																																																											BgL_iportz00_26054
																																																												=
																																																												BgL_iportz00_6816;
																																																											BgL_lastzd2matchzd2_26055
																																																												=
																																																												BgL_newzd2matchzd2_6821;
																																																											BgL_forwardz00_26056
																																																												=
																																																												(1L
																																																												+
																																																												BgL_forwardz00_6818);
																																																											BgL_bufposz00_26058
																																																												=
																																																												BgL_bufposz00_6819;
																																																											BgL_bufposz00_9542
																																																												=
																																																												BgL_bufposz00_26058;
																																																											BgL_forwardz00_9541
																																																												=
																																																												BgL_forwardz00_26056;
																																																											BgL_lastzd2matchzd2_9540
																																																												=
																																																												BgL_lastzd2matchzd2_26055;
																																																											BgL_iportz00_9539
																																																												=
																																																												BgL_iportz00_26054;
																																																											goto
																																																												BgL_zc3z04anonymousza35780ze3z87_9543;
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											bool_t
																																																												BgL_test8729z00_26059;
																																																											if (((long) (BgL_curz00_6826) == 39L))
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8729z00_26059
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													if (((long) (BgL_curz00_6826) == 44L))
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8729z00_26059
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8729z00_26059
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_6826)
																																																																==
																																																																96L);
																																																												}}
																																																											if (BgL_test8729z00_26059)
																																																												{
																																																													long
																																																														BgL_bufposz00_26072;
																																																													long
																																																														BgL_forwardz00_26070;
																																																													long
																																																														BgL_lastzd2matchzd2_26069;
																																																													obj_t
																																																														BgL_iportz00_26068;
																																																													BgL_iportz00_26068
																																																														=
																																																														BgL_iportz00_6816;
																																																													BgL_lastzd2matchzd2_26069
																																																														=
																																																														BgL_newzd2matchzd2_6821;
																																																													BgL_forwardz00_26070
																																																														=
																																																														(1L
																																																														+
																																																														BgL_forwardz00_6818);
																																																													BgL_bufposz00_26072
																																																														=
																																																														BgL_bufposz00_6819;
																																																													BgL_bufposz00_7365
																																																														=
																																																														BgL_bufposz00_26072;
																																																													BgL_forwardz00_7364
																																																														=
																																																														BgL_forwardz00_26070;
																																																													BgL_lastzd2matchzd2_7363
																																																														=
																																																														BgL_lastzd2matchzd2_26069;
																																																													BgL_iportz00_7362
																																																														=
																																																														BgL_iportz00_26068;
																																																													goto
																																																														BgL_zc3z04anonymousza34670ze3z87_7366;
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													bool_t
																																																														BgL_test8732z00_26073;
																																																													if (((long) (BgL_curz00_6826) < 33L))
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8732z00_26073
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															bool_t
																																																																BgL_test8734z00_26077;
																																																															if (((long) (BgL_curz00_6826) == 35L))
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test8734z00_26077
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test8734z00_26077
																																																																		=
																																																																		(
																																																																		(long)
																																																																		(BgL_curz00_6826)
																																																																		==
																																																																		34L);
																																																																}
																																																															if (BgL_test8734z00_26077)
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test8732z00_26073
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	bool_t
																																																																		BgL_test8736z00_26083;
																																																																	if (((long) (BgL_curz00_6826) == 41L))
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test8736z00_26083
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 409 */
																																																																			if (((long) (BgL_curz00_6826) == 40L))
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test8736z00_26083
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test8736z00_26083
																																																																						=
																																																																						(
																																																																						(long)
																																																																						(BgL_curz00_6826)
																																																																						==
																																																																						39L);
																																																																		}}
																																																																	if (BgL_test8736z00_26083)
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test8732z00_26073
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 409 */
																																																																			if (((long) (BgL_curz00_6826) == 44L))
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test8732z00_26073
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 409 */
																																																																					if (((long) (BgL_curz00_6826) == 46L))
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test8732z00_26073
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 409 */
																																																																							bool_t
																																																																								BgL_test8741z00_26098;
																																																																							if (((long) (BgL_curz00_6826) >= 48L))
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8741z00_26098
																																																																										=
																																																																										(
																																																																										(long)
																																																																										(BgL_curz00_6826)
																																																																										<
																																																																										60L);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8741z00_26098
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										0);
																																																																								}
																																																																							if (BgL_test8741z00_26098)
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8732z00_26073
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 409 */
																																																																									if (((long) (BgL_curz00_6826) == 91L))
																																																																										{	/* Read/reader.scm 409 */
																																																																											BgL_test8732z00_26073
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 409 */
																																																																											if (((long) (BgL_curz00_6826) == 93L))
																																																																												{	/* Read/reader.scm 409 */
																																																																													BgL_test8732z00_26073
																																																																														=
																																																																														(
																																																																														(bool_t)
																																																																														1);
																																																																												}
																																																																											else
																																																																												{	/* Read/reader.scm 409 */
																																																																													if (((long) (BgL_curz00_6826) == 96L))
																																																																														{	/* Read/reader.scm 409 */
																																																																															BgL_test8732z00_26073
																																																																																=
																																																																																(
																																																																																(bool_t)
																																																																																1);
																																																																														}
																																																																													else
																																																																														{	/* Read/reader.scm 409 */
																																																																															bool_t
																																																																																BgL_test8746z00_26113;
																																																																															if (((long) (BgL_curz00_6826) == 125L))
																																																																																{	/* Read/reader.scm 409 */
																																																																																	BgL_test8746z00_26113
																																																																																		=
																																																																																		(
																																																																																		(bool_t)
																																																																																		1);
																																																																																}
																																																																															else
																																																																																{	/* Read/reader.scm 409 */
																																																																																	if (((long) (BgL_curz00_6826) == 124L))
																																																																																		{	/* Read/reader.scm 409 */
																																																																																			BgL_test8746z00_26113
																																																																																				=
																																																																																				(
																																																																																				(bool_t)
																																																																																				1);
																																																																																		}
																																																																																	else
																																																																																		{	/* Read/reader.scm 409 */
																																																																																			BgL_test8746z00_26113
																																																																																				=
																																																																																				(
																																																																																				(long)
																																																																																				(BgL_curz00_6826)
																																																																																				==
																																																																																				123L);
																																																																																}}
																																																																															if (BgL_test8746z00_26113)
																																																																																{	/* Read/reader.scm 409 */
																																																																																	BgL_test8732z00_26073
																																																																																		=
																																																																																		(
																																																																																		(bool_t)
																																																																																		1);
																																																																																}
																																																																															else
																																																																																{	/* Read/reader.scm 409 */
																																																																																	BgL_test8732z00_26073
																																																																																		=
																																																																																		(
																																																																																		(long)
																																																																																		(BgL_curz00_6826)
																																																																																		==
																																																																																		127L);
																																																														}}}}}}}}}}
																																																													if (BgL_test8732z00_26073)
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_matchz00_9747
																																																																=
																																																																BgL_newzd2matchzd2_6821;
																																																														}
																																																													else
																																																														{
																																																															long
																																																																BgL_bufposz00_26128;
																																																															long
																																																																BgL_forwardz00_26126;
																																																															long
																																																																BgL_lastzd2matchzd2_26125;
																																																															obj_t
																																																																BgL_iportz00_26124;
																																																															BgL_iportz00_26124
																																																																=
																																																																BgL_iportz00_6816;
																																																															BgL_lastzd2matchzd2_26125
																																																																=
																																																																BgL_newzd2matchzd2_6821;
																																																															BgL_forwardz00_26126
																																																																=
																																																																(1L
																																																																+
																																																																BgL_forwardz00_6818);
																																																															BgL_bufposz00_26128
																																																																=
																																																																BgL_bufposz00_6819;
																																																															BgL_bufposz00_5103
																																																																=
																																																																BgL_bufposz00_26128;
																																																															BgL_forwardz00_5102
																																																																=
																																																																BgL_forwardz00_26126;
																																																															BgL_lastzd2matchzd2_5101
																																																																=
																																																																BgL_lastzd2matchzd2_26125;
																																																															BgL_iportz00_5100
																																																																=
																																																																BgL_iportz00_26124;
																																																															goto
																																																																BgL_zc3z04anonymousza33512ze3z87_5104;
																																																														}
																																																												}
																																																										}
																																																								}
																																																						}
																																																				}
																																																			}
																																																	}
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	if (((long) (BgL_curz00_6692) == 46L))
																																																		{
																																																			long
																																																				BgL_bufposz00_26137;
																																																			long
																																																				BgL_forwardz00_26135;
																																																			long
																																																				BgL_lastzd2matchzd2_26134;
																																																			obj_t
																																																				BgL_iportz00_26133;
																																																			BgL_iportz00_26133
																																																				=
																																																				BgL_iportz00_6682;
																																																			BgL_lastzd2matchzd2_26134
																																																				=
																																																				BgL_newzd2matchzd2_6687;
																																																			BgL_forwardz00_26135
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_6684);
																																																			BgL_bufposz00_26137
																																																				=
																																																				BgL_bufposz00_6685;
																																																			BgL_bufposz00_9542
																																																				=
																																																				BgL_bufposz00_26137;
																																																			BgL_forwardz00_9541
																																																				=
																																																				BgL_forwardz00_26135;
																																																			BgL_lastzd2matchzd2_9540
																																																				=
																																																				BgL_lastzd2matchzd2_26134;
																																																			BgL_iportz00_9539
																																																				=
																																																				BgL_iportz00_26133;
																																																			goto
																																																				BgL_zc3z04anonymousza35780ze3z87_9543;
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			bool_t
																																																				BgL_test8750z00_26138;
																																																			if (((long) (BgL_curz00_6692) == 39L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8750z00_26138
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					if (((long) (BgL_curz00_6692) == 44L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8750z00_26138
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8750z00_26138
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_6692)
																																																								==
																																																								96L);
																																																				}}
																																																			if (BgL_test8750z00_26138)
																																																				{
																																																					long
																																																						BgL_bufposz00_26151;
																																																					long
																																																						BgL_forwardz00_26149;
																																																					long
																																																						BgL_lastzd2matchzd2_26148;
																																																					obj_t
																																																						BgL_iportz00_26147;
																																																					BgL_iportz00_26147
																																																						=
																																																						BgL_iportz00_6682;
																																																					BgL_lastzd2matchzd2_26148
																																																						=
																																																						BgL_newzd2matchzd2_6687;
																																																					BgL_forwardz00_26149
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_6684);
																																																					BgL_bufposz00_26151
																																																						=
																																																						BgL_bufposz00_6685;
																																																					BgL_bufposz00_7365
																																																						=
																																																						BgL_bufposz00_26151;
																																																					BgL_forwardz00_7364
																																																						=
																																																						BgL_forwardz00_26149;
																																																					BgL_lastzd2matchzd2_7363
																																																						=
																																																						BgL_lastzd2matchzd2_26148;
																																																					BgL_iportz00_7362
																																																						=
																																																						BgL_iportz00_26147;
																																																					goto
																																																						BgL_zc3z04anonymousza34670ze3z87_7366;
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					bool_t
																																																						BgL_test8753z00_26152;
																																																					if (((long) (BgL_curz00_6692) < 33L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8753z00_26152
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							bool_t
																																																								BgL_test8755z00_26156;
																																																							if (((long) (BgL_curz00_6692) == 35L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8755z00_26156
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8755z00_26156
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_6692)
																																																										==
																																																										34L);
																																																								}
																																																							if (BgL_test8755z00_26156)
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8753z00_26152
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									bool_t
																																																										BgL_test8757z00_26162;
																																																									if (((long) (BgL_curz00_6692) == 41L))
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8757z00_26162
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											if (((long) (BgL_curz00_6692) == 40L))
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8757z00_26162
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8757z00_26162
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_6692)
																																																														==
																																																														39L);
																																																										}}
																																																									if (BgL_test8757z00_26162)
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8753z00_26152
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											if (((long) (BgL_curz00_6692) == 44L))
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8753z00_26152
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													if (((long) (BgL_curz00_6692) == 46L))
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8753z00_26152
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															bool_t
																																																																BgL_test8762z00_26177;
																																																															if (((long) (BgL_curz00_6692) >= 48L))
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test8762z00_26177
																																																																		=
																																																																		(
																																																																		(long)
																																																																		(BgL_curz00_6692)
																																																																		<
																																																																		60L);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test8762z00_26177
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		0);
																																																																}
																																																															if (BgL_test8762z00_26177)
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test8753z00_26152
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	if (((long) (BgL_curz00_6692) == 91L))
																																																																		{	/* Read/reader.scm 409 */
																																																																			BgL_test8753z00_26152
																																																																				=
																																																																				(
																																																																				(bool_t)
																																																																				1);
																																																																		}
																																																																	else
																																																																		{	/* Read/reader.scm 409 */
																																																																			if (((long) (BgL_curz00_6692) == 93L))
																																																																				{	/* Read/reader.scm 409 */
																																																																					BgL_test8753z00_26152
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						1);
																																																																				}
																																																																			else
																																																																				{	/* Read/reader.scm 409 */
																																																																					if (((long) (BgL_curz00_6692) == 96L))
																																																																						{	/* Read/reader.scm 409 */
																																																																							BgL_test8753z00_26152
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																					else
																																																																						{	/* Read/reader.scm 409 */
																																																																							bool_t
																																																																								BgL_test8767z00_26192;
																																																																							if (((long) (BgL_curz00_6692) == 125L))
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8767z00_26192
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 409 */
																																																																									if (((long) (BgL_curz00_6692) == 124L))
																																																																										{	/* Read/reader.scm 409 */
																																																																											BgL_test8767z00_26192
																																																																												=
																																																																												(
																																																																												(bool_t)
																																																																												1);
																																																																										}
																																																																									else
																																																																										{	/* Read/reader.scm 409 */
																																																																											BgL_test8767z00_26192
																																																																												=
																																																																												(
																																																																												(long)
																																																																												(BgL_curz00_6692)
																																																																												==
																																																																												123L);
																																																																								}}
																																																																							if (BgL_test8767z00_26192)
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8753z00_26152
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										1);
																																																																								}
																																																																							else
																																																																								{	/* Read/reader.scm 409 */
																																																																									BgL_test8753z00_26152
																																																																										=
																																																																										(
																																																																										(long)
																																																																										(BgL_curz00_6692)
																																																																										==
																																																																										127L);
																																																						}}}}}}}}}}
																																																					if (BgL_test8753z00_26152)
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_matchz00_9747
																																																								=
																																																								BgL_newzd2matchzd2_6687;
																																																						}
																																																					else
																																																						{
																																																							long
																																																								BgL_bufposz00_26207;
																																																							long
																																																								BgL_forwardz00_26205;
																																																							long
																																																								BgL_lastzd2matchzd2_26204;
																																																							obj_t
																																																								BgL_iportz00_26203;
																																																							BgL_iportz00_26203
																																																								=
																																																								BgL_iportz00_6682;
																																																							BgL_lastzd2matchzd2_26204
																																																								=
																																																								BgL_newzd2matchzd2_6687;
																																																							BgL_forwardz00_26205
																																																								=
																																																								(1L
																																																								+
																																																								BgL_forwardz00_6684);
																																																							BgL_bufposz00_26207
																																																								=
																																																								BgL_bufposz00_6685;
																																																							BgL_bufposz00_5103
																																																								=
																																																								BgL_bufposz00_26207;
																																																							BgL_forwardz00_5102
																																																								=
																																																								BgL_forwardz00_26205;
																																																							BgL_lastzd2matchzd2_5101
																																																								=
																																																								BgL_lastzd2matchzd2_26204;
																																																							BgL_iportz00_5100
																																																								=
																																																								BgL_iportz00_26203;
																																																							goto
																																																								BgL_zc3z04anonymousza33512ze3z87_5104;
																																																						}
																																																				}
																																																		}
																																																}
																																														}
																																												}
																																										}
																																									}
																																							}
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							bool_t
																																								BgL_test8770z00_26209;
																																							if (((long) (BgL_curz00_8190) == 39L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8770z00_26209
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_8190) == 44L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8770z00_26209
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8770z00_26209
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_8190)
																																												==
																																												96L);
																																								}}
																																							if (BgL_test8770z00_26209)
																																								{
																																									long
																																										BgL_bufposz00_26222;
																																									long
																																										BgL_forwardz00_26220;
																																									long
																																										BgL_lastzd2matchzd2_26219;
																																									obj_t
																																										BgL_iportz00_26218;
																																									BgL_iportz00_26218
																																										=
																																										BgL_iportz00_8180;
																																									BgL_lastzd2matchzd2_26219
																																										=
																																										BgL_newzd2matchzd2_8185;
																																									BgL_forwardz00_26220
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_8182);
																																									BgL_bufposz00_26222
																																										=
																																										BgL_bufposz00_8183;
																																									BgL_bufposz00_6105
																																										=
																																										BgL_bufposz00_26222;
																																									BgL_forwardz00_6104
																																										=
																																										BgL_forwardz00_26220;
																																									BgL_lastzd2matchzd2_6103
																																										=
																																										BgL_lastzd2matchzd2_26219;
																																									BgL_iportz00_6102
																																										=
																																										BgL_iportz00_26218;
																																									goto
																																										BgL_zc3z04anonymousza34018ze3z87_6106;
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									bool_t
																																										BgL_test8773z00_26223;
																																									if (((long) (BgL_curz00_8190) < 33L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8773z00_26223
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											bool_t
																																												BgL_test8775z00_26227;
																																											if (((long) (BgL_curz00_8190) == 35L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8775z00_26227
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8775z00_26227
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_8190)
																																														==
																																														34L);
																																												}
																																											if (BgL_test8775z00_26227)
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8773z00_26223
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													bool_t
																																														BgL_test8777z00_26233;
																																													if (((long) (BgL_curz00_8190) == 41L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8777z00_26233
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_8190) == 40L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8777z00_26233
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8777z00_26233
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_8190)
																																																		==
																																																		39L);
																																														}}
																																													if (BgL_test8777z00_26233)
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8773z00_26223
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_8190) == 44L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8773z00_26223
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	if (((long) (BgL_curz00_8190) == 46L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8773z00_26223
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			bool_t
																																																				BgL_test8782z00_26248;
																																																			if (((long) (BgL_curz00_8190) == 59L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8782z00_26248
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8782z00_26248
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_8190)
																																																						==
																																																						58L);
																																																				}
																																																			if (BgL_test8782z00_26248)
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8773z00_26223
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					if (((long) (BgL_curz00_8190) == 91L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8773z00_26223
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							if (((long) (BgL_curz00_8190) == 93L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8773z00_26223
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									if (((long) (BgL_curz00_8190) == 96L))
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8773z00_26223
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											bool_t
																																																												BgL_test8787z00_26263;
																																																											if (((long) (BgL_curz00_8190) == 125L))
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8787z00_26263
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													if (((long) (BgL_curz00_8190) == 124L))
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8787z00_26263
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8787z00_26263
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_8190)
																																																																==
																																																																123L);
																																																												}}
																																																											if (BgL_test8787z00_26263)
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8773z00_26223
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8773z00_26223
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_8190)
																																																														==
																																																														127L);
																																										}}}}}}}}}}
																																									if (BgL_test8773z00_26223)
																																										{	/* Read/reader.scm 409 */
																																											BgL_matchz00_9747
																																												=
																																												BgL_newzd2matchzd2_8185;
																																										}
																																									else
																																										{
																																											long
																																												BgL_bufposz00_26278;
																																											long
																																												BgL_forwardz00_26276;
																																											long
																																												BgL_lastzd2matchzd2_26275;
																																											obj_t
																																												BgL_iportz00_26274;
																																											BgL_iportz00_26274
																																												=
																																												BgL_iportz00_8180;
																																											BgL_lastzd2matchzd2_26275
																																												=
																																												BgL_newzd2matchzd2_8185;
																																											BgL_forwardz00_26276
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_8182);
																																											BgL_bufposz00_26278
																																												=
																																												BgL_bufposz00_8183;
																																											BgL_bufposz00_4963
																																												=
																																												BgL_bufposz00_26278;
																																											BgL_forwardz00_4962
																																												=
																																												BgL_forwardz00_26276;
																																											BgL_lastzd2matchzd2_4961
																																												=
																																												BgL_lastzd2matchzd2_26275;
																																											BgL_iportz00_4960
																																												=
																																												BgL_iportz00_26274;
																																											goto
																																												BgL_zc3z04anonymousza33439ze3z87_4964;
																																										}
																																								}
																																						}
																																				}
																																		}
																																	}
																															}
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															if (
																																((long)
																																	(BgL_curz00_5315)
																																	== 58L))
																																{
																																	long
																																		BgL_bufposz00_26287;
																																	long
																																		BgL_forwardz00_26285;
																																	long
																																		BgL_lastzd2matchzd2_26284;
																																	obj_t
																																		BgL_iportz00_26283;
																																	BgL_iportz00_26283
																																		=
																																		BgL_iportz00_5305;
																																	BgL_lastzd2matchzd2_26284
																																		=
																																		BgL_newzd2matchzd2_5310;
																																	BgL_forwardz00_26285
																																		=
																																		(1L +
																																		BgL_forwardz00_5307);
																																	BgL_bufposz00_26287
																																		=
																																		BgL_bufposz00_5308;
																																	BgL_bufposz00_6394
																																		=
																																		BgL_bufposz00_26287;
																																	BgL_forwardz00_6393
																																		=
																																		BgL_forwardz00_26285;
																																	BgL_lastzd2matchzd2_6392
																																		=
																																		BgL_lastzd2matchzd2_26284;
																																	BgL_iportz00_6391
																																		=
																																		BgL_iportz00_26283;
																																	goto
																																		BgL_zc3z04anonymousza34167ze3z87_6395;
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	if (
																																		((long)
																																			(BgL_curz00_5315)
																																			== 46L))
																																		{
																																			long
																																				BgL_bufposz00_26295;
																																			long
																																				BgL_forwardz00_26293;
																																			long
																																				BgL_lastzd2matchzd2_26292;
																																			obj_t
																																				BgL_iportz00_26291;
																																			BgL_iportz00_26291
																																				=
																																				BgL_iportz00_5305;
																																			BgL_lastzd2matchzd2_26292
																																				=
																																				BgL_newzd2matchzd2_5310;
																																			BgL_forwardz00_26293
																																				=
																																				(1L +
																																				BgL_forwardz00_5307);
																																			BgL_bufposz00_26295
																																				=
																																				BgL_bufposz00_5308;
																																			BgL_bufposz00_3943
																																				=
																																				BgL_bufposz00_26295;
																																			BgL_forwardz00_3942
																																				=
																																				BgL_forwardz00_26293;
																																			BgL_lastzd2matchzd2_3941
																																				=
																																				BgL_lastzd2matchzd2_26292;
																																			BgL_iportz00_3940
																																				=
																																				BgL_iportz00_26291;
																																			goto
																																				BgL_zc3z04anonymousza32819ze3z87_3944;
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			bool_t
																																				BgL_test8792z00_26296;
																																			if ((
																																					(long)
																																					(BgL_curz00_5315)
																																					==
																																					39L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8792z00_26296
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					if (
																																						((long) (BgL_curz00_5315) == 44L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8792z00_26296
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8792z00_26296
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_5315)
																																								==
																																								96L);
																																				}}
																																			if (BgL_test8792z00_26296)
																																				{
																																					long
																																						BgL_bufposz00_26309;
																																					long
																																						BgL_forwardz00_26307;
																																					long
																																						BgL_lastzd2matchzd2_26306;
																																					obj_t
																																						BgL_iportz00_26305;
																																					BgL_iportz00_26305
																																						=
																																						BgL_iportz00_5305;
																																					BgL_lastzd2matchzd2_26306
																																						=
																																						BgL_newzd2matchzd2_5310;
																																					BgL_forwardz00_26307
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_5307);
																																					BgL_bufposz00_26309
																																						=
																																						BgL_bufposz00_5308;
																																					BgL_bufposz00_6105
																																						=
																																						BgL_bufposz00_26309;
																																					BgL_forwardz00_6104
																																						=
																																						BgL_forwardz00_26307;
																																					BgL_lastzd2matchzd2_6103
																																						=
																																						BgL_lastzd2matchzd2_26306;
																																					BgL_iportz00_6102
																																						=
																																						BgL_iportz00_26305;
																																					goto
																																						BgL_zc3z04anonymousza34018ze3z87_6106;
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					bool_t
																																						BgL_test8795z00_26310;
																																					if ((
																																							(long)
																																							(BgL_curz00_5315)
																																							<
																																							33L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8795z00_26310
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							bool_t
																																								BgL_test8797z00_26314;
																																							if (((long) (BgL_curz00_5315) == 35L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8797z00_26314
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8797z00_26314
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_5315)
																																										==
																																										34L);
																																								}
																																							if (BgL_test8797z00_26314)
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8795z00_26310
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									bool_t
																																										BgL_test8799z00_26320;
																																									if (((long) (BgL_curz00_5315) == 41L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8799z00_26320
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											if (((long) (BgL_curz00_5315) == 40L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8799z00_26320
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8799z00_26320
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_5315)
																																														==
																																														39L);
																																										}}
																																									if (BgL_test8799z00_26320)
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8795z00_26310
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											if (((long) (BgL_curz00_5315) == 44L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8795z00_26310
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													if (((long) (BgL_curz00_5315) == 46L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8795z00_26310
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															bool_t
																																																BgL_test8804z00_26335;
																																															if (((long) (BgL_curz00_5315) == 59L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8804z00_26335
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8804z00_26335
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_5315)
																																																		==
																																																		58L);
																																																}
																																															if (BgL_test8804z00_26335)
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8795z00_26310
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	if (((long) (BgL_curz00_5315) == 91L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8795z00_26310
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			if (((long) (BgL_curz00_5315) == 93L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8795z00_26310
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					if (((long) (BgL_curz00_5315) == 96L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8795z00_26310
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							if (((long) (BgL_curz00_5315) == 102L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8795z00_26310
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									bool_t
																																																										BgL_test8810z00_26353;
																																																									if (((long) (BgL_curz00_5315) == 125L))
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8810z00_26353
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											if (((long) (BgL_curz00_5315) == 124L))
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8810z00_26353
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8810z00_26353
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_5315)
																																																														==
																																																														123L);
																																																										}}
																																																									if (BgL_test8810z00_26353)
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8795z00_26310
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8795z00_26310
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_5315)
																																																												==
																																																												127L);
																																						}}}}}}}}}}}
																																					if (BgL_test8795z00_26310)
																																						{	/* Read/reader.scm 409 */
																																							BgL_matchz00_9747
																																								=
																																								BgL_newzd2matchzd2_5310;
																																						}
																																					else
																																						{
																																							long
																																								BgL_bufposz00_26368;
																																							long
																																								BgL_forwardz00_26366;
																																							long
																																								BgL_lastzd2matchzd2_26365;
																																							obj_t
																																								BgL_iportz00_26364;
																																							BgL_iportz00_26364
																																								=
																																								BgL_iportz00_5305;
																																							BgL_lastzd2matchzd2_26365
																																								=
																																								BgL_newzd2matchzd2_5310;
																																							BgL_forwardz00_26366
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_5307);
																																							BgL_bufposz00_26368
																																								=
																																								BgL_bufposz00_5308;
																																							BgL_bufposz00_4963
																																								=
																																								BgL_bufposz00_26368;
																																							BgL_forwardz00_4962
																																								=
																																								BgL_forwardz00_26366;
																																							BgL_lastzd2matchzd2_4961
																																								=
																																								BgL_lastzd2matchzd2_26365;
																																							BgL_iportz00_4960
																																								=
																																								BgL_iportz00_26364;
																																							goto
																																								BgL_zc3z04anonymousza33439ze3z87_4964;
																																						}
																																				}
																																		}
																																}
																														}
																												}
																											}
																									}
																								}
																							else
																								{	/* Read/reader.scm 409 */
																									if (
																										((long) (BgL_curz00_8287) ==
																											58L))
																										{
																											long BgL_bufposz00_26377;
																											long BgL_forwardz00_26375;
																											long
																												BgL_lastzd2matchzd2_26374;
																											obj_t BgL_iportz00_26373;

																											BgL_iportz00_26373 =
																												BgL_iportz00_8277;
																											BgL_lastzd2matchzd2_26374
																												=
																												BgL_newzd2matchzd2_8282;
																											BgL_forwardz00_26375 =
																												(1L +
																												BgL_forwardz00_8279);
																											BgL_bufposz00_26377 =
																												BgL_bufposz00_8280;
																											BgL_bufposz00_6394 =
																												BgL_bufposz00_26377;
																											BgL_forwardz00_6393 =
																												BgL_forwardz00_26375;
																											BgL_lastzd2matchzd2_6392 =
																												BgL_lastzd2matchzd2_26374;
																											BgL_iportz00_6391 =
																												BgL_iportz00_26373;
																											goto
																												BgL_zc3z04anonymousza34167ze3z87_6395;
																										}
																									else
																										{	/* Read/reader.scm 409 */
																											if (
																												((long)
																													(BgL_curz00_8287) ==
																													46L))
																												{
																													long
																														BgL_bufposz00_26385;
																													long
																														BgL_forwardz00_26383;
																													long
																														BgL_lastzd2matchzd2_26382;
																													obj_t
																														BgL_iportz00_26381;
																													BgL_iportz00_26381 =
																														BgL_iportz00_8277;
																													BgL_lastzd2matchzd2_26382
																														=
																														BgL_newzd2matchzd2_8282;
																													BgL_forwardz00_26383 =
																														(1L +
																														BgL_forwardz00_8279);
																													BgL_bufposz00_26385 =
																														BgL_bufposz00_8280;
																													BgL_bufposz00_3943 =
																														BgL_bufposz00_26385;
																													BgL_forwardz00_3942 =
																														BgL_forwardz00_26383;
																													BgL_lastzd2matchzd2_3941
																														=
																														BgL_lastzd2matchzd2_26382;
																													BgL_iportz00_3940 =
																														BgL_iportz00_26381;
																													goto
																														BgL_zc3z04anonymousza32819ze3z87_3944;
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													bool_t
																														BgL_test8815z00_26386;
																													if (((long)
																															(BgL_curz00_8287)
																															== 39L))
																														{	/* Read/reader.scm 409 */
																															BgL_test8815z00_26386
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															if (
																																((long)
																																	(BgL_curz00_8287)
																																	== 44L))
																																{	/* Read/reader.scm 409 */
																																	BgL_test8815z00_26386
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	BgL_test8815z00_26386
																																		=
																																		((long)
																																		(BgL_curz00_8287)
																																		== 96L);
																														}}
																													if (BgL_test8815z00_26386)
																														{
																															long
																																BgL_bufposz00_26399;
																															long
																																BgL_forwardz00_26397;
																															long
																																BgL_lastzd2matchzd2_26396;
																															obj_t
																																BgL_iportz00_26395;
																															BgL_iportz00_26395
																																=
																																BgL_iportz00_8277;
																															BgL_lastzd2matchzd2_26396
																																=
																																BgL_newzd2matchzd2_8282;
																															BgL_forwardz00_26397
																																=
																																(1L +
																																BgL_forwardz00_8279);
																															BgL_bufposz00_26399
																																=
																																BgL_bufposz00_8280;
																															BgL_bufposz00_6105
																																=
																																BgL_bufposz00_26399;
																															BgL_forwardz00_6104
																																=
																																BgL_forwardz00_26397;
																															BgL_lastzd2matchzd2_6103
																																=
																																BgL_lastzd2matchzd2_26396;
																															BgL_iportz00_6102
																																=
																																BgL_iportz00_26395;
																															goto
																																BgL_zc3z04anonymousza34018ze3z87_6106;
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															bool_t
																																BgL_test8818z00_26400;
																															if (((long)
																																	(BgL_curz00_8287)
																																	< 33L))
																																{	/* Read/reader.scm 409 */
																																	BgL_test8818z00_26400
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	bool_t
																																		BgL_test8820z00_26404;
																																	if (((long)
																																			(BgL_curz00_8287)
																																			== 35L))
																																		{	/* Read/reader.scm 409 */
																																			BgL_test8820z00_26404
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			BgL_test8820z00_26404
																																				=
																																				((long)
																																				(BgL_curz00_8287)
																																				== 34L);
																																		}
																																	if (BgL_test8820z00_26404)
																																		{	/* Read/reader.scm 409 */
																																			BgL_test8818z00_26400
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			bool_t
																																				BgL_test8822z00_26410;
																																			if ((
																																					(long)
																																					(BgL_curz00_8287)
																																					==
																																					41L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8822z00_26410
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					if (
																																						((long) (BgL_curz00_8287) == 40L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8822z00_26410
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8822z00_26410
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_8287)
																																								==
																																								39L);
																																				}}
																																			if (BgL_test8822z00_26410)
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8818z00_26400
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					if (
																																						((long) (BgL_curz00_8287) == 44L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8818z00_26400
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							if (((long) (BgL_curz00_8287) == 46L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8818z00_26400
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									bool_t
																																										BgL_test8827z00_26425;
																																									if (((long) (BgL_curz00_8287) == 59L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8827z00_26425
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8827z00_26425
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_8287)
																																												==
																																												58L);
																																										}
																																									if (BgL_test8827z00_26425)
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8818z00_26400
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											if (((long) (BgL_curz00_8287) == 91L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8818z00_26400
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													if (((long) (BgL_curz00_8287) == 93L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8818z00_26400
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_8287) == 96L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8818z00_26400
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	if (((long) (BgL_curz00_8287) == 110L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8818z00_26400
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			bool_t
																																																				BgL_test8833z00_26443;
																																																			if (((long) (BgL_curz00_8287) == 125L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8833z00_26443
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					if (((long) (BgL_curz00_8287) == 124L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8833z00_26443
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8833z00_26443
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_8287)
																																																								==
																																																								123L);
																																																				}}
																																																			if (BgL_test8833z00_26443)
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8818z00_26400
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8818z00_26400
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_8287)
																																																						==
																																																						127L);
																																}}}}}}}}}}}
																															if (BgL_test8818z00_26400)
																																{	/* Read/reader.scm 409 */
																																	BgL_matchz00_9747
																																		=
																																		BgL_newzd2matchzd2_8282;
																																}
																															else
																																{
																																	long
																																		BgL_bufposz00_26458;
																																	long
																																		BgL_forwardz00_26456;
																																	long
																																		BgL_lastzd2matchzd2_26455;
																																	obj_t
																																		BgL_iportz00_26454;
																																	BgL_iportz00_26454
																																		=
																																		BgL_iportz00_8277;
																																	BgL_lastzd2matchzd2_26455
																																		=
																																		BgL_newzd2matchzd2_8282;
																																	BgL_forwardz00_26456
																																		=
																																		(1L +
																																		BgL_forwardz00_8279);
																																	BgL_bufposz00_26458
																																		=
																																		BgL_bufposz00_8280;
																																	BgL_bufposz00_4963
																																		=
																																		BgL_bufposz00_26458;
																																	BgL_forwardz00_4962
																																		=
																																		BgL_forwardz00_26456;
																																	BgL_lastzd2matchzd2_4961
																																		=
																																		BgL_lastzd2matchzd2_26455;
																																	BgL_iportz00_4960
																																		=
																																		BgL_iportz00_26454;
																																	goto
																																		BgL_zc3z04anonymousza33439ze3z87_4964;
																																}
																														}
																												}
																										}
																								}
																						}
																					}
																			}
																		}
																	else
																		{	/* Read/reader.scm 409 */
																			if (((long) (BgL_curz00_9409) == 58L))
																				{
																					long BgL_bufposz00_26467;
																					long BgL_forwardz00_26465;
																					long BgL_lastzd2matchzd2_26464;
																					obj_t BgL_iportz00_26463;

																					BgL_iportz00_26463 =
																						BgL_iportz00_9399;
																					BgL_lastzd2matchzd2_26464 =
																						BgL_newzd2matchzd2_9404;
																					BgL_forwardz00_26465 =
																						(1L + BgL_forwardz00_9401);
																					BgL_bufposz00_26467 =
																						BgL_bufposz00_9402;
																					BgL_bufposz00_6394 =
																						BgL_bufposz00_26467;
																					BgL_forwardz00_6393 =
																						BgL_forwardz00_26465;
																					BgL_lastzd2matchzd2_6392 =
																						BgL_lastzd2matchzd2_26464;
																					BgL_iportz00_6391 =
																						BgL_iportz00_26463;
																					goto
																						BgL_zc3z04anonymousza34167ze3z87_6395;
																				}
																			else
																				{	/* Read/reader.scm 409 */
																					bool_t BgL_test8837z00_26468;

																					if (((long) (BgL_curz00_9409) >= 48L))
																						{	/* Read/reader.scm 409 */
																							BgL_test8837z00_26468 =
																								(
																								(long) (BgL_curz00_9409) < 58L);
																						}
																					else
																						{	/* Read/reader.scm 409 */
																							BgL_test8837z00_26468 =
																								((bool_t) 0);
																						}
																					if (BgL_test8837z00_26468)
																						{
																							long BgL_bufposz00_26478;
																							long BgL_forwardz00_26476;
																							long BgL_lastzd2matchzd2_26475;
																							obj_t BgL_iportz00_26474;

																							BgL_iportz00_26474 =
																								BgL_iportz00_9399;
																							BgL_lastzd2matchzd2_26475 =
																								BgL_newzd2matchzd2_9404;
																							BgL_forwardz00_26476 =
																								(1L + BgL_forwardz00_9401);
																							BgL_bufposz00_26478 =
																								BgL_bufposz00_9402;
																							BgL_bufposz00_4008 =
																								BgL_bufposz00_26478;
																							BgL_forwardz00_4007 =
																								BgL_forwardz00_26476;
																							BgL_lastzd2matchzd2_4006 =
																								BgL_lastzd2matchzd2_26475;
																							BgL_iportz00_4005 =
																								BgL_iportz00_26474;
																							goto
																								BgL_zc3z04anonymousza32854ze3z87_4009;
																						}
																					else
																						{	/* Read/reader.scm 409 */
																							if (
																								((long) (BgL_curz00_9409) ==
																									46L))
																								{
																									long BgL_bufposz00_26486;
																									long BgL_forwardz00_26484;
																									long
																										BgL_lastzd2matchzd2_26483;
																									obj_t BgL_iportz00_26482;

																									BgL_iportz00_26482 =
																										BgL_iportz00_9399;
																									BgL_lastzd2matchzd2_26483 =
																										BgL_newzd2matchzd2_9404;
																									BgL_forwardz00_26484 =
																										(1L + BgL_forwardz00_9401);
																									BgL_bufposz00_26486 =
																										BgL_bufposz00_9402;
																									BgL_bufposz00_6973 =
																										BgL_bufposz00_26486;
																									BgL_forwardz00_6972 =
																										BgL_forwardz00_26484;
																									BgL_lastzd2matchzd2_6971 =
																										BgL_lastzd2matchzd2_26483;
																									BgL_iportz00_6970 =
																										BgL_iportz00_26482;
																									goto
																										BgL_zc3z04anonymousza34470ze3z87_6974;
																								}
																							else
																								{	/* Read/reader.scm 409 */
																									bool_t BgL_test8840z00_26487;

																									if (
																										((long) (BgL_curz00_9409) ==
																											39L))
																										{	/* Read/reader.scm 409 */
																											BgL_test8840z00_26487 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 409 */
																											if (
																												((long)
																													(BgL_curz00_9409) ==
																													44L))
																												{	/* Read/reader.scm 409 */
																													BgL_test8840z00_26487
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													BgL_test8840z00_26487
																														=
																														((long)
																														(BgL_curz00_9409) ==
																														96L);
																										}}
																									if (BgL_test8840z00_26487)
																										{
																											long BgL_bufposz00_26500;
																											long BgL_forwardz00_26498;
																											long
																												BgL_lastzd2matchzd2_26497;
																											obj_t BgL_iportz00_26496;

																											BgL_iportz00_26496 =
																												BgL_iportz00_9399;
																											BgL_lastzd2matchzd2_26497
																												=
																												BgL_newzd2matchzd2_9404;
																											BgL_forwardz00_26498 =
																												(1L +
																												BgL_forwardz00_9401);
																											BgL_bufposz00_26500 =
																												BgL_bufposz00_9402;
																											BgL_bufposz00_6105 =
																												BgL_bufposz00_26500;
																											BgL_forwardz00_6104 =
																												BgL_forwardz00_26498;
																											BgL_lastzd2matchzd2_6103 =
																												BgL_lastzd2matchzd2_26497;
																											BgL_iportz00_6102 =
																												BgL_iportz00_26496;
																											goto
																												BgL_zc3z04anonymousza34018ze3z87_6106;
																										}
																									else
																										{	/* Read/reader.scm 409 */
																											bool_t
																												BgL_test8843z00_26501;
																											if (((long)
																													(BgL_curz00_9409) <
																													33L))
																												{	/* Read/reader.scm 409 */
																													BgL_test8843z00_26501
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													bool_t
																														BgL_test8845z00_26505;
																													if (((long)
																															(BgL_curz00_9409)
																															== 35L))
																														{	/* Read/reader.scm 409 */
																															BgL_test8845z00_26505
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															BgL_test8845z00_26505
																																=
																																((long)
																																(BgL_curz00_9409)
																																== 34L);
																														}
																													if (BgL_test8845z00_26505)
																														{	/* Read/reader.scm 409 */
																															BgL_test8843z00_26501
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															bool_t
																																BgL_test8847z00_26511;
																															if (((long)
																																	(BgL_curz00_9409)
																																	== 41L))
																																{	/* Read/reader.scm 409 */
																																	BgL_test8847z00_26511
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	if (
																																		((long)
																																			(BgL_curz00_9409)
																																			== 40L))
																																		{	/* Read/reader.scm 409 */
																																			BgL_test8847z00_26511
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			BgL_test8847z00_26511
																																				=
																																				((long)
																																				(BgL_curz00_9409)
																																				== 39L);
																																}}
																															if (BgL_test8847z00_26511)
																																{	/* Read/reader.scm 409 */
																																	BgL_test8843z00_26501
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	if (
																																		((long)
																																			(BgL_curz00_9409)
																																			== 44L))
																																		{	/* Read/reader.scm 409 */
																																			BgL_test8843z00_26501
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			if (
																																				((long)
																																					(BgL_curz00_9409)
																																					==
																																					46L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8843z00_26501
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					bool_t
																																						BgL_test8852z00_26526;
																																					if ((
																																							(long)
																																							(BgL_curz00_9409)
																																							>=
																																							48L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8852z00_26526
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_9409)
																																								<
																																								60L);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8852z00_26526
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																					if (BgL_test8852z00_26526)
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8843z00_26501
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							if (((long) (BgL_curz00_9409) == 91L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8843z00_26501
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_9409) == 93L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8843z00_26501
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											if (((long) (BgL_curz00_9409) == 96L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8843z00_26501
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													if (((long) (BgL_curz00_9409) == 105L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8843z00_26501
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_9409) == 110L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8843z00_26501
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	bool_t
																																																		BgL_test8859z00_26547;
																																																	if (((long) (BgL_curz00_9409) == 125L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8859z00_26547
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			if (((long) (BgL_curz00_9409) == 124L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8859z00_26547
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8859z00_26547
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_9409)
																																																						==
																																																						123L);
																																																		}}
																																																	if (BgL_test8859z00_26547)
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8843z00_26501
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8843z00_26501
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_9409)
																																																				==
																																																				127L);
																												}}}}}}}}}}}}
																											if (BgL_test8843z00_26501)
																												{	/* Read/reader.scm 409 */
																													BgL_matchz00_9747 =
																														BgL_newzd2matchzd2_9404;
																												}
																											else
																												{
																													long
																														BgL_bufposz00_26562;
																													long
																														BgL_forwardz00_26560;
																													long
																														BgL_lastzd2matchzd2_26559;
																													obj_t
																														BgL_iportz00_26558;
																													BgL_iportz00_26558 =
																														BgL_iportz00_9399;
																													BgL_lastzd2matchzd2_26559
																														=
																														BgL_newzd2matchzd2_9404;
																													BgL_forwardz00_26560 =
																														(1L +
																														BgL_forwardz00_9401);
																													BgL_bufposz00_26562 =
																														BgL_bufposz00_9402;
																													BgL_bufposz00_4963 =
																														BgL_bufposz00_26562;
																													BgL_forwardz00_4962 =
																														BgL_forwardz00_26560;
																													BgL_lastzd2matchzd2_4961
																														=
																														BgL_lastzd2matchzd2_26559;
																													BgL_iportz00_4960 =
																														BgL_iportz00_26558;
																													goto
																														BgL_zc3z04anonymousza33439ze3z87_4964;
																												}
																										}
																								}
																						}
																				}
																		}
																}
														}
													}
											}
											break;
										case 93L:
										case 41L:

											{	/* Read/reader.scm 409 */
												long BgL_arg5309z00_8626;

												BgL_arg5309z00_8626 = (1L + BgL_forwardz00_8606);
												{	/* Read/reader.scm 409 */
													long BgL_newzd2matchzd2_16032;

													{	/* Read/reader.scm 409 */
														obj_t BgL_tmpz00_26565;

														BgL_tmpz00_26565 = ((obj_t) BgL_iportz00_8604);
														RGC_STOP_MATCH(BgL_tmpz00_26565,
															BgL_arg5309z00_8626);
													}
													BgL_newzd2matchzd2_16032 = 29L;
													BgL_matchz00_9747 = BgL_newzd2matchzd2_16032;
											}} break;
										case 91L:
										case 40L:

											{	/* Read/reader.scm 409 */
												long BgL_arg5310z00_8627;

												BgL_arg5310z00_8627 = (1L + BgL_forwardz00_8606);
												{	/* Read/reader.scm 409 */
													long BgL_newzd2matchzd2_16036;

													{	/* Read/reader.scm 409 */
														obj_t BgL_tmpz00_26569;

														BgL_tmpz00_26569 = ((obj_t) BgL_iportz00_8604);
														RGC_STOP_MATCH(BgL_tmpz00_26569,
															BgL_arg5310z00_8627);
													}
													BgL_newzd2matchzd2_16036 = 28L;
													BgL_matchz00_9747 = BgL_newzd2matchzd2_16036;
											}} break;
										case 39L:

											{	/* Read/reader.scm 409 */
												long BgL_arg5311z00_8628;

												BgL_arg5311z00_8628 = (1L + BgL_forwardz00_8606);
												{	/* Read/reader.scm 409 */
													long BgL_newzd2matchzd2_16040;

													{	/* Read/reader.scm 409 */
														obj_t BgL_tmpz00_26573;

														BgL_tmpz00_26573 = ((obj_t) BgL_iportz00_8604);
														RGC_STOP_MATCH(BgL_tmpz00_26573,
															BgL_arg5311z00_8628);
													}
													BgL_newzd2matchzd2_16040 = 24L;
													BgL_matchz00_9747 = BgL_newzd2matchzd2_16040;
											}} break;
										case 35L:

											BgL_iportz00_4475 = BgL_iportz00_8604;
											BgL_lastzd2matchzd2_4476 = BgL_lastzd2matchzd2_8605;
											BgL_forwardz00_4477 = (1L + BgL_forwardz00_8606);
											BgL_bufposz00_4478 = BgL_bufposz00_8607;
										BgL_zc3z04anonymousza33139ze3z87_4479:
											{	/* Read/reader.scm 409 */
												long BgL_newzd2matchzd2_4480;

												{	/* Read/reader.scm 409 */
													obj_t BgL_tmpz00_26576;

													BgL_tmpz00_26576 = ((obj_t) BgL_iportz00_4475);
													RGC_STOP_MATCH(BgL_tmpz00_26576, BgL_forwardz00_4477);
												}
												BgL_newzd2matchzd2_4480 = 37L;
												if ((BgL_forwardz00_4477 == BgL_bufposz00_4478))
													{	/* Read/reader.scm 409 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_4475)))
															{	/* Read/reader.scm 409 */
																long BgL_arg3146z00_4483;
																long BgL_arg3150z00_4484;

																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_26584;

																	BgL_tmpz00_26584 =
																		((obj_t) BgL_iportz00_4475);
																	BgL_arg3146z00_4483 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_26584);
																}
																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_26587;

																	BgL_tmpz00_26587 =
																		((obj_t) BgL_iportz00_4475);
																	BgL_arg3150z00_4484 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_26587);
																}
																{
																	long BgL_bufposz00_26591;
																	long BgL_forwardz00_26590;

																	BgL_forwardz00_26590 = BgL_arg3146z00_4483;
																	BgL_bufposz00_26591 = BgL_arg3150z00_4484;
																	BgL_bufposz00_4478 = BgL_bufposz00_26591;
																	BgL_forwardz00_4477 = BgL_forwardz00_26590;
																	goto BgL_zc3z04anonymousza33139ze3z87_4479;
																}
															}
														else
															{	/* Read/reader.scm 409 */
																BgL_matchz00_9747 = BgL_newzd2matchzd2_4480;
															}
													}
												else
													{	/* Read/reader.scm 409 */
														int BgL_curz00_4485;

														{	/* Read/reader.scm 409 */
															obj_t BgL_tmpz00_26592;

															BgL_tmpz00_26592 = ((obj_t) BgL_iportz00_4475);
															BgL_curz00_4485 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_26592,
																BgL_forwardz00_4477);
														}
														{	/* Read/reader.scm 409 */

															if (((long) (BgL_curz00_4485) == 124L))
																{	/* Read/reader.scm 409 */
																	long BgL_arg3154z00_4487;

																	BgL_arg3154z00_4487 =
																		(1L + BgL_forwardz00_4477);
																	{	/* Read/reader.scm 409 */
																		long BgL_newzd2matchzd2_13435;

																		{	/* Read/reader.scm 409 */
																			obj_t BgL_tmpz00_26599;

																			BgL_tmpz00_26599 =
																				((obj_t) BgL_iportz00_4475);
																			RGC_STOP_MATCH(BgL_tmpz00_26599,
																				BgL_arg3154z00_4487);
																		}
																		BgL_newzd2matchzd2_13435 = 3L;
																		BgL_matchz00_9747 =
																			BgL_newzd2matchzd2_13435;
																}}
															else
																{	/* Read/reader.scm 409 */
																	if (((long) (BgL_curz00_4485) == 123L))
																		{	/* Read/reader.scm 409 */
																			long BgL_arg3157z00_4489;

																			BgL_arg3157z00_4489 =
																				(1L + BgL_forwardz00_4477);
																			{	/* Read/reader.scm 409 */
																				long BgL_newzd2matchzd2_13440;

																				{	/* Read/reader.scm 409 */
																					obj_t BgL_tmpz00_26606;

																					BgL_tmpz00_26606 =
																						((obj_t) BgL_iportz00_4475);
																					RGC_STOP_MATCH(BgL_tmpz00_26606,
																						BgL_arg3157z00_4489);
																				}
																				BgL_newzd2matchzd2_13440 = 33L;
																				BgL_matchz00_9747 =
																					BgL_newzd2matchzd2_13440;
																		}}
																	else
																		{	/* Read/reader.scm 409 */
																			if (((long) (BgL_curz00_4485) == 92L))
																				{	/* Read/reader.scm 409 */
																					BgL_iportz00_4741 = BgL_iportz00_4475;
																					BgL_lastzd2matchzd2_4742 =
																						BgL_newzd2matchzd2_4480;
																					BgL_forwardz00_4743 =
																						(1L + BgL_forwardz00_4477);
																					BgL_bufposz00_4744 =
																						BgL_bufposz00_4478;
																				BgL_zc3z04anonymousza33316ze3z87_4745:
																					if (
																						(BgL_forwardz00_4743 ==
																							BgL_bufposz00_4744))
																						{	/* Read/reader.scm 409 */
																							if (rgc_fill_buffer(
																									((obj_t) BgL_iportz00_4741)))
																								{	/* Read/reader.scm 409 */
																									long BgL_arg3320z00_4748;
																									long BgL_arg3321z00_4749;

																									{	/* Read/reader.scm 409 */
																										obj_t BgL_tmpz00_26617;

																										BgL_tmpz00_26617 =
																											((obj_t)
																											BgL_iportz00_4741);
																										BgL_arg3320z00_4748 =
																											RGC_BUFFER_FORWARD
																											(BgL_tmpz00_26617);
																									}
																									{	/* Read/reader.scm 409 */
																										obj_t BgL_tmpz00_26620;

																										BgL_tmpz00_26620 =
																											((obj_t)
																											BgL_iportz00_4741);
																										BgL_arg3321z00_4749 =
																											RGC_BUFFER_BUFPOS
																											(BgL_tmpz00_26620);
																									}
																									{
																										long BgL_bufposz00_26624;
																										long BgL_forwardz00_26623;

																										BgL_forwardz00_26623 =
																											BgL_arg3320z00_4748;
																										BgL_bufposz00_26624 =
																											BgL_arg3321z00_4749;
																										BgL_bufposz00_4744 =
																											BgL_bufposz00_26624;
																										BgL_forwardz00_4743 =
																											BgL_forwardz00_26623;
																										goto
																											BgL_zc3z04anonymousza33316ze3z87_4745;
																									}
																								}
																							else
																								{	/* Read/reader.scm 409 */
																									BgL_matchz00_9747 =
																										BgL_lastzd2matchzd2_4742;
																								}
																						}
																					else
																						{	/* Read/reader.scm 409 */
																							int BgL_curz00_4750;

																							{	/* Read/reader.scm 409 */
																								obj_t BgL_tmpz00_26625;

																								BgL_tmpz00_26625 =
																									((obj_t) BgL_iportz00_4741);
																								BgL_curz00_4750 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_tmpz00_26625,
																									BgL_forwardz00_4743);
																							}
																							{	/* Read/reader.scm 409 */

																								switch (
																									(long) (BgL_curz00_4750))
																									{
																									case 120L:

																										BgL_iportz00_8865 =
																											BgL_iportz00_4741;
																										BgL_lastzd2matchzd2_8866 =
																											BgL_lastzd2matchzd2_4742;
																										BgL_forwardz00_8867 =
																											(1L +
																											BgL_forwardz00_4743);
																										BgL_bufposz00_8868 =
																											BgL_bufposz00_4744;
																									BgL_zc3z04anonymousza35432ze3z87_8869:
																										{	/* Read/reader.scm 409 */
																											long
																												BgL_newzd2matchzd2_8870;
																											{	/* Read/reader.scm 409 */
																												obj_t BgL_tmpz00_26628;

																												BgL_tmpz00_26628 =
																													((obj_t)
																													BgL_iportz00_8865);
																												RGC_STOP_MATCH
																													(BgL_tmpz00_26628,
																													BgL_forwardz00_8867);
																											}
																											BgL_newzd2matchzd2_8870 =
																												7L;
																											if ((BgL_forwardz00_8867
																													==
																													BgL_bufposz00_8868))
																												{	/* Read/reader.scm 409 */
																													if (rgc_fill_buffer(
																															((obj_t)
																																BgL_iportz00_8865)))
																														{	/* Read/reader.scm 409 */
																															long
																																BgL_arg5435z00_8873;
																															long
																																BgL_arg5436z00_8874;
																															{	/* Read/reader.scm 409 */
																																obj_t
																																	BgL_tmpz00_26636;
																																BgL_tmpz00_26636
																																	=
																																	((obj_t)
																																	BgL_iportz00_8865);
																																BgL_arg5435z00_8873
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_tmpz00_26636);
																															}
																															{	/* Read/reader.scm 409 */
																																obj_t
																																	BgL_tmpz00_26639;
																																BgL_tmpz00_26639
																																	=
																																	((obj_t)
																																	BgL_iportz00_8865);
																																BgL_arg5436z00_8874
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_tmpz00_26639);
																															}
																															{
																																long
																																	BgL_bufposz00_26643;
																																long
																																	BgL_forwardz00_26642;
																																BgL_forwardz00_26642
																																	=
																																	BgL_arg5435z00_8873;
																																BgL_bufposz00_26643
																																	=
																																	BgL_arg5436z00_8874;
																																BgL_bufposz00_8868
																																	=
																																	BgL_bufposz00_26643;
																																BgL_forwardz00_8867
																																	=
																																	BgL_forwardz00_26642;
																																goto
																																	BgL_zc3z04anonymousza35432ze3z87_8869;
																															}
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															BgL_matchz00_9747
																																=
																																BgL_newzd2matchzd2_8870;
																														}
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													int BgL_curz00_8875;

																													{	/* Read/reader.scm 409 */
																														obj_t
																															BgL_tmpz00_26644;
																														BgL_tmpz00_26644 =
																															((obj_t)
																															BgL_iportz00_8865);
																														BgL_curz00_8875 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_tmpz00_26644,
																															BgL_forwardz00_8867);
																													}
																													{	/* Read/reader.scm 409 */

																														{	/* Read/reader.scm 409 */
																															bool_t
																																BgL_test8871z00_26647;
																															{	/* Read/reader.scm 409 */
																																bool_t
																																	BgL_test8872z00_26648;
																																if (((long)
																																		(BgL_curz00_8875)
																																		>= 48L))
																																	{	/* Read/reader.scm 409 */
																																		BgL_test8872z00_26648
																																			=
																																			((long)
																																			(BgL_curz00_8875)
																																			< 58L);
																																	}
																																else
																																	{	/* Read/reader.scm 409 */
																																		BgL_test8872z00_26648
																																			=
																																			((bool_t)
																																			0);
																																	}
																																if (BgL_test8872z00_26648)
																																	{	/* Read/reader.scm 409 */
																																		BgL_test8871z00_26647
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 409 */
																																		bool_t
																																			BgL_test8874z00_26654;
																																		if (((long)
																																				(BgL_curz00_8875)
																																				>= 65L))
																																			{	/* Read/reader.scm 409 */
																																				BgL_test8874z00_26654
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_8875)
																																					<
																																					71L);
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				BgL_test8874z00_26654
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																		if (BgL_test8874z00_26654)
																																			{	/* Read/reader.scm 409 */
																																				BgL_test8871z00_26647
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				if (
																																					((long) (BgL_curz00_8875) >= 97L))
																																					{	/* Read/reader.scm 409 */
																																						BgL_test8871z00_26647
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_8875)
																																							<
																																							103L);
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						BgL_test8871z00_26647
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																			}
																																	}
																															}
																															if (BgL_test8871z00_26647)
																																{	/* Read/reader.scm 409 */
																																	BgL_iportz00_4405
																																		=
																																		BgL_iportz00_8865;
																																	BgL_lastzd2matchzd2_4406
																																		=
																																		BgL_newzd2matchzd2_8870;
																																	BgL_forwardz00_4407
																																		=
																																		(1L +
																																		BgL_forwardz00_8867);
																																	BgL_bufposz00_4408
																																		=
																																		BgL_bufposz00_8868;
																																BgL_zc3z04anonymousza33103ze3z87_4409:
																																	{	/* Read/reader.scm 409 */
																																		long
																																			BgL_newzd2matchzd2_4410;
																																		{	/* Read/reader.scm 409 */
																																			obj_t
																																				BgL_tmpz00_26665;
																																			BgL_tmpz00_26665
																																				=
																																				((obj_t)
																																				BgL_iportz00_4405);
																																			RGC_STOP_MATCH
																																				(BgL_tmpz00_26665,
																																				BgL_forwardz00_4407);
																																		}
																																		BgL_newzd2matchzd2_4410
																																			= 10L;
																																		if (
																																			(BgL_forwardz00_4407
																																				==
																																				BgL_bufposz00_4408))
																																			{	/* Read/reader.scm 409 */
																																				if (rgc_fill_buffer(((obj_t) BgL_iportz00_4405)))
																																					{	/* Read/reader.scm 409 */
																																						long
																																							BgL_arg3106z00_4413;
																																						long
																																							BgL_arg3107z00_4414;
																																						{	/* Read/reader.scm 409 */
																																							obj_t
																																								BgL_tmpz00_26673;
																																							BgL_tmpz00_26673
																																								=
																																								(
																																								(obj_t)
																																								BgL_iportz00_4405);
																																							BgL_arg3106z00_4413
																																								=
																																								RGC_BUFFER_FORWARD
																																								(BgL_tmpz00_26673);
																																						}
																																						{	/* Read/reader.scm 409 */
																																							obj_t
																																								BgL_tmpz00_26676;
																																							BgL_tmpz00_26676
																																								=
																																								(
																																								(obj_t)
																																								BgL_iportz00_4405);
																																							BgL_arg3107z00_4414
																																								=
																																								RGC_BUFFER_BUFPOS
																																								(BgL_tmpz00_26676);
																																						}
																																						{
																																							long
																																								BgL_bufposz00_26680;
																																							long
																																								BgL_forwardz00_26679;
																																							BgL_forwardz00_26679
																																								=
																																								BgL_arg3106z00_4413;
																																							BgL_bufposz00_26680
																																								=
																																								BgL_arg3107z00_4414;
																																							BgL_bufposz00_4408
																																								=
																																								BgL_bufposz00_26680;
																																							BgL_forwardz00_4407
																																								=
																																								BgL_forwardz00_26679;
																																							goto
																																								BgL_zc3z04anonymousza33103ze3z87_4409;
																																						}
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						BgL_matchz00_9747
																																							=
																																							BgL_newzd2matchzd2_4410;
																																					}
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				int
																																					BgL_curz00_4415;
																																				{	/* Read/reader.scm 409 */
																																					obj_t
																																						BgL_tmpz00_26681;
																																					BgL_tmpz00_26681
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_4405);
																																					BgL_curz00_4415
																																						=
																																						RGC_BUFFER_GET_CHAR
																																						(BgL_tmpz00_26681,
																																						BgL_forwardz00_4407);
																																				}
																																				{	/* Read/reader.scm 409 */

																																					{	/* Read/reader.scm 409 */
																																						bool_t
																																							BgL_test8879z00_26684;
																																						{	/* Read/reader.scm 409 */
																																							bool_t
																																								BgL_test8880z00_26685;
																																							if (((long) (BgL_curz00_4415) >= 48L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8880z00_26685
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_4415)
																																										<
																																										58L);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8880z00_26685
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																							if (BgL_test8880z00_26685)
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8879z00_26684
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									bool_t
																																										BgL_test8882z00_26691;
																																									if (((long) (BgL_curz00_4415) >= 65L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8882z00_26691
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_4415)
																																												<
																																												71L);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8882z00_26691
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																									if (BgL_test8882z00_26691)
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8879z00_26684
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											if (((long) (BgL_curz00_4415) >= 97L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8879z00_26684
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_4415)
																																														<
																																														103L);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8879z00_26684
																																														=
																																														(
																																														(bool_t)
																																														0);
																																												}
																																										}
																																								}
																																						}
																																						if (BgL_test8879z00_26684)
																																							{
																																								long
																																									BgL_forwardz00_26703;
																																								long
																																									BgL_lastzd2matchzd2_26702;
																																								BgL_lastzd2matchzd2_26702
																																									=
																																									BgL_newzd2matchzd2_4410;
																																								BgL_forwardz00_26703
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_4407);
																																								BgL_forwardz00_4407
																																									=
																																									BgL_forwardz00_26703;
																																								BgL_lastzd2matchzd2_4406
																																									=
																																									BgL_lastzd2matchzd2_26702;
																																								goto
																																									BgL_zc3z04anonymousza33103ze3z87_4409;
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								if (((long) (BgL_curz00_4415) == 40L))
																																									{	/* Read/reader.scm 409 */
																																										long
																																											BgL_arg3119z00_4426;
																																										BgL_arg3119z00_4426
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_4407);
																																										{	/* Read/reader.scm 409 */
																																											long
																																												BgL_newzd2matchzd2_13402;
																																											{	/* Read/reader.scm 409 */
																																												obj_t
																																													BgL_tmpz00_26709;
																																												BgL_tmpz00_26709
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_4405);
																																												RGC_STOP_MATCH
																																													(BgL_tmpz00_26709,
																																													BgL_arg3119z00_4426);
																																											}
																																											BgL_newzd2matchzd2_13402
																																												=
																																												31L;
																																											BgL_matchz00_9747
																																												=
																																												BgL_newzd2matchzd2_13402;
																																									}}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										bool_t
																																											BgL_test8886z00_26712;
																																										if (((long) (BgL_curz00_4415) < 33L))
																																											{	/* Read/reader.scm 409 */
																																												BgL_test8886z00_26712
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												bool_t
																																													BgL_test8888z00_26716;
																																												if (((long) (BgL_curz00_4415) == 35L))
																																													{	/* Read/reader.scm 409 */
																																														BgL_test8888z00_26716
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														BgL_test8888z00_26716
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_4415)
																																															==
																																															34L);
																																													}
																																												if (BgL_test8888z00_26716)
																																													{	/* Read/reader.scm 409 */
																																														BgL_test8886z00_26712
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														bool_t
																																															BgL_test8890z00_26722;
																																														if (((long) (BgL_curz00_4415) == 41L))
																																															{	/* Read/reader.scm 409 */
																																																BgL_test8890z00_26722
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																BgL_test8890z00_26722
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_4415)
																																																	==
																																																	40L);
																																															}
																																														if (BgL_test8890z00_26722)
																																															{	/* Read/reader.scm 409 */
																																																BgL_test8886z00_26712
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																bool_t
																																																	BgL_test8892z00_26728;
																																																if (((long) (BgL_curz00_4415) >= 48L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test8892z00_26728
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_4415)
																																																			<
																																																			58L);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test8892z00_26728
																																																			=
																																																			(
																																																			(bool_t)
																																																			0);
																																																	}
																																																if (BgL_test8892z00_26728)
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test8886z00_26712
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		if (((long) (BgL_curz00_4415) == 59L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test8886z00_26712
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				bool_t
																																																					BgL_test8895z00_26737;
																																																				if (((long) (BgL_curz00_4415) >= 65L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test8895z00_26737
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_4415)
																																																							<
																																																							71L);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test8895z00_26737
																																																							=
																																																							(
																																																							(bool_t)
																																																							0);
																																																					}
																																																				if (BgL_test8895z00_26737)
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test8886z00_26712
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						if (((long) (BgL_curz00_4415) == 91L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test8886z00_26712
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								if (((long) (BgL_curz00_4415) == 93L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test8886z00_26712
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										bool_t
																																																											BgL_test8899z00_26749;
																																																										if (((long) (BgL_curz00_4415) >= 97L))
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test8899z00_26749
																																																													=
																																																													(
																																																													(long)
																																																													(BgL_curz00_4415)
																																																													<
																																																													103L);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test8899z00_26749
																																																													=
																																																													(
																																																													(bool_t)
																																																													0);
																																																											}
																																																										if (BgL_test8899z00_26749)
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test8886z00_26712
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												bool_t
																																																													BgL_test8901z00_26755;
																																																												if (((long) (BgL_curz00_4415) == 125L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test8901z00_26755
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														if (((long) (BgL_curz00_4415) == 124L))
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test8901z00_26755
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test8901z00_26755
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_4415)
																																																																	==
																																																																	123L);
																																																													}}
																																																												if (BgL_test8901z00_26755)
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test8886z00_26712
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test8886z00_26712
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_4415)
																																																															==
																																																															127L);
																																											}}}}}}}}}}
																																										if (BgL_test8886z00_26712)
																																											{	/* Read/reader.scm 409 */
																																												BgL_matchz00_9747
																																													=
																																													BgL_newzd2matchzd2_4410;
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												BgL_iportz00_4876
																																													=
																																													BgL_iportz00_4405;
																																												BgL_lastzd2matchzd2_4877
																																													=
																																													BgL_newzd2matchzd2_4410;
																																												BgL_forwardz00_4878
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_4407);
																																												BgL_bufposz00_4879
																																													=
																																													BgL_bufposz00_4408;
																																											BgL_zc3z04anonymousza33394ze3z87_4880:
																																												if ((BgL_forwardz00_4878 == BgL_bufposz00_4879))
																																													{	/* Read/reader.scm 409 */
																																														if (rgc_fill_buffer(((obj_t) BgL_iportz00_4876)))
																																															{	/* Read/reader.scm 409 */
																																																long
																																																	BgL_arg3397z00_4883;
																																																long
																																																	BgL_arg3398z00_4884;
																																																{	/* Read/reader.scm 409 */
																																																	obj_t
																																																		BgL_tmpz00_26771;
																																																	BgL_tmpz00_26771
																																																		=
																																																		(
																																																		(obj_t)
																																																		BgL_iportz00_4876);
																																																	BgL_arg3397z00_4883
																																																		=
																																																		RGC_BUFFER_FORWARD
																																																		(BgL_tmpz00_26771);
																																																}
																																																{	/* Read/reader.scm 409 */
																																																	obj_t
																																																		BgL_tmpz00_26774;
																																																	BgL_tmpz00_26774
																																																		=
																																																		(
																																																		(obj_t)
																																																		BgL_iportz00_4876);
																																																	BgL_arg3398z00_4884
																																																		=
																																																		RGC_BUFFER_BUFPOS
																																																		(BgL_tmpz00_26774);
																																																}
																																																{
																																																	long
																																																		BgL_bufposz00_26778;
																																																	long
																																																		BgL_forwardz00_26777;
																																																	BgL_forwardz00_26777
																																																		=
																																																		BgL_arg3397z00_4883;
																																																	BgL_bufposz00_26778
																																																		=
																																																		BgL_arg3398z00_4884;
																																																	BgL_bufposz00_4879
																																																		=
																																																		BgL_bufposz00_26778;
																																																	BgL_forwardz00_4878
																																																		=
																																																		BgL_forwardz00_26777;
																																																	goto
																																																		BgL_zc3z04anonymousza33394ze3z87_4880;
																																																}
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																BgL_matchz00_9747
																																																	=
																																																	BgL_lastzd2matchzd2_4877;
																																															}
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														int
																																															BgL_curz00_4885;
																																														{	/* Read/reader.scm 409 */
																																															obj_t
																																																BgL_tmpz00_26779;
																																															BgL_tmpz00_26779
																																																=
																																																(
																																																(obj_t)
																																																BgL_iportz00_4876);
																																															BgL_curz00_4885
																																																=
																																																RGC_BUFFER_GET_CHAR
																																																(BgL_tmpz00_26779,
																																																BgL_forwardz00_4878);
																																														}
																																														{	/* Read/reader.scm 409 */

																																															if (((long) (BgL_curz00_4885) == 40L))
																																																{	/* Read/reader.scm 409 */
																																																	long
																																																		BgL_arg3400z00_4887;
																																																	BgL_arg3400z00_4887
																																																		=
																																																		(1L
																																																		+
																																																		BgL_forwardz00_4878);
																																																	{	/* Read/reader.scm 409 */
																																																		long
																																																			BgL_newzd2matchzd2_13712;
																																																		{	/* Read/reader.scm 409 */
																																																			obj_t
																																																				BgL_tmpz00_26786;
																																																			BgL_tmpz00_26786
																																																				=
																																																				(
																																																				(obj_t)
																																																				BgL_iportz00_4876);
																																																			RGC_STOP_MATCH
																																																				(BgL_tmpz00_26786,
																																																				BgL_arg3400z00_4887);
																																																		}
																																																		BgL_newzd2matchzd2_13712
																																																			=
																																																			31L;
																																																		BgL_matchz00_9747
																																																			=
																																																			BgL_newzd2matchzd2_13712;
																																																}}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	bool_t
																																																		BgL_test8907z00_26789;
																																																	if (((long) (BgL_curz00_4885) < 33L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8907z00_26789
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			bool_t
																																																				BgL_test8909z00_26793;
																																																			if (((long) (BgL_curz00_4885) == 35L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8909z00_26793
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8909z00_26793
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_4885)
																																																						==
																																																						34L);
																																																				}
																																																			if (BgL_test8909z00_26793)
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8907z00_26789
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					bool_t
																																																						BgL_test8911z00_26799;
																																																					if (((long) (BgL_curz00_4885) == 41L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8911z00_26799
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8911z00_26799
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_4885)
																																																								==
																																																								40L);
																																																						}
																																																					if (BgL_test8911z00_26799)
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8907z00_26789
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							if (((long) (BgL_curz00_4885) == 59L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8907z00_26789
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									if (((long) (BgL_curz00_4885) == 91L))
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test8907z00_26789
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											if (((long) (BgL_curz00_4885) == 93L))
																																																												{	/* Read/reader.scm 409 */
																																																													BgL_test8907z00_26789
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 409 */
																																																													bool_t
																																																														BgL_test8916z00_26814;
																																																													if (((long) (BgL_curz00_4885) == 125L))
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8916z00_26814
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															if (((long) (BgL_curz00_4885) == 124L))
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test8916z00_26814
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		1);
																																																																}
																																																															else
																																																																{	/* Read/reader.scm 409 */
																																																																	BgL_test8916z00_26814
																																																																		=
																																																																		(
																																																																		(long)
																																																																		(BgL_curz00_4885)
																																																																		==
																																																																		123L);
																																																														}}
																																																													if (BgL_test8916z00_26814)
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8907z00_26789
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Read/reader.scm 409 */
																																																															BgL_test8907z00_26789
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_4885)
																																																																==
																																																																127L);
																																																		}}}}}}}
																																																	if (BgL_test8907z00_26789)
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_matchz00_9747
																																																				=
																																																				BgL_lastzd2matchzd2_4877;
																																																		}
																																																	else
																																																		{
																																																			long
																																																				BgL_forwardz00_26825;
																																																			BgL_forwardz00_26825
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_4878);
																																																			BgL_forwardz00_4878
																																																				=
																																																				BgL_forwardz00_26825;
																																																			goto
																																																				BgL_zc3z04anonymousza33394ze3z87_4880;
																																																		}
																																																}
																																														}
																																													}
																																											}
																																									}
																																							}
																																					}
																																				}
																																			}
																																	}
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	if (
																																		((long)
																																			(BgL_curz00_8875)
																																			== 40L))
																																		{	/* Read/reader.scm 409 */
																																			long
																																				BgL_arg5444z00_8886;
																																			BgL_arg5444z00_8886
																																				=
																																				(1L +
																																				BgL_forwardz00_8867);
																																			{	/* Read/reader.scm 409 */
																																				long
																																					BgL_newzd2matchzd2_16205;
																																				{	/* Read/reader.scm 409 */
																																					obj_t
																																						BgL_tmpz00_26833;
																																					BgL_tmpz00_26833
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_8865);
																																					RGC_STOP_MATCH
																																						(BgL_tmpz00_26833,
																																						BgL_arg5444z00_8886);
																																				}
																																				BgL_newzd2matchzd2_16205
																																					= 31L;
																																				BgL_matchz00_9747
																																					=
																																					BgL_newzd2matchzd2_16205;
																																		}}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			bool_t
																																				BgL_test8920z00_26836;
																																			if ((
																																					(long)
																																					(BgL_curz00_8875)
																																					<
																																					33L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8920z00_26836
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					bool_t
																																						BgL_test8922z00_26840;
																																					if ((
																																							(long)
																																							(BgL_curz00_8875)
																																							==
																																							35L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8922z00_26840
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8922z00_26840
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_8875)
																																								==
																																								34L);
																																						}
																																					if (BgL_test8922z00_26840)
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8920z00_26836
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							bool_t
																																								BgL_test8924z00_26846;
																																							if (((long) (BgL_curz00_8875) == 41L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8924z00_26846
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8924z00_26846
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_8875)
																																										==
																																										40L);
																																								}
																																							if (BgL_test8924z00_26846)
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8920z00_26836
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									bool_t
																																										BgL_test8926z00_26852;
																																									if (((long) (BgL_curz00_8875) >= 48L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8926z00_26852
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_8875)
																																												<
																																												58L);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8926z00_26852
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																									if (BgL_test8926z00_26852)
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8920z00_26836
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											if (((long) (BgL_curz00_8875) == 59L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8920z00_26836
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													bool_t
																																														BgL_test8929z00_26861;
																																													if (((long) (BgL_curz00_8875) >= 65L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8929z00_26861
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_8875)
																																																<
																																																71L);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8929z00_26861
																																																=
																																																(
																																																(bool_t)
																																																0);
																																														}
																																													if (BgL_test8929z00_26861)
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8920z00_26836
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_8875) == 91L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8920z00_26836
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	if (((long) (BgL_curz00_8875) == 93L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8920z00_26836
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			bool_t
																																																				BgL_test8933z00_26873;
																																																			if (((long) (BgL_curz00_8875) >= 97L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8933z00_26873
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_8875)
																																																						<
																																																						103L);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8933z00_26873
																																																						=
																																																						(
																																																						(bool_t)
																																																						0);
																																																				}
																																																			if (BgL_test8933z00_26873)
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8920z00_26836
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					bool_t
																																																						BgL_test8935z00_26879;
																																																					if (((long) (BgL_curz00_8875) == 125L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8935z00_26879
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							if (((long) (BgL_curz00_8875) == 124L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8935z00_26879
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test8935z00_26879
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_8875)
																																																										==
																																																										123L);
																																																						}}
																																																					if (BgL_test8935z00_26879)
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8920z00_26836
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8920z00_26836
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_8875)
																																																								==
																																																								127L);
																																				}}}}}}}}}}
																																			if (BgL_test8920z00_26836)
																																				{	/* Read/reader.scm 409 */
																																					BgL_matchz00_9747
																																						=
																																						BgL_newzd2matchzd2_8870;
																																				}
																																			else
																																				{
																																					long
																																						BgL_bufposz00_26894;
																																					long
																																						BgL_forwardz00_26892;
																																					long
																																						BgL_lastzd2matchzd2_26891;
																																					obj_t
																																						BgL_iportz00_26890;
																																					BgL_iportz00_26890
																																						=
																																						BgL_iportz00_8865;
																																					BgL_lastzd2matchzd2_26891
																																						=
																																						BgL_newzd2matchzd2_8870;
																																					BgL_forwardz00_26892
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_8867);
																																					BgL_bufposz00_26894
																																						=
																																						BgL_bufposz00_8868;
																																					BgL_bufposz00_4879
																																						=
																																						BgL_bufposz00_26894;
																																					BgL_forwardz00_4878
																																						=
																																						BgL_forwardz00_26892;
																																					BgL_lastzd2matchzd2_4877
																																						=
																																						BgL_lastzd2matchzd2_26891;
																																					BgL_iportz00_4876
																																						=
																																						BgL_iportz00_26890;
																																					goto
																																						BgL_zc3z04anonymousza33394ze3z87_4880;
																																				}
																																		}
																																}
																														}
																													}
																												}
																										}
																										break;
																									case 122L:
																									case 121L:
																									case 119L:
																									case 118L:
																									case 117L:
																									case 116L:
																									case 115L:
																									case 114L:
																									case 113L:
																									case 112L:
																									case 111L:
																									case 110L:
																									case 109L:
																									case 108L:
																									case 107L:
																									case 106L:
																									case 105L:
																									case 104L:
																									case 103L:
																									case 102L:
																									case 101L:
																									case 100L:
																									case 99L:
																									case 98L:
																									case 97L:
																									case 90L:
																									case 89L:
																									case 87L:
																									case 86L:
																									case 85L:
																									case 84L:
																									case 83L:
																									case 82L:
																									case 81L:
																									case 80L:
																									case 79L:
																									case 78L:
																									case 77L:
																									case 76L:
																									case 75L:
																									case 74L:
																									case 73L:
																									case 72L:
																									case 71L:
																									case 70L:
																									case 69L:
																									case 68L:
																									case 67L:
																									case 66L:
																									case 65L:

																										BgL_iportz00_7803 =
																											BgL_iportz00_4741;
																										BgL_lastzd2matchzd2_7804 =
																											BgL_lastzd2matchzd2_4742;
																										BgL_forwardz00_7805 =
																											(1L +
																											BgL_forwardz00_4743);
																										BgL_bufposz00_7806 =
																											BgL_bufposz00_4744;
																									BgL_zc3z04anonymousza34892ze3z87_7807:
																										{	/* Read/reader.scm 409 */
																											long
																												BgL_newzd2matchzd2_7808;
																											{	/* Read/reader.scm 409 */
																												obj_t BgL_tmpz00_26896;

																												BgL_tmpz00_26896 =
																													((obj_t)
																													BgL_iportz00_7803);
																												RGC_STOP_MATCH
																													(BgL_tmpz00_26896,
																													BgL_forwardz00_7805);
																											}
																											BgL_newzd2matchzd2_7808 =
																												7L;
																											if ((BgL_forwardz00_7805
																													==
																													BgL_bufposz00_7806))
																												{	/* Read/reader.scm 409 */
																													if (rgc_fill_buffer(
																															((obj_t)
																																BgL_iportz00_7803)))
																														{	/* Read/reader.scm 409 */
																															long
																																BgL_arg4895z00_7811;
																															long
																																BgL_arg4896z00_7812;
																															{	/* Read/reader.scm 409 */
																																obj_t
																																	BgL_tmpz00_26904;
																																BgL_tmpz00_26904
																																	=
																																	((obj_t)
																																	BgL_iportz00_7803);
																																BgL_arg4895z00_7811
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_tmpz00_26904);
																															}
																															{	/* Read/reader.scm 409 */
																																obj_t
																																	BgL_tmpz00_26907;
																																BgL_tmpz00_26907
																																	=
																																	((obj_t)
																																	BgL_iportz00_7803);
																																BgL_arg4896z00_7812
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_tmpz00_26907);
																															}
																															{
																																long
																																	BgL_bufposz00_26911;
																																long
																																	BgL_forwardz00_26910;
																																BgL_forwardz00_26910
																																	=
																																	BgL_arg4895z00_7811;
																																BgL_bufposz00_26911
																																	=
																																	BgL_arg4896z00_7812;
																																BgL_bufposz00_7806
																																	=
																																	BgL_bufposz00_26911;
																																BgL_forwardz00_7805
																																	=
																																	BgL_forwardz00_26910;
																																goto
																																	BgL_zc3z04anonymousza34892ze3z87_7807;
																															}
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															BgL_matchz00_9747
																																=
																																BgL_newzd2matchzd2_7808;
																														}
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													int BgL_curz00_7813;

																													{	/* Read/reader.scm 409 */
																														obj_t
																															BgL_tmpz00_26912;
																														BgL_tmpz00_26912 =
																															((obj_t)
																															BgL_iportz00_7803);
																														BgL_curz00_7813 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_tmpz00_26912,
																															BgL_forwardz00_7805);
																													}
																													{	/* Read/reader.scm 409 */

																														{	/* Read/reader.scm 409 */
																															bool_t
																																BgL_test8940z00_26915;
																															if (((long)
																																	(BgL_curz00_7813)
																																	< 65L))
																																{	/* Read/reader.scm 409 */
																																	BgL_test8940z00_26915
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	bool_t
																																		BgL_test8942z00_26919;
																																	if (((long)
																																			(BgL_curz00_7813)
																																			>= 91L))
																																		{	/* Read/reader.scm 409 */
																																			BgL_test8942z00_26919
																																				=
																																				((long)
																																				(BgL_curz00_7813)
																																				< 97L);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			BgL_test8942z00_26919
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																	if (BgL_test8942z00_26919)
																																		{	/* Read/reader.scm 409 */
																																			BgL_test8940z00_26915
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			if (
																																				((long)
																																					(BgL_curz00_7813)
																																					>=
																																					123L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8940z00_26915
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_7813)
																																						<
																																						128L);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8940z00_26915
																																						=
																																						(
																																						(bool_t)
																																						0);
																																				}
																																		}
																																}
																															if (BgL_test8940z00_26915)
																																{	/* Read/reader.scm 409 */
																																	if (
																																		((long)
																																			(BgL_curz00_7813)
																																			== 40L))
																																		{	/* Read/reader.scm 409 */
																																			long
																																				BgL_arg4902z00_7821;
																																			BgL_arg4902z00_7821
																																				=
																																				(1L +
																																				BgL_forwardz00_7805);
																																			{	/* Read/reader.scm 409 */
																																				long
																																					BgL_newzd2matchzd2_15511;
																																				{	/* Read/reader.scm 409 */
																																					obj_t
																																						BgL_tmpz00_26934;
																																					BgL_tmpz00_26934
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_7803);
																																					RGC_STOP_MATCH
																																						(BgL_tmpz00_26934,
																																						BgL_arg4902z00_7821);
																																				}
																																				BgL_newzd2matchzd2_15511
																																					= 31L;
																																				BgL_matchz00_9747
																																					=
																																					BgL_newzd2matchzd2_15511;
																																		}}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			bool_t
																																				BgL_test8946z00_26937;
																																			if ((
																																					(long)
																																					(BgL_curz00_7813)
																																					==
																																					33L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test8946z00_26937
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					bool_t
																																						BgL_test8948z00_26941;
																																					if ((
																																							(long)
																																							(BgL_curz00_7813)
																																							>=
																																							36L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8948z00_26941
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_7813)
																																								<
																																								40L);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8948z00_26941
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																					if (BgL_test8948z00_26941)
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8946z00_26937
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							bool_t
																																								BgL_test8950z00_26947;
																																							if (((long) (BgL_curz00_7813) >= 42L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8950z00_26947
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_7813)
																																										<
																																										59L);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8950z00_26947
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																							if (BgL_test8950z00_26947)
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8946z00_26937
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									bool_t
																																										BgL_test8952z00_26953;
																																									if (((long) (BgL_curz00_7813) >= 60L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8952z00_26953
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_7813)
																																												<
																																												65L);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8952z00_26953
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																									if (BgL_test8952z00_26953)
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8946z00_26937
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											if (((long) (BgL_curz00_7813) == 92L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8946z00_26937
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													bool_t
																																														BgL_test8955z00_26962;
																																													if (((long) (BgL_curz00_7813) == 96L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8955z00_26962
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_7813) == 95L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8955z00_26962
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8955z00_26962
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_7813)
																																																		==
																																																		94L);
																																														}}
																																													if (BgL_test8955z00_26962)
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8946z00_26937
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8946z00_26937
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_7813)
																																																==
																																																126L);
																																				}}}}}}
																																			if (BgL_test8946z00_26937)
																																				{
																																					long
																																						BgL_bufposz00_26977;
																																					long
																																						BgL_forwardz00_26975;
																																					long
																																						BgL_lastzd2matchzd2_26974;
																																					obj_t
																																						BgL_iportz00_26973;
																																					BgL_iportz00_26973
																																						=
																																						BgL_iportz00_7803;
																																					BgL_lastzd2matchzd2_26974
																																						=
																																						BgL_newzd2matchzd2_7808;
																																					BgL_forwardz00_26975
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_7805);
																																					BgL_bufposz00_26977
																																						=
																																						BgL_bufposz00_7806;
																																					BgL_bufposz00_4879
																																						=
																																						BgL_bufposz00_26977;
																																					BgL_forwardz00_4878
																																						=
																																						BgL_forwardz00_26975;
																																					BgL_lastzd2matchzd2_4877
																																						=
																																						BgL_lastzd2matchzd2_26974;
																																					BgL_iportz00_4876
																																						=
																																						BgL_iportz00_26973;
																																					goto
																																						BgL_zc3z04anonymousza33394ze3z87_4880;
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					BgL_matchz00_9747
																																						=
																																						BgL_newzd2matchzd2_7808;
																																				}
																																		}
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	BgL_iportz00_5499
																																		=
																																		BgL_iportz00_7803;
																																	BgL_lastzd2matchzd2_5500
																																		=
																																		BgL_newzd2matchzd2_7808;
																																	BgL_forwardz00_5501
																																		=
																																		(1L +
																																		BgL_forwardz00_7805);
																																	BgL_bufposz00_5502
																																		=
																																		BgL_bufposz00_7806;
																																BgL_zc3z04anonymousza33722ze3z87_5503:
																																	if (
																																		(BgL_forwardz00_5501
																																			==
																																			BgL_bufposz00_5502))
																																		{	/* Read/reader.scm 409 */
																																			if (rgc_fill_buffer(((obj_t) BgL_iportz00_5499)))
																																				{	/* Read/reader.scm 409 */
																																					long
																																						BgL_arg3725z00_5506;
																																					long
																																						BgL_arg3726z00_5507;
																																					{	/* Read/reader.scm 409 */
																																						obj_t
																																							BgL_tmpz00_26983;
																																						BgL_tmpz00_26983
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_5499);
																																						BgL_arg3725z00_5506
																																							=
																																							RGC_BUFFER_FORWARD
																																							(BgL_tmpz00_26983);
																																					}
																																					{	/* Read/reader.scm 409 */
																																						obj_t
																																							BgL_tmpz00_26986;
																																						BgL_tmpz00_26986
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_5499);
																																						BgL_arg3726z00_5507
																																							=
																																							RGC_BUFFER_BUFPOS
																																							(BgL_tmpz00_26986);
																																					}
																																					{
																																						long
																																							BgL_bufposz00_26990;
																																						long
																																							BgL_forwardz00_26989;
																																						BgL_forwardz00_26989
																																							=
																																							BgL_arg3725z00_5506;
																																						BgL_bufposz00_26990
																																							=
																																							BgL_arg3726z00_5507;
																																						BgL_bufposz00_5502
																																							=
																																							BgL_bufposz00_26990;
																																						BgL_forwardz00_5501
																																							=
																																							BgL_forwardz00_26989;
																																						goto
																																							BgL_zc3z04anonymousza33722ze3z87_5503;
																																					}
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					BgL_matchz00_9747
																																						=
																																						BgL_lastzd2matchzd2_5500;
																																				}
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			int
																																				BgL_curz00_5508;
																																			{	/* Read/reader.scm 409 */
																																				obj_t
																																					BgL_tmpz00_26991;
																																				BgL_tmpz00_26991
																																					=
																																					(
																																					(obj_t)
																																					BgL_iportz00_5499);
																																				BgL_curz00_5508
																																					=
																																					RGC_BUFFER_GET_CHAR
																																					(BgL_tmpz00_26991,
																																					BgL_forwardz00_5501);
																																			}
																																			{	/* Read/reader.scm 409 */

																																				{	/* Read/reader.scm 409 */
																																					bool_t
																																						BgL_test8960z00_26994;
																																					if ((
																																							(long)
																																							(BgL_curz00_5508)
																																							<
																																							65L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test8960z00_26994
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							bool_t
																																								BgL_test8962z00_26998;
																																							if (((long) (BgL_curz00_5508) >= 91L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8962z00_26998
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_5508)
																																										<
																																										97L);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8962z00_26998
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																							if (BgL_test8962z00_26998)
																																								{	/* Read/reader.scm 409 */
																																									BgL_test8960z00_26994
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_5508) >= 123L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8960z00_26994
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_5508)
																																												<
																																												128L);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8960z00_26994
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																								}
																																						}
																																					if (BgL_test8960z00_26994)
																																						{	/* Read/reader.scm 409 */
																																							if (((long) (BgL_curz00_5508) == 40L))
																																								{	/* Read/reader.scm 409 */
																																									long
																																										BgL_arg3732z00_5516;
																																									BgL_arg3732z00_5516
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_5501);
																																									{	/* Read/reader.scm 409 */
																																										long
																																											BgL_newzd2matchzd2_14111;
																																										{	/* Read/reader.scm 409 */
																																											obj_t
																																												BgL_tmpz00_27013;
																																											BgL_tmpz00_27013
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_5499);
																																											RGC_STOP_MATCH
																																												(BgL_tmpz00_27013,
																																												BgL_arg3732z00_5516);
																																										}
																																										BgL_newzd2matchzd2_14111
																																											=
																																											31L;
																																										BgL_matchz00_9747
																																											=
																																											BgL_newzd2matchzd2_14111;
																																								}}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									bool_t
																																										BgL_test8966z00_27016;
																																									if (((long) (BgL_curz00_5508) == 33L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test8966z00_27016
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											bool_t
																																												BgL_test8968z00_27020;
																																											if (((long) (BgL_curz00_5508) >= 36L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8968z00_27020
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_5508)
																																														<
																																														40L);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8968z00_27020
																																														=
																																														(
																																														(bool_t)
																																														0);
																																												}
																																											if (BgL_test8968z00_27020)
																																												{	/* Read/reader.scm 409 */
																																													BgL_test8966z00_27016
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													bool_t
																																														BgL_test8970z00_27026;
																																													if (((long) (BgL_curz00_5508) >= 42L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8970z00_27026
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_5508)
																																																<
																																																59L);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8970z00_27026
																																																=
																																																(
																																																(bool_t)
																																																0);
																																														}
																																													if (BgL_test8970z00_27026)
																																														{	/* Read/reader.scm 409 */
																																															BgL_test8966z00_27016
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															bool_t
																																																BgL_test8972z00_27032;
																																															if (((long) (BgL_curz00_5508) >= 60L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8972z00_27032
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_5508)
																																																		<
																																																		65L);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8972z00_27032
																																																		=
																																																		(
																																																		(bool_t)
																																																		0);
																																																}
																																															if (BgL_test8972z00_27032)
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test8966z00_27016
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	if (((long) (BgL_curz00_5508) == 92L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test8966z00_27016
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			bool_t
																																																				BgL_test8975z00_27041;
																																																			if (((long) (BgL_curz00_5508) == 96L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8975z00_27041
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					if (((long) (BgL_curz00_5508) == 95L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8975z00_27041
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test8975z00_27041
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_5508)
																																																								==
																																																								94L);
																																																				}}
																																																			if (BgL_test8975z00_27041)
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8966z00_27016
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test8966z00_27016
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_5508)
																																																						==
																																																						126L);
																																										}}}}}}
																																									if (BgL_test8966z00_27016)
																																										{
																																											long
																																												BgL_bufposz00_27056;
																																											long
																																												BgL_forwardz00_27054;
																																											long
																																												BgL_lastzd2matchzd2_27053;
																																											obj_t
																																												BgL_iportz00_27052;
																																											BgL_iportz00_27052
																																												=
																																												BgL_iportz00_5499;
																																											BgL_lastzd2matchzd2_27053
																																												=
																																												BgL_lastzd2matchzd2_5500;
																																											BgL_forwardz00_27054
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_5501);
																																											BgL_bufposz00_27056
																																												=
																																												BgL_bufposz00_5502;
																																											BgL_bufposz00_4879
																																												=
																																												BgL_bufposz00_27056;
																																											BgL_forwardz00_4878
																																												=
																																												BgL_forwardz00_27054;
																																											BgL_lastzd2matchzd2_4877
																																												=
																																												BgL_lastzd2matchzd2_27053;
																																											BgL_iportz00_4876
																																												=
																																												BgL_iportz00_27052;
																																											goto
																																												BgL_zc3z04anonymousza33394ze3z87_4880;
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_matchz00_9747
																																												=
																																												BgL_lastzd2matchzd2_5500;
																																										}
																																								}
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							BgL_iportz00_7856
																																								=
																																								BgL_iportz00_5499;
																																							BgL_lastzd2matchzd2_7857
																																								=
																																								BgL_lastzd2matchzd2_5500;
																																							BgL_forwardz00_7858
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_5501);
																																							BgL_bufposz00_7859
																																								=
																																								BgL_bufposz00_5502;
																																						BgL_zc3z04anonymousza34917ze3z87_7860:
																																							{	/* Read/reader.scm 409 */
																																								long
																																									BgL_newzd2matchzd2_7861;
																																								{	/* Read/reader.scm 409 */
																																									obj_t
																																										BgL_tmpz00_27057;
																																									BgL_tmpz00_27057
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_7856);
																																									RGC_STOP_MATCH
																																										(BgL_tmpz00_27057,
																																										BgL_forwardz00_7858);
																																								}
																																								BgL_newzd2matchzd2_7861
																																									=
																																									8L;
																																								if ((BgL_forwardz00_7858 == BgL_bufposz00_7859))
																																									{	/* Read/reader.scm 409 */
																																										if (rgc_fill_buffer(((obj_t) BgL_iportz00_7856)))
																																											{	/* Read/reader.scm 409 */
																																												long
																																													BgL_arg4920z00_7864;
																																												long
																																													BgL_arg4921z00_7865;
																																												{	/* Read/reader.scm 409 */
																																													obj_t
																																														BgL_tmpz00_27065;
																																													BgL_tmpz00_27065
																																														=
																																														(
																																														(obj_t)
																																														BgL_iportz00_7856);
																																													BgL_arg4920z00_7864
																																														=
																																														RGC_BUFFER_FORWARD
																																														(BgL_tmpz00_27065);
																																												}
																																												{	/* Read/reader.scm 409 */
																																													obj_t
																																														BgL_tmpz00_27068;
																																													BgL_tmpz00_27068
																																														=
																																														(
																																														(obj_t)
																																														BgL_iportz00_7856);
																																													BgL_arg4921z00_7865
																																														=
																																														RGC_BUFFER_BUFPOS
																																														(BgL_tmpz00_27068);
																																												}
																																												{
																																													long
																																														BgL_bufposz00_27072;
																																													long
																																														BgL_forwardz00_27071;
																																													BgL_forwardz00_27071
																																														=
																																														BgL_arg4920z00_7864;
																																													BgL_bufposz00_27072
																																														=
																																														BgL_arg4921z00_7865;
																																													BgL_bufposz00_7859
																																														=
																																														BgL_bufposz00_27072;
																																													BgL_forwardz00_7858
																																														=
																																														BgL_forwardz00_27071;
																																													goto
																																														BgL_zc3z04anonymousza34917ze3z87_7860;
																																												}
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												BgL_matchz00_9747
																																													=
																																													BgL_newzd2matchzd2_7861;
																																											}
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										int
																																											BgL_curz00_7866;
																																										{	/* Read/reader.scm 409 */
																																											obj_t
																																												BgL_tmpz00_27073;
																																											BgL_tmpz00_27073
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_7856);
																																											BgL_curz00_7866
																																												=
																																												RGC_BUFFER_GET_CHAR
																																												(BgL_tmpz00_27073,
																																												BgL_forwardz00_7858);
																																										}
																																										{	/* Read/reader.scm 409 */

																																											{	/* Read/reader.scm 409 */
																																												bool_t
																																													BgL_test8980z00_27076;
																																												if (((long) (BgL_curz00_7866) < 65L))
																																													{	/* Read/reader.scm 409 */
																																														BgL_test8980z00_27076
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														bool_t
																																															BgL_test8982z00_27080;
																																														if (((long) (BgL_curz00_7866) >= 91L))
																																															{	/* Read/reader.scm 409 */
																																																BgL_test8982z00_27080
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_7866)
																																																	<
																																																	97L);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																BgL_test8982z00_27080
																																																	=
																																																	(
																																																	(bool_t)
																																																	0);
																																															}
																																														if (BgL_test8982z00_27080)
																																															{	/* Read/reader.scm 409 */
																																																BgL_test8980z00_27076
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																if (((long) (BgL_curz00_7866) >= 123L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test8980z00_27076
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_7866)
																																																			<
																																																			128L);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test8980z00_27076
																																																			=
																																																			(
																																																			(bool_t)
																																																			0);
																																																	}
																																															}
																																													}
																																												if (BgL_test8980z00_27076)
																																													{	/* Read/reader.scm 409 */
																																														if (((long) (BgL_curz00_7866) == 40L))
																																															{	/* Read/reader.scm 409 */
																																																long
																																																	BgL_arg4927z00_7874;
																																																BgL_arg4927z00_7874
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_7858);
																																																{	/* Read/reader.scm 409 */
																																																	long
																																																		BgL_newzd2matchzd2_15544;
																																																	{	/* Read/reader.scm 409 */
																																																		obj_t
																																																			BgL_tmpz00_27095;
																																																		BgL_tmpz00_27095
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_7856);
																																																		RGC_STOP_MATCH
																																																			(BgL_tmpz00_27095,
																																																			BgL_arg4927z00_7874);
																																																	}
																																																	BgL_newzd2matchzd2_15544
																																																		=
																																																		31L;
																																																	BgL_matchz00_9747
																																																		=
																																																		BgL_newzd2matchzd2_15544;
																																															}}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																bool_t
																																																	BgL_test8986z00_27098;
																																																if (((long) (BgL_curz00_7866) == 33L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test8986z00_27098
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		bool_t
																																																			BgL_test8988z00_27102;
																																																		if (((long) (BgL_curz00_7866) >= 36L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test8988z00_27102
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_7866)
																																																					<
																																																					40L);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test8988z00_27102
																																																					=
																																																					(
																																																					(bool_t)
																																																					0);
																																																			}
																																																		if (BgL_test8988z00_27102)
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test8986z00_27098
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				bool_t
																																																					BgL_test8990z00_27108;
																																																				if (((long) (BgL_curz00_7866) >= 42L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test8990z00_27108
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_7866)
																																																							<
																																																							59L);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test8990z00_27108
																																																							=
																																																							(
																																																							(bool_t)
																																																							0);
																																																					}
																																																				if (BgL_test8990z00_27108)
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test8986z00_27098
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						bool_t
																																																							BgL_test8992z00_27114;
																																																						if (((long) (BgL_curz00_7866) >= 60L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test8992z00_27114
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_7866)
																																																									<
																																																									65L);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test8992z00_27114
																																																									=
																																																									(
																																																									(bool_t)
																																																									0);
																																																							}
																																																						if (BgL_test8992z00_27114)
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test8986z00_27098
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								if (((long) (BgL_curz00_7866) == 92L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test8986z00_27098
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										bool_t
																																																											BgL_test8995z00_27123;
																																																										if (((long) (BgL_curz00_7866) == 96L))
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test8995z00_27123
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												if (((long) (BgL_curz00_7866) == 95L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test8995z00_27123
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test8995z00_27123
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_7866)
																																																															==
																																																															94L);
																																																											}}
																																																										if (BgL_test8995z00_27123)
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test8986z00_27098
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test8986z00_27098
																																																													=
																																																													(
																																																													(long)
																																																													(BgL_curz00_7866)
																																																													==
																																																													126L);
																																																	}}}}}}
																																																if (BgL_test8986z00_27098)
																																																	{
																																																		long
																																																			BgL_bufposz00_27138;
																																																		long
																																																			BgL_forwardz00_27136;
																																																		long
																																																			BgL_lastzd2matchzd2_27135;
																																																		obj_t
																																																			BgL_iportz00_27134;
																																																		BgL_iportz00_27134
																																																			=
																																																			BgL_iportz00_7856;
																																																		BgL_lastzd2matchzd2_27135
																																																			=
																																																			BgL_newzd2matchzd2_7861;
																																																		BgL_forwardz00_27136
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_7858);
																																																		BgL_bufposz00_27138
																																																			=
																																																			BgL_bufposz00_7859;
																																																		BgL_bufposz00_4879
																																																			=
																																																			BgL_bufposz00_27138;
																																																		BgL_forwardz00_4878
																																																			=
																																																			BgL_forwardz00_27136;
																																																		BgL_lastzd2matchzd2_4877
																																																			=
																																																			BgL_lastzd2matchzd2_27135;
																																																		BgL_iportz00_4876
																																																			=
																																																			BgL_iportz00_27134;
																																																		goto
																																																			BgL_zc3z04anonymousza33394ze3z87_4880;
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_matchz00_9747
																																																			=
																																																			BgL_newzd2matchzd2_7861;
																																																	}
																																															}
																																													}
																																												else
																																													{
																																														long
																																															BgL_forwardz00_27140;
																																														long
																																															BgL_lastzd2matchzd2_27139;
																																														BgL_lastzd2matchzd2_27139
																																															=
																																															BgL_newzd2matchzd2_7861;
																																														BgL_forwardz00_27140
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_7858);
																																														BgL_forwardz00_7858
																																															=
																																															BgL_forwardz00_27140;
																																														BgL_lastzd2matchzd2_7857
																																															=
																																															BgL_lastzd2matchzd2_27139;
																																														goto
																																															BgL_zc3z04anonymousza34917ze3z87_7860;
																																													}
																																											}
																																										}
																																									}
																																							}
																																						}
																																				}
																																			}
																																		}
																																}
																														}
																													}
																												}
																										}
																										break;
																									case 57L:
																									case 56L:
																									case 55L:
																									case 54L:
																									case 53L:
																									case 52L:
																									case 51L:
																									case 50L:
																									case 49L:
																									case 48L:

																										BgL_iportz00_5050 =
																											BgL_iportz00_4741;
																										BgL_lastzd2matchzd2_5051 =
																											BgL_lastzd2matchzd2_4742;
																										BgL_forwardz00_5052 =
																											(1L +
																											BgL_forwardz00_4743);
																										BgL_bufposz00_5053 =
																											BgL_bufposz00_4744;
																									BgL_zc3z04anonymousza33486ze3z87_5054:
																										{	/* Read/reader.scm 409 */
																											long
																												BgL_newzd2matchzd2_5055;
																											{	/* Read/reader.scm 409 */
																												obj_t BgL_tmpz00_27145;

																												BgL_tmpz00_27145 =
																													((obj_t)
																													BgL_iportz00_5050);
																												RGC_STOP_MATCH
																													(BgL_tmpz00_27145,
																													BgL_forwardz00_5052);
																											}
																											BgL_newzd2matchzd2_5055 =
																												7L;
																											if ((BgL_forwardz00_5052
																													==
																													BgL_bufposz00_5053))
																												{	/* Read/reader.scm 409 */
																													if (rgc_fill_buffer(
																															((obj_t)
																																BgL_iportz00_5050)))
																														{	/* Read/reader.scm 409 */
																															long
																																BgL_arg3489z00_5058;
																															long
																																BgL_arg3490z00_5059;
																															{	/* Read/reader.scm 409 */
																																obj_t
																																	BgL_tmpz00_27153;
																																BgL_tmpz00_27153
																																	=
																																	((obj_t)
																																	BgL_iportz00_5050);
																																BgL_arg3489z00_5058
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_tmpz00_27153);
																															}
																															{	/* Read/reader.scm 409 */
																																obj_t
																																	BgL_tmpz00_27156;
																																BgL_tmpz00_27156
																																	=
																																	((obj_t)
																																	BgL_iportz00_5050);
																																BgL_arg3490z00_5059
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_tmpz00_27156);
																															}
																															{
																																long
																																	BgL_bufposz00_27160;
																																long
																																	BgL_forwardz00_27159;
																																BgL_forwardz00_27159
																																	=
																																	BgL_arg3489z00_5058;
																																BgL_bufposz00_27160
																																	=
																																	BgL_arg3490z00_5059;
																																BgL_bufposz00_5053
																																	=
																																	BgL_bufposz00_27160;
																																BgL_forwardz00_5052
																																	=
																																	BgL_forwardz00_27159;
																																goto
																																	BgL_zc3z04anonymousza33486ze3z87_5054;
																															}
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															BgL_matchz00_9747
																																=
																																BgL_newzd2matchzd2_5055;
																														}
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													int BgL_curz00_5060;

																													{	/* Read/reader.scm 409 */
																														obj_t
																															BgL_tmpz00_27161;
																														BgL_tmpz00_27161 =
																															((obj_t)
																															BgL_iportz00_5050);
																														BgL_curz00_5060 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_tmpz00_27161,
																															BgL_forwardz00_5052);
																													}
																													{	/* Read/reader.scm 409 */

																														{	/* Read/reader.scm 409 */
																															bool_t
																																BgL_test9000z00_27164;
																															if (((long)
																																	(BgL_curz00_5060)
																																	>= 48L))
																																{	/* Read/reader.scm 409 */
																																	BgL_test9000z00_27164
																																		=
																																		((long)
																																		(BgL_curz00_5060)
																																		< 58L);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	BgL_test9000z00_27164
																																		=
																																		((bool_t)
																																		0);
																																}
																															if (BgL_test9000z00_27164)
																																{	/* Read/reader.scm 409 */
																																	BgL_iportz00_5692
																																		=
																																		BgL_iportz00_5050;
																																	BgL_lastzd2matchzd2_5693
																																		=
																																		BgL_newzd2matchzd2_5055;
																																	BgL_forwardz00_5694
																																		=
																																		(1L +
																																		BgL_forwardz00_5052);
																																	BgL_bufposz00_5695
																																		=
																																		BgL_bufposz00_5053;
																																BgL_zc3z04anonymousza33819ze3z87_5696:
																																	if (
																																		(BgL_forwardz00_5694
																																			==
																																			BgL_bufposz00_5695))
																																		{	/* Read/reader.scm 409 */
																																			if (rgc_fill_buffer(((obj_t) BgL_iportz00_5692)))
																																				{	/* Read/reader.scm 409 */
																																					long
																																						BgL_arg3822z00_5699;
																																					long
																																						BgL_arg3823z00_5700;
																																					{	/* Read/reader.scm 409 */
																																						obj_t
																																							BgL_tmpz00_27175;
																																						BgL_tmpz00_27175
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_5692);
																																						BgL_arg3822z00_5699
																																							=
																																							RGC_BUFFER_FORWARD
																																							(BgL_tmpz00_27175);
																																					}
																																					{	/* Read/reader.scm 409 */
																																						obj_t
																																							BgL_tmpz00_27178;
																																						BgL_tmpz00_27178
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_5692);
																																						BgL_arg3823z00_5700
																																							=
																																							RGC_BUFFER_BUFPOS
																																							(BgL_tmpz00_27178);
																																					}
																																					{
																																						long
																																							BgL_bufposz00_27182;
																																						long
																																							BgL_forwardz00_27181;
																																						BgL_forwardz00_27181
																																							=
																																							BgL_arg3822z00_5699;
																																						BgL_bufposz00_27182
																																							=
																																							BgL_arg3823z00_5700;
																																						BgL_bufposz00_5695
																																							=
																																							BgL_bufposz00_27182;
																																						BgL_forwardz00_5694
																																							=
																																							BgL_forwardz00_27181;
																																						goto
																																							BgL_zc3z04anonymousza33819ze3z87_5696;
																																					}
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					BgL_matchz00_9747
																																						=
																																						BgL_lastzd2matchzd2_5693;
																																				}
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			int
																																				BgL_curz00_5701;
																																			{	/* Read/reader.scm 409 */
																																				obj_t
																																					BgL_tmpz00_27183;
																																				BgL_tmpz00_27183
																																					=
																																					(
																																					(obj_t)
																																					BgL_iportz00_5692);
																																				BgL_curz00_5701
																																					=
																																					RGC_BUFFER_GET_CHAR
																																					(BgL_tmpz00_27183,
																																					BgL_forwardz00_5694);
																																			}
																																			{	/* Read/reader.scm 409 */

																																				{	/* Read/reader.scm 409 */
																																					bool_t
																																						BgL_test9004z00_27186;
																																					if ((
																																							(long)
																																							(BgL_curz00_5701)
																																							>=
																																							48L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test9004z00_27186
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_5701)
																																								<
																																								58L);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							BgL_test9004z00_27186
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																					if (BgL_test9004z00_27186)
																																						{	/* Read/reader.scm 409 */
																																							BgL_iportz00_5741
																																								=
																																								BgL_iportz00_5692;
																																							BgL_lastzd2matchzd2_5742
																																								=
																																								BgL_lastzd2matchzd2_5693;
																																							BgL_forwardz00_5743
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_5694);
																																							BgL_bufposz00_5744
																																								=
																																								BgL_bufposz00_5695;
																																						BgL_zc3z04anonymousza33844ze3z87_5745:
																																							{	/* Read/reader.scm 409 */
																																								long
																																									BgL_newzd2matchzd2_5746;
																																								{	/* Read/reader.scm 409 */
																																									obj_t
																																										BgL_tmpz00_27192;
																																									BgL_tmpz00_27192
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_5741);
																																									RGC_STOP_MATCH
																																										(BgL_tmpz00_27192,
																																										BgL_forwardz00_5743);
																																								}
																																								BgL_newzd2matchzd2_5746
																																									=
																																									9L;
																																								if ((BgL_forwardz00_5743 == BgL_bufposz00_5744))
																																									{	/* Read/reader.scm 409 */
																																										if (rgc_fill_buffer(((obj_t) BgL_iportz00_5741)))
																																											{	/* Read/reader.scm 409 */
																																												long
																																													BgL_arg3847z00_5749;
																																												long
																																													BgL_arg3848z00_5750;
																																												{	/* Read/reader.scm 409 */
																																													obj_t
																																														BgL_tmpz00_27200;
																																													BgL_tmpz00_27200
																																														=
																																														(
																																														(obj_t)
																																														BgL_iportz00_5741);
																																													BgL_arg3847z00_5749
																																														=
																																														RGC_BUFFER_FORWARD
																																														(BgL_tmpz00_27200);
																																												}
																																												{	/* Read/reader.scm 409 */
																																													obj_t
																																														BgL_tmpz00_27203;
																																													BgL_tmpz00_27203
																																														=
																																														(
																																														(obj_t)
																																														BgL_iportz00_5741);
																																													BgL_arg3848z00_5750
																																														=
																																														RGC_BUFFER_BUFPOS
																																														(BgL_tmpz00_27203);
																																												}
																																												{
																																													long
																																														BgL_bufposz00_27207;
																																													long
																																														BgL_forwardz00_27206;
																																													BgL_forwardz00_27206
																																														=
																																														BgL_arg3847z00_5749;
																																													BgL_bufposz00_27207
																																														=
																																														BgL_arg3848z00_5750;
																																													BgL_bufposz00_5744
																																														=
																																														BgL_bufposz00_27207;
																																													BgL_forwardz00_5743
																																														=
																																														BgL_forwardz00_27206;
																																													goto
																																														BgL_zc3z04anonymousza33844ze3z87_5745;
																																												}
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												BgL_matchz00_9747
																																													=
																																													BgL_newzd2matchzd2_5746;
																																											}
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										int
																																											BgL_curz00_5751;
																																										{	/* Read/reader.scm 409 */
																																											obj_t
																																												BgL_tmpz00_27208;
																																											BgL_tmpz00_27208
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_5741);
																																											BgL_curz00_5751
																																												=
																																												RGC_BUFFER_GET_CHAR
																																												(BgL_tmpz00_27208,
																																												BgL_forwardz00_5743);
																																										}
																																										{	/* Read/reader.scm 409 */

																																											{	/* Read/reader.scm 409 */
																																												bool_t
																																													BgL_test9008z00_27211;
																																												if (((long) (BgL_curz00_5751) >= 48L))
																																													{	/* Read/reader.scm 409 */
																																														BgL_test9008z00_27211
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_5751)
																																															<
																																															58L);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														BgL_test9008z00_27211
																																															=
																																															(
																																															(bool_t)
																																															0);
																																													}
																																												if (BgL_test9008z00_27211)
																																													{
																																														long
																																															BgL_forwardz00_27218;
																																														long
																																															BgL_lastzd2matchzd2_27217;
																																														BgL_lastzd2matchzd2_27217
																																															=
																																															BgL_newzd2matchzd2_5746;
																																														BgL_forwardz00_27218
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_5743);
																																														BgL_forwardz00_5743
																																															=
																																															BgL_forwardz00_27218;
																																														BgL_lastzd2matchzd2_5742
																																															=
																																															BgL_lastzd2matchzd2_27217;
																																														goto
																																															BgL_zc3z04anonymousza33844ze3z87_5745;
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														if (((long) (BgL_curz00_5751) == 40L))
																																															{	/* Read/reader.scm 409 */
																																																long
																																																	BgL_arg3853z00_5756;
																																																BgL_arg3853z00_5756
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_5743);
																																																{	/* Read/reader.scm 409 */
																																																	long
																																																		BgL_newzd2matchzd2_14254;
																																																	{	/* Read/reader.scm 409 */
																																																		obj_t
																																																			BgL_tmpz00_27224;
																																																		BgL_tmpz00_27224
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_5741);
																																																		RGC_STOP_MATCH
																																																			(BgL_tmpz00_27224,
																																																			BgL_arg3853z00_5756);
																																																	}
																																																	BgL_newzd2matchzd2_14254
																																																		=
																																																		31L;
																																																	BgL_matchz00_9747
																																																		=
																																																		BgL_newzd2matchzd2_14254;
																																															}}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																bool_t
																																																	BgL_test9011z00_27227;
																																																if (((long) (BgL_curz00_5751) < 33L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test9011z00_27227
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		bool_t
																																																			BgL_test9013z00_27231;
																																																		if (((long) (BgL_curz00_5751) == 35L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test9013z00_27231
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test9013z00_27231
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_5751)
																																																					==
																																																					34L);
																																																			}
																																																		if (BgL_test9013z00_27231)
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test9011z00_27227
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				bool_t
																																																					BgL_test9015z00_27237;
																																																				if (((long) (BgL_curz00_5751) == 41L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test9015z00_27237
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test9015z00_27237
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_5751)
																																																							==
																																																							40L);
																																																					}
																																																				if (BgL_test9015z00_27237)
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test9011z00_27227
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						bool_t
																																																							BgL_test9017z00_27243;
																																																						if (((long) (BgL_curz00_5751) >= 48L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test9017z00_27243
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_5751)
																																																									<
																																																									58L);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test9017z00_27243
																																																									=
																																																									(
																																																									(bool_t)
																																																									0);
																																																							}
																																																						if (BgL_test9017z00_27243)
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test9011z00_27227
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								if (((long) (BgL_curz00_5751) == 59L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test9011z00_27227
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										if (((long) (BgL_curz00_5751) == 91L))
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test9011z00_27227
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												if (((long) (BgL_curz00_5751) == 93L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test9011z00_27227
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														bool_t
																																																															BgL_test9022z00_27258;
																																																														if (((long) (BgL_curz00_5751) == 125L))
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test9022z00_27258
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																if (((long) (BgL_curz00_5751) == 124L))
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test9022z00_27258
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test9022z00_27258
																																																																			=
																																																																			(
																																																																			(long)
																																																																			(BgL_curz00_5751)
																																																																			==
																																																																			123L);
																																																															}}
																																																														if (BgL_test9022z00_27258)
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test9011z00_27227
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test9011z00_27227
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_5751)
																																																																	==
																																																																	127L);
																																																	}}}}}}}}
																																																if (BgL_test9011z00_27227)
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_matchz00_9747
																																																			=
																																																			BgL_newzd2matchzd2_5746;
																																																	}
																																																else
																																																	{
																																																		long
																																																			BgL_bufposz00_27273;
																																																		long
																																																			BgL_forwardz00_27271;
																																																		long
																																																			BgL_lastzd2matchzd2_27270;
																																																		obj_t
																																																			BgL_iportz00_27269;
																																																		BgL_iportz00_27269
																																																			=
																																																			BgL_iportz00_5741;
																																																		BgL_lastzd2matchzd2_27270
																																																			=
																																																			BgL_newzd2matchzd2_5746;
																																																		BgL_forwardz00_27271
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_5743);
																																																		BgL_bufposz00_27273
																																																			=
																																																			BgL_bufposz00_5744;
																																																		BgL_bufposz00_4879
																																																			=
																																																			BgL_bufposz00_27273;
																																																		BgL_forwardz00_4878
																																																			=
																																																			BgL_forwardz00_27271;
																																																		BgL_lastzd2matchzd2_4877
																																																			=
																																																			BgL_lastzd2matchzd2_27270;
																																																		BgL_iportz00_4876
																																																			=
																																																			BgL_iportz00_27269;
																																																		goto
																																																			BgL_zc3z04anonymousza33394ze3z87_4880;
																																																	}
																																															}
																																													}
																																											}
																																										}
																																									}
																																							}
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							if (((long) (BgL_curz00_5701) == 40L))
																																								{	/* Read/reader.scm 409 */
																																									long
																																										BgL_arg3828z00_5706;
																																									BgL_arg3828z00_5706
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_5694);
																																									{	/* Read/reader.scm 409 */
																																										long
																																											BgL_newzd2matchzd2_14222;
																																										{	/* Read/reader.scm 409 */
																																											obj_t
																																												BgL_tmpz00_27279;
																																											BgL_tmpz00_27279
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_5692);
																																											RGC_STOP_MATCH
																																												(BgL_tmpz00_27279,
																																												BgL_arg3828z00_5706);
																																										}
																																										BgL_newzd2matchzd2_14222
																																											=
																																											31L;
																																										BgL_matchz00_9747
																																											=
																																											BgL_newzd2matchzd2_14222;
																																								}}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									bool_t
																																										BgL_test9026z00_27282;
																																									if (((long) (BgL_curz00_5701) < 33L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test9026z00_27282
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											bool_t
																																												BgL_test9028z00_27286;
																																											if (((long) (BgL_curz00_5701) == 35L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test9028z00_27286
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													BgL_test9028z00_27286
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_5701)
																																														==
																																														34L);
																																												}
																																											if (BgL_test9028z00_27286)
																																												{	/* Read/reader.scm 409 */
																																													BgL_test9026z00_27282
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													bool_t
																																														BgL_test9030z00_27292;
																																													if (((long) (BgL_curz00_5701) == 41L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test9030z00_27292
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															BgL_test9030z00_27292
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_5701)
																																																==
																																																40L);
																																														}
																																													if (BgL_test9030z00_27292)
																																														{	/* Read/reader.scm 409 */
																																															BgL_test9026z00_27282
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															bool_t
																																																BgL_test9032z00_27298;
																																															if (((long) (BgL_curz00_5701) >= 48L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test9032z00_27298
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_5701)
																																																		<
																																																		58L);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test9032z00_27298
																																																		=
																																																		(
																																																		(bool_t)
																																																		0);
																																																}
																																															if (BgL_test9032z00_27298)
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test9026z00_27282
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	if (((long) (BgL_curz00_5701) == 59L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test9026z00_27282
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			if (((long) (BgL_curz00_5701) == 91L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test9026z00_27282
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					if (((long) (BgL_curz00_5701) == 93L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test9026z00_27282
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							bool_t
																																																								BgL_test9037z00_27313;
																																																							if (((long) (BgL_curz00_5701) == 125L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test9037z00_27313
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									if (((long) (BgL_curz00_5701) == 124L))
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test9037z00_27313
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_test9037z00_27313
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_5701)
																																																												==
																																																												123L);
																																																								}}
																																																							if (BgL_test9037z00_27313)
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test9026z00_27282
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test9026z00_27282
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_5701)
																																																										==
																																																										127L);
																																										}}}}}}}}
																																									if (BgL_test9026z00_27282)
																																										{	/* Read/reader.scm 409 */
																																											BgL_matchz00_9747
																																												=
																																												BgL_lastzd2matchzd2_5693;
																																										}
																																									else
																																										{
																																											long
																																												BgL_bufposz00_27328;
																																											long
																																												BgL_forwardz00_27326;
																																											long
																																												BgL_lastzd2matchzd2_27325;
																																											obj_t
																																												BgL_iportz00_27324;
																																											BgL_iportz00_27324
																																												=
																																												BgL_iportz00_5692;
																																											BgL_lastzd2matchzd2_27325
																																												=
																																												BgL_lastzd2matchzd2_5693;
																																											BgL_forwardz00_27326
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_5694);
																																											BgL_bufposz00_27328
																																												=
																																												BgL_bufposz00_5695;
																																											BgL_bufposz00_4879
																																												=
																																												BgL_bufposz00_27328;
																																											BgL_forwardz00_4878
																																												=
																																												BgL_forwardz00_27326;
																																											BgL_lastzd2matchzd2_4877
																																												=
																																												BgL_lastzd2matchzd2_27325;
																																											BgL_iportz00_4876
																																												=
																																												BgL_iportz00_27324;
																																											goto
																																												BgL_zc3z04anonymousza33394ze3z87_4880;
																																										}
																																								}
																																						}
																																				}
																																			}
																																		}
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	if (
																																		((long)
																																			(BgL_curz00_5060)
																																			== 40L))
																																		{	/* Read/reader.scm 409 */
																																			long
																																				BgL_arg3495z00_5065;
																																			BgL_arg3495z00_5065
																																				=
																																				(1L +
																																				BgL_forwardz00_5052);
																																			{	/* Read/reader.scm 409 */
																																				long
																																					BgL_newzd2matchzd2_13824;
																																				{	/* Read/reader.scm 409 */
																																					obj_t
																																						BgL_tmpz00_27334;
																																					BgL_tmpz00_27334
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_5050);
																																					RGC_STOP_MATCH
																																						(BgL_tmpz00_27334,
																																						BgL_arg3495z00_5065);
																																				}
																																				BgL_newzd2matchzd2_13824
																																					= 31L;
																																				BgL_matchz00_9747
																																					=
																																					BgL_newzd2matchzd2_13824;
																																		}}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			bool_t
																																				BgL_test9041z00_27337;
																																			if ((
																																					(long)
																																					(BgL_curz00_5060)
																																					<
																																					33L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test9041z00_27337
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					bool_t
																																						BgL_test9043z00_27341;
																																					if ((
																																							(long)
																																							(BgL_curz00_5060)
																																							==
																																							35L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test9043z00_27341
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							BgL_test9043z00_27341
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_5060)
																																								==
																																								34L);
																																						}
																																					if (BgL_test9043z00_27341)
																																						{	/* Read/reader.scm 409 */
																																							BgL_test9041z00_27337
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							bool_t
																																								BgL_test9045z00_27347;
																																							if (((long) (BgL_curz00_5060) == 41L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test9045z00_27347
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									BgL_test9045z00_27347
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_5060)
																																										==
																																										40L);
																																								}
																																							if (BgL_test9045z00_27347)
																																								{	/* Read/reader.scm 409 */
																																									BgL_test9041z00_27337
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									bool_t
																																										BgL_test9047z00_27353;
																																									if (((long) (BgL_curz00_5060) >= 48L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test9047z00_27353
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_5060)
																																												<
																																												58L);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_test9047z00_27353
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																									if (BgL_test9047z00_27353)
																																										{	/* Read/reader.scm 409 */
																																											BgL_test9041z00_27337
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											if (((long) (BgL_curz00_5060) == 59L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test9041z00_27337
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													if (((long) (BgL_curz00_5060) == 91L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test9041z00_27337
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_5060) == 93L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test9041z00_27337
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	bool_t
																																																		BgL_test9052z00_27368;
																																																	if (((long) (BgL_curz00_5060) == 125L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test9052z00_27368
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			if (((long) (BgL_curz00_5060) == 124L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test9052z00_27368
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test9052z00_27368
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_5060)
																																																						==
																																																						123L);
																																																		}}
																																																	if (BgL_test9052z00_27368)
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test9041z00_27337
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test9041z00_27337
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_5060)
																																																				==
																																																				127L);
																																				}}}}}}}}
																																			if (BgL_test9041z00_27337)
																																				{	/* Read/reader.scm 409 */
																																					BgL_matchz00_9747
																																						=
																																						BgL_newzd2matchzd2_5055;
																																				}
																																			else
																																				{
																																					long
																																						BgL_bufposz00_27383;
																																					long
																																						BgL_forwardz00_27381;
																																					long
																																						BgL_lastzd2matchzd2_27380;
																																					obj_t
																																						BgL_iportz00_27379;
																																					BgL_iportz00_27379
																																						=
																																						BgL_iportz00_5050;
																																					BgL_lastzd2matchzd2_27380
																																						=
																																						BgL_newzd2matchzd2_5055;
																																					BgL_forwardz00_27381
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_5052);
																																					BgL_bufposz00_27383
																																						=
																																						BgL_bufposz00_5053;
																																					BgL_bufposz00_4879
																																						=
																																						BgL_bufposz00_27383;
																																					BgL_forwardz00_4878
																																						=
																																						BgL_forwardz00_27381;
																																					BgL_lastzd2matchzd2_4877
																																						=
																																						BgL_lastzd2matchzd2_27380;
																																					BgL_iportz00_4876
																																						=
																																						BgL_iportz00_27379;
																																					goto
																																						BgL_zc3z04anonymousza33394ze3z87_4880;
																																				}
																																		}
																																}
																														}
																													}
																												}
																										}
																										break;
																									case 40L:

																										{	/* Read/reader.scm 409 */
																											long BgL_arg3327z00_4756;

																											BgL_arg3327z00_4756 =
																												(1L +
																												BgL_forwardz00_4743);
																											{	/* Read/reader.scm 409 */
																												long
																													BgL_newzd2matchzd2_13628;
																												{	/* Read/reader.scm 409 */
																													obj_t
																														BgL_tmpz00_27386;
																													BgL_tmpz00_27386 =
																														((obj_t)
																														BgL_iportz00_4741);
																													RGC_STOP_MATCH
																														(BgL_tmpz00_27386,
																														BgL_arg3327z00_4756);
																												}
																												BgL_newzd2matchzd2_13628
																													= 7L;
																												BgL_matchz00_9747 =
																													BgL_newzd2matchzd2_13628;
																										}} break;
																									case 255L:
																									case 254L:
																									case 253L:
																									case 252L:
																									case 251L:
																									case 250L:
																									case 249L:
																									case 248L:
																									case 247L:
																									case 246L:
																									case 245L:
																									case 244L:
																									case 243L:
																									case 242L:
																									case 241L:
																									case 240L:
																									case 239L:
																									case 238L:
																									case 237L:
																									case 236L:
																									case 235L:
																									case 234L:
																									case 233L:
																									case 232L:
																									case 231L:
																									case 230L:
																									case 229L:
																									case 228L:
																									case 227L:
																									case 226L:
																									case 225L:
																									case 224L:
																									case 223L:
																									case 222L:
																									case 221L:
																									case 220L:
																									case 219L:
																									case 218L:
																									case 217L:
																									case 216L:
																									case 215L:
																									case 214L:
																									case 213L:
																									case 212L:
																									case 211L:
																									case 210L:
																									case 209L:
																									case 208L:
																									case 207L:
																									case 206L:
																									case 205L:
																									case 204L:
																									case 203L:
																									case 202L:
																									case 201L:
																									case 200L:
																									case 199L:
																									case 198L:
																									case 197L:
																									case 196L:
																									case 195L:
																									case 194L:
																									case 193L:
																									case 192L:
																									case 191L:
																									case 190L:
																									case 189L:
																									case 188L:
																									case 187L:
																									case 186L:
																									case 185L:
																									case 184L:
																									case 183L:
																									case 182L:
																									case 181L:
																									case 180L:
																									case 179L:
																									case 178L:
																									case 177L:
																									case 176L:
																									case 175L:
																									case 174L:
																									case 173L:
																									case 172L:
																									case 171L:
																									case 170L:
																									case 169L:
																									case 168L:
																									case 167L:
																									case 166L:
																									case 165L:
																									case 164L:
																									case 163L:
																									case 162L:
																									case 161L:
																									case 160L:
																									case 159L:
																									case 158L:
																									case 157L:
																									case 156L:
																									case 155L:
																									case 154L:
																									case 153L:
																									case 152L:
																									case 151L:
																									case 150L:
																									case 149L:
																									case 148L:
																									case 147L:
																									case 146L:
																									case 145L:
																									case 144L:
																									case 143L:
																									case 142L:
																									case 141L:
																									case 140L:
																									case 139L:
																									case 138L:
																									case 137L:
																									case 136L:
																									case 135L:
																									case 134L:
																									case 133L:
																									case 132L:
																									case 131L:
																									case 130L:
																									case 129L:
																									case 128L:
																									case 126L:
																									case 96L:
																									case 95L:
																									case 94L:
																									case 92L:
																									case 88L:
																									case 64L:
																									case 63L:
																									case 62L:
																									case 61L:
																									case 60L:
																									case 58L:
																									case 47L:
																									case 46L:
																									case 45L:
																									case 44L:
																									case 43L:
																									case 42L:
																									case 39L:
																									case 38L:
																									case 37L:
																									case 36L:
																									case 33L:

																										BgL_iportz00_8641 =
																											BgL_iportz00_4741;
																										BgL_lastzd2matchzd2_8642 =
																											BgL_lastzd2matchzd2_4742;
																										BgL_forwardz00_8643 =
																											(1L +
																											BgL_forwardz00_4743);
																										BgL_bufposz00_8644 =
																											BgL_bufposz00_4744;
																									BgL_zc3z04anonymousza35319ze3z87_8645:
																										{	/* Read/reader.scm 409 */
																											long
																												BgL_newzd2matchzd2_8646;
																											{	/* Read/reader.scm 409 */
																												obj_t BgL_tmpz00_27389;

																												BgL_tmpz00_27389 =
																													((obj_t)
																													BgL_iportz00_8641);
																												RGC_STOP_MATCH
																													(BgL_tmpz00_27389,
																													BgL_forwardz00_8643);
																											}
																											BgL_newzd2matchzd2_8646 =
																												7L;
																											if ((BgL_forwardz00_8643
																													==
																													BgL_bufposz00_8644))
																												{	/* Read/reader.scm 409 */
																													if (rgc_fill_buffer(
																															((obj_t)
																																BgL_iportz00_8641)))
																														{	/* Read/reader.scm 409 */
																															long
																																BgL_arg5322z00_8649;
																															long
																																BgL_arg5323z00_8650;
																															{	/* Read/reader.scm 409 */
																																obj_t
																																	BgL_tmpz00_27397;
																																BgL_tmpz00_27397
																																	=
																																	((obj_t)
																																	BgL_iportz00_8641);
																																BgL_arg5322z00_8649
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_tmpz00_27397);
																															}
																															{	/* Read/reader.scm 409 */
																																obj_t
																																	BgL_tmpz00_27400;
																																BgL_tmpz00_27400
																																	=
																																	((obj_t)
																																	BgL_iportz00_8641);
																																BgL_arg5323z00_8650
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_tmpz00_27400);
																															}
																															{
																																long
																																	BgL_bufposz00_27404;
																																long
																																	BgL_forwardz00_27403;
																																BgL_forwardz00_27403
																																	=
																																	BgL_arg5322z00_8649;
																																BgL_bufposz00_27404
																																	=
																																	BgL_arg5323z00_8650;
																																BgL_bufposz00_8644
																																	=
																																	BgL_bufposz00_27404;
																																BgL_forwardz00_8643
																																	=
																																	BgL_forwardz00_27403;
																																goto
																																	BgL_zc3z04anonymousza35319ze3z87_8645;
																															}
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															BgL_matchz00_9747
																																=
																																BgL_newzd2matchzd2_8646;
																														}
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													int BgL_curz00_8651;

																													{	/* Read/reader.scm 409 */
																														obj_t
																															BgL_tmpz00_27405;
																														BgL_tmpz00_27405 =
																															((obj_t)
																															BgL_iportz00_8641);
																														BgL_curz00_8651 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_tmpz00_27405,
																															BgL_forwardz00_8643);
																													}
																													{	/* Read/reader.scm 409 */

																														if (
																															((long)
																																(BgL_curz00_8651)
																																== 40L))
																															{	/* Read/reader.scm 409 */
																																long
																																	BgL_arg5325z00_8653;
																																BgL_arg5325z00_8653
																																	=
																																	(1L +
																																	BgL_forwardz00_8643);
																																{	/* Read/reader.scm 409 */
																																	long
																																		BgL_newzd2matchzd2_16066;
																																	{	/* Read/reader.scm 409 */
																																		obj_t
																																			BgL_tmpz00_27412;
																																		BgL_tmpz00_27412
																																			=
																																			((obj_t)
																																			BgL_iportz00_8641);
																																		RGC_STOP_MATCH
																																			(BgL_tmpz00_27412,
																																			BgL_arg5325z00_8653);
																																	}
																																	BgL_newzd2matchzd2_16066
																																		= 31L;
																																	BgL_matchz00_9747
																																		=
																																		BgL_newzd2matchzd2_16066;
																															}}
																														else
																															{	/* Read/reader.scm 409 */
																																bool_t
																																	BgL_test9058z00_27415;
																																if (((long)
																																		(BgL_curz00_8651)
																																		< 33L))
																																	{	/* Read/reader.scm 409 */
																																		BgL_test9058z00_27415
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 409 */
																																		bool_t
																																			BgL_test9060z00_27419;
																																		if (((long)
																																				(BgL_curz00_8651)
																																				== 35L))
																																			{	/* Read/reader.scm 409 */
																																				BgL_test9060z00_27419
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				BgL_test9060z00_27419
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_8651)
																																					==
																																					34L);
																																			}
																																		if (BgL_test9060z00_27419)
																																			{	/* Read/reader.scm 409 */
																																				BgL_test9058z00_27415
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				bool_t
																																					BgL_test9062z00_27425;
																																				if ((
																																						(long)
																																						(BgL_curz00_8651)
																																						==
																																						41L))
																																					{	/* Read/reader.scm 409 */
																																						BgL_test9062z00_27425
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						BgL_test9062z00_27425
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_8651)
																																							==
																																							40L);
																																					}
																																				if (BgL_test9062z00_27425)
																																					{	/* Read/reader.scm 409 */
																																						BgL_test9058z00_27415
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						if (
																																							((long) (BgL_curz00_8651) == 59L))
																																							{	/* Read/reader.scm 409 */
																																								BgL_test9058z00_27415
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								if (((long) (BgL_curz00_8651) == 91L))
																																									{	/* Read/reader.scm 409 */
																																										BgL_test9058z00_27415
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										if (((long) (BgL_curz00_8651) == 93L))
																																											{	/* Read/reader.scm 409 */
																																												BgL_test9058z00_27415
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												bool_t
																																													BgL_test9067z00_27440;
																																												if (((long) (BgL_curz00_8651) == 125L))
																																													{	/* Read/reader.scm 409 */
																																														BgL_test9067z00_27440
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														if (((long) (BgL_curz00_8651) == 124L))
																																															{	/* Read/reader.scm 409 */
																																																BgL_test9067z00_27440
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																BgL_test9067z00_27440
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_8651)
																																																	==
																																																	123L);
																																													}}
																																												if (BgL_test9067z00_27440)
																																													{	/* Read/reader.scm 409 */
																																														BgL_test9058z00_27415
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														BgL_test9058z00_27415
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_8651)
																																															==
																																															127L);
																																	}}}}}}}
																																if (BgL_test9058z00_27415)
																																	{	/* Read/reader.scm 409 */
																																		BgL_matchz00_9747
																																			=
																																			BgL_newzd2matchzd2_8646;
																																	}
																																else
																																	{
																																		long
																																			BgL_bufposz00_27455;
																																		long
																																			BgL_forwardz00_27453;
																																		long
																																			BgL_lastzd2matchzd2_27452;
																																		obj_t
																																			BgL_iportz00_27451;
																																		BgL_iportz00_27451
																																			=
																																			BgL_iportz00_8641;
																																		BgL_lastzd2matchzd2_27452
																																			=
																																			BgL_newzd2matchzd2_8646;
																																		BgL_forwardz00_27453
																																			=
																																			(1L +
																																			BgL_forwardz00_8643);
																																		BgL_bufposz00_27455
																																			=
																																			BgL_bufposz00_8644;
																																		BgL_bufposz00_4879
																																			=
																																			BgL_bufposz00_27455;
																																		BgL_forwardz00_4878
																																			=
																																			BgL_forwardz00_27453;
																																		BgL_lastzd2matchzd2_4877
																																			=
																																			BgL_lastzd2matchzd2_27452;
																																		BgL_iportz00_4876
																																			=
																																			BgL_iportz00_27451;
																																		goto
																																			BgL_zc3z04anonymousza33394ze3z87_4880;
																																	}
																															}
																													}
																												}
																										}
																										break;
																									case 125L:
																									case 124L:
																									case 123L:
																									case 93L:
																									case 91L:
																									case 59L:
																									case 41L:
																									case 35L:
																									case 34L:
																									case 32L:

																										{	/* Read/reader.scm 409 */
																											long BgL_arg3330z00_4758;

																											BgL_arg3330z00_4758 =
																												(1L +
																												BgL_forwardz00_4743);
																											{	/* Read/reader.scm 409 */
																												long
																													BgL_newzd2matchzd2_13633;
																												{	/* Read/reader.scm 409 */
																													obj_t
																														BgL_tmpz00_27458;
																													BgL_tmpz00_27458 =
																														((obj_t)
																														BgL_iportz00_4741);
																													RGC_STOP_MATCH
																														(BgL_tmpz00_27458,
																														BgL_arg3330z00_4758);
																												}
																												BgL_newzd2matchzd2_13633
																													= 7L;
																												BgL_matchz00_9747 =
																													BgL_newzd2matchzd2_13633;
																										}} break;
																									default:
																										BgL_matchz00_9747 =
																											BgL_lastzd2matchzd2_4742;
																									}
																							}
																						}
																				}
																			else
																				{	/* Read/reader.scm 409 */
																					bool_t BgL_test9070z00_27464;

																					if (((long) (BgL_curz00_4485) == 84L))
																						{	/* Read/reader.scm 409 */
																							BgL_test9070z00_27464 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Read/reader.scm 409 */
																							BgL_test9070z00_27464 =
																								(
																								(long) (BgL_curz00_4485) ==
																								116L);
																						}
																					if (BgL_test9070z00_27464)
																						{	/* Read/reader.scm 409 */
																							BgL_iportz00_8383 =
																								BgL_iportz00_4475;
																							BgL_lastzd2matchzd2_8384 =
																								BgL_newzd2matchzd2_4480;
																							BgL_forwardz00_8385 =
																								(1L + BgL_forwardz00_4477);
																							BgL_bufposz00_8386 =
																								BgL_bufposz00_4478;
																						BgL_zc3z04anonymousza35189ze3z87_8387:
																							{	/* Read/reader.scm 409 */
																								long BgL_newzd2matchzd2_8388;

																								{	/* Read/reader.scm 409 */
																									obj_t BgL_tmpz00_27470;

																									BgL_tmpz00_27470 =
																										((obj_t) BgL_iportz00_8383);
																									RGC_STOP_MATCH
																										(BgL_tmpz00_27470,
																										BgL_forwardz00_8385);
																								}
																								BgL_newzd2matchzd2_8388 = 18L;
																								if (
																									(BgL_forwardz00_8385 ==
																										BgL_bufposz00_8386))
																									{	/* Read/reader.scm 409 */
																										if (rgc_fill_buffer(
																												((obj_t)
																													BgL_iportz00_8383)))
																											{	/* Read/reader.scm 409 */
																												long
																													BgL_arg5192z00_8391;
																												long
																													BgL_arg5193z00_8392;
																												{	/* Read/reader.scm 409 */
																													obj_t
																														BgL_tmpz00_27478;
																													BgL_tmpz00_27478 =
																														((obj_t)
																														BgL_iportz00_8383);
																													BgL_arg5192z00_8391 =
																														RGC_BUFFER_FORWARD
																														(BgL_tmpz00_27478);
																												}
																												{	/* Read/reader.scm 409 */
																													obj_t
																														BgL_tmpz00_27481;
																													BgL_tmpz00_27481 =
																														((obj_t)
																														BgL_iportz00_8383);
																													BgL_arg5193z00_8392 =
																														RGC_BUFFER_BUFPOS
																														(BgL_tmpz00_27481);
																												}
																												{
																													long
																														BgL_bufposz00_27485;
																													long
																														BgL_forwardz00_27484;
																													BgL_forwardz00_27484 =
																														BgL_arg5192z00_8391;
																													BgL_bufposz00_27485 =
																														BgL_arg5193z00_8392;
																													BgL_bufposz00_8386 =
																														BgL_bufposz00_27485;
																													BgL_forwardz00_8385 =
																														BgL_forwardz00_27484;
																													goto
																														BgL_zc3z04anonymousza35189ze3z87_8387;
																												}
																											}
																										else
																											{	/* Read/reader.scm 409 */
																												BgL_matchz00_9747 =
																													BgL_newzd2matchzd2_8388;
																											}
																									}
																								else
																									{	/* Read/reader.scm 409 */
																										int BgL_curz00_8393;

																										{	/* Read/reader.scm 409 */
																											obj_t BgL_tmpz00_27486;

																											BgL_tmpz00_27486 =
																												((obj_t)
																												BgL_iportz00_8383);
																											BgL_curz00_8393 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_tmpz00_27486,
																												BgL_forwardz00_8385);
																										}
																										{	/* Read/reader.scm 409 */

																											if (
																												((long)
																													(BgL_curz00_8393) ==
																													40L))
																												{	/* Read/reader.scm 409 */
																													long
																														BgL_arg5195z00_8395;
																													BgL_arg5195z00_8395 =
																														(1L +
																														BgL_forwardz00_8385);
																													{	/* Read/reader.scm 409 */
																														long
																															BgL_newzd2matchzd2_15880;
																														{	/* Read/reader.scm 409 */
																															obj_t
																																BgL_tmpz00_27493;
																															BgL_tmpz00_27493 =
																																((obj_t)
																																BgL_iportz00_8383);
																															RGC_STOP_MATCH
																																(BgL_tmpz00_27493,
																																BgL_arg5195z00_8395);
																														}
																														BgL_newzd2matchzd2_15880
																															= 31L;
																														BgL_matchz00_9747 =
																															BgL_newzd2matchzd2_15880;
																												}}
																											else
																												{	/* Read/reader.scm 409 */
																													bool_t
																														BgL_test9075z00_27496;
																													if (((long)
																															(BgL_curz00_8393)
																															< 33L))
																														{	/* Read/reader.scm 409 */
																															BgL_test9075z00_27496
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															bool_t
																																BgL_test9077z00_27500;
																															if (((long)
																																	(BgL_curz00_8393)
																																	== 35L))
																																{	/* Read/reader.scm 409 */
																																	BgL_test9077z00_27500
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	BgL_test9077z00_27500
																																		=
																																		((long)
																																		(BgL_curz00_8393)
																																		== 34L);
																																}
																															if (BgL_test9077z00_27500)
																																{	/* Read/reader.scm 409 */
																																	BgL_test9075z00_27496
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	bool_t
																																		BgL_test9079z00_27506;
																																	if (((long)
																																			(BgL_curz00_8393)
																																			== 41L))
																																		{	/* Read/reader.scm 409 */
																																			BgL_test9079z00_27506
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			BgL_test9079z00_27506
																																				=
																																				((long)
																																				(BgL_curz00_8393)
																																				== 40L);
																																		}
																																	if (BgL_test9079z00_27506)
																																		{	/* Read/reader.scm 409 */
																																			BgL_test9075z00_27496
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			if (
																																				((long)
																																					(BgL_curz00_8393)
																																					==
																																					59L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test9075z00_27496
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					if (
																																						((long) (BgL_curz00_8393) == 91L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test9075z00_27496
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							if (((long) (BgL_curz00_8393) == 93L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test9075z00_27496
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									bool_t
																																										BgL_test9084z00_27521;
																																									if (((long) (BgL_curz00_8393) == 125L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test9084z00_27521
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											if (((long) (BgL_curz00_8393) == 124L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test9084z00_27521
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													BgL_test9084z00_27521
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_8393)
																																														==
																																														123L);
																																										}}
																																									if (BgL_test9084z00_27521)
																																										{	/* Read/reader.scm 409 */
																																											BgL_test9075z00_27496
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_test9075z00_27496
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_8393)
																																												==
																																												127L);
																														}}}}}}}
																													if (BgL_test9075z00_27496)
																														{	/* Read/reader.scm 409 */
																															BgL_matchz00_9747
																																=
																																BgL_newzd2matchzd2_8388;
																														}
																													else
																														{
																															long
																																BgL_bufposz00_27536;
																															long
																																BgL_forwardz00_27534;
																															long
																																BgL_lastzd2matchzd2_27533;
																															obj_t
																																BgL_iportz00_27532;
																															BgL_iportz00_27532
																																=
																																BgL_iportz00_8383;
																															BgL_lastzd2matchzd2_27533
																																=
																																BgL_newzd2matchzd2_8388;
																															BgL_forwardz00_27534
																																=
																																(1L +
																																BgL_forwardz00_8385);
																															BgL_bufposz00_27536
																																=
																																BgL_bufposz00_8386;
																															BgL_bufposz00_4879
																																=
																																BgL_bufposz00_27536;
																															BgL_forwardz00_4878
																																=
																																BgL_forwardz00_27534;
																															BgL_lastzd2matchzd2_4877
																																=
																																BgL_lastzd2matchzd2_27533;
																															BgL_iportz00_4876
																																=
																																BgL_iportz00_27532;
																															goto
																																BgL_zc3z04anonymousza33394ze3z87_4880;
																														}
																												}
																										}
																									}
																							}
																						}
																					else
																						{	/* Read/reader.scm 409 */
																							bool_t BgL_test9087z00_27538;

																							if (
																								((long) (BgL_curz00_4485) ==
																									70L))
																								{	/* Read/reader.scm 409 */
																									BgL_test9087z00_27538 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Read/reader.scm 409 */
																									BgL_test9087z00_27538 =
																										(
																										(long) (BgL_curz00_4485) ==
																										102L);
																								}
																							if (BgL_test9087z00_27538)
																								{	/* Read/reader.scm 409 */
																									BgL_iportz00_8342 =
																										BgL_iportz00_4475;
																									BgL_lastzd2matchzd2_8343 =
																										BgL_newzd2matchzd2_4480;
																									BgL_forwardz00_8344 =
																										(1L + BgL_forwardz00_4477);
																									BgL_bufposz00_8345 =
																										BgL_bufposz00_4478;
																								BgL_zc3z04anonymousza35169ze3z87_8346:
																									{	/* Read/reader.scm 409 */
																										long
																											BgL_newzd2matchzd2_8347;
																										{	/* Read/reader.scm 409 */
																											obj_t BgL_tmpz00_27544;

																											BgL_tmpz00_27544 =
																												((obj_t)
																												BgL_iportz00_8342);
																											RGC_STOP_MATCH
																												(BgL_tmpz00_27544,
																												BgL_forwardz00_8344);
																										}
																										BgL_newzd2matchzd2_8347 =
																											19L;
																										if ((BgL_forwardz00_8344 ==
																												BgL_bufposz00_8345))
																											{	/* Read/reader.scm 409 */
																												if (rgc_fill_buffer(
																														((obj_t)
																															BgL_iportz00_8342)))
																													{	/* Read/reader.scm 409 */
																														long
																															BgL_arg5172z00_8350;
																														long
																															BgL_arg5173z00_8351;
																														{	/* Read/reader.scm 409 */
																															obj_t
																																BgL_tmpz00_27552;
																															BgL_tmpz00_27552 =
																																((obj_t)
																																BgL_iportz00_8342);
																															BgL_arg5172z00_8350
																																=
																																RGC_BUFFER_FORWARD
																																(BgL_tmpz00_27552);
																														}
																														{	/* Read/reader.scm 409 */
																															obj_t
																																BgL_tmpz00_27555;
																															BgL_tmpz00_27555 =
																																((obj_t)
																																BgL_iportz00_8342);
																															BgL_arg5173z00_8351
																																=
																																RGC_BUFFER_BUFPOS
																																(BgL_tmpz00_27555);
																														}
																														{
																															long
																																BgL_bufposz00_27559;
																															long
																																BgL_forwardz00_27558;
																															BgL_forwardz00_27558
																																=
																																BgL_arg5172z00_8350;
																															BgL_bufposz00_27559
																																=
																																BgL_arg5173z00_8351;
																															BgL_bufposz00_8345
																																=
																																BgL_bufposz00_27559;
																															BgL_forwardz00_8344
																																=
																																BgL_forwardz00_27558;
																															goto
																																BgL_zc3z04anonymousza35169ze3z87_8346;
																														}
																													}
																												else
																													{	/* Read/reader.scm 409 */
																														BgL_matchz00_9747 =
																															BgL_newzd2matchzd2_8347;
																													}
																											}
																										else
																											{	/* Read/reader.scm 409 */
																												int BgL_curz00_8352;

																												{	/* Read/reader.scm 409 */
																													obj_t
																														BgL_tmpz00_27560;
																													BgL_tmpz00_27560 =
																														((obj_t)
																														BgL_iportz00_8342);
																													BgL_curz00_8352 =
																														RGC_BUFFER_GET_CHAR
																														(BgL_tmpz00_27560,
																														BgL_forwardz00_8344);
																												}
																												{	/* Read/reader.scm 409 */

																													if (
																														((long)
																															(BgL_curz00_8352)
																															== 40L))
																														{	/* Read/reader.scm 409 */
																															long
																																BgL_arg5175z00_8354;
																															BgL_arg5175z00_8354
																																=
																																(1L +
																																BgL_forwardz00_8344);
																															{	/* Read/reader.scm 409 */
																																long
																																	BgL_newzd2matchzd2_15853;
																																{	/* Read/reader.scm 409 */
																																	obj_t
																																		BgL_tmpz00_27567;
																																	BgL_tmpz00_27567
																																		=
																																		((obj_t)
																																		BgL_iportz00_8342);
																																	RGC_STOP_MATCH
																																		(BgL_tmpz00_27567,
																																		BgL_arg5175z00_8354);
																																}
																																BgL_newzd2matchzd2_15853
																																	= 31L;
																																BgL_matchz00_9747
																																	=
																																	BgL_newzd2matchzd2_15853;
																														}}
																													else
																														{	/* Read/reader.scm 409 */
																															bool_t
																																BgL_test9092z00_27570;
																															if (((long)
																																	(BgL_curz00_8352)
																																	< 33L))
																																{	/* Read/reader.scm 409 */
																																	BgL_test9092z00_27570
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	bool_t
																																		BgL_test9094z00_27574;
																																	if (((long)
																																			(BgL_curz00_8352)
																																			== 35L))
																																		{	/* Read/reader.scm 409 */
																																			BgL_test9094z00_27574
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			BgL_test9094z00_27574
																																				=
																																				((long)
																																				(BgL_curz00_8352)
																																				== 34L);
																																		}
																																	if (BgL_test9094z00_27574)
																																		{	/* Read/reader.scm 409 */
																																			BgL_test9092z00_27570
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			bool_t
																																				BgL_test9096z00_27580;
																																			if ((
																																					(long)
																																					(BgL_curz00_8352)
																																					==
																																					41L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test9096z00_27580
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					BgL_test9096z00_27580
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_8352)
																																						==
																																						40L);
																																				}
																																			if (BgL_test9096z00_27580)
																																				{	/* Read/reader.scm 409 */
																																					BgL_test9092z00_27570
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					if (
																																						((long) (BgL_curz00_8352) == 59L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test9092z00_27570
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							if (((long) (BgL_curz00_8352) == 91L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test9092z00_27570
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_8352) == 93L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test9092z00_27570
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											bool_t
																																												BgL_test9101z00_27595;
																																											if (((long) (BgL_curz00_8352) == 125L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test9101z00_27595
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													if (((long) (BgL_curz00_8352) == 124L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test9101z00_27595
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															BgL_test9101z00_27595
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_8352)
																																																==
																																																123L);
																																												}}
																																											if (BgL_test9101z00_27595)
																																												{	/* Read/reader.scm 409 */
																																													BgL_test9092z00_27570
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													BgL_test9092z00_27570
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_8352)
																																														==
																																														127L);
																																}}}}}}}
																															if (BgL_test9092z00_27570)
																																{	/* Read/reader.scm 409 */
																																	BgL_matchz00_9747
																																		=
																																		BgL_newzd2matchzd2_8347;
																																}
																															else
																																{
																																	long
																																		BgL_bufposz00_27610;
																																	long
																																		BgL_forwardz00_27608;
																																	long
																																		BgL_lastzd2matchzd2_27607;
																																	obj_t
																																		BgL_iportz00_27606;
																																	BgL_iportz00_27606
																																		=
																																		BgL_iportz00_8342;
																																	BgL_lastzd2matchzd2_27607
																																		=
																																		BgL_newzd2matchzd2_8347;
																																	BgL_forwardz00_27608
																																		=
																																		(1L +
																																		BgL_forwardz00_8344);
																																	BgL_bufposz00_27610
																																		=
																																		BgL_bufposz00_8345;
																																	BgL_bufposz00_4879
																																		=
																																		BgL_bufposz00_27610;
																																	BgL_forwardz00_4878
																																		=
																																		BgL_forwardz00_27608;
																																	BgL_lastzd2matchzd2_4877
																																		=
																																		BgL_lastzd2matchzd2_27607;
																																	BgL_iportz00_4876
																																		=
																																		BgL_iportz00_27606;
																																	goto
																																		BgL_zc3z04anonymousza33394ze3z87_4880;
																																}
																														}
																												}
																											}
																									}
																								}
																							else
																								{	/* Read/reader.scm 409 */
																									if (
																										((long) (BgL_curz00_4485) ==
																											59L))
																										{	/* Read/reader.scm 409 */
																											long BgL_arg3168z00_4499;

																											BgL_arg3168z00_4499 =
																												(1L +
																												BgL_forwardz00_4477);
																											{	/* Read/reader.scm 409 */
																												long
																													BgL_newzd2matchzd2_13453;
																												{	/* Read/reader.scm 409 */
																													obj_t
																														BgL_tmpz00_27616;
																													BgL_tmpz00_27616 =
																														((obj_t)
																														BgL_iportz00_4475);
																													RGC_STOP_MATCH
																														(BgL_tmpz00_27616,
																														BgL_arg3168z00_4499);
																												}
																												BgL_newzd2matchzd2_13453
																													= 4L;
																												BgL_matchz00_9747 =
																													BgL_newzd2matchzd2_13453;
																										}}
																									else
																										{	/* Read/reader.scm 409 */
																											bool_t
																												BgL_test9105z00_27619;
																											if (((long)
																													(BgL_curz00_4485) >=
																													48L))
																												{	/* Read/reader.scm 409 */
																													BgL_test9105z00_27619
																														=
																														((long)
																														(BgL_curz00_4485) <
																														58L);
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													BgL_test9105z00_27619
																														= ((bool_t) 0);
																												}
																											if (BgL_test9105z00_27619)
																												{	/* Read/reader.scm 409 */
																													BgL_iportz00_8935 =
																														BgL_iportz00_4475;
																													BgL_lastzd2matchzd2_8936
																														=
																														BgL_newzd2matchzd2_4480;
																													BgL_forwardz00_8937 =
																														(1L +
																														BgL_forwardz00_4477);
																													BgL_bufposz00_8938 =
																														BgL_bufposz00_4478;
																												BgL_zc3z04anonymousza35464ze3z87_8939:
																													if (
																														(BgL_forwardz00_8937
																															==
																															BgL_bufposz00_8938))
																														{	/* Read/reader.scm 409 */
																															if (rgc_fill_buffer(((obj_t) BgL_iportz00_8935)))
																																{	/* Read/reader.scm 409 */
																																	long
																																		BgL_arg5467z00_8942;
																																	long
																																		BgL_arg5468z00_8943;
																																	{	/* Read/reader.scm 409 */
																																		obj_t
																																			BgL_tmpz00_27630;
																																		BgL_tmpz00_27630
																																			=
																																			((obj_t)
																																			BgL_iportz00_8935);
																																		BgL_arg5467z00_8942
																																			=
																																			RGC_BUFFER_FORWARD
																																			(BgL_tmpz00_27630);
																																	}
																																	{	/* Read/reader.scm 409 */
																																		obj_t
																																			BgL_tmpz00_27633;
																																		BgL_tmpz00_27633
																																			=
																																			((obj_t)
																																			BgL_iportz00_8935);
																																		BgL_arg5468z00_8943
																																			=
																																			RGC_BUFFER_BUFPOS
																																			(BgL_tmpz00_27633);
																																	}
																																	{
																																		long
																																			BgL_bufposz00_27637;
																																		long
																																			BgL_forwardz00_27636;
																																		BgL_forwardz00_27636
																																			=
																																			BgL_arg5467z00_8942;
																																		BgL_bufposz00_27637
																																			=
																																			BgL_arg5468z00_8943;
																																		BgL_bufposz00_8938
																																			=
																																			BgL_bufposz00_27637;
																																		BgL_forwardz00_8937
																																			=
																																			BgL_forwardz00_27636;
																																		goto
																																			BgL_zc3z04anonymousza35464ze3z87_8939;
																																	}
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	BgL_matchz00_9747
																																		=
																																		BgL_lastzd2matchzd2_8936;
																																}
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															int
																																BgL_curz00_8944;
																															{	/* Read/reader.scm 409 */
																																obj_t
																																	BgL_tmpz00_27638;
																																BgL_tmpz00_27638
																																	=
																																	((obj_t)
																																	BgL_iportz00_8935);
																																BgL_curz00_8944
																																	=
																																	RGC_BUFFER_GET_CHAR
																																	(BgL_tmpz00_27638,
																																	BgL_forwardz00_8937);
																															}
																															{	/* Read/reader.scm 409 */

																																if (
																																	((long)
																																		(BgL_curz00_8944)
																																		== 61L))
																																	{	/* Read/reader.scm 409 */
																																		long
																																			BgL_arg5470z00_8946;
																																		BgL_arg5470z00_8946
																																			=
																																			(1L +
																																			BgL_forwardz00_8937);
																																		{	/* Read/reader.scm 409 */
																																			long
																																				BgL_newzd2matchzd2_16236;
																																			{	/* Read/reader.scm 409 */
																																				obj_t
																																					BgL_tmpz00_27645;
																																				BgL_tmpz00_27645
																																					=
																																					(
																																					(obj_t)
																																					BgL_iportz00_8935);
																																				RGC_STOP_MATCH
																																					(BgL_tmpz00_27645,
																																					BgL_arg5470z00_8946);
																																			}
																																			BgL_newzd2matchzd2_16236
																																				= 35L;
																																			BgL_matchz00_9747
																																				=
																																				BgL_newzd2matchzd2_16236;
																																	}}
																																else
																																	{	/* Read/reader.scm 409 */
																																		bool_t
																																			BgL_test9110z00_27648;
																																		if (((long)
																																				(BgL_curz00_8944)
																																				>= 48L))
																																			{	/* Read/reader.scm 409 */
																																				BgL_test9110z00_27648
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_8944)
																																					<
																																					58L);
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				BgL_test9110z00_27648
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																		if (BgL_test9110z00_27648)
																																			{	/* Read/reader.scm 409 */
																																				BgL_iportz00_8953
																																					=
																																					BgL_iportz00_8935;
																																				BgL_lastzd2matchzd2_8954
																																					=
																																					BgL_lastzd2matchzd2_8936;
																																				BgL_forwardz00_8955
																																					=
																																					(1L +
																																					BgL_forwardz00_8937);
																																				BgL_bufposz00_8956
																																					=
																																					BgL_bufposz00_8938;
																																			BgL_zc3z04anonymousza35476ze3z87_8957:
																																				if (
																																					(BgL_forwardz00_8955
																																						==
																																						BgL_bufposz00_8956))
																																					{	/* Read/reader.scm 409 */
																																						if (rgc_fill_buffer(((obj_t) BgL_iportz00_8953)))
																																							{	/* Read/reader.scm 409 */
																																								long
																																									BgL_arg5479z00_8960;
																																								long
																																									BgL_arg5480z00_8961;
																																								{	/* Read/reader.scm 409 */
																																									obj_t
																																										BgL_tmpz00_27659;
																																									BgL_tmpz00_27659
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_8953);
																																									BgL_arg5479z00_8960
																																										=
																																										RGC_BUFFER_FORWARD
																																										(BgL_tmpz00_27659);
																																								}
																																								{	/* Read/reader.scm 409 */
																																									obj_t
																																										BgL_tmpz00_27662;
																																									BgL_tmpz00_27662
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_8953);
																																									BgL_arg5480z00_8961
																																										=
																																										RGC_BUFFER_BUFPOS
																																										(BgL_tmpz00_27662);
																																								}
																																								{
																																									long
																																										BgL_bufposz00_27666;
																																									long
																																										BgL_forwardz00_27665;
																																									BgL_forwardz00_27665
																																										=
																																										BgL_arg5479z00_8960;
																																									BgL_bufposz00_27666
																																										=
																																										BgL_arg5480z00_8961;
																																									BgL_bufposz00_8956
																																										=
																																										BgL_bufposz00_27666;
																																									BgL_forwardz00_8955
																																										=
																																										BgL_forwardz00_27665;
																																									goto
																																										BgL_zc3z04anonymousza35476ze3z87_8957;
																																								}
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								BgL_matchz00_9747
																																									=
																																									BgL_lastzd2matchzd2_8954;
																																							}
																																					}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						int
																																							BgL_curz00_8962;
																																						{	/* Read/reader.scm 409 */
																																							obj_t
																																								BgL_tmpz00_27667;
																																							BgL_tmpz00_27667
																																								=
																																								(
																																								(obj_t)
																																								BgL_iportz00_8953);
																																							BgL_curz00_8962
																																								=
																																								RGC_BUFFER_GET_CHAR
																																								(BgL_tmpz00_27667,
																																								BgL_forwardz00_8955);
																																						}
																																						{	/* Read/reader.scm 409 */

																																							if (((long) (BgL_curz00_8962) == 61L))
																																								{	/* Read/reader.scm 409 */
																																									long
																																										BgL_arg5482z00_8964;
																																									BgL_arg5482z00_8964
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_8955);
																																									{	/* Read/reader.scm 409 */
																																										long
																																											BgL_newzd2matchzd2_16256;
																																										{	/* Read/reader.scm 409 */
																																											obj_t
																																												BgL_tmpz00_27674;
																																											BgL_tmpz00_27674
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_8953);
																																											RGC_STOP_MATCH
																																												(BgL_tmpz00_27674,
																																												BgL_arg5482z00_8964);
																																										}
																																										BgL_newzd2matchzd2_16256
																																											=
																																											35L;
																																										BgL_matchz00_9747
																																											=
																																											BgL_newzd2matchzd2_16256;
																																								}}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									bool_t
																																										BgL_test9115z00_27677;
																																									if (((long) (BgL_curz00_8962) >= 48L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test9115z00_27677
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_8962)
																																												<
																																												58L);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_test9115z00_27677
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																									if (BgL_test9115z00_27677)
																																										{	/* Read/reader.scm 409 */
																																											BgL_iportz00_4703
																																												=
																																												BgL_iportz00_8953;
																																											BgL_lastzd2matchzd2_4704
																																												=
																																												BgL_lastzd2matchzd2_8954;
																																											BgL_forwardz00_4705
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_8955);
																																											BgL_bufposz00_4706
																																												=
																																												BgL_bufposz00_8956;
																																										BgL_zc3z04anonymousza33287ze3z87_4707:
																																											if ((BgL_forwardz00_4705 == BgL_bufposz00_4706))
																																												{	/* Read/reader.scm 409 */
																																													if (rgc_fill_buffer(((obj_t) BgL_iportz00_4703)))
																																														{	/* Read/reader.scm 409 */
																																															long
																																																BgL_arg3290z00_4710;
																																															long
																																																BgL_arg3291z00_4711;
																																															{	/* Read/reader.scm 409 */
																																																obj_t
																																																	BgL_tmpz00_27688;
																																																BgL_tmpz00_27688
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_4703);
																																																BgL_arg3290z00_4710
																																																	=
																																																	RGC_BUFFER_FORWARD
																																																	(BgL_tmpz00_27688);
																																															}
																																															{	/* Read/reader.scm 409 */
																																																obj_t
																																																	BgL_tmpz00_27691;
																																																BgL_tmpz00_27691
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_4703);
																																																BgL_arg3291z00_4711
																																																	=
																																																	RGC_BUFFER_BUFPOS
																																																	(BgL_tmpz00_27691);
																																															}
																																															{
																																																long
																																																	BgL_bufposz00_27695;
																																																long
																																																	BgL_forwardz00_27694;
																																																BgL_forwardz00_27694
																																																	=
																																																	BgL_arg3290z00_4710;
																																																BgL_bufposz00_27695
																																																	=
																																																	BgL_arg3291z00_4711;
																																																BgL_bufposz00_4706
																																																	=
																																																	BgL_bufposz00_27695;
																																																BgL_forwardz00_4705
																																																	=
																																																	BgL_forwardz00_27694;
																																																goto
																																																	BgL_zc3z04anonymousza33287ze3z87_4707;
																																															}
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															BgL_matchz00_9747
																																																=
																																																BgL_lastzd2matchzd2_4704;
																																														}
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													int
																																														BgL_curz00_4712;
																																													{	/* Read/reader.scm 409 */
																																														obj_t
																																															BgL_tmpz00_27696;
																																														BgL_tmpz00_27696
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_4703);
																																														BgL_curz00_4712
																																															=
																																															RGC_BUFFER_GET_CHAR
																																															(BgL_tmpz00_27696,
																																															BgL_forwardz00_4705);
																																													}
																																													{	/* Read/reader.scm 409 */

																																														if (((long) (BgL_curz00_4712) == 61L))
																																															{	/* Read/reader.scm 409 */
																																																long
																																																	BgL_arg3294z00_4714;
																																																BgL_arg3294z00_4714
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_4705);
																																																{	/* Read/reader.scm 409 */
																																																	long
																																																		BgL_newzd2matchzd2_13581;
																																																	{	/* Read/reader.scm 409 */
																																																		obj_t
																																																			BgL_tmpz00_27703;
																																																		BgL_tmpz00_27703
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_4703);
																																																		RGC_STOP_MATCH
																																																			(BgL_tmpz00_27703,
																																																			BgL_arg3294z00_4714);
																																																	}
																																																	BgL_newzd2matchzd2_13581
																																																		=
																																																		35L;
																																																	BgL_matchz00_9747
																																																		=
																																																		BgL_newzd2matchzd2_13581;
																																															}}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																bool_t
																																																	BgL_test9120z00_27706;
																																																if (((long) (BgL_curz00_4712) >= 48L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test9120z00_27706
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_4712)
																																																			<
																																																			58L);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test9120z00_27706
																																																			=
																																																			(
																																																			(bool_t)
																																																			0);
																																																	}
																																																if (BgL_test9120z00_27706)
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_iportz00_4723
																																																			=
																																																			BgL_iportz00_4703;
																																																		BgL_lastzd2matchzd2_4724
																																																			=
																																																			BgL_lastzd2matchzd2_4704;
																																																		BgL_forwardz00_4725
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_4705);
																																																		BgL_bufposz00_4726
																																																			=
																																																			BgL_bufposz00_4706;
																																																	BgL_zc3z04anonymousza33302ze3z87_4727:
																																																		if ((BgL_forwardz00_4725 == BgL_bufposz00_4726))
																																																			{	/* Read/reader.scm 409 */
																																																				if (rgc_fill_buffer(((obj_t) BgL_iportz00_4723)))
																																																					{	/* Read/reader.scm 409 */
																																																						long
																																																							BgL_arg3306z00_4730;
																																																						long
																																																							BgL_arg3307z00_4731;
																																																						{	/* Read/reader.scm 409 */
																																																							obj_t
																																																								BgL_tmpz00_27717;
																																																							BgL_tmpz00_27717
																																																								=
																																																								(
																																																								(obj_t)
																																																								BgL_iportz00_4723);
																																																							BgL_arg3306z00_4730
																																																								=
																																																								RGC_BUFFER_FORWARD
																																																								(BgL_tmpz00_27717);
																																																						}
																																																						{	/* Read/reader.scm 409 */
																																																							obj_t
																																																								BgL_tmpz00_27720;
																																																							BgL_tmpz00_27720
																																																								=
																																																								(
																																																								(obj_t)
																																																								BgL_iportz00_4723);
																																																							BgL_arg3307z00_4731
																																																								=
																																																								RGC_BUFFER_BUFPOS
																																																								(BgL_tmpz00_27720);
																																																						}
																																																						{
																																																							long
																																																								BgL_bufposz00_27724;
																																																							long
																																																								BgL_forwardz00_27723;
																																																							BgL_forwardz00_27723
																																																								=
																																																								BgL_arg3306z00_4730;
																																																							BgL_bufposz00_27724
																																																								=
																																																								BgL_arg3307z00_4731;
																																																							BgL_bufposz00_4726
																																																								=
																																																								BgL_bufposz00_27724;
																																																							BgL_forwardz00_4725
																																																								=
																																																								BgL_forwardz00_27723;
																																																							goto
																																																								BgL_zc3z04anonymousza33302ze3z87_4727;
																																																						}
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_matchz00_9747
																																																							=
																																																							BgL_lastzd2matchzd2_4724;
																																																					}
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				int
																																																					BgL_curz00_4732;
																																																				{	/* Read/reader.scm 409 */
																																																					obj_t
																																																						BgL_tmpz00_27725;
																																																					BgL_tmpz00_27725
																																																						=
																																																						(
																																																						(obj_t)
																																																						BgL_iportz00_4723);
																																																					BgL_curz00_4732
																																																						=
																																																						RGC_BUFFER_GET_CHAR
																																																						(BgL_tmpz00_27725,
																																																						BgL_forwardz00_4725);
																																																				}
																																																				{	/* Read/reader.scm 409 */

																																																					if (((long) (BgL_curz00_4732) == 61L))
																																																						{	/* Read/reader.scm 409 */
																																																							long
																																																								BgL_arg3309z00_4734;
																																																							BgL_arg3309z00_4734
																																																								=
																																																								(1L
																																																								+
																																																								BgL_forwardz00_4725);
																																																							{	/* Read/reader.scm 409 */
																																																								long
																																																									BgL_newzd2matchzd2_13606;
																																																								{	/* Read/reader.scm 409 */
																																																									obj_t
																																																										BgL_tmpz00_27732;
																																																									BgL_tmpz00_27732
																																																										=
																																																										(
																																																										(obj_t)
																																																										BgL_iportz00_4723);
																																																									RGC_STOP_MATCH
																																																										(BgL_tmpz00_27732,
																																																										BgL_arg3309z00_4734);
																																																								}
																																																								BgL_newzd2matchzd2_13606
																																																									=
																																																									35L;
																																																								BgL_matchz00_9747
																																																									=
																																																									BgL_newzd2matchzd2_13606;
																																																						}}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							bool_t
																																																								BgL_test9125z00_27735;
																																																							if (((long) (BgL_curz00_4732) >= 48L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test9125z00_27735
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_4732)
																																																										<
																																																										58L);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test9125z00_27735
																																																										=
																																																										(
																																																										(bool_t)
																																																										0);
																																																								}
																																																							if (BgL_test9125z00_27735)
																																																								{
																																																									long
																																																										BgL_forwardz00_27741;
																																																									BgL_forwardz00_27741
																																																										=
																																																										(1L
																																																										+
																																																										BgL_forwardz00_4725);
																																																									BgL_forwardz00_4725
																																																										=
																																																										BgL_forwardz00_27741;
																																																									goto
																																																										BgL_zc3z04anonymousza33302ze3z87_4727;
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									if (((long) (BgL_curz00_4732) == 35L))
																																																										{	/* Read/reader.scm 409 */
																																																											long
																																																												BgL_arg3315z00_4739;
																																																											BgL_arg3315z00_4739
																																																												=
																																																												(1L
																																																												+
																																																												BgL_forwardz00_4725);
																																																											{	/* Read/reader.scm 409 */
																																																												long
																																																													BgL_newzd2matchzd2_13614;
																																																												{	/* Read/reader.scm 409 */
																																																													obj_t
																																																														BgL_tmpz00_27747;
																																																													BgL_tmpz00_27747
																																																														=
																																																														(
																																																														(obj_t)
																																																														BgL_iportz00_4723);
																																																													RGC_STOP_MATCH
																																																														(BgL_tmpz00_27747,
																																																														BgL_arg3315z00_4739);
																																																												}
																																																												BgL_newzd2matchzd2_13614
																																																													=
																																																													36L;
																																																												BgL_matchz00_9747
																																																													=
																																																													BgL_newzd2matchzd2_13614;
																																																										}}
																																																									else
																																																										{	/* Read/reader.scm 409 */
																																																											BgL_matchz00_9747
																																																												=
																																																												BgL_lastzd2matchzd2_4724;
																																																										}
																																																								}
																																																						}
																																																				}
																																																			}
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		if (((long) (BgL_curz00_4712) == 40L))
																																																			{	/* Read/reader.scm 409 */
																																																				long
																																																					BgL_arg3299z00_4719;
																																																				BgL_arg3299z00_4719
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_4705);
																																																				{	/* Read/reader.scm 409 */
																																																					long
																																																						BgL_newzd2matchzd2_13589;
																																																					{	/* Read/reader.scm 409 */
																																																						obj_t
																																																							BgL_tmpz00_27755;
																																																						BgL_tmpz00_27755
																																																							=
																																																							(
																																																							(obj_t)
																																																							BgL_iportz00_4703);
																																																						RGC_STOP_MATCH
																																																							(BgL_tmpz00_27755,
																																																							BgL_arg3299z00_4719);
																																																					}
																																																					BgL_newzd2matchzd2_13589
																																																						=
																																																						32L;
																																																					BgL_matchz00_9747
																																																						=
																																																						BgL_newzd2matchzd2_13589;
																																																			}}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				if (((long) (BgL_curz00_4712) == 35L))
																																																					{	/* Read/reader.scm 409 */
																																																						long
																																																							BgL_arg3301z00_4721;
																																																						BgL_arg3301z00_4721
																																																							=
																																																							(1L
																																																							+
																																																							BgL_forwardz00_4705);
																																																						{	/* Read/reader.scm 409 */
																																																							long
																																																								BgL_newzd2matchzd2_13594;
																																																							{	/* Read/reader.scm 409 */
																																																								obj_t
																																																									BgL_tmpz00_27762;
																																																								BgL_tmpz00_27762
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_4703);
																																																								RGC_STOP_MATCH
																																																									(BgL_tmpz00_27762,
																																																									BgL_arg3301z00_4721);
																																																							}
																																																							BgL_newzd2matchzd2_13594
																																																								=
																																																								36L;
																																																							BgL_matchz00_9747
																																																								=
																																																								BgL_newzd2matchzd2_13594;
																																																					}}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_matchz00_9747
																																																							=
																																																							BgL_lastzd2matchzd2_4704;
																																																					}
																																																			}
																																																	}
																																															}
																																													}
																																												}
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											if (((long) (BgL_curz00_8962) == 35L))
																																												{	/* Read/reader.scm 409 */
																																													long
																																														BgL_arg5487z00_8969;
																																													BgL_arg5487z00_8969
																																														=
																																														(1L
																																														+
																																														BgL_forwardz00_8955);
																																													{	/* Read/reader.scm 409 */
																																														long
																																															BgL_newzd2matchzd2_16264;
																																														{	/* Read/reader.scm 409 */
																																															obj_t
																																																BgL_tmpz00_27770;
																																															BgL_tmpz00_27770
																																																=
																																																(
																																																(obj_t)
																																																BgL_iportz00_8953);
																																															RGC_STOP_MATCH
																																																(BgL_tmpz00_27770,
																																																BgL_arg5487z00_8969);
																																														}
																																														BgL_newzd2matchzd2_16264
																																															=
																																															36L;
																																														BgL_matchz00_9747
																																															=
																																															BgL_newzd2matchzd2_16264;
																																												}}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													BgL_matchz00_9747
																																														=
																																														BgL_lastzd2matchzd2_8954;
																																												}
																																										}
																																								}
																																						}
																																					}
																																			}
																																		else
																																			{	/* Read/reader.scm 409 */
																																				if (
																																					((long) (BgL_curz00_8944) == 35L))
																																					{	/* Read/reader.scm 409 */
																																						long
																																							BgL_arg5475z00_8951;
																																						BgL_arg5475z00_8951
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_8937);
																																						{	/* Read/reader.scm 409 */
																																							long
																																								BgL_newzd2matchzd2_16244;
																																							{	/* Read/reader.scm 409 */
																																								obj_t
																																									BgL_tmpz00_27778;
																																								BgL_tmpz00_27778
																																									=
																																									(
																																									(obj_t)
																																									BgL_iportz00_8935);
																																								RGC_STOP_MATCH
																																									(BgL_tmpz00_27778,
																																									BgL_arg5475z00_8951);
																																							}
																																							BgL_newzd2matchzd2_16244
																																								=
																																								36L;
																																							BgL_matchz00_9747
																																								=
																																								BgL_newzd2matchzd2_16244;
																																					}}
																																				else
																																					{	/* Read/reader.scm 409 */
																																						BgL_matchz00_9747
																																							=
																																							BgL_lastzd2matchzd2_8936;
																																					}
																																			}
																																	}
																															}
																														}
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													if (
																														((long)
																															(BgL_curz00_4485)
																															== 40L))
																														{	/* Read/reader.scm 409 */
																															long
																																BgL_arg3173z00_4504;
																															BgL_arg3173z00_4504
																																=
																																(1L +
																																BgL_forwardz00_4477);
																															{	/* Read/reader.scm 409 */
																																long
																																	BgL_newzd2matchzd2_13461;
																																{	/* Read/reader.scm 409 */
																																	obj_t
																																		BgL_tmpz00_27786;
																																	BgL_tmpz00_27786
																																		=
																																		((obj_t)
																																		BgL_iportz00_4475);
																																	RGC_STOP_MATCH
																																		(BgL_tmpz00_27786,
																																		BgL_arg3173z00_4504);
																																}
																																BgL_newzd2matchzd2_13461
																																	= 30L;
																																BgL_matchz00_9747
																																	=
																																	BgL_newzd2matchzd2_13461;
																														}}
																													else
																														{	/* Read/reader.scm 409 */
																															bool_t
																																BgL_test9133z00_27789;
																															if (((long)
																																	(BgL_curz00_4485)
																																	< 36L))
																																{	/* Read/reader.scm 409 */
																																	BgL_test9133z00_27789
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	bool_t
																																		BgL_test9135z00_27793;
																																	if (((long)
																																			(BgL_curz00_4485)
																																			== 41L))
																																		{	/* Read/reader.scm 409 */
																																			BgL_test9135z00_27793
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			if (
																																				((long)
																																					(BgL_curz00_4485)
																																					==
																																					40L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test9135z00_27793
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					BgL_test9135z00_27793
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_4485)
																																						==
																																						39L);
																																		}}
																																	if (BgL_test9135z00_27793)
																																		{	/* Read/reader.scm 409 */
																																			BgL_test9133z00_27789
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			if (
																																				((long)
																																					(BgL_curz00_4485)
																																					==
																																					44L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test9133z00_27789
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					bool_t
																																						BgL_test9139z00_27805;
																																					if ((
																																							(long)
																																							(BgL_curz00_4485)
																																							>=
																																							48L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test9139z00_27805
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_4485)
																																								<
																																								58L);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							BgL_test9139z00_27805
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																					if (BgL_test9139z00_27805)
																																						{	/* Read/reader.scm 409 */
																																							BgL_test9133z00_27789
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							if (((long) (BgL_curz00_4485) == 59L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test9133z00_27789
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_4485) == 70L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test9133z00_27789
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											if (((long) (BgL_curz00_4485) == 84L))
																																												{	/* Read/reader.scm 409 */
																																													BgL_test9133z00_27789
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													bool_t
																																														BgL_test9144z00_27820;
																																													if (((long) (BgL_curz00_4485) == 93L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test9144z00_27820
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_4485) == 92L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test9144z00_27820
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test9144z00_27820
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_4485)
																																																		==
																																																		91L);
																																														}}
																																													if (BgL_test9144z00_27820)
																																														{	/* Read/reader.scm 409 */
																																															BgL_test9133z00_27789
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															if (((long) (BgL_curz00_4485) == 96L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test9133z00_27789
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	if (((long) (BgL_curz00_4485) == 102L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test9133z00_27789
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			if (((long) (BgL_curz00_4485) == 116L))
																																																				{	/* Read/reader.scm 409 */
																																																					BgL_test9133z00_27789
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 409 */
																																																					bool_t
																																																						BgL_test9150z00_27838;
																																																					if (((long) (BgL_curz00_4485) == 125L))
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test9150z00_27838
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							if (((long) (BgL_curz00_4485) == 124L))
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test9150z00_27838
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_test9150z00_27838
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_4485)
																																																										==
																																																										123L);
																																																						}}
																																																					if (BgL_test9150z00_27838)
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test9133z00_27789
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_test9133z00_27789
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_4485)
																																																								==
																																																								127L);
																																}}}}}}}}}}}}
																															if (BgL_test9133z00_27789)
																																{	/* Read/reader.scm 409 */
																																	if (
																																		((long)
																																			(BgL_curz00_4485)
																																			== 33L))
																																		{	/* Read/reader.scm 409 */
																																			BgL_iportz00_4916
																																				=
																																				BgL_iportz00_4475;
																																			BgL_lastzd2matchzd2_4917
																																				=
																																				BgL_newzd2matchzd2_4480;
																																			BgL_forwardz00_4918
																																				=
																																				(1L +
																																				BgL_forwardz00_4477);
																																			BgL_bufposz00_4919
																																				=
																																				BgL_bufposz00_4478;
																																		BgL_zc3z04anonymousza33414ze3z87_4920:
																																			if (
																																				(BgL_forwardz00_4918
																																					==
																																					BgL_bufposz00_4919))
																																				{	/* Read/reader.scm 409 */
																																					if (rgc_fill_buffer(((obj_t) BgL_iportz00_4916)))
																																						{	/* Read/reader.scm 409 */
																																							long
																																								BgL_arg3417z00_4923;
																																							long
																																								BgL_arg3418z00_4924;
																																							{	/* Read/reader.scm 409 */
																																								obj_t
																																									BgL_tmpz00_27857;
																																								BgL_tmpz00_27857
																																									=
																																									(
																																									(obj_t)
																																									BgL_iportz00_4916);
																																								BgL_arg3417z00_4923
																																									=
																																									RGC_BUFFER_FORWARD
																																									(BgL_tmpz00_27857);
																																							}
																																							{	/* Read/reader.scm 409 */
																																								obj_t
																																									BgL_tmpz00_27860;
																																								BgL_tmpz00_27860
																																									=
																																									(
																																									(obj_t)
																																									BgL_iportz00_4916);
																																								BgL_arg3418z00_4924
																																									=
																																									RGC_BUFFER_BUFPOS
																																									(BgL_tmpz00_27860);
																																							}
																																							{
																																								long
																																									BgL_bufposz00_27864;
																																								long
																																									BgL_forwardz00_27863;
																																								BgL_forwardz00_27863
																																									=
																																									BgL_arg3417z00_4923;
																																								BgL_bufposz00_27864
																																									=
																																									BgL_arg3418z00_4924;
																																								BgL_bufposz00_4919
																																									=
																																									BgL_bufposz00_27864;
																																								BgL_forwardz00_4918
																																									=
																																									BgL_forwardz00_27863;
																																								goto
																																									BgL_zc3z04anonymousza33414ze3z87_4920;
																																							}
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							BgL_matchz00_9747
																																								=
																																								BgL_lastzd2matchzd2_4917;
																																						}
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					int
																																						BgL_curz00_4925;
																																					{	/* Read/reader.scm 409 */
																																						obj_t
																																							BgL_tmpz00_27865;
																																						BgL_tmpz00_27865
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_4916);
																																						BgL_curz00_4925
																																							=
																																							RGC_BUFFER_GET_CHAR
																																							(BgL_tmpz00_27865,
																																							BgL_forwardz00_4918);
																																					}
																																					{	/* Read/reader.scm 409 */

																																						if (
																																							((long) (BgL_curz00_4925) == 124L))
																																							{	/* Read/reader.scm 409 */
																																								BgL_iportz00_5021
																																									=
																																									BgL_iportz00_4916;
																																								BgL_lastzd2matchzd2_5022
																																									=
																																									BgL_lastzd2matchzd2_4917;
																																								BgL_forwardz00_5023
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_4918);
																																								BgL_bufposz00_5024
																																									=
																																									BgL_bufposz00_4919;
																																							BgL_zc3z04anonymousza33473ze3z87_5025:
																																								{	/* Read/reader.scm 409 */
																																									long
																																										BgL_newzd2matchzd2_5026;
																																									{	/* Read/reader.scm 409 */
																																										obj_t
																																											BgL_tmpz00_27871;
																																										BgL_tmpz00_27871
																																											=
																																											(
																																											(obj_t)
																																											BgL_iportz00_5021);
																																										RGC_STOP_MATCH
																																											(BgL_tmpz00_27871,
																																											BgL_forwardz00_5023);
																																									}
																																									BgL_newzd2matchzd2_5026
																																										=
																																										6L;
																																									if ((BgL_forwardz00_5023 == BgL_bufposz00_5024))
																																										{	/* Read/reader.scm 409 */
																																											if (rgc_fill_buffer(((obj_t) BgL_iportz00_5021)))
																																												{	/* Read/reader.scm 409 */
																																													long
																																														BgL_arg3476z00_5029;
																																													long
																																														BgL_arg3478z00_5030;
																																													{	/* Read/reader.scm 409 */
																																														obj_t
																																															BgL_tmpz00_27879;
																																														BgL_tmpz00_27879
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_5021);
																																														BgL_arg3476z00_5029
																																															=
																																															RGC_BUFFER_FORWARD
																																															(BgL_tmpz00_27879);
																																													}
																																													{	/* Read/reader.scm 409 */
																																														obj_t
																																															BgL_tmpz00_27882;
																																														BgL_tmpz00_27882
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_5021);
																																														BgL_arg3478z00_5030
																																															=
																																															RGC_BUFFER_BUFPOS
																																															(BgL_tmpz00_27882);
																																													}
																																													{
																																														long
																																															BgL_bufposz00_27886;
																																														long
																																															BgL_forwardz00_27885;
																																														BgL_forwardz00_27885
																																															=
																																															BgL_arg3476z00_5029;
																																														BgL_bufposz00_27886
																																															=
																																															BgL_arg3478z00_5030;
																																														BgL_bufposz00_5024
																																															=
																																															BgL_bufposz00_27886;
																																														BgL_forwardz00_5023
																																															=
																																															BgL_forwardz00_27885;
																																														goto
																																															BgL_zc3z04anonymousza33473ze3z87_5025;
																																													}
																																												}
																																											else
																																												{	/* Read/reader.scm 409 */
																																													BgL_matchz00_9747
																																														=
																																														BgL_newzd2matchzd2_5026;
																																												}
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											int
																																												BgL_curz00_5031;
																																											{	/* Read/reader.scm 409 */
																																												obj_t
																																													BgL_tmpz00_27887;
																																												BgL_tmpz00_27887
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_5021);
																																												BgL_curz00_5031
																																													=
																																													RGC_BUFFER_GET_CHAR
																																													(BgL_tmpz00_27887,
																																													BgL_forwardz00_5023);
																																											}
																																											{	/* Read/reader.scm 409 */

																																												{	/* Read/reader.scm 409 */
																																													bool_t
																																														BgL_test9159z00_27890;
																																													if (((long) (BgL_curz00_5031) < 33L))
																																														{	/* Read/reader.scm 409 */
																																															BgL_test9159z00_27890
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															bool_t
																																																BgL_test9161z00_27894;
																																															if (((long) (BgL_curz00_5031) == 35L))
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test9161z00_27894
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test9161z00_27894
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_5031)
																																																		==
																																																		34L);
																																																}
																																															if (BgL_test9161z00_27894)
																																																{	/* Read/reader.scm 409 */
																																																	BgL_test9159z00_27890
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	bool_t
																																																		BgL_test9163z00_27900;
																																																	if (((long) (BgL_curz00_5031) == 41L))
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test9163z00_27900
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test9163z00_27900
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_5031)
																																																				==
																																																				40L);
																																																		}
																																																	if (BgL_test9163z00_27900)
																																																		{	/* Read/reader.scm 409 */
																																																			BgL_test9159z00_27890
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 409 */
																																																			switch
																																																				(
																																																				(long)
																																																				(BgL_curz00_5031))
																																																				{
																																																				case 59L:

																																																					BgL_test9159z00_27890 = ((bool_t) 1);
																																																					break;
																																																				case 91L:

																																																					BgL_test9159z00_27890 = ((bool_t) 1);
																																																					break;
																																																				case 93L:

																																																					BgL_test9159z00_27890 = ((bool_t) 1);
																																																					break;
																																																				case 123L:

																																																					BgL_test9159z00_27890 = ((bool_t) 1);
																																																					break;
																																																				case 125L:

																																																					BgL_test9159z00_27890 = ((bool_t) 1);
																																																					break;
																																																				default:
																																																					BgL_test9159z00_27890 = ((long) (BgL_curz00_5031) == 127L);
																																														}}}}
																																													if (BgL_test9159z00_27890)
																																														{	/* Read/reader.scm 409 */
																																															BgL_matchz00_9747
																																																=
																																																BgL_newzd2matchzd2_5026;
																																														}
																																													else
																																														{
																																															long
																																																BgL_forwardz00_27911;
																																															long
																																																BgL_lastzd2matchzd2_27910;
																																															BgL_lastzd2matchzd2_27910
																																																=
																																																BgL_newzd2matchzd2_5026;
																																															BgL_forwardz00_27911
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_5023);
																																															BgL_forwardz00_5023
																																																=
																																																BgL_forwardz00_27911;
																																															BgL_lastzd2matchzd2_5022
																																																=
																																																BgL_lastzd2matchzd2_27910;
																																															goto
																																																BgL_zc3z04anonymousza33473ze3z87_5025;
																																														}
																																												}
																																											}
																																										}
																																								}
																																							}
																																						else
																																							{	/* Read/reader.scm 409 */
																																								if (((long) (BgL_curz00_4925) == 40L))
																																									{	/* Read/reader.scm 409 */
																																										long
																																											BgL_arg3422z00_4929;
																																										BgL_arg3422z00_4929
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_4918);
																																										{	/* Read/reader.scm 409 */
																																											long
																																												BgL_newzd2matchzd2_13739;
																																											{	/* Read/reader.scm 409 */
																																												obj_t
																																													BgL_tmpz00_27918;
																																												BgL_tmpz00_27918
																																													=
																																													(
																																													(obj_t)
																																													BgL_iportz00_4916);
																																												RGC_STOP_MATCH
																																													(BgL_tmpz00_27918,
																																													BgL_arg3422z00_4929);
																																											}
																																											BgL_newzd2matchzd2_13739
																																												=
																																												31L;
																																											BgL_matchz00_9747
																																												=
																																												BgL_newzd2matchzd2_13739;
																																									}}
																																								else
																																									{	/* Read/reader.scm 409 */
																																										bool_t
																																											BgL_test9166z00_27921;
																																										if (((long) (BgL_curz00_4925) < 33L))
																																											{	/* Read/reader.scm 409 */
																																												BgL_test9166z00_27921
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												bool_t
																																													BgL_test9168z00_27925;
																																												if (((long) (BgL_curz00_4925) == 35L))
																																													{	/* Read/reader.scm 409 */
																																														BgL_test9168z00_27925
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														BgL_test9168z00_27925
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_4925)
																																															==
																																															34L);
																																													}
																																												if (BgL_test9168z00_27925)
																																													{	/* Read/reader.scm 409 */
																																														BgL_test9166z00_27921
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														bool_t
																																															BgL_test9170z00_27931;
																																														if (((long) (BgL_curz00_4925) == 41L))
																																															{	/* Read/reader.scm 409 */
																																																BgL_test9170z00_27931
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																BgL_test9170z00_27931
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_4925)
																																																	==
																																																	40L);
																																															}
																																														if (BgL_test9170z00_27931)
																																															{	/* Read/reader.scm 409 */
																																																BgL_test9166z00_27921
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																if (((long) (BgL_curz00_4925) == 59L))
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_test9166z00_27921
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		if (((long) (BgL_curz00_4925) == 91L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test9166z00_27921
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				if (((long) (BgL_curz00_4925) == 93L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test9166z00_27921
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						bool_t
																																																							BgL_test9175z00_27946;
																																																						if (((long) (BgL_curz00_4925) == 125L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test9175z00_27946
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								if (((long) (BgL_curz00_4925) == 124L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test9175z00_27946
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test9175z00_27946
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_4925)
																																																											==
																																																											123L);
																																																							}}
																																																						if (BgL_test9175z00_27946)
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test9166z00_27921
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test9166z00_27921
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_4925)
																																																									==
																																																									127L);
																																											}}}}}}}
																																										if (BgL_test9166z00_27921)
																																											{	/* Read/reader.scm 409 */
																																												if (((long) (BgL_curz00_4925) == 32L))
																																													{	/* Read/reader.scm 409 */
																																														BgL_iportz00_6942
																																															=
																																															BgL_iportz00_4916;
																																														BgL_lastzd2matchzd2_6943
																																															=
																																															BgL_lastzd2matchzd2_4917;
																																														BgL_forwardz00_6944
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_4918);
																																														BgL_bufposz00_6945
																																															=
																																															BgL_bufposz00_4919;
																																													BgL_zc3z04anonymousza34458ze3z87_6946:
																																														if ((BgL_forwardz00_6944 == BgL_bufposz00_6945))
																																															{	/* Read/reader.scm 409 */
																																																if (rgc_fill_buffer(((obj_t) BgL_iportz00_6942)))
																																																	{	/* Read/reader.scm 409 */
																																																		long
																																																			BgL_arg4461z00_6949;
																																																		long
																																																			BgL_arg4462z00_6950;
																																																		{	/* Read/reader.scm 409 */
																																																			obj_t
																																																				BgL_tmpz00_27965;
																																																			BgL_tmpz00_27965
																																																				=
																																																				(
																																																				(obj_t)
																																																				BgL_iportz00_6942);
																																																			BgL_arg4461z00_6949
																																																				=
																																																				RGC_BUFFER_FORWARD
																																																				(BgL_tmpz00_27965);
																																																		}
																																																		{	/* Read/reader.scm 409 */
																																																			obj_t
																																																				BgL_tmpz00_27968;
																																																			BgL_tmpz00_27968
																																																				=
																																																				(
																																																				(obj_t)
																																																				BgL_iportz00_6942);
																																																			BgL_arg4462z00_6950
																																																				=
																																																				RGC_BUFFER_BUFPOS
																																																				(BgL_tmpz00_27968);
																																																		}
																																																		{
																																																			long
																																																				BgL_bufposz00_27972;
																																																			long
																																																				BgL_forwardz00_27971;
																																																			BgL_forwardz00_27971
																																																				=
																																																				BgL_arg4461z00_6949;
																																																			BgL_bufposz00_27972
																																																				=
																																																				BgL_arg4462z00_6950;
																																																			BgL_bufposz00_6945
																																																				=
																																																				BgL_bufposz00_27972;
																																																			BgL_forwardz00_6944
																																																				=
																																																				BgL_forwardz00_27971;
																																																			goto
																																																				BgL_zc3z04anonymousza34458ze3z87_6946;
																																																		}
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		BgL_matchz00_9747
																																																			=
																																																			BgL_lastzd2matchzd2_6943;
																																																	}
																																															}
																																														else
																																															{	/* Read/reader.scm 409 */
																																																int
																																																	BgL_curz00_6951;
																																																{	/* Read/reader.scm 409 */
																																																	obj_t
																																																		BgL_tmpz00_27973;
																																																	BgL_tmpz00_27973
																																																		=
																																																		(
																																																		(obj_t)
																																																		BgL_iportz00_6942);
																																																	BgL_curz00_6951
																																																		=
																																																		RGC_BUFFER_GET_CHAR
																																																		(BgL_tmpz00_27973,
																																																		BgL_forwardz00_6944);
																																																}
																																																{	/* Read/reader.scm 409 */

																																																	{	/* Read/reader.scm 409 */
																																																		bool_t
																																																			BgL_test9181z00_27976;
																																																		if (((long) (BgL_curz00_6951) < 33L))
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_test9181z00_27976
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				bool_t
																																																					BgL_test9183z00_27980;
																																																				if (((long) (BgL_curz00_6951) == 35L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test9183z00_27980
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test9183z00_27980
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_6951)
																																																							==
																																																							34L);
																																																					}
																																																				if (BgL_test9183z00_27980)
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test9181z00_27976
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						bool_t
																																																							BgL_test9185z00_27986;
																																																						if (((long) (BgL_curz00_6951) == 41L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test9185z00_27986
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test9185z00_27986
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_6951)
																																																									==
																																																									40L);
																																																							}
																																																						if (BgL_test9185z00_27986)
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test9181z00_27976
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								switch
																																																									(
																																																									(long)
																																																									(BgL_curz00_6951))
																																																									{
																																																									case 59L:

																																																										BgL_test9181z00_27976 = ((bool_t) 1);
																																																										break;
																																																									case 91L:

																																																										BgL_test9181z00_27976 = ((bool_t) 1);
																																																										break;
																																																									case 93L:

																																																										BgL_test9181z00_27976 = ((bool_t) 1);
																																																										break;
																																																									case 123L:

																																																										BgL_test9181z00_27976 = ((bool_t) 1);
																																																										break;
																																																									case 125L:

																																																										BgL_test9181z00_27976 = ((bool_t) 1);
																																																										break;
																																																									default:
																																																										BgL_test9181z00_27976 = ((long) (BgL_curz00_6951) == 127L);
																																																			}}}}
																																																		if (BgL_test9181z00_27976)
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_matchz00_9747
																																																					=
																																																					BgL_lastzd2matchzd2_6943;
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				BgL_iportz00_9202
																																																					=
																																																					BgL_iportz00_6942;
																																																				BgL_lastzd2matchzd2_9203
																																																					=
																																																					BgL_lastzd2matchzd2_6943;
																																																				BgL_forwardz00_9204
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_6944);
																																																				BgL_bufposz00_9205
																																																					=
																																																					BgL_bufposz00_6945;
																																																			BgL_zc3z04anonymousza35604ze3z87_9206:
																																																				{	/* Read/reader.scm 409 */
																																																					long
																																																						BgL_newzd2matchzd2_9207;
																																																					if (rgc_buffer_bol_p(((obj_t) BgL_iportz00_9202)))
																																																						{	/* Read/reader.scm 409 */
																																																							{	/* Read/reader.scm 409 */
																																																								obj_t
																																																									BgL_tmpz00_27999;
																																																								BgL_tmpz00_27999
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_9202);
																																																								RGC_STOP_MATCH
																																																									(BgL_tmpz00_27999,
																																																									BgL_forwardz00_9204);
																																																							}
																																																							BgL_newzd2matchzd2_9207
																																																								=
																																																								5L;
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							BgL_newzd2matchzd2_9207
																																																								=
																																																								BgL_lastzd2matchzd2_9203;
																																																						}
																																																					if ((BgL_forwardz00_9204 == BgL_bufposz00_9205))
																																																						{	/* Read/reader.scm 409 */
																																																							if (rgc_fill_buffer(((obj_t) BgL_iportz00_9202)))
																																																								{	/* Read/reader.scm 409 */
																																																									long
																																																										BgL_arg5607z00_9210;
																																																									long
																																																										BgL_arg5608z00_9211;
																																																									{	/* Read/reader.scm 409 */
																																																										obj_t
																																																											BgL_tmpz00_28007;
																																																										BgL_tmpz00_28007
																																																											=
																																																											(
																																																											(obj_t)
																																																											BgL_iportz00_9202);
																																																										BgL_arg5607z00_9210
																																																											=
																																																											RGC_BUFFER_FORWARD
																																																											(BgL_tmpz00_28007);
																																																									}
																																																									{	/* Read/reader.scm 409 */
																																																										obj_t
																																																											BgL_tmpz00_28010;
																																																										BgL_tmpz00_28010
																																																											=
																																																											(
																																																											(obj_t)
																																																											BgL_iportz00_9202);
																																																										BgL_arg5608z00_9211
																																																											=
																																																											RGC_BUFFER_BUFPOS
																																																											(BgL_tmpz00_28010);
																																																									}
																																																									{
																																																										long
																																																											BgL_bufposz00_28014;
																																																										long
																																																											BgL_forwardz00_28013;
																																																										BgL_forwardz00_28013
																																																											=
																																																											BgL_arg5607z00_9210;
																																																										BgL_bufposz00_28014
																																																											=
																																																											BgL_arg5608z00_9211;
																																																										BgL_bufposz00_9205
																																																											=
																																																											BgL_bufposz00_28014;
																																																										BgL_forwardz00_9204
																																																											=
																																																											BgL_forwardz00_28013;
																																																										goto
																																																											BgL_zc3z04anonymousza35604ze3z87_9206;
																																																									}
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 409 */
																																																									BgL_matchz00_9747
																																																										=
																																																										BgL_newzd2matchzd2_9207;
																																																								}
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 409 */
																																																							int
																																																								BgL_curz00_9212;
																																																							{	/* Read/reader.scm 409 */
																																																								obj_t
																																																									BgL_tmpz00_28015;
																																																								BgL_tmpz00_28015
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_9202);
																																																								BgL_curz00_9212
																																																									=
																																																									RGC_BUFFER_GET_CHAR
																																																									(BgL_tmpz00_28015,
																																																									BgL_forwardz00_9204);
																																																							}
																																																							{	/* Read/reader.scm 409 */

																																																								if (((long) (BgL_curz00_9212) == 10L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_matchz00_9747
																																																											=
																																																											BgL_newzd2matchzd2_9207;
																																																									}
																																																								else
																																																									{
																																																										long
																																																											BgL_forwardz00_28022;
																																																										long
																																																											BgL_lastzd2matchzd2_28021;
																																																										BgL_lastzd2matchzd2_28021
																																																											=
																																																											BgL_newzd2matchzd2_9207;
																																																										BgL_forwardz00_28022
																																																											=
																																																											(1L
																																																											+
																																																											BgL_forwardz00_9204);
																																																										BgL_forwardz00_9204
																																																											=
																																																											BgL_forwardz00_28022;
																																																										BgL_lastzd2matchzd2_9203
																																																											=
																																																											BgL_lastzd2matchzd2_28021;
																																																										goto
																																																											BgL_zc3z04anonymousza35604ze3z87_9206;
																																																									}
																																																							}
																																																						}
																																																				}
																																																			}
																																																	}
																																																}
																																															}
																																													}
																																												else
																																													{	/* Read/reader.scm 409 */
																																														BgL_matchz00_9747
																																															=
																																															BgL_lastzd2matchzd2_4917;
																																													}
																																											}
																																										else
																																											{	/* Read/reader.scm 409 */
																																												BgL_iportz00_6218
																																													=
																																													BgL_iportz00_4916;
																																												BgL_lastzd2matchzd2_6219
																																													=
																																													BgL_lastzd2matchzd2_4917;
																																												BgL_forwardz00_6220
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_4918);
																																												BgL_bufposz00_6221
																																													=
																																													BgL_bufposz00_4919;
																																											BgL_zc3z04anonymousza34078ze3z87_6222:
																																												{	/* Read/reader.scm 409 */
																																													long
																																														BgL_newzd2matchzd2_6223;
																																													{	/* Read/reader.scm 409 */
																																														obj_t
																																															BgL_tmpz00_28026;
																																														BgL_tmpz00_28026
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_6218);
																																														RGC_STOP_MATCH
																																															(BgL_tmpz00_28026,
																																															BgL_forwardz00_6220);
																																													}
																																													BgL_newzd2matchzd2_6223
																																														=
																																														6L;
																																													if ((BgL_forwardz00_6220 == BgL_bufposz00_6221))
																																														{	/* Read/reader.scm 409 */
																																															if (rgc_fill_buffer(((obj_t) BgL_iportz00_6218)))
																																																{	/* Read/reader.scm 409 */
																																																	long
																																																		BgL_arg4081z00_6226;
																																																	long
																																																		BgL_arg4082z00_6227;
																																																	{	/* Read/reader.scm 409 */
																																																		obj_t
																																																			BgL_tmpz00_28034;
																																																		BgL_tmpz00_28034
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_6218);
																																																		BgL_arg4081z00_6226
																																																			=
																																																			RGC_BUFFER_FORWARD
																																																			(BgL_tmpz00_28034);
																																																	}
																																																	{	/* Read/reader.scm 409 */
																																																		obj_t
																																																			BgL_tmpz00_28037;
																																																		BgL_tmpz00_28037
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_6218);
																																																		BgL_arg4082z00_6227
																																																			=
																																																			RGC_BUFFER_BUFPOS
																																																			(BgL_tmpz00_28037);
																																																	}
																																																	{
																																																		long
																																																			BgL_bufposz00_28041;
																																																		long
																																																			BgL_forwardz00_28040;
																																																		BgL_forwardz00_28040
																																																			=
																																																			BgL_arg4081z00_6226;
																																																		BgL_bufposz00_28041
																																																			=
																																																			BgL_arg4082z00_6227;
																																																		BgL_bufposz00_6221
																																																			=
																																																			BgL_bufposz00_28041;
																																																		BgL_forwardz00_6220
																																																			=
																																																			BgL_forwardz00_28040;
																																																		goto
																																																			BgL_zc3z04anonymousza34078ze3z87_6222;
																																																	}
																																																}
																																															else
																																																{	/* Read/reader.scm 409 */
																																																	BgL_matchz00_9747
																																																		=
																																																		BgL_newzd2matchzd2_6223;
																																																}
																																														}
																																													else
																																														{	/* Read/reader.scm 409 */
																																															int
																																																BgL_curz00_6228;
																																															{	/* Read/reader.scm 409 */
																																																obj_t
																																																	BgL_tmpz00_28042;
																																																BgL_tmpz00_28042
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_6218);
																																																BgL_curz00_6228
																																																	=
																																																	RGC_BUFFER_GET_CHAR
																																																	(BgL_tmpz00_28042,
																																																	BgL_forwardz00_6220);
																																															}
																																															{	/* Read/reader.scm 409 */

																																																if (((long) (BgL_curz00_6228) == 124L))
																																																	{
																																																		long
																																																			BgL_bufposz00_28052;
																																																		long
																																																			BgL_forwardz00_28050;
																																																		long
																																																			BgL_lastzd2matchzd2_28049;
																																																		obj_t
																																																			BgL_iportz00_28048;
																																																		BgL_iportz00_28048
																																																			=
																																																			BgL_iportz00_6218;
																																																		BgL_lastzd2matchzd2_28049
																																																			=
																																																			BgL_newzd2matchzd2_6223;
																																																		BgL_forwardz00_28050
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_6220);
																																																		BgL_bufposz00_28052
																																																			=
																																																			BgL_bufposz00_6221;
																																																		BgL_bufposz00_5024
																																																			=
																																																			BgL_bufposz00_28052;
																																																		BgL_forwardz00_5023
																																																			=
																																																			BgL_forwardz00_28050;
																																																		BgL_lastzd2matchzd2_5022
																																																			=
																																																			BgL_lastzd2matchzd2_28049;
																																																		BgL_iportz00_5021
																																																			=
																																																			BgL_iportz00_28048;
																																																		goto
																																																			BgL_zc3z04anonymousza33473ze3z87_5025;
																																																	}
																																																else
																																																	{	/* Read/reader.scm 409 */
																																																		if (((long) (BgL_curz00_6228) == 40L))
																																																			{	/* Read/reader.scm 409 */
																																																				long
																																																					BgL_arg4086z00_6232;
																																																				BgL_arg4086z00_6232
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_6220);
																																																				{	/* Read/reader.scm 409 */
																																																					long
																																																						BgL_newzd2matchzd2_14530;
																																																					{	/* Read/reader.scm 409 */
																																																						obj_t
																																																							BgL_tmpz00_28057;
																																																						BgL_tmpz00_28057
																																																							=
																																																							(
																																																							(obj_t)
																																																							BgL_iportz00_6218);
																																																						RGC_STOP_MATCH
																																																							(BgL_tmpz00_28057,
																																																							BgL_arg4086z00_6232);
																																																					}
																																																					BgL_newzd2matchzd2_14530
																																																						=
																																																						31L;
																																																					BgL_matchz00_9747
																																																						=
																																																						BgL_newzd2matchzd2_14530;
																																																			}}
																																																		else
																																																			{	/* Read/reader.scm 409 */
																																																				bool_t
																																																					BgL_test9195z00_28060;
																																																				if (((long) (BgL_curz00_6228) < 33L))
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_test9195z00_28060
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 409 */
																																																						bool_t
																																																							BgL_test9197z00_28064;
																																																						if (((long) (BgL_curz00_6228) == 35L))
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test9197z00_28064
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test9197z00_28064
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_curz00_6228)
																																																									==
																																																									34L);
																																																							}
																																																						if (BgL_test9197z00_28064)
																																																							{	/* Read/reader.scm 409 */
																																																								BgL_test9195z00_28060
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Read/reader.scm 409 */
																																																								bool_t
																																																									BgL_test9199z00_28070;
																																																								if (((long) (BgL_curz00_6228) == 41L))
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test9199z00_28070
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test9199z00_28070
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_6228)
																																																											==
																																																											40L);
																																																									}
																																																								if (BgL_test9199z00_28070)
																																																									{	/* Read/reader.scm 409 */
																																																										BgL_test9195z00_28060
																																																											=
																																																											(
																																																											(bool_t)
																																																											1);
																																																									}
																																																								else
																																																									{	/* Read/reader.scm 409 */
																																																										if (((long) (BgL_curz00_6228) == 59L))
																																																											{	/* Read/reader.scm 409 */
																																																												BgL_test9195z00_28060
																																																													=
																																																													(
																																																													(bool_t)
																																																													1);
																																																											}
																																																										else
																																																											{	/* Read/reader.scm 409 */
																																																												if (((long) (BgL_curz00_6228) == 91L))
																																																													{	/* Read/reader.scm 409 */
																																																														BgL_test9195z00_28060
																																																															=
																																																															(
																																																															(bool_t)
																																																															1);
																																																													}
																																																												else
																																																													{	/* Read/reader.scm 409 */
																																																														if (((long) (BgL_curz00_6228) == 93L))
																																																															{	/* Read/reader.scm 409 */
																																																																BgL_test9195z00_28060
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	1);
																																																															}
																																																														else
																																																															{	/* Read/reader.scm 409 */
																																																																bool_t
																																																																	BgL_test9204z00_28085;
																																																																if (((long) (BgL_curz00_6228) == 125L))
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test9204z00_28085
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		if (((long) (BgL_curz00_6228) == 124L))
																																																																			{	/* Read/reader.scm 409 */
																																																																				BgL_test9204z00_28085
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					1);
																																																																			}
																																																																		else
																																																																			{	/* Read/reader.scm 409 */
																																																																				BgL_test9204z00_28085
																																																																					=
																																																																					(
																																																																					(long)
																																																																					(BgL_curz00_6228)
																																																																					==
																																																																					123L);
																																																																	}}
																																																																if (BgL_test9204z00_28085)
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test9195z00_28060
																																																																			=
																																																																			(
																																																																			(bool_t)
																																																																			1);
																																																																	}
																																																																else
																																																																	{	/* Read/reader.scm 409 */
																																																																		BgL_test9195z00_28060
																																																																			=
																																																																			(
																																																																			(long)
																																																																			(BgL_curz00_6228)
																																																																			==
																																																																			127L);
																																																					}}}}}}}
																																																				if (BgL_test9195z00_28060)
																																																					{	/* Read/reader.scm 409 */
																																																						BgL_matchz00_9747
																																																							=
																																																							BgL_newzd2matchzd2_6223;
																																																					}
																																																				else
																																																					{
																																																						long
																																																							BgL_forwardz00_28097;
																																																						long
																																																							BgL_lastzd2matchzd2_28096;
																																																						BgL_lastzd2matchzd2_28096
																																																							=
																																																							BgL_newzd2matchzd2_6223;
																																																						BgL_forwardz00_28097
																																																							=
																																																							(1L
																																																							+
																																																							BgL_forwardz00_6220);
																																																						BgL_forwardz00_6220
																																																							=
																																																							BgL_forwardz00_28097;
																																																						BgL_lastzd2matchzd2_6219
																																																							=
																																																							BgL_lastzd2matchzd2_28096;
																																																						goto
																																																							BgL_zc3z04anonymousza34078ze3z87_6222;
																																																					}
																																																			}
																																																	}
																																															}
																																														}
																																												}
																																											}
																																									}
																																							}
																																					}
																																				}
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			BgL_matchz00_9747
																																				=
																																				BgL_newzd2matchzd2_4480;
																																		}
																																}
																															else
																																{
																																	long
																																		BgL_bufposz00_28105;
																																	long
																																		BgL_forwardz00_28103;
																																	long
																																		BgL_lastzd2matchzd2_28102;
																																	obj_t
																																		BgL_iportz00_28101;
																																	BgL_iportz00_28101
																																		=
																																		BgL_iportz00_4475;
																																	BgL_lastzd2matchzd2_28102
																																		=
																																		BgL_newzd2matchzd2_4480;
																																	BgL_forwardz00_28103
																																		=
																																		(1L +
																																		BgL_forwardz00_4477);
																																	BgL_bufposz00_28105
																																		=
																																		BgL_bufposz00_4478;
																																	BgL_bufposz00_4879
																																		=
																																		BgL_bufposz00_28105;
																																	BgL_forwardz00_4878
																																		=
																																		BgL_forwardz00_28103;
																																	BgL_lastzd2matchzd2_4877
																																		=
																																		BgL_lastzd2matchzd2_28102;
																																	BgL_iportz00_4876
																																		=
																																		BgL_iportz00_28101;
																																	goto
																																		BgL_zc3z04anonymousza33394ze3z87_4880;
																																}
																														}
																												}
																										}
																								}
																						}
																				}
																		}
																}
														}
													}
											}
											break;
										case 34L:

											BgL_iportz00_3915 = BgL_iportz00_8604;
											BgL_lastzd2matchzd2_3916 = BgL_lastzd2matchzd2_8605;
											BgL_forwardz00_3917 = (1L + BgL_forwardz00_8606);
											BgL_bufposz00_3918 = BgL_bufposz00_8607;
										BgL_zc3z04anonymousza32784ze3z87_3919:
											{	/* Read/reader.scm 409 */
												long BgL_newzd2matchzd2_3920;

												{	/* Read/reader.scm 409 */
													obj_t BgL_tmpz00_28107;

													BgL_tmpz00_28107 = ((obj_t) BgL_iportz00_3915);
													RGC_STOP_MATCH(BgL_tmpz00_28107, BgL_forwardz00_3917);
												}
												BgL_newzd2matchzd2_3920 = 38L;
												if ((BgL_forwardz00_3917 == BgL_bufposz00_3918))
													{	/* Read/reader.scm 409 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_3915)))
															{	/* Read/reader.scm 409 */
																long BgL_arg2787z00_3923;
																long BgL_arg2788z00_3924;

																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_28115;

																	BgL_tmpz00_28115 =
																		((obj_t) BgL_iportz00_3915);
																	BgL_arg2787z00_3923 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_28115);
																}
																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_28118;

																	BgL_tmpz00_28118 =
																		((obj_t) BgL_iportz00_3915);
																	BgL_arg2788z00_3924 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_28118);
																}
																{
																	long BgL_bufposz00_28122;
																	long BgL_forwardz00_28121;

																	BgL_forwardz00_28121 = BgL_arg2787z00_3923;
																	BgL_bufposz00_28122 = BgL_arg2788z00_3924;
																	BgL_bufposz00_3918 = BgL_bufposz00_28122;
																	BgL_forwardz00_3917 = BgL_forwardz00_28121;
																	goto BgL_zc3z04anonymousza32784ze3z87_3919;
																}
															}
														else
															{	/* Read/reader.scm 409 */
																BgL_matchz00_9747 = BgL_newzd2matchzd2_3920;
															}
													}
												else
													{	/* Read/reader.scm 409 */
														int BgL_curz00_3925;

														{	/* Read/reader.scm 409 */
															obj_t BgL_tmpz00_28123;

															BgL_tmpz00_28123 = ((obj_t) BgL_iportz00_3915);
															BgL_curz00_3925 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_28123,
																BgL_forwardz00_3917);
														}
														{	/* Read/reader.scm 409 */

															if (((long) (BgL_curz00_3925) == 92L))
																{	/* Read/reader.scm 409 */
																	long BgL_arg2805z00_3927;

																	BgL_arg2805z00_3927 =
																		(1L + BgL_forwardz00_3917);
																	{
																		long BgL_forwardz00_13063;
																		long BgL_bufposz00_13064;

																		BgL_forwardz00_13063 = BgL_arg2805z00_3927;
																		BgL_bufposz00_13064 = BgL_bufposz00_3918;
																	BgL_statezd2125zd21314z00_13062:
																		if (
																			(BgL_forwardz00_13063 ==
																				BgL_bufposz00_13064))
																			{	/* Read/reader.scm 409 */
																				if (rgc_fill_buffer(
																						((obj_t) BgL_iportz00_3915)))
																					{	/* Read/reader.scm 409 */
																						long BgL_arg4283z00_13067;
																						long BgL_arg4284z00_13068;

																						{	/* Read/reader.scm 409 */
																							obj_t BgL_tmpz00_28135;

																							BgL_tmpz00_28135 =
																								((obj_t) BgL_iportz00_3915);
																							BgL_arg4283z00_13067 =
																								RGC_BUFFER_FORWARD
																								(BgL_tmpz00_28135);
																						}
																						{	/* Read/reader.scm 409 */
																							obj_t BgL_tmpz00_28138;

																							BgL_tmpz00_28138 =
																								((obj_t) BgL_iportz00_3915);
																							BgL_arg4284z00_13068 =
																								RGC_BUFFER_BUFPOS
																								(BgL_tmpz00_28138);
																						}
																						{
																							long BgL_bufposz00_28142;
																							long BgL_forwardz00_28141;

																							BgL_forwardz00_28141 =
																								BgL_arg4283z00_13067;
																							BgL_bufposz00_28142 =
																								BgL_arg4284z00_13068;
																							BgL_bufposz00_13064 =
																								BgL_bufposz00_28142;
																							BgL_forwardz00_13063 =
																								BgL_forwardz00_28141;
																							goto
																								BgL_statezd2125zd21314z00_13062;
																						}
																					}
																				else
																					{	/* Read/reader.scm 409 */
																						BgL_matchz00_9747 =
																							BgL_newzd2matchzd2_3920;
																					}
																			}
																		else
																			{	/* Read/reader.scm 409 */
																				int BgL_curz00_13069;

																				{	/* Read/reader.scm 409 */
																					obj_t BgL_tmpz00_28143;

																					BgL_tmpz00_28143 =
																						((obj_t) BgL_iportz00_3915);
																					BgL_curz00_13069 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_tmpz00_28143,
																						BgL_forwardz00_13063);
																				}
																				{	/* Read/reader.scm 409 */

																					if (
																						((long) (BgL_curz00_13069) == 10L))
																						{	/* Read/reader.scm 409 */
																							BgL_matchz00_9747 =
																								BgL_newzd2matchzd2_3920;
																						}
																					else
																						{	/* Read/reader.scm 409 */
																							BgL_iportz00_4387 =
																								BgL_iportz00_3915;
																							BgL_lastzd2matchzd2_4388 =
																								BgL_newzd2matchzd2_3920;
																							BgL_forwardz00_4389 =
																								(1L + BgL_forwardz00_13063);
																							BgL_bufposz00_4390 =
																								BgL_bufposz00_13064;
																						BgL_zc3z04anonymousza33087ze3z87_4391:
																							if (
																								(BgL_forwardz00_4389 ==
																									BgL_bufposz00_4390))
																								{	/* Read/reader.scm 409 */
																									if (rgc_fill_buffer(
																											((obj_t)
																												BgL_iportz00_4387)))
																										{	/* Read/reader.scm 409 */
																											long BgL_arg3090z00_4394;
																											long BgL_arg3091z00_4395;

																											{	/* Read/reader.scm 409 */
																												obj_t BgL_tmpz00_28154;

																												BgL_tmpz00_28154 =
																													((obj_t)
																													BgL_iportz00_4387);
																												BgL_arg3090z00_4394 =
																													RGC_BUFFER_FORWARD
																													(BgL_tmpz00_28154);
																											}
																											{	/* Read/reader.scm 409 */
																												obj_t BgL_tmpz00_28157;

																												BgL_tmpz00_28157 =
																													((obj_t)
																													BgL_iportz00_4387);
																												BgL_arg3091z00_4395 =
																													RGC_BUFFER_BUFPOS
																													(BgL_tmpz00_28157);
																											}
																											{
																												long
																													BgL_bufposz00_28161;
																												long
																													BgL_forwardz00_28160;
																												BgL_forwardz00_28160 =
																													BgL_arg3090z00_4394;
																												BgL_bufposz00_28161 =
																													BgL_arg3091z00_4395;
																												BgL_bufposz00_4390 =
																													BgL_bufposz00_28161;
																												BgL_forwardz00_4389 =
																													BgL_forwardz00_28160;
																												goto
																													BgL_zc3z04anonymousza33087ze3z87_4391;
																											}
																										}
																									else
																										{	/* Read/reader.scm 409 */
																											BgL_matchz00_9747 =
																												BgL_lastzd2matchzd2_4388;
																										}
																								}
																							else
																								{	/* Read/reader.scm 409 */
																									int BgL_curz00_4396;

																									{	/* Read/reader.scm 409 */
																										obj_t BgL_tmpz00_28162;

																										BgL_tmpz00_28162 =
																											((obj_t)
																											BgL_iportz00_4387);
																										BgL_curz00_4396 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_tmpz00_28162,
																											BgL_forwardz00_4389);
																									}
																									{	/* Read/reader.scm 409 */

																										if (
																											((long) (BgL_curz00_4396)
																												== 92L))
																											{	/* Read/reader.scm 409 */
																												long
																													BgL_arg3096z00_4398;
																												BgL_arg3096z00_4398 =
																													(1L +
																													BgL_forwardz00_4389);
																												{
																													long
																														BgL_forwardz00_13358;
																													long
																														BgL_bufposz00_13359;
																													BgL_forwardz00_13358 =
																														BgL_arg3096z00_4398;
																													BgL_bufposz00_13359 =
																														BgL_bufposz00_4390;
																												BgL_statezd2125zd21314z00_13357:
																													if (
																														(BgL_forwardz00_13358
																															==
																															BgL_bufposz00_13359))
																														{	/* Read/reader.scm 409 */
																															if (rgc_fill_buffer(((obj_t) BgL_iportz00_4387)))
																																{	/* Read/reader.scm 409 */
																																	long
																																		BgL_arg4283z00_13362;
																																	long
																																		BgL_arg4284z00_13363;
																																	{	/* Read/reader.scm 409 */
																																		obj_t
																																			BgL_tmpz00_28174;
																																		BgL_tmpz00_28174
																																			=
																																			((obj_t)
																																			BgL_iportz00_4387);
																																		BgL_arg4283z00_13362
																																			=
																																			RGC_BUFFER_FORWARD
																																			(BgL_tmpz00_28174);
																																	}
																																	{	/* Read/reader.scm 409 */
																																		obj_t
																																			BgL_tmpz00_28177;
																																		BgL_tmpz00_28177
																																			=
																																			((obj_t)
																																			BgL_iportz00_4387);
																																		BgL_arg4284z00_13363
																																			=
																																			RGC_BUFFER_BUFPOS
																																			(BgL_tmpz00_28177);
																																	}
																																	{
																																		long
																																			BgL_bufposz00_28181;
																																		long
																																			BgL_forwardz00_28180;
																																		BgL_forwardz00_28180
																																			=
																																			BgL_arg4283z00_13362;
																																		BgL_bufposz00_28181
																																			=
																																			BgL_arg4284z00_13363;
																																		BgL_bufposz00_13359
																																			=
																																			BgL_bufposz00_28181;
																																		BgL_forwardz00_13358
																																			=
																																			BgL_forwardz00_28180;
																																		goto
																																			BgL_statezd2125zd21314z00_13357;
																																	}
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	BgL_matchz00_9747
																																		=
																																		BgL_lastzd2matchzd2_4388;
																																}
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															int
																																BgL_curz00_13364;
																															{	/* Read/reader.scm 409 */
																																obj_t
																																	BgL_tmpz00_28182;
																																BgL_tmpz00_28182
																																	=
																																	((obj_t)
																																	BgL_iportz00_4387);
																																BgL_curz00_13364
																																	=
																																	RGC_BUFFER_GET_CHAR
																																	(BgL_tmpz00_28182,
																																	BgL_forwardz00_13358);
																															}
																															{	/* Read/reader.scm 409 */

																																if (
																																	((long)
																																		(BgL_curz00_13364)
																																		== 10L))
																																	{	/* Read/reader.scm 409 */
																																		BgL_matchz00_9747
																																			=
																																			BgL_lastzd2matchzd2_4388;
																																	}
																																else
																																	{
																																		long
																																			BgL_bufposz00_28190;
																																		long
																																			BgL_forwardz00_28188;
																																		BgL_forwardz00_28188
																																			=
																																			(1L +
																																			BgL_forwardz00_13358);
																																		BgL_bufposz00_28190
																																			=
																																			BgL_bufposz00_13359;
																																		BgL_bufposz00_4390
																																			=
																																			BgL_bufposz00_28190;
																																		BgL_forwardz00_4389
																																			=
																																			BgL_forwardz00_28188;
																																		goto
																																			BgL_zc3z04anonymousza33087ze3z87_4391;
																																	}
																															}
																														}
																												}
																											}
																										else
																											{	/* Read/reader.scm 409 */
																												if (
																													((long)
																														(BgL_curz00_4396) ==
																														34L))
																													{	/* Read/reader.scm 409 */
																														long
																															BgL_arg3098z00_4400;
																														BgL_arg3098z00_4400
																															=
																															(1L +
																															BgL_forwardz00_4389);
																														{	/* Read/reader.scm 409 */
																															long
																																BgL_newzd2matchzd2_13378;
																															{	/* Read/reader.scm 409 */
																																obj_t
																																	BgL_tmpz00_28195;
																																BgL_tmpz00_28195
																																	=
																																	((obj_t)
																																	BgL_iportz00_4387);
																																RGC_STOP_MATCH
																																	(BgL_tmpz00_28195,
																																	BgL_arg3098z00_4400);
																															}
																															BgL_newzd2matchzd2_13378
																																= 11L;
																															BgL_matchz00_9747
																																=
																																BgL_newzd2matchzd2_13378;
																													}}
																												else
																													{	/* Read/reader.scm 409 */
																														bool_t
																															BgL_test9220z00_28198;
																														if (((long)
																																(BgL_curz00_4396)
																																== 34L))
																															{	/* Read/reader.scm 409 */
																																BgL_test9220z00_28198
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 409 */
																																BgL_test9220z00_28198
																																	=
																																	((long)
																																	(BgL_curz00_4396)
																																	== 92L);
																															}
																														if (BgL_test9220z00_28198)
																															{	/* Read/reader.scm 409 */
																																BgL_matchz00_9747
																																	=
																																	BgL_lastzd2matchzd2_4388;
																															}
																														else
																															{
																																long
																																	BgL_forwardz00_28204;
																																BgL_forwardz00_28204
																																	=
																																	(1L +
																																	BgL_forwardz00_4389);
																																BgL_forwardz00_4389
																																	=
																																	BgL_forwardz00_28204;
																																goto
																																	BgL_zc3z04anonymousza33087ze3z87_4391;
																															}
																													}
																											}
																									}
																								}
																						}
																				}
																			}
																	}
																}
															else
																{	/* Read/reader.scm 409 */
																	if (((long) (BgL_curz00_3925) == 34L))
																		{	/* Read/reader.scm 409 */
																			long BgL_arg2812z00_3929;

																			BgL_arg2812z00_3929 =
																				(1L + BgL_forwardz00_3917);
																			{	/* Read/reader.scm 409 */
																				long BgL_newzd2matchzd2_13083;

																				{	/* Read/reader.scm 409 */
																					obj_t BgL_tmpz00_28211;

																					BgL_tmpz00_28211 =
																						((obj_t) BgL_iportz00_3915);
																					RGC_STOP_MATCH(BgL_tmpz00_28211,
																						BgL_arg2812z00_3929);
																				}
																				BgL_newzd2matchzd2_13083 = 11L;
																				BgL_matchz00_9747 =
																					BgL_newzd2matchzd2_13083;
																		}}
																	else
																		{	/* Read/reader.scm 409 */
																			bool_t BgL_test9223z00_28214;

																			if (((long) (BgL_curz00_3925) == 34L))
																				{	/* Read/reader.scm 409 */
																					BgL_test9223z00_28214 = ((bool_t) 1);
																				}
																			else
																				{	/* Read/reader.scm 409 */
																					BgL_test9223z00_28214 =
																						((long) (BgL_curz00_3925) == 92L);
																				}
																			if (BgL_test9223z00_28214)
																				{	/* Read/reader.scm 409 */
																					BgL_matchz00_9747 =
																						BgL_newzd2matchzd2_3920;
																				}
																			else
																				{
																					long BgL_bufposz00_28224;
																					long BgL_forwardz00_28222;
																					long BgL_lastzd2matchzd2_28221;
																					obj_t BgL_iportz00_28220;

																					BgL_iportz00_28220 =
																						BgL_iportz00_3915;
																					BgL_lastzd2matchzd2_28221 =
																						BgL_newzd2matchzd2_3920;
																					BgL_forwardz00_28222 =
																						(1L + BgL_forwardz00_3917);
																					BgL_bufposz00_28224 =
																						BgL_bufposz00_3918;
																					BgL_bufposz00_4390 =
																						BgL_bufposz00_28224;
																					BgL_forwardz00_4389 =
																						BgL_forwardz00_28222;
																					BgL_lastzd2matchzd2_4388 =
																						BgL_lastzd2matchzd2_28221;
																					BgL_iportz00_4387 =
																						BgL_iportz00_28220;
																					goto
																						BgL_zc3z04anonymousza33087ze3z87_4391;
																				}
																		}
																}
														}
													}
											}
											break;
										case 255L:
										case 254L:
										case 253L:
										case 252L:
										case 251L:
										case 250L:
										case 249L:
										case 248L:
										case 247L:
										case 246L:
										case 245L:
										case 244L:
										case 243L:
										case 242L:
										case 241L:
										case 240L:
										case 239L:
										case 238L:
										case 237L:
										case 236L:
										case 235L:
										case 234L:
										case 233L:
										case 232L:
										case 231L:
										case 230L:
										case 229L:
										case 228L:
										case 227L:
										case 226L:
										case 225L:
										case 224L:
										case 223L:
										case 222L:
										case 221L:
										case 220L:
										case 219L:
										case 218L:
										case 217L:
										case 216L:
										case 215L:
										case 214L:
										case 213L:
										case 212L:
										case 211L:
										case 210L:
										case 209L:
										case 208L:
										case 207L:
										case 206L:
										case 205L:
										case 204L:
										case 203L:
										case 202L:
										case 201L:
										case 200L:
										case 199L:
										case 198L:
										case 197L:
										case 196L:
										case 195L:
										case 194L:
										case 193L:
										case 192L:
										case 191L:
										case 190L:
										case 189L:
										case 188L:
										case 187L:
										case 186L:
										case 185L:
										case 184L:
										case 183L:
										case 182L:
										case 181L:
										case 180L:
										case 179L:
										case 178L:
										case 177L:
										case 176L:
										case 175L:
										case 174L:
										case 173L:
										case 172L:
										case 171L:
										case 170L:
										case 169L:
										case 168L:
										case 167L:
										case 166L:
										case 165L:
										case 164L:
										case 163L:
										case 162L:
										case 161L:
										case 160L:
										case 159L:
										case 158L:
										case 157L:
										case 156L:
										case 155L:
										case 154L:
										case 153L:
										case 152L:
										case 151L:
										case 150L:
										case 149L:
										case 148L:
										case 147L:
										case 146L:
										case 145L:
										case 144L:
										case 143L:
										case 142L:
										case 141L:
										case 140L:
										case 139L:
										case 138L:
										case 137L:
										case 136L:
										case 135L:
										case 134L:
										case 133L:
										case 132L:
										case 131L:
										case 130L:
										case 129L:
										case 128L:
										case 126L:
										case 122L:
										case 121L:
										case 120L:
										case 119L:
										case 118L:
										case 117L:
										case 116L:
										case 115L:
										case 114L:
										case 113L:
										case 112L:
										case 111L:
										case 110L:
										case 109L:
										case 108L:
										case 107L:
										case 106L:
										case 105L:
										case 104L:
										case 103L:
										case 102L:
										case 101L:
										case 100L:
										case 99L:
										case 98L:
										case 97L:
										case 95L:
										case 94L:
										case 92L:
										case 90L:
										case 89L:
										case 88L:
										case 87L:
										case 86L:
										case 85L:
										case 84L:
										case 83L:
										case 82L:
										case 81L:
										case 80L:
										case 79L:
										case 78L:
										case 77L:
										case 76L:
										case 75L:
										case 74L:
										case 73L:
										case 72L:
										case 71L:
										case 70L:
										case 69L:
										case 68L:
										case 67L:
										case 66L:
										case 65L:
										case 64L:
										case 63L:
										case 62L:
										case 61L:
										case 60L:
										case 47L:
										case 42L:
										case 38L:
										case 37L:
										case 36L:
										case 33L:

											BgL_iportz00_7672 = BgL_iportz00_8604;
											BgL_lastzd2matchzd2_7673 = BgL_lastzd2matchzd2_8605;
											BgL_forwardz00_7674 = (1L + BgL_forwardz00_8606);
											BgL_bufposz00_7675 = BgL_bufposz00_8607;
										BgL_zc3z04anonymousza34824ze3z87_7676:
											{	/* Read/reader.scm 409 */
												long BgL_newzd2matchzd2_7677;

												{	/* Read/reader.scm 409 */
													obj_t BgL_tmpz00_28226;

													BgL_tmpz00_28226 = ((obj_t) BgL_iportz00_7672);
													RGC_STOP_MATCH(BgL_tmpz00_28226, BgL_forwardz00_7674);
												}
												BgL_newzd2matchzd2_7677 = 22L;
												if ((BgL_forwardz00_7674 == BgL_bufposz00_7675))
													{	/* Read/reader.scm 409 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_7672)))
															{	/* Read/reader.scm 409 */
																long BgL_arg4827z00_7680;
																long BgL_arg4828z00_7681;

																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_28234;

																	BgL_tmpz00_28234 =
																		((obj_t) BgL_iportz00_7672);
																	BgL_arg4827z00_7680 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_28234);
																}
																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_28237;

																	BgL_tmpz00_28237 =
																		((obj_t) BgL_iportz00_7672);
																	BgL_arg4828z00_7681 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_28237);
																}
																{
																	long BgL_bufposz00_28241;
																	long BgL_forwardz00_28240;

																	BgL_forwardz00_28240 = BgL_arg4827z00_7680;
																	BgL_bufposz00_28241 = BgL_arg4828z00_7681;
																	BgL_bufposz00_7675 = BgL_bufposz00_28241;
																	BgL_forwardz00_7674 = BgL_forwardz00_28240;
																	goto BgL_zc3z04anonymousza34824ze3z87_7676;
																}
															}
														else
															{	/* Read/reader.scm 409 */
																BgL_matchz00_9747 = BgL_newzd2matchzd2_7677;
															}
													}
												else
													{	/* Read/reader.scm 409 */
														int BgL_curz00_7682;

														{	/* Read/reader.scm 409 */
															obj_t BgL_tmpz00_28242;

															BgL_tmpz00_28242 = ((obj_t) BgL_iportz00_7672);
															BgL_curz00_7682 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_28242,
																BgL_forwardz00_7674);
														}
														{	/* Read/reader.scm 409 */

															if (((long) (BgL_curz00_7682) == 58L))
																{
																	long BgL_bufposz00_28252;
																	long BgL_forwardz00_28250;
																	long BgL_lastzd2matchzd2_28249;
																	obj_t BgL_iportz00_28248;

																	BgL_iportz00_28248 = BgL_iportz00_7672;
																	BgL_lastzd2matchzd2_28249 =
																		BgL_newzd2matchzd2_7677;
																	BgL_forwardz00_28250 =
																		(1L + BgL_forwardz00_7674);
																	BgL_bufposz00_28252 = BgL_bufposz00_7675;
																	BgL_bufposz00_6394 = BgL_bufposz00_28252;
																	BgL_forwardz00_6393 = BgL_forwardz00_28250;
																	BgL_lastzd2matchzd2_6392 =
																		BgL_lastzd2matchzd2_28249;
																	BgL_iportz00_6391 = BgL_iportz00_28248;
																	goto BgL_zc3z04anonymousza34167ze3z87_6395;
																}
															else
																{	/* Read/reader.scm 409 */
																	if (((long) (BgL_curz00_7682) == 46L))
																		{
																			long BgL_bufposz00_28260;
																			long BgL_forwardz00_28258;
																			long BgL_lastzd2matchzd2_28257;
																			obj_t BgL_iportz00_28256;

																			BgL_iportz00_28256 = BgL_iportz00_7672;
																			BgL_lastzd2matchzd2_28257 =
																				BgL_newzd2matchzd2_7677;
																			BgL_forwardz00_28258 =
																				(1L + BgL_forwardz00_7674);
																			BgL_bufposz00_28260 = BgL_bufposz00_7675;
																			BgL_bufposz00_3943 = BgL_bufposz00_28260;
																			BgL_forwardz00_3942 =
																				BgL_forwardz00_28258;
																			BgL_lastzd2matchzd2_3941 =
																				BgL_lastzd2matchzd2_28257;
																			BgL_iportz00_3940 = BgL_iportz00_28256;
																			goto
																				BgL_zc3z04anonymousza32819ze3z87_3944;
																		}
																	else
																		{	/* Read/reader.scm 409 */
																			bool_t BgL_test9229z00_28261;

																			if (((long) (BgL_curz00_7682) == 39L))
																				{	/* Read/reader.scm 409 */
																					BgL_test9229z00_28261 = ((bool_t) 1);
																				}
																			else
																				{	/* Read/reader.scm 409 */
																					if (((long) (BgL_curz00_7682) == 44L))
																						{	/* Read/reader.scm 409 */
																							BgL_test9229z00_28261 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Read/reader.scm 409 */
																							BgL_test9229z00_28261 =
																								(
																								(long) (BgL_curz00_7682) ==
																								96L);
																				}}
																			if (BgL_test9229z00_28261)
																				{
																					long BgL_bufposz00_28274;
																					long BgL_forwardz00_28272;
																					long BgL_lastzd2matchzd2_28271;
																					obj_t BgL_iportz00_28270;

																					BgL_iportz00_28270 =
																						BgL_iportz00_7672;
																					BgL_lastzd2matchzd2_28271 =
																						BgL_newzd2matchzd2_7677;
																					BgL_forwardz00_28272 =
																						(1L + BgL_forwardz00_7674);
																					BgL_bufposz00_28274 =
																						BgL_bufposz00_7675;
																					BgL_bufposz00_6105 =
																						BgL_bufposz00_28274;
																					BgL_forwardz00_6104 =
																						BgL_forwardz00_28272;
																					BgL_lastzd2matchzd2_6103 =
																						BgL_lastzd2matchzd2_28271;
																					BgL_iportz00_6102 =
																						BgL_iportz00_28270;
																					goto
																						BgL_zc3z04anonymousza34018ze3z87_6106;
																				}
																			else
																				{	/* Read/reader.scm 409 */
																					bool_t BgL_test9232z00_28275;

																					if (((long) (BgL_curz00_7682) < 33L))
																						{	/* Read/reader.scm 409 */
																							BgL_test9232z00_28275 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Read/reader.scm 409 */
																							bool_t BgL_test9234z00_28279;

																							if (
																								((long) (BgL_curz00_7682) ==
																									35L))
																								{	/* Read/reader.scm 409 */
																									BgL_test9234z00_28279 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Read/reader.scm 409 */
																									BgL_test9234z00_28279 =
																										(
																										(long) (BgL_curz00_7682) ==
																										34L);
																								}
																							if (BgL_test9234z00_28279)
																								{	/* Read/reader.scm 409 */
																									BgL_test9232z00_28275 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Read/reader.scm 409 */
																									bool_t BgL_test9236z00_28285;

																									if (
																										((long) (BgL_curz00_7682) ==
																											41L))
																										{	/* Read/reader.scm 409 */
																											BgL_test9236z00_28285 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 409 */
																											if (
																												((long)
																													(BgL_curz00_7682) ==
																													40L))
																												{	/* Read/reader.scm 409 */
																													BgL_test9236z00_28285
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													BgL_test9236z00_28285
																														=
																														((long)
																														(BgL_curz00_7682) ==
																														39L);
																										}}
																									if (BgL_test9236z00_28285)
																										{	/* Read/reader.scm 409 */
																											BgL_test9232z00_28275 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 409 */
																											if (
																												((long)
																													(BgL_curz00_7682) ==
																													44L))
																												{	/* Read/reader.scm 409 */
																													BgL_test9232z00_28275
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													if (
																														((long)
																															(BgL_curz00_7682)
																															== 46L))
																														{	/* Read/reader.scm 409 */
																															BgL_test9232z00_28275
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 409 */
																															bool_t
																																BgL_test9241z00_28300;
																															if (((long)
																																	(BgL_curz00_7682)
																																	== 59L))
																																{	/* Read/reader.scm 409 */
																																	BgL_test9241z00_28300
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	BgL_test9241z00_28300
																																		=
																																		((long)
																																		(BgL_curz00_7682)
																																		== 58L);
																																}
																															if (BgL_test9241z00_28300)
																																{	/* Read/reader.scm 409 */
																																	BgL_test9232z00_28275
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 409 */
																																	if (
																																		((long)
																																			(BgL_curz00_7682)
																																			== 91L))
																																		{	/* Read/reader.scm 409 */
																																			BgL_test9232z00_28275
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 409 */
																																			if (
																																				((long)
																																					(BgL_curz00_7682)
																																					==
																																					93L))
																																				{	/* Read/reader.scm 409 */
																																					BgL_test9232z00_28275
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 409 */
																																					if (
																																						((long) (BgL_curz00_7682) == 96L))
																																						{	/* Read/reader.scm 409 */
																																							BgL_test9232z00_28275
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 409 */
																																							bool_t
																																								BgL_test9246z00_28315;
																																							if (((long) (BgL_curz00_7682) == 125L))
																																								{	/* Read/reader.scm 409 */
																																									BgL_test9246z00_28315
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									if (((long) (BgL_curz00_7682) == 124L))
																																										{	/* Read/reader.scm 409 */
																																											BgL_test9246z00_28315
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 409 */
																																											BgL_test9246z00_28315
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_7682)
																																												==
																																												123L);
																																								}}
																																							if (BgL_test9246z00_28315)
																																								{	/* Read/reader.scm 409 */
																																									BgL_test9232z00_28275
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 409 */
																																									BgL_test9232z00_28275
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_7682)
																																										==
																																										127L);
																						}}}}}}}}}}
																					if (BgL_test9232z00_28275)
																						{	/* Read/reader.scm 409 */
																							BgL_matchz00_9747 =
																								BgL_newzd2matchzd2_7677;
																						}
																					else
																						{
																							long BgL_bufposz00_28330;
																							long BgL_forwardz00_28328;
																							long BgL_lastzd2matchzd2_28327;
																							obj_t BgL_iportz00_28326;

																							BgL_iportz00_28326 =
																								BgL_iportz00_7672;
																							BgL_lastzd2matchzd2_28327 =
																								BgL_newzd2matchzd2_7677;
																							BgL_forwardz00_28328 =
																								(1L + BgL_forwardz00_7674);
																							BgL_bufposz00_28330 =
																								BgL_bufposz00_7675;
																							BgL_bufposz00_4963 =
																								BgL_bufposz00_28330;
																							BgL_forwardz00_4962 =
																								BgL_forwardz00_28328;
																							BgL_lastzd2matchzd2_4961 =
																								BgL_lastzd2matchzd2_28327;
																							BgL_iportz00_4960 =
																								BgL_iportz00_28326;
																							goto
																								BgL_zc3z04anonymousza33439ze3z87_4964;
																						}
																				}
																		}
																}
														}
													}
											}
											break;
										case 10L:

											BgL_iportz00_8264 = BgL_iportz00_8604;
											BgL_lastzd2matchzd2_8265 = BgL_lastzd2matchzd2_8605;
											BgL_forwardz00_8266 = (1L + BgL_forwardz00_8606);
											BgL_bufposz00_8267 = BgL_bufposz00_8607;
										BgL_zc3z04anonymousza35128ze3z87_8268:
											{	/* Read/reader.scm 409 */
												long BgL_newzd2matchzd2_8269;

												{	/* Read/reader.scm 409 */
													obj_t BgL_tmpz00_28332;

													BgL_tmpz00_28332 = ((obj_t) BgL_iportz00_8264);
													RGC_STOP_MATCH(BgL_tmpz00_28332, BgL_forwardz00_8266);
												}
												BgL_newzd2matchzd2_8269 = 0L;
												if ((BgL_forwardz00_8266 == BgL_bufposz00_8267))
													{	/* Read/reader.scm 409 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_8264)))
															{	/* Read/reader.scm 409 */
																long BgL_arg5131z00_8272;
																long BgL_arg5132z00_8273;

																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_28340;

																	BgL_tmpz00_28340 =
																		((obj_t) BgL_iportz00_8264);
																	BgL_arg5131z00_8272 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_28340);
																}
																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_28343;

																	BgL_tmpz00_28343 =
																		((obj_t) BgL_iportz00_8264);
																	BgL_arg5132z00_8273 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_28343);
																}
																{
																	long BgL_bufposz00_28347;
																	long BgL_forwardz00_28346;

																	BgL_forwardz00_28346 = BgL_arg5131z00_8272;
																	BgL_bufposz00_28347 = BgL_arg5132z00_8273;
																	BgL_bufposz00_8267 = BgL_bufposz00_28347;
																	BgL_forwardz00_8266 = BgL_forwardz00_28346;
																	goto BgL_zc3z04anonymousza35128ze3z87_8268;
																}
															}
														else
															{	/* Read/reader.scm 409 */
																BgL_matchz00_9747 = BgL_newzd2matchzd2_8269;
															}
													}
												else
													{	/* Read/reader.scm 409 */
														int BgL_curz00_8274;

														{	/* Read/reader.scm 409 */
															obj_t BgL_tmpz00_28348;

															BgL_tmpz00_28348 = ((obj_t) BgL_iportz00_8264);
															BgL_curz00_8274 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_28348,
																BgL_forwardz00_8266);
														}
														{	/* Read/reader.scm 409 */

															if (((long) (BgL_curz00_8274) == 10L))
																{	/* Read/reader.scm 409 */
																	BgL_iportz00_8977 = BgL_iportz00_8264;
																	BgL_lastzd2matchzd2_8978 =
																		BgL_newzd2matchzd2_8269;
																	BgL_forwardz00_8979 =
																		(1L + BgL_forwardz00_8266);
																	BgL_bufposz00_8980 = BgL_bufposz00_8267;
																BgL_zc3z04anonymousza35489ze3z87_8981:
																	{	/* Read/reader.scm 409 */
																		long BgL_newzd2matchzd2_8982;

																		{	/* Read/reader.scm 409 */
																			obj_t BgL_tmpz00_28354;

																			BgL_tmpz00_28354 =
																				((obj_t) BgL_iportz00_8977);
																			RGC_STOP_MATCH(BgL_tmpz00_28354,
																				BgL_forwardz00_8979);
																		}
																		BgL_newzd2matchzd2_8982 = 0L;
																		if (
																			(BgL_forwardz00_8979 ==
																				BgL_bufposz00_8980))
																			{	/* Read/reader.scm 409 */
																				if (rgc_fill_buffer(
																						((obj_t) BgL_iportz00_8977)))
																					{	/* Read/reader.scm 409 */
																						long BgL_arg5492z00_8985;
																						long BgL_arg5493z00_8986;

																						{	/* Read/reader.scm 409 */
																							obj_t BgL_tmpz00_28362;

																							BgL_tmpz00_28362 =
																								((obj_t) BgL_iportz00_8977);
																							BgL_arg5492z00_8985 =
																								RGC_BUFFER_FORWARD
																								(BgL_tmpz00_28362);
																						}
																						{	/* Read/reader.scm 409 */
																							obj_t BgL_tmpz00_28365;

																							BgL_tmpz00_28365 =
																								((obj_t) BgL_iportz00_8977);
																							BgL_arg5493z00_8986 =
																								RGC_BUFFER_BUFPOS
																								(BgL_tmpz00_28365);
																						}
																						{
																							long BgL_bufposz00_28369;
																							long BgL_forwardz00_28368;

																							BgL_forwardz00_28368 =
																								BgL_arg5492z00_8985;
																							BgL_bufposz00_28369 =
																								BgL_arg5493z00_8986;
																							BgL_bufposz00_8980 =
																								BgL_bufposz00_28369;
																							BgL_forwardz00_8979 =
																								BgL_forwardz00_28368;
																							goto
																								BgL_zc3z04anonymousza35489ze3z87_8981;
																						}
																					}
																				else
																					{	/* Read/reader.scm 409 */
																						BgL_matchz00_9747 =
																							BgL_newzd2matchzd2_8982;
																					}
																			}
																		else
																			{	/* Read/reader.scm 409 */
																				int BgL_curz00_8987;

																				{	/* Read/reader.scm 409 */
																					obj_t BgL_tmpz00_28370;

																					BgL_tmpz00_28370 =
																						((obj_t) BgL_iportz00_8977);
																					BgL_curz00_8987 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_tmpz00_28370,
																						BgL_forwardz00_8979);
																				}
																				{	/* Read/reader.scm 409 */

																					if (((long) (BgL_curz00_8987) == 10L))
																						{
																							long BgL_forwardz00_28377;
																							long BgL_lastzd2matchzd2_28376;

																							BgL_lastzd2matchzd2_28376 =
																								BgL_newzd2matchzd2_8982;
																							BgL_forwardz00_28377 =
																								(1L + BgL_forwardz00_8979);
																							BgL_forwardz00_8979 =
																								BgL_forwardz00_28377;
																							BgL_lastzd2matchzd2_8978 =
																								BgL_lastzd2matchzd2_28376;
																							goto
																								BgL_zc3z04anonymousza35489ze3z87_8981;
																						}
																					else
																						{	/* Read/reader.scm 409 */
																							BgL_matchz00_9747 =
																								BgL_newzd2matchzd2_8982;
																						}
																				}
																			}
																	}
																}
															else
																{	/* Read/reader.scm 409 */
																	BgL_matchz00_9747 = BgL_newzd2matchzd2_8269;
																}
														}
													}
											}
											break;
										case 32L:
										case 13L:
										case 12L:
										case 11L:
										case 9L:

											BgL_iportz00_8241 = BgL_iportz00_8604;
											BgL_lastzd2matchzd2_8242 = BgL_lastzd2matchzd2_8605;
											BgL_forwardz00_8243 = (1L + BgL_forwardz00_8606);
											BgL_bufposz00_8244 = BgL_bufposz00_8607;
										BgL_zc3z04anonymousza35117ze3z87_8245:
											{	/* Read/reader.scm 409 */
												long BgL_newzd2matchzd2_8246;

												{	/* Read/reader.scm 409 */
													obj_t BgL_tmpz00_28381;

													BgL_tmpz00_28381 = ((obj_t) BgL_iportz00_8241);
													RGC_STOP_MATCH(BgL_tmpz00_28381, BgL_forwardz00_8243);
												}
												BgL_newzd2matchzd2_8246 = 1L;
												if ((BgL_forwardz00_8243 == BgL_bufposz00_8244))
													{	/* Read/reader.scm 409 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_8241)))
															{	/* Read/reader.scm 409 */
																long BgL_arg5120z00_8249;
																long BgL_arg5121z00_8250;

																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_28389;

																	BgL_tmpz00_28389 =
																		((obj_t) BgL_iportz00_8241);
																	BgL_arg5120z00_8249 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_28389);
																}
																{	/* Read/reader.scm 409 */
																	obj_t BgL_tmpz00_28392;

																	BgL_tmpz00_28392 =
																		((obj_t) BgL_iportz00_8241);
																	BgL_arg5121z00_8250 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_28392);
																}
																{
																	long BgL_bufposz00_28396;
																	long BgL_forwardz00_28395;

																	BgL_forwardz00_28395 = BgL_arg5120z00_8249;
																	BgL_bufposz00_28396 = BgL_arg5121z00_8250;
																	BgL_bufposz00_8244 = BgL_bufposz00_28396;
																	BgL_forwardz00_8243 = BgL_forwardz00_28395;
																	goto BgL_zc3z04anonymousza35117ze3z87_8245;
																}
															}
														else
															{	/* Read/reader.scm 409 */
																BgL_matchz00_9747 = BgL_newzd2matchzd2_8246;
															}
													}
												else
													{	/* Read/reader.scm 409 */
														int BgL_curz00_8251;

														{	/* Read/reader.scm 409 */
															obj_t BgL_tmpz00_28397;

															BgL_tmpz00_28397 = ((obj_t) BgL_iportz00_8241);
															BgL_curz00_8251 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_28397,
																BgL_forwardz00_8243);
														}
														{	/* Read/reader.scm 409 */

															{	/* Read/reader.scm 409 */
																bool_t BgL_test9257z00_28400;

																if (((long) (BgL_curz00_8251) == 9L))
																	{	/* Read/reader.scm 409 */
																		BgL_test9257z00_28400 = ((bool_t) 1);
																	}
																else
																	{	/* Read/reader.scm 409 */
																		bool_t BgL_test9259z00_28404;

																		if (((long) (BgL_curz00_8251) == 13L))
																			{	/* Read/reader.scm 409 */
																				BgL_test9259z00_28404 = ((bool_t) 1);
																			}
																		else
																			{	/* Read/reader.scm 409 */
																				if (((long) (BgL_curz00_8251) == 12L))
																					{	/* Read/reader.scm 409 */
																						BgL_test9259z00_28404 =
																							((bool_t) 1);
																					}
																				else
																					{	/* Read/reader.scm 409 */
																						BgL_test9259z00_28404 =
																							((long) (BgL_curz00_8251) == 11L);
																			}}
																		if (BgL_test9259z00_28404)
																			{	/* Read/reader.scm 409 */
																				BgL_test9257z00_28400 = ((bool_t) 1);
																			}
																		else
																			{	/* Read/reader.scm 409 */
																				BgL_test9257z00_28400 =
																					((long) (BgL_curz00_8251) == 32L);
																	}}
																if (BgL_test9257z00_28400)
																	{	/* Read/reader.scm 409 */
																		BgL_iportz00_8990 = BgL_iportz00_8241;
																		BgL_lastzd2matchzd2_8991 =
																			BgL_newzd2matchzd2_8246;
																		BgL_forwardz00_8992 =
																			(1L + BgL_forwardz00_8243);
																		BgL_bufposz00_8993 = BgL_bufposz00_8244;
																	BgL_zc3z04anonymousza35496ze3z87_8994:
																		{	/* Read/reader.scm 409 */
																			long BgL_newzd2matchzd2_8995;

																			{	/* Read/reader.scm 409 */
																				obj_t BgL_tmpz00_28415;

																				BgL_tmpz00_28415 =
																					((obj_t) BgL_iportz00_8990);
																				RGC_STOP_MATCH(BgL_tmpz00_28415,
																					BgL_forwardz00_8992);
																			}
																			BgL_newzd2matchzd2_8995 = 1L;
																			if (
																				(BgL_forwardz00_8992 ==
																					BgL_bufposz00_8993))
																				{	/* Read/reader.scm 409 */
																					if (rgc_fill_buffer(
																							((obj_t) BgL_iportz00_8990)))
																						{	/* Read/reader.scm 409 */
																							long BgL_arg5499z00_8998;
																							long BgL_arg5500z00_8999;

																							{	/* Read/reader.scm 409 */
																								obj_t BgL_tmpz00_28423;

																								BgL_tmpz00_28423 =
																									((obj_t) BgL_iportz00_8990);
																								BgL_arg5499z00_8998 =
																									RGC_BUFFER_FORWARD
																									(BgL_tmpz00_28423);
																							}
																							{	/* Read/reader.scm 409 */
																								obj_t BgL_tmpz00_28426;

																								BgL_tmpz00_28426 =
																									((obj_t) BgL_iportz00_8990);
																								BgL_arg5500z00_8999 =
																									RGC_BUFFER_BUFPOS
																									(BgL_tmpz00_28426);
																							}
																							{
																								long BgL_bufposz00_28430;
																								long BgL_forwardz00_28429;

																								BgL_forwardz00_28429 =
																									BgL_arg5499z00_8998;
																								BgL_bufposz00_28430 =
																									BgL_arg5500z00_8999;
																								BgL_bufposz00_8993 =
																									BgL_bufposz00_28430;
																								BgL_forwardz00_8992 =
																									BgL_forwardz00_28429;
																								goto
																									BgL_zc3z04anonymousza35496ze3z87_8994;
																							}
																						}
																					else
																						{	/* Read/reader.scm 409 */
																							BgL_matchz00_9747 =
																								BgL_newzd2matchzd2_8995;
																						}
																				}
																			else
																				{	/* Read/reader.scm 409 */
																					int BgL_curz00_9000;

																					{	/* Read/reader.scm 409 */
																						obj_t BgL_tmpz00_28431;

																						BgL_tmpz00_28431 =
																							((obj_t) BgL_iportz00_8990);
																						BgL_curz00_9000 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_tmpz00_28431,
																							BgL_forwardz00_8992);
																					}
																					{	/* Read/reader.scm 409 */

																						{	/* Read/reader.scm 409 */
																							bool_t BgL_test9264z00_28434;

																							if (
																								((long) (BgL_curz00_9000) ==
																									9L))
																								{	/* Read/reader.scm 409 */
																									BgL_test9264z00_28434 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Read/reader.scm 409 */
																									bool_t BgL_test9266z00_28438;

																									if (
																										((long) (BgL_curz00_9000) ==
																											13L))
																										{	/* Read/reader.scm 409 */
																											BgL_test9266z00_28438 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 409 */
																											if (
																												((long)
																													(BgL_curz00_9000) ==
																													12L))
																												{	/* Read/reader.scm 409 */
																													BgL_test9266z00_28438
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 409 */
																													BgL_test9266z00_28438
																														=
																														((long)
																														(BgL_curz00_9000) ==
																														11L);
																										}}
																									if (BgL_test9266z00_28438)
																										{	/* Read/reader.scm 409 */
																											BgL_test9264z00_28434 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 409 */
																											BgL_test9264z00_28434 =
																												(
																												(long) (BgL_curz00_9000)
																												== 32L);
																								}}
																							if (BgL_test9264z00_28434)
																								{
																									long BgL_forwardz00_28450;
																									long
																										BgL_lastzd2matchzd2_28449;
																									BgL_lastzd2matchzd2_28449 =
																										BgL_newzd2matchzd2_8995;
																									BgL_forwardz00_28450 =
																										(1L + BgL_forwardz00_8992);
																									BgL_forwardz00_8992 =
																										BgL_forwardz00_28450;
																									BgL_lastzd2matchzd2_8991 =
																										BgL_lastzd2matchzd2_28449;
																									goto
																										BgL_zc3z04anonymousza35496ze3z87_8994;
																								}
																							else
																								{	/* Read/reader.scm 409 */
																									BgL_matchz00_9747 =
																										BgL_newzd2matchzd2_8995;
																								}
																						}
																					}
																				}
																		}
																	}
																else
																	{	/* Read/reader.scm 409 */
																		BgL_matchz00_9747 = BgL_newzd2matchzd2_8246;
																	}
															}
														}
													}
											}
											break;
										case 127L:
										case 123L:
										case 31L:
										case 30L:
										case 29L:
										case 28L:
										case 27L:
										case 26L:
										case 25L:
										case 24L:
										case 23L:
										case 22L:
										case 21L:
										case 20L:
										case 19L:
										case 18L:
										case 17L:
										case 16L:
										case 15L:
										case 14L:
										case 8L:
										case 7L:
										case 6L:
										case 5L:
										case 4L:
										case 3L:
										case 2L:
										case 1L:
										case 0L:

											{	/* Read/reader.scm 409 */
												long BgL_arg5317z00_8634;

												BgL_arg5317z00_8634 = (1L + BgL_forwardz00_8606);
												{	/* Read/reader.scm 409 */
													long BgL_newzd2matchzd2_16049;

													{	/* Read/reader.scm 409 */
														obj_t BgL_tmpz00_28455;

														BgL_tmpz00_28455 = ((obj_t) BgL_iportz00_8604);
														RGC_STOP_MATCH(BgL_tmpz00_28455,
															BgL_arg5317z00_8634);
													}
													BgL_newzd2matchzd2_16049 = 38L;
													BgL_matchz00_9747 = BgL_newzd2matchzd2_16049;
											}} break;
										default:
											BgL_matchz00_9747 = BgL_lastzd2matchzd2_8605;
										}
								}
							}
					}
					{	/* Read/reader.scm 409 */
						obj_t BgL_tmpz00_28460;

						BgL_tmpz00_28460 = ((obj_t) BgL_iportz00_17898);
						RGC_SET_FILEPOS(BgL_tmpz00_28460);
					}
					switch (BgL_matchz00_9747)
						{
						case 38L:

							{	/* Read/reader.scm 781 */
								obj_t BgL_charz00_9750;

								{	/* Read/reader.scm 409 */
									bool_t BgL_test9269z00_28463;

									{	/* Read/reader.scm 409 */
										long BgL_arg5888z00_9705;

										{	/* Read/reader.scm 409 */
											obj_t BgL_tmpz00_28464;

											BgL_tmpz00_28464 = ((obj_t) BgL_iportz00_17898);
											BgL_arg5888z00_9705 =
												RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_28464);
										}
										BgL_test9269z00_28463 = (BgL_arg5888z00_9705 == 0L);
									}
									if (BgL_test9269z00_28463)
										{	/* Read/reader.scm 409 */
											BgL_charz00_9750 = BEOF;
										}
									else
										{	/* Read/reader.scm 409 */
											unsigned char BgL_tmpz00_28468;

											{	/* Read/reader.scm 409 */
												obj_t BgL_tmpz00_28469;

												BgL_tmpz00_28469 = ((obj_t) BgL_iportz00_17898);
												BgL_tmpz00_28468 =
													RGC_BUFFER_CHARACTER(BgL_tmpz00_28469);
											}
											BgL_charz00_9750 = BCHAR(BgL_tmpz00_28468);
								}}
								if (EOF_OBJECTP(BgL_charz00_9750))
									{	/* Read/reader.scm 785 */
										bool_t BgL_test9271z00_28475;

										{	/* Read/reader.scm 785 */
											long BgL_n1z00_16715;

											BgL_n1z00_16715 =
												(long)
												CINT(BGL_UNSAFE_CELL_REF(BgL_parzd2openzd2_17901));
											BgL_test9271z00_28475 = (BgL_n1z00_16715 > 0L);
										}
										if (BgL_test9271z00_28475)
											{	/* Read/reader.scm 786 */
												obj_t BgL_arg5909z00_9753;

												{	/* Read/reader.scm 786 */
													obj_t BgL_pairz00_16716;

													BgL_pairz00_16716 =
														BGL_UNSAFE_CELL_REF(BgL_parzd2poseszd2_17899);
													BgL_arg5909z00_9753 = CAR(BgL_pairz00_16716);
												}
												return
													BGl_readzd2errorzf2locz20zz__readerz00
													(BgL_arg5909z00_9753, BGl_string6865z00zz__readerz00,
													BGl_string6866z00zz__readerz00,
													((obj_t) BgL_iportz00_17898));
											}
										else
											{	/* Read/reader.scm 790 */
												bool_t BgL_test9272z00_28481;

												{	/* Read/reader.scm 790 */
													long BgL_n1z00_16718;

													BgL_n1z00_16718 =
														(long)
														CINT(BGL_UNSAFE_CELL_REF(BgL_brazd2openzd2_17900));
													BgL_test9272z00_28481 = (BgL_n1z00_16718 > 0L);
												}
												if (BgL_test9272z00_28481)
													{	/* Read/reader.scm 791 */
														obj_t BgL_arg5912z00_9756;

														{	/* Read/reader.scm 791 */
															obj_t BgL_pairz00_16719;

															BgL_pairz00_16719 =
																BGL_UNSAFE_CELL_REF(BgL_parzd2poseszd2_17899);
															BgL_arg5912z00_9756 = CAR(BgL_pairz00_16719);
														}
														return
															BGl_readzd2errorzf2locz20zz__readerz00
															(BgL_arg5912z00_9756,
															BGl_string6865z00zz__readerz00,
															BGl_string6867z00zz__readerz00,
															((obj_t) BgL_iportz00_17898));
													}
												else
													{	/* Read/reader.scm 790 */
														reset_eof(((obj_t) BgL_iportz00_17898));
														return BgL_charz00_9750;
													}
											}
									}
								else
									{	/* Read/reader.scm 798 */
										obj_t BgL_g1339z00_9759;

										{	/* Read/reader.scm 909 */
											obj_t BgL_cz00_16723;

											BgL_cz00_16723 =
												BGl_assqz00zz__r4_pairs_and_lists_6_3z00
												(BgL_charz00_9750,
												BGl_za2readerzd2extensionsza2zd2zz__readerz00);
											if (PAIRP(BgL_cz00_16723))
												{	/* Read/reader.scm 910 */
													BgL_g1339z00_9759 = CDR(BgL_cz00_16723);
												}
											else
												{	/* Read/reader.scm 910 */
													BgL_g1339z00_9759 = BFALSE;
												}
										}
										if (CBOOL(BgL_g1339z00_9759))
											{	/* Read/reader.scm 798 */
												return
													BGL_PROCEDURE_CALL1(BgL_g1339z00_9759,
													((obj_t) BgL_iportz00_17898));
											}
										else
											{	/* Read/reader.scm 803 */
												obj_t BgL_arg5916z00_9763;

												BgL_arg5916z00_9763 =
													BGl_illegalzd2charzd2repz00zz__r4_output_6_10_3z00
													(CCHAR(BgL_charz00_9750));
												return
													BGl_readzd2errorzd2zz__readerz00
													(BGl_string6868z00zz__readerz00, BgL_arg5916z00_9763,
													((obj_t) BgL_iportz00_17898));
											}
									}
							}
							break;
						case 37L:

							return
								BGl_z62zc3z04anonymousza31517ze3ze5zz__readerz00
								(BGl_za2sharpzd2grammarza2zd2zz__readerz00,
								((obj_t) BgL_iportz00_17898));
							break;
						case 36L:

							{	/* Read/reader.scm 765 */
								long BgL_noz00_9766;

								{	/* Read/reader.scm 765 */
									obj_t BgL_arg5921z00_9770;

									{	/* Read/reader.scm 765 */
										long BgL_arg5922z00_9771;

										{	/* Read/reader.scm 765 */
											long BgL_arg5923z00_9772;

											{	/* Read/reader.scm 409 */
												obj_t BgL_tmpz00_28509;

												BgL_tmpz00_28509 = ((obj_t) BgL_iportz00_17898);
												BgL_arg5923z00_9772 =
													RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_28509);
											}
											BgL_arg5922z00_9771 = (BgL_arg5923z00_9772 - 1L);
										}
										BgL_arg5921z00_9770 =
											BGl_thezd2substringze71z35zz__readerz00
											(BgL_iportz00_17898, (int) (1L),
											(int) (BgL_arg5922z00_9771));
									}
									{	/* Read/reader.scm 765 */
										char *BgL_tmpz00_28516;

										BgL_tmpz00_28516 = BSTRING_TO_STRING(BgL_arg5921z00_9770);
										BgL_noz00_9766 = BGL_STRTOL(BgL_tmpz00_28516, 0L, 10L);
								}}
								{	/* Read/reader.scm 765 */

									if (CBOOL(
											((obj_t)
												((obj_t) BGL_UNSAFE_CELL_REF(BgL_resolvez00_17903)))))
										{	/* Read/reader.scm 770 */
											obj_t BgL_valz00_9767;

											{	/* Read/reader.scm 770 */
												obj_t BgL_vectorz00_16731;

												BgL_vectorz00_16731 =
													BGL_UNSAFE_CELL_REF(BgL_cyclesz00_17902);
												BgL_valz00_9767 =
													VECTOR_REF(BgL_vectorz00_16731, BgL_noz00_9766);
											}
											if (CBOOL(BgL_valz00_9767))
												{	/* Read/reader.scm 771 */
													return BgL_valz00_9767;
												}
											else
												{	/* Read/reader.scm 771 */
													return
														BGl_readzd2errorzd2zz__readerz00
														(BGl_string6869z00zz__readerz00,
														BINT(BgL_noz00_9766), ((obj_t) BgL_iportz00_17898));
												}
										}
									else
										{	/* Read/reader.scm 768 */
											obj_t BgL_zc3z04anonymousza35920ze3z87_17819;

											BgL_zc3z04anonymousza35920ze3z87_17819 =
												MAKE_FX_PROCEDURE
												(BGl_z62zc3z04anonymousza35920ze3ze5zz__readerz00,
												(int) (0L), (int) (1L));
											PROCEDURE_SET(BgL_zc3z04anonymousza35920ze3z87_17819,
												(int) (0L), BINT(BgL_noz00_9766));
											return BgL_zc3z04anonymousza35920ze3z87_17819;
										}
								}
							}
							break;
						case 35L:

							{	/* Read/reader.scm 739 */
								long BgL_noz00_9773;

								{	/* Read/reader.scm 739 */
									obj_t BgL_arg5940z00_9801;

									{	/* Read/reader.scm 739 */
										long BgL_arg5941z00_9802;

										{	/* Read/reader.scm 739 */
											long BgL_arg5942z00_9803;

											{	/* Read/reader.scm 409 */
												obj_t BgL_tmpz00_28534;

												BgL_tmpz00_28534 = ((obj_t) BgL_iportz00_17898);
												BgL_arg5942z00_9803 =
													RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_28534);
											}
											BgL_arg5941z00_9802 = (BgL_arg5942z00_9803 - 1L);
										}
										BgL_arg5940z00_9801 =
											BGl_thezd2substringze71z35zz__readerz00
											(BgL_iportz00_17898, (int) (1L),
											(int) (BgL_arg5941z00_9802));
									}
									{	/* Read/reader.scm 739 */
										char *BgL_tmpz00_28541;

										BgL_tmpz00_28541 = BSTRING_TO_STRING(BgL_arg5940z00_9801);
										BgL_noz00_9773 = BGL_STRTOL(BgL_tmpz00_28541, 0L, 10L);
								}}
								{	/* Read/reader.scm 739 */
									long BgL_posz00_9774;

									{	/* Read/reader.scm 740 */
										obj_t BgL_tmpz00_28544;

										BgL_tmpz00_28544 = ((obj_t) BgL_iportz00_17898);
										BgL_posz00_9774 = INPUT_PORT_FILEPOS(BgL_tmpz00_28544);
									}
									{	/* Read/reader.scm 740 */
										bool_t BgL_rsvpz00_9775;

										BgL_rsvpz00_9775 =
											CBOOL(
											((obj_t)
												((obj_t) BGL_UNSAFE_CELL_REF(BgL_resolvez00_17903))));
										{	/* Read/reader.scm 741 */

											{	/* Read/reader.scm 742 */
												obj_t BgL_auxz00_17906;

												BgL_auxz00_17906 = BFALSE;
												BGL_UNSAFE_CELL_SET(BgL_resolvez00_17903,
													BgL_auxz00_17906);
											}
											{	/* Read/reader.scm 743 */
												obj_t BgL_thezd2objectzd2_9776;

												BgL_thezd2objectzd2_9776 =
													BGl_ignoreze70ze7zz__readerz00(BgL_pospz00_17905,
													BgL_brazd2poseszd2_17904, BgL_resolvez00_17903,
													BgL_cyclesz00_17902, BgL_parzd2openzd2_17901,
													BgL_brazd2openzd2_17900, BgL_parzd2poseszd2_17899,
													BgL_iportz00_17898);
												if (EOF_OBJECTP(BgL_thezd2objectzd2_9776))
													{	/* Read/reader.scm 745 */
														BGl_readzd2errorzf2locz20zz__readerz00(BINT
															(BgL_posz00_9774), BGl_string6870z00zz__readerz00,
															BINT(BgL_noz00_9773),
															((obj_t) BgL_iportz00_17898));
													}
												else
													{	/* Read/reader.scm 747 */
														bool_t BgL_test9278z00_28556;

														{	/* Read/reader.scm 747 */
															long BgL_arg5931z00_9792;

															{	/* Read/reader.scm 747 */
																obj_t BgL_vectorz00_16739;

																BgL_vectorz00_16739 =
																	BGL_UNSAFE_CELL_REF(BgL_cyclesz00_17902);
																BgL_arg5931z00_9792 =
																	VECTOR_LENGTH(BgL_vectorz00_16739);
															}
															BgL_test9278z00_28556 =
																(BgL_noz00_9773 >= BgL_arg5931z00_9792);
														}
														if (BgL_test9278z00_28556)
															{	/* Read/reader.scm 749 */
																long BgL_oldzd2lengthzd2_9781;

																{	/* Read/reader.scm 749 */
																	obj_t BgL_vectorz00_16742;

																	BgL_vectorz00_16742 =
																		BGL_UNSAFE_CELL_REF(BgL_cyclesz00_17902);
																	BgL_oldzd2lengthzd2_9781 =
																		VECTOR_LENGTH(BgL_vectorz00_16742);
																}
																{	/* Read/reader.scm 749 */
																	obj_t BgL_newzd2lengthzd2_9782;

																	{	/* Read/reader.scm 750 */
																		obj_t BgL_az00_9789;
																		long BgL_bz00_9790;

																		{	/* Read/reader.scm 750 */
																			obj_t BgL_za71za7_16743;

																			BgL_za71za7_16743 = BINT(BgL_noz00_9773);
																			{	/* Read/reader.scm 750 */
																				obj_t BgL_tmpz00_16745;

																				BgL_tmpz00_16745 = BINT(0L);
																				{	/* Read/reader.scm 750 */
																					bool_t BgL_test9279z00_28562;

																					{	/* Read/reader.scm 750 */
																						obj_t BgL_tmpz00_28563;

																						BgL_tmpz00_28563 = BINT(1L);
																						BgL_test9279z00_28562 =
																							BGL_ADDFX_OV(BgL_za71za7_16743,
																							BgL_tmpz00_28563,
																							BgL_tmpz00_16745);
																					}
																					if (BgL_test9279z00_28562)
																						{	/* Read/reader.scm 750 */
																							BgL_az00_9789 =
																								bgl_bignum_add
																								(bgl_long_to_bignum((long)
																									CINT(BgL_za71za7_16743)),
																								bgl_long_to_bignum(1L));
																						}
																					else
																						{	/* Read/reader.scm 750 */
																							BgL_az00_9789 = BgL_tmpz00_16745;
																						}
																				}
																			}
																		}
																		BgL_bz00_9790 =
																			(BgL_oldzd2lengthzd2_9781 * 2L);
																		if (
																			((long) CINT(BgL_az00_9789) >
																				BgL_bz00_9790))
																			{	/* Read/reader.scm 750 */
																				BgL_newzd2lengthzd2_9782 =
																					BgL_az00_9789;
																			}
																		else
																			{	/* Read/reader.scm 750 */
																				BgL_newzd2lengthzd2_9782 =
																					BINT(BgL_bz00_9790);
																			}
																	}
																	{	/* Read/reader.scm 750 */
																		obj_t BgL_newzd2cycleszd2_9783;

																		BgL_newzd2cycleszd2_9783 =
																			make_vector(
																			(long) CINT(BgL_newzd2lengthzd2_9782),
																			BFALSE);
																		{	/* Read/reader.scm 751 */

																			{	/* Read/reader.scm 752 */
																				obj_t BgL_sourcez00_9786;

																				BgL_sourcez00_9786 =
																					BGL_UNSAFE_CELL_REF
																					(BgL_cyclesz00_17902);
																				{	/* Ieee/vector.scm 112 */

																					BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
																						(BgL_newzd2cycleszd2_9783, 0L,
																						BgL_sourcez00_9786, BINT(0L),
																						BINT(VECTOR_LENGTH(((obj_t)
																									BgL_sourcez00_9786))));
																			}}
																			{	/* Read/reader.scm 753 */
																				obj_t BgL_auxz00_17907;

																				BgL_auxz00_17907 =
																					BgL_newzd2cycleszd2_9783;
																				BGL_UNSAFE_CELL_SET(BgL_cyclesz00_17902,
																					BgL_auxz00_17907);
															}}}}}
														else
															{	/* Read/reader.scm 747 */
																BFALSE;
															}
													}
												{	/* Read/reader.scm 754 */
													bool_t BgL_test9281z00_28582;

													{	/* Read/reader.scm 754 */
														obj_t BgL_vectorz00_16757;

														BgL_vectorz00_16757 =
															BGL_UNSAFE_CELL_REF(BgL_cyclesz00_17902);
														BgL_test9281z00_28582 =
															CBOOL(VECTOR_REF(BgL_vectorz00_16757,
																BgL_noz00_9773));
													}
													if (BgL_test9281z00_28582)
														{	/* Read/reader.scm 756 */
															obj_t BgL_arg5933z00_9794;

															{	/* Read/reader.scm 756 */
																obj_t BgL_arg5935z00_9796;

																{	/* Read/reader.scm 756 */
																	obj_t BgL_vectorz00_16759;

																	BgL_vectorz00_16759 =
																		BGL_UNSAFE_CELL_REF(BgL_cyclesz00_17902);
																	BgL_arg5935z00_9796 =
																		VECTOR_REF(BgL_vectorz00_16759,
																		BgL_noz00_9773);
																}
																{	/* Read/reader.scm 756 */
																	obj_t BgL_list5936z00_9797;

																	{	/* Read/reader.scm 756 */
																		obj_t BgL_arg5937z00_9798;

																		BgL_arg5937z00_9798 =
																			MAKE_YOUNG_PAIR(BgL_arg5935z00_9796,
																			BNIL);
																		BgL_list5936z00_9797 =
																			MAKE_YOUNG_PAIR(BINT(BgL_noz00_9773),
																			BgL_arg5937z00_9798);
																	}
																	BgL_arg5933z00_9794 = BgL_list5936z00_9797;
																}
															}
															BGl_readzd2errorzd2zz__readerz00
																(BGl_string6871z00zz__readerz00,
																BgL_arg5933z00_9794,
																((obj_t) BgL_iportz00_17898));
														}
													else
														{	/* Read/reader.scm 754 */
															BFALSE;
														}
												}
												{	/* Read/reader.scm 757 */
													obj_t BgL_vectorz00_16763;

													BgL_vectorz00_16763 =
														BGL_UNSAFE_CELL_REF(BgL_cyclesz00_17902);
													VECTOR_SET(BgL_vectorz00_16763, BgL_noz00_9773,
														BgL_thezd2objectzd2_9776);
												}
												{	/* Read/reader.scm 758 */
													obj_t BgL_auxz00_17908;

													BgL_auxz00_17908 = BBOOL(BgL_rsvpz00_9775);
													BGL_UNSAFE_CELL_SET(BgL_resolvez00_17903,
														BgL_auxz00_17908);
												}
												if (BgL_rsvpz00_9775)
													{	/* Read/reader.scm 760 */
														obj_t BgL_cyclesz00_18014;

														BgL_cyclesz00_18014 =
															BGL_UNSAFE_CELL_REF(BgL_cyclesz00_17902);
														return
															BGl_loopze70ze7zz__readerz00(
															((obj_t) BgL_iportz00_17898), BgL_cyclesz00_18014,
															BgL_thezd2objectzd2_9776);
													}
												else
													{	/* Read/reader.scm 759 */
														return BgL_thezd2objectzd2_9776;
													}
											}
										}
									}
								}
							}
							break;
						case 34L:

							{	/* Read/reader.scm 723 */
								obj_t BgL_auxz00_17909;

								BgL_auxz00_17909 =
									SUBFX(BGL_UNSAFE_CELL_REF(BgL_brazd2openzd2_17900), BINT(1L));
								BGL_UNSAFE_CELL_SET(BgL_brazd2openzd2_17900, BgL_auxz00_17909);
							}
							{	/* Read/reader.scm 724 */
								bool_t BgL_test9283z00_28598;

								{	/* Read/reader.scm 724 */
									long BgL_n1z00_16767;

									BgL_n1z00_16767 =
										(long) CINT(BGL_UNSAFE_CELL_REF(BgL_brazd2openzd2_17900));
									BgL_test9283z00_28598 = (BgL_n1z00_16767 < 0L);
								}
								if (BgL_test9283z00_28598)
									{	/* Read/reader.scm 724 */
										{	/* Read/reader.scm 726 */
											obj_t BgL_arg5944z00_9805;
											long BgL_arg5945z00_9806;
											obj_t BgL_arg5946z00_9807;

											{	/* Read/reader.scm 726 */
												obj_t BgL_tmpz00_28601;

												BgL_tmpz00_28601 = ((obj_t) BgL_iportz00_17898);
												BgL_arg5944z00_9805 = INPUT_PORT_NAME(BgL_tmpz00_28601);
											}
											{	/* Read/reader.scm 727 */
												long BgL_res6762z00_16772;

												{	/* Read/reader.scm 727 */
													long BgL_tmpz00_28604;

													{	/* Read/reader.scm 727 */
														obj_t BgL_tmpz00_28605;

														BgL_tmpz00_28605 = ((obj_t) BgL_iportz00_17898);
														BgL_tmpz00_28604 =
															INPUT_PORT_TOKENPOS(BgL_tmpz00_28605);
													}
													BgL_res6762z00_16772 = (long) (BgL_tmpz00_28604);
												}
												BgL_arg5945z00_9806 = BgL_res6762z00_16772;
											}
											{	/* Read/reader.scm 409 */
												long BgL_arg5814z00_16773;

												{	/* Read/reader.scm 409 */
													obj_t BgL_tmpz00_28609;

													BgL_tmpz00_28609 = ((obj_t) BgL_iportz00_17898);
													BgL_arg5814z00_16773 =
														RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_28609);
												}
												BgL_arg5946z00_9807 =
													rgc_buffer_substring(
													((obj_t) BgL_iportz00_17898), 0L,
													BgL_arg5814z00_16773);
											}
											{	/* Read/reader.scm 726 */
												obj_t BgL_list5947z00_9808;

												{	/* Read/reader.scm 726 */
													obj_t BgL_arg5948z00_9809;

													{	/* Read/reader.scm 726 */
														obj_t BgL_arg5949z00_9810;

														BgL_arg5949z00_9810 =
															MAKE_YOUNG_PAIR(BgL_arg5946z00_9807, BNIL);
														BgL_arg5948z00_9809 =
															MAKE_YOUNG_PAIR(BGl_string6872z00zz__readerz00,
															BgL_arg5949z00_9810);
													}
													BgL_list5947z00_9808 =
														MAKE_YOUNG_PAIR(BGl_symbol6873z00zz__readerz00,
														BgL_arg5948z00_9809);
												}
												BGl_warningzf2locationzf2zz__errorz00
													(BgL_arg5944z00_9805, BINT(BgL_arg5945z00_9806),
													BgL_list5947z00_9808);
										}}
										{	/* Read/reader.scm 731 */
											obj_t BgL_auxz00_17910;

											BgL_auxz00_17910 = BINT(0L);
											BGL_UNSAFE_CELL_SET(BgL_brazd2openzd2_17900,
												BgL_auxz00_17910);
										}
										{

											goto BGl_ignoreze70ze7zz__readerz00;
										}
									}
								else
									{	/* Read/reader.scm 724 */
										{	/* Read/reader.scm 734 */
											obj_t BgL_auxz00_17911;

											{	/* Read/reader.scm 734 */
												obj_t BgL_pairz00_16777;

												BgL_pairz00_16777 =
													BGL_UNSAFE_CELL_REF(BgL_brazd2poseszd2_17904);
												BgL_auxz00_17911 = CDR(BgL_pairz00_16777);
											}
											BGL_UNSAFE_CELL_SET(BgL_brazd2poseszd2_17904,
												BgL_auxz00_17911);
										}
										return BGl_za2endzd2ofzd2listza2z00zz__readerz00;
									}
							}
							break;
						case 33L:

							{	/* Read/reader.scm 710 */
								obj_t BgL_auxz00_17912;

								BgL_auxz00_17912 =
									ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_brazd2openzd2_17900));
								BGL_UNSAFE_CELL_SET(BgL_brazd2openzd2_17900, BgL_auxz00_17912);
							}
							{	/* Read/reader.scm 711 */
								obj_t BgL_auxz00_17913;

								{	/* Read/reader.scm 711 */
									long BgL_arg5952z00_9813;

									{	/* Read/reader.scm 711 */
										long BgL_arg5953z00_9814;

										{	/* Read/reader.scm 711 */
											obj_t BgL_tmpz00_28623;

											BgL_tmpz00_28623 = ((obj_t) BgL_iportz00_17898);
											BgL_arg5953z00_9814 =
												INPUT_PORT_FILEPOS(BgL_tmpz00_28623);
										}
										BgL_arg5952z00_9813 = (BgL_arg5953z00_9814 - 1L);
									}
									BgL_auxz00_17913 =
										MAKE_YOUNG_PAIR(BINT(BgL_arg5952z00_9813),
										BGL_UNSAFE_CELL_REF(BgL_brazd2poseszd2_17904));
								}
								BGL_UNSAFE_CELL_SET(BgL_brazd2poseszd2_17904, BgL_auxz00_17913);
							}
							{	/* Read/reader.scm 713 */
								obj_t BgL_lz00_9816;

								{	/* Read/reader.scm 713 */
									obj_t BgL_arg5962z00_9831;

									BgL_arg5962z00_9831 =
										BGl_collectzd2upzd2toze70ze7zz__readerz00(BgL_pospz00_17905,
										BgL_brazd2poseszd2_17904, BgL_resolvez00_17903,
										BgL_cyclesz00_17902, BgL_parzd2openzd2_17901,
										BgL_brazd2openzd2_17900, BgL_parzd2poseszd2_17899,
										BgL_iportz00_17898, BGl_string6875z00zz__readerz00,
										((obj_t) BgL_iportz00_17898), BgL_pospz00_17905);
									BgL_lz00_9816 = bgl_reverse_bang(BgL_arg5962z00_9831);
								}
								{	/* Read/reader.scm 713 */
									long BgL_lenz00_9817;

									BgL_lenz00_9817 = bgl_list_length(BgL_lz00_9816);
									{	/* Read/reader.scm 714 */
										obj_t BgL_rz00_9818;

										{	/* Read/reader.scm 715 */
											obj_t BgL_arg5960z00_9829;
											long BgL_arg5961z00_9830;

											BgL_arg5960z00_9829 = CAR(((obj_t) BgL_lz00_9816));
											BgL_arg5961z00_9830 = (BgL_lenz00_9817 - 1L);
											{	/* Read/reader.scm 715 */
												int BgL_lenz00_16786;

												BgL_lenz00_16786 = (int) (BgL_arg5961z00_9830);
												BgL_rz00_9818 =
													make_struct(
													((obj_t) BgL_arg5960z00_9829), BgL_lenz00_16786,
													BUNSPEC);
										}}
										{	/* Read/reader.scm 715 */

											{	/* Read/reader.scm 716 */
												obj_t BgL_g1341z00_9819;

												BgL_g1341z00_9819 = CDR(((obj_t) BgL_lz00_9816));
												{
													long BgL_iz00_16807;
													obj_t BgL_lz00_16808;

													BgL_iz00_16807 = 0L;
													BgL_lz00_16808 = BgL_g1341z00_9819;
												BgL_loopz00_16806:
													if (PAIRP(BgL_lz00_16808))
														{	/* Read/reader.scm 718 */
															{	/* Read/reader.scm 719 */
																obj_t BgL_auxz00_28645;
																int BgL_tmpz00_28643;

																BgL_auxz00_28645 = CAR(BgL_lz00_16808);
																BgL_tmpz00_28643 = (int) (BgL_iz00_16807);
																STRUCT_SET(BgL_rz00_9818, BgL_tmpz00_28643,
																	BgL_auxz00_28645);
															}
															{
																obj_t BgL_lz00_28650;
																long BgL_iz00_28648;

																BgL_iz00_28648 = (BgL_iz00_16807 + 1L);
																BgL_lz00_28650 = CDR(BgL_lz00_16808);
																BgL_lz00_16808 = BgL_lz00_28650;
																BgL_iz00_16807 = BgL_iz00_28648;
																goto BgL_loopz00_16806;
															}
														}
													else
														{	/* Read/reader.scm 718 */
															((bool_t) 0);
														}
												}
											}
											return BgL_rz00_9818;
										}
									}
								}
							}
							break;
						case 32L:

							{	/* Read/reader.scm 697 */
								obj_t BgL_openzd2keyzd2_9833;
								long BgL_tagz00_9834;

								BgL_openzd2keyzd2_9833 =
									BGL_UNSAFE_CELL_REF(BgL_parzd2openzd2_17901);
								{	/* Read/reader.scm 698 */
									obj_t BgL_arg5971z00_9842;

									BgL_arg5971z00_9842 =
										BGl_thezd2substringze71z35zz__readerz00(BgL_iportz00_17898,
										(int) (1L), (int) (4L));
									{	/* Read/reader.scm 698 */
										char *BgL_tmpz00_28655;

										BgL_tmpz00_28655 = BSTRING_TO_STRING(BgL_arg5971z00_9842);
										BgL_tagz00_9834 = BGL_STRTOL(BgL_tmpz00_28655, 0L, 10L);
								}}
								{	/* Read/reader.scm 699 */
									obj_t BgL_auxz00_17914;

									BgL_auxz00_17914 =
										ADDFX(BINT(1L),
										BGL_UNSAFE_CELL_REF(BgL_parzd2openzd2_17901));
									BGL_UNSAFE_CELL_SET(BgL_parzd2openzd2_17901,
										BgL_auxz00_17914);
								}
								{	/* Read/reader.scm 700 */
									obj_t BgL_auxz00_17915;

									{	/* Read/reader.scm 700 */
										long BgL_arg5964z00_9835;

										{	/* Read/reader.scm 700 */
											long BgL_arg5965z00_9836;

											{	/* Read/reader.scm 700 */
												obj_t BgL_tmpz00_28660;

												BgL_tmpz00_28660 = ((obj_t) BgL_iportz00_17898);
												BgL_arg5965z00_9836 =
													INPUT_PORT_FILEPOS(BgL_tmpz00_28660);
											}
											BgL_arg5964z00_9835 = (BgL_arg5965z00_9836 - 1L);
										}
										BgL_auxz00_17915 =
											MAKE_YOUNG_PAIR(BINT(BgL_arg5964z00_9835),
											BGL_UNSAFE_CELL_REF(BgL_parzd2poseszd2_17899));
									}
									BGL_UNSAFE_CELL_SET(BgL_parzd2poseszd2_17899,
										BgL_auxz00_17915);
								}
								{	/* Read/reader.scm 704 */
									obj_t BgL_arg5967z00_9838;

									{	/* Read/reader.scm 704 */
										obj_t BgL_arg5968z00_9839;

										{	/* Read/reader.scm 704 */
											obj_t BgL_arg5969z00_9840;

											BgL_arg5969z00_9840 =
												BGl_collectzd2upzd2toze70ze7zz__readerz00
												(BgL_pospz00_17905, BgL_brazd2poseszd2_17904,
												BgL_resolvez00_17903, BgL_cyclesz00_17902,
												BgL_parzd2openzd2_17901, BgL_brazd2openzd2_17900,
												BgL_parzd2poseszd2_17899, BgL_iportz00_17898,
												BGl_string6876z00zz__readerz00,
												((obj_t) BgL_iportz00_17898), BgL_pospz00_17905);
											BgL_arg5968z00_9839 =
												MAKE_YOUNG_PAIR(BINT(BgL_tagz00_9834),
												BgL_arg5969z00_9840);
										}
										BgL_arg5967z00_9838 = bgl_reverse_bang(BgL_arg5968z00_9839);
									}
									return
										BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00
										(BgL_arg5967z00_9838);
								}
							}
							break;
						case 31L:

							{	/* Read/reader.scm 646 */
								obj_t BgL_auxz00_17916;

								BgL_auxz00_17916 =
									ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_parzd2openzd2_17901));
								BGL_UNSAFE_CELL_SET(BgL_parzd2openzd2_17901, BgL_auxz00_17916);
							}
							{	/* Read/reader.scm 647 */
								obj_t BgL_auxz00_17917;

								{	/* Read/reader.scm 647 */
									long BgL_arg5972z00_9843;

									{	/* Read/reader.scm 647 */
										long BgL_arg5973z00_9844;

										{	/* Read/reader.scm 647 */
											obj_t BgL_tmpz00_28674;

											BgL_tmpz00_28674 = ((obj_t) BgL_iportz00_17898);
											BgL_arg5973z00_9844 =
												INPUT_PORT_FILEPOS(BgL_tmpz00_28674);
										}
										BgL_arg5972z00_9843 = (BgL_arg5973z00_9844 - 1L);
									}
									BgL_auxz00_17917 =
										MAKE_YOUNG_PAIR(BINT(BgL_arg5972z00_9843),
										BGL_UNSAFE_CELL_REF(BgL_parzd2poseszd2_17899));
								}
								BGL_UNSAFE_CELL_SET(BgL_parzd2poseszd2_17899, BgL_auxz00_17917);
							}
							{	/* Read/reader.scm 649 */
								obj_t BgL_sz00_9846;

								BgL_sz00_9846 =
									BGl_thezd2substringze71z35zz__readerz00(BgL_iportz00_17898,
									(int) (1L), (int) ((-1L)));
								{	/* Read/reader.scm 651 */
									bool_t BgL_test9285z00_28683;

									{	/* Read/reader.scm 651 */
										long BgL_l1z00_16833;

										BgL_l1z00_16833 = STRING_LENGTH(BgL_sz00_9846);
										if ((BgL_l1z00_16833 == 2L))
											{	/* Read/reader.scm 651 */
												int BgL_arg6491z00_16836;

												{	/* Read/reader.scm 651 */
													char *BgL_auxz00_28689;
													char *BgL_tmpz00_28687;

													BgL_auxz00_28689 =
														BSTRING_TO_STRING(BGl_string6877z00zz__readerz00);
													BgL_tmpz00_28687 = BSTRING_TO_STRING(BgL_sz00_9846);
													BgL_arg6491z00_16836 =
														memcmp(BgL_tmpz00_28687, BgL_auxz00_28689,
														BgL_l1z00_16833);
												}
												BgL_test9285z00_28683 =
													((long) (BgL_arg6491z00_16836) == 0L);
											}
										else
											{	/* Read/reader.scm 651 */
												BgL_test9285z00_28683 = ((bool_t) 0);
											}
									}
									if (BgL_test9285z00_28683)
										{	/* Read/reader.scm 653 */
											obj_t BgL_arg5976z00_9848;

											{	/* Read/reader.scm 653 */
												obj_t BgL_arg5977z00_9849;

												BgL_arg5977z00_9849 =
													BGl_collectzd2upzd2toze70ze7zz__readerz00
													(BgL_pospz00_17905, BgL_brazd2poseszd2_17904,
													BgL_resolvez00_17903, BgL_cyclesz00_17902,
													BgL_parzd2openzd2_17901, BgL_brazd2openzd2_17900,
													BgL_parzd2poseszd2_17899, BgL_iportz00_17898,
													BGl_string6878z00zz__readerz00,
													((obj_t) BgL_iportz00_17898), BgL_pospz00_17905);
												BgL_arg5976z00_9848 =
													bgl_reverse_bang(BgL_arg5977z00_9849);
											}
											return
												BGl_listzd2ze3s8vectorz31zz__srfi4z00
												(BgL_arg5976z00_9848);
										}
									else
										{	/* Read/reader.scm 654 */
											bool_t BgL_test9287z00_28698;

											{	/* Read/reader.scm 654 */
												long BgL_l1z00_16845;

												BgL_l1z00_16845 = STRING_LENGTH(BgL_sz00_9846);
												if ((BgL_l1z00_16845 == 2L))
													{	/* Read/reader.scm 654 */
														int BgL_arg6491z00_16848;

														{	/* Read/reader.scm 654 */
															char *BgL_auxz00_28704;
															char *BgL_tmpz00_28702;

															BgL_auxz00_28704 =
																BSTRING_TO_STRING
																(BGl_string6879z00zz__readerz00);
															BgL_tmpz00_28702 =
																BSTRING_TO_STRING(BgL_sz00_9846);
															BgL_arg6491z00_16848 =
																memcmp(BgL_tmpz00_28702, BgL_auxz00_28704,
																BgL_l1z00_16845);
														}
														BgL_test9287z00_28698 =
															((long) (BgL_arg6491z00_16848) == 0L);
													}
												else
													{	/* Read/reader.scm 654 */
														BgL_test9287z00_28698 = ((bool_t) 0);
													}
											}
											if (BgL_test9287z00_28698)
												{	/* Read/reader.scm 656 */
													obj_t BgL_arg5980z00_9852;

													{	/* Read/reader.scm 656 */
														obj_t BgL_arg5981z00_9853;

														BgL_arg5981z00_9853 =
															BGl_collectzd2upzd2toze70ze7zz__readerz00
															(BgL_pospz00_17905, BgL_brazd2poseszd2_17904,
															BgL_resolvez00_17903, BgL_cyclesz00_17902,
															BgL_parzd2openzd2_17901, BgL_brazd2openzd2_17900,
															BgL_parzd2poseszd2_17899, BgL_iportz00_17898,
															BGl_string6880z00zz__readerz00,
															((obj_t) BgL_iportz00_17898), BgL_pospz00_17905);
														BgL_arg5980z00_9852 =
															bgl_reverse_bang(BgL_arg5981z00_9853);
													}
													return
														BGl_listzd2ze3u8vectorz31zz__srfi4z00
														(BgL_arg5980z00_9852);
												}
											else
												{	/* Read/reader.scm 657 */
													bool_t BgL_test9289z00_28713;

													{	/* Read/reader.scm 657 */
														long BgL_l1z00_16857;

														BgL_l1z00_16857 = STRING_LENGTH(BgL_sz00_9846);
														if ((BgL_l1z00_16857 == 3L))
															{	/* Read/reader.scm 657 */
																int BgL_arg6491z00_16860;

																{	/* Read/reader.scm 657 */
																	char *BgL_auxz00_28719;
																	char *BgL_tmpz00_28717;

																	BgL_auxz00_28719 =
																		BSTRING_TO_STRING
																		(BGl_string6881z00zz__readerz00);
																	BgL_tmpz00_28717 =
																		BSTRING_TO_STRING(BgL_sz00_9846);
																	BgL_arg6491z00_16860 =
																		memcmp(BgL_tmpz00_28717, BgL_auxz00_28719,
																		BgL_l1z00_16857);
																}
																BgL_test9289z00_28713 =
																	((long) (BgL_arg6491z00_16860) == 0L);
															}
														else
															{	/* Read/reader.scm 657 */
																BgL_test9289z00_28713 = ((bool_t) 0);
															}
													}
													if (BgL_test9289z00_28713)
														{	/* Read/reader.scm 659 */
															obj_t BgL_arg5984z00_9856;

															{	/* Read/reader.scm 659 */
																obj_t BgL_arg5985z00_9857;

																BgL_arg5985z00_9857 =
																	BGl_collectzd2upzd2toze70ze7zz__readerz00
																	(BgL_pospz00_17905, BgL_brazd2poseszd2_17904,
																	BgL_resolvez00_17903, BgL_cyclesz00_17902,
																	BgL_parzd2openzd2_17901,
																	BgL_brazd2openzd2_17900,
																	BgL_parzd2poseszd2_17899, BgL_iportz00_17898,
																	BGl_string6882z00zz__readerz00,
																	((obj_t) BgL_iportz00_17898),
																	BgL_pospz00_17905);
																BgL_arg5984z00_9856 =
																	bgl_reverse_bang(BgL_arg5985z00_9857);
															}
															return
																BGl_listzd2ze3s16vectorz31zz__srfi4z00
																(BgL_arg5984z00_9856);
														}
													else
														{	/* Read/reader.scm 660 */
															bool_t BgL_test9291z00_28728;

															{	/* Read/reader.scm 660 */
																long BgL_l1z00_16869;

																BgL_l1z00_16869 = STRING_LENGTH(BgL_sz00_9846);
																if ((BgL_l1z00_16869 == 3L))
																	{	/* Read/reader.scm 660 */
																		int BgL_arg6491z00_16872;

																		{	/* Read/reader.scm 660 */
																			char *BgL_auxz00_28734;
																			char *BgL_tmpz00_28732;

																			BgL_auxz00_28734 =
																				BSTRING_TO_STRING
																				(BGl_string6883z00zz__readerz00);
																			BgL_tmpz00_28732 =
																				BSTRING_TO_STRING(BgL_sz00_9846);
																			BgL_arg6491z00_16872 =
																				memcmp(BgL_tmpz00_28732,
																				BgL_auxz00_28734, BgL_l1z00_16869);
																		}
																		BgL_test9291z00_28728 =
																			((long) (BgL_arg6491z00_16872) == 0L);
																	}
																else
																	{	/* Read/reader.scm 660 */
																		BgL_test9291z00_28728 = ((bool_t) 0);
																	}
															}
															if (BgL_test9291z00_28728)
																{	/* Read/reader.scm 662 */
																	obj_t BgL_arg5988z00_9860;

																	{	/* Read/reader.scm 662 */
																		obj_t BgL_arg5989z00_9861;

																		BgL_arg5989z00_9861 =
																			BGl_collectzd2upzd2toze70ze7zz__readerz00
																			(BgL_pospz00_17905,
																			BgL_brazd2poseszd2_17904,
																			BgL_resolvez00_17903, BgL_cyclesz00_17902,
																			BgL_parzd2openzd2_17901,
																			BgL_brazd2openzd2_17900,
																			BgL_parzd2poseszd2_17899,
																			BgL_iportz00_17898,
																			BGl_string6884z00zz__readerz00,
																			((obj_t) BgL_iportz00_17898),
																			BgL_pospz00_17905);
																		BgL_arg5988z00_9860 =
																			bgl_reverse_bang(BgL_arg5989z00_9861);
																	}
																	return
																		BGl_listzd2ze3u16vectorz31zz__srfi4z00
																		(BgL_arg5988z00_9860);
																}
															else
																{	/* Read/reader.scm 663 */
																	bool_t BgL_test9293z00_28743;

																	{	/* Read/reader.scm 663 */
																		long BgL_l1z00_16881;

																		BgL_l1z00_16881 =
																			STRING_LENGTH(BgL_sz00_9846);
																		if ((BgL_l1z00_16881 == 3L))
																			{	/* Read/reader.scm 663 */
																				int BgL_arg6491z00_16884;

																				{	/* Read/reader.scm 663 */
																					char *BgL_auxz00_28749;
																					char *BgL_tmpz00_28747;

																					BgL_auxz00_28749 =
																						BSTRING_TO_STRING
																						(BGl_string6885z00zz__readerz00);
																					BgL_tmpz00_28747 =
																						BSTRING_TO_STRING(BgL_sz00_9846);
																					BgL_arg6491z00_16884 =
																						memcmp(BgL_tmpz00_28747,
																						BgL_auxz00_28749, BgL_l1z00_16881);
																				}
																				BgL_test9293z00_28743 =
																					((long) (BgL_arg6491z00_16884) == 0L);
																			}
																		else
																			{	/* Read/reader.scm 663 */
																				BgL_test9293z00_28743 = ((bool_t) 0);
																			}
																	}
																	if (BgL_test9293z00_28743)
																		{	/* Read/reader.scm 665 */
																			obj_t BgL_arg5992z00_9864;

																			{	/* Read/reader.scm 665 */
																				obj_t BgL_arg5993z00_9865;

																				BgL_arg5993z00_9865 =
																					BGl_collectzd2upzd2toze70ze7zz__readerz00
																					(BgL_pospz00_17905,
																					BgL_brazd2poseszd2_17904,
																					BgL_resolvez00_17903,
																					BgL_cyclesz00_17902,
																					BgL_parzd2openzd2_17901,
																					BgL_brazd2openzd2_17900,
																					BgL_parzd2poseszd2_17899,
																					BgL_iportz00_17898,
																					BGl_string6886z00zz__readerz00,
																					((obj_t) BgL_iportz00_17898),
																					BgL_pospz00_17905);
																				BgL_arg5992z00_9864 =
																					bgl_reverse_bang(BgL_arg5993z00_9865);
																			}
																			return
																				BGl_listzd2ze3s32vectorz31zz__srfi4z00
																				(BgL_arg5992z00_9864);
																		}
																	else
																		{	/* Read/reader.scm 666 */
																			bool_t BgL_test9295z00_28758;

																			{	/* Read/reader.scm 666 */
																				long BgL_l1z00_16893;

																				BgL_l1z00_16893 =
																					STRING_LENGTH(BgL_sz00_9846);
																				if ((BgL_l1z00_16893 == 3L))
																					{	/* Read/reader.scm 666 */
																						int BgL_arg6491z00_16896;

																						{	/* Read/reader.scm 666 */
																							char *BgL_auxz00_28764;
																							char *BgL_tmpz00_28762;

																							BgL_auxz00_28764 =
																								BSTRING_TO_STRING
																								(BGl_string6887z00zz__readerz00);
																							BgL_tmpz00_28762 =
																								BSTRING_TO_STRING
																								(BgL_sz00_9846);
																							BgL_arg6491z00_16896 =
																								memcmp(BgL_tmpz00_28762,
																								BgL_auxz00_28764,
																								BgL_l1z00_16893);
																						}
																						BgL_test9295z00_28758 =
																							(
																							(long) (BgL_arg6491z00_16896) ==
																							0L);
																					}
																				else
																					{	/* Read/reader.scm 666 */
																						BgL_test9295z00_28758 =
																							((bool_t) 0);
																					}
																			}
																			if (BgL_test9295z00_28758)
																				{	/* Read/reader.scm 668 */
																					obj_t BgL_arg5996z00_9868;

																					{	/* Read/reader.scm 668 */
																						obj_t BgL_arg5997z00_9869;

																						BgL_arg5997z00_9869 =
																							BGl_collectzd2upzd2toze70ze7zz__readerz00
																							(BgL_pospz00_17905,
																							BgL_brazd2poseszd2_17904,
																							BgL_resolvez00_17903,
																							BgL_cyclesz00_17902,
																							BgL_parzd2openzd2_17901,
																							BgL_brazd2openzd2_17900,
																							BgL_parzd2poseszd2_17899,
																							BgL_iportz00_17898,
																							BGl_string6888z00zz__readerz00,
																							((obj_t) BgL_iportz00_17898),
																							BgL_pospz00_17905);
																						BgL_arg5996z00_9868 =
																							bgl_reverse_bang
																							(BgL_arg5997z00_9869);
																					}
																					return
																						BGl_listzd2ze3u32vectorz31zz__srfi4z00
																						(BgL_arg5996z00_9868);
																				}
																			else
																				{	/* Read/reader.scm 669 */
																					bool_t BgL_test9297z00_28773;

																					{	/* Read/reader.scm 669 */
																						long BgL_l1z00_16905;

																						BgL_l1z00_16905 =
																							STRING_LENGTH(BgL_sz00_9846);
																						if ((BgL_l1z00_16905 == 3L))
																							{	/* Read/reader.scm 669 */
																								int BgL_arg6491z00_16908;

																								{	/* Read/reader.scm 669 */
																									char *BgL_auxz00_28779;
																									char *BgL_tmpz00_28777;

																									BgL_auxz00_28779 =
																										BSTRING_TO_STRING
																										(BGl_string6889z00zz__readerz00);
																									BgL_tmpz00_28777 =
																										BSTRING_TO_STRING
																										(BgL_sz00_9846);
																									BgL_arg6491z00_16908 =
																										memcmp(BgL_tmpz00_28777,
																										BgL_auxz00_28779,
																										BgL_l1z00_16905);
																								}
																								BgL_test9297z00_28773 =
																									(
																									(long) (BgL_arg6491z00_16908)
																									== 0L);
																							}
																						else
																							{	/* Read/reader.scm 669 */
																								BgL_test9297z00_28773 =
																									((bool_t) 0);
																							}
																					}
																					if (BgL_test9297z00_28773)
																						{	/* Read/reader.scm 671 */
																							obj_t BgL_arg6000z00_9872;

																							{	/* Read/reader.scm 671 */
																								obj_t BgL_arg6001z00_9873;

																								BgL_arg6001z00_9873 =
																									BGl_collectzd2upzd2toze70ze7zz__readerz00
																									(BgL_pospz00_17905,
																									BgL_brazd2poseszd2_17904,
																									BgL_resolvez00_17903,
																									BgL_cyclesz00_17902,
																									BgL_parzd2openzd2_17901,
																									BgL_brazd2openzd2_17900,
																									BgL_parzd2poseszd2_17899,
																									BgL_iportz00_17898,
																									BGl_string6890z00zz__readerz00,
																									((obj_t) BgL_iportz00_17898),
																									BgL_pospz00_17905);
																								BgL_arg6000z00_9872 =
																									bgl_reverse_bang
																									(BgL_arg6001z00_9873);
																							}
																							return
																								BGl_listzd2ze3s64vectorz31zz__srfi4z00
																								(BgL_arg6000z00_9872);
																						}
																					else
																						{	/* Read/reader.scm 672 */
																							bool_t BgL_test9299z00_28788;

																							{	/* Read/reader.scm 672 */
																								long BgL_l1z00_16917;

																								BgL_l1z00_16917 =
																									STRING_LENGTH(BgL_sz00_9846);
																								if ((BgL_l1z00_16917 == 3L))
																									{	/* Read/reader.scm 672 */
																										int BgL_arg6491z00_16920;

																										{	/* Read/reader.scm 672 */
																											char *BgL_auxz00_28794;
																											char *BgL_tmpz00_28792;

																											BgL_auxz00_28794 =
																												BSTRING_TO_STRING
																												(BGl_string6891z00zz__readerz00);
																											BgL_tmpz00_28792 =
																												BSTRING_TO_STRING
																												(BgL_sz00_9846);
																											BgL_arg6491z00_16920 =
																												memcmp(BgL_tmpz00_28792,
																												BgL_auxz00_28794,
																												BgL_l1z00_16917);
																										}
																										BgL_test9299z00_28788 =
																											(
																											(long)
																											(BgL_arg6491z00_16920) ==
																											0L);
																									}
																								else
																									{	/* Read/reader.scm 672 */
																										BgL_test9299z00_28788 =
																											((bool_t) 0);
																									}
																							}
																							if (BgL_test9299z00_28788)
																								{	/* Read/reader.scm 674 */
																									obj_t BgL_arg6004z00_9876;

																									{	/* Read/reader.scm 674 */
																										obj_t BgL_arg6005z00_9877;

																										BgL_arg6005z00_9877 =
																											BGl_collectzd2upzd2toze70ze7zz__readerz00
																											(BgL_pospz00_17905,
																											BgL_brazd2poseszd2_17904,
																											BgL_resolvez00_17903,
																											BgL_cyclesz00_17902,
																											BgL_parzd2openzd2_17901,
																											BgL_brazd2openzd2_17900,
																											BgL_parzd2poseszd2_17899,
																											BgL_iportz00_17898,
																											BGl_string6892z00zz__readerz00,
																											((obj_t)
																												BgL_iportz00_17898),
																											BgL_pospz00_17905);
																										BgL_arg6004z00_9876 =
																											bgl_reverse_bang
																											(BgL_arg6005z00_9877);
																									}
																									return
																										BGl_listzd2ze3u64vectorz31zz__srfi4z00
																										(BgL_arg6004z00_9876);
																								}
																							else
																								{	/* Read/reader.scm 675 */
																									bool_t BgL_test9301z00_28803;

																									{	/* Read/reader.scm 675 */
																										long BgL_l1z00_16929;

																										BgL_l1z00_16929 =
																											STRING_LENGTH
																											(BgL_sz00_9846);
																										if ((BgL_l1z00_16929 == 3L))
																											{	/* Read/reader.scm 675 */
																												int
																													BgL_arg6491z00_16932;
																												{	/* Read/reader.scm 675 */
																													char
																														*BgL_auxz00_28809;
																													char
																														*BgL_tmpz00_28807;
																													BgL_auxz00_28809 =
																														BSTRING_TO_STRING
																														(BGl_string6893z00zz__readerz00);
																													BgL_tmpz00_28807 =
																														BSTRING_TO_STRING
																														(BgL_sz00_9846);
																													BgL_arg6491z00_16932 =
																														memcmp
																														(BgL_tmpz00_28807,
																														BgL_auxz00_28809,
																														BgL_l1z00_16929);
																												}
																												BgL_test9301z00_28803 =
																													(
																													(long)
																													(BgL_arg6491z00_16932)
																													== 0L);
																											}
																										else
																											{	/* Read/reader.scm 675 */
																												BgL_test9301z00_28803 =
																													((bool_t) 0);
																											}
																									}
																									if (BgL_test9301z00_28803)
																										{	/* Read/reader.scm 677 */
																											obj_t BgL_arg6008z00_9880;

																											{	/* Read/reader.scm 677 */
																												obj_t
																													BgL_arg6009z00_9881;
																												BgL_arg6009z00_9881 =
																													BGl_collectzd2upzd2toze70ze7zz__readerz00
																													(BgL_pospz00_17905,
																													BgL_brazd2poseszd2_17904,
																													BgL_resolvez00_17903,
																													BgL_cyclesz00_17902,
																													BgL_parzd2openzd2_17901,
																													BgL_brazd2openzd2_17900,
																													BgL_parzd2poseszd2_17899,
																													BgL_iportz00_17898,
																													BGl_string6894z00zz__readerz00,
																													((obj_t)
																														BgL_iportz00_17898),
																													BgL_pospz00_17905);
																												BgL_arg6008z00_9880 =
																													bgl_reverse_bang
																													(BgL_arg6009z00_9881);
																											}
																											return
																												BGl_listzd2ze3f32vectorz31zz__srfi4z00
																												(BgL_arg6008z00_9880);
																										}
																									else
																										{	/* Read/reader.scm 678 */
																											bool_t
																												BgL_test9303z00_28818;
																											{	/* Read/reader.scm 678 */
																												long BgL_l1z00_16941;

																												BgL_l1z00_16941 =
																													STRING_LENGTH
																													(BgL_sz00_9846);
																												if ((BgL_l1z00_16941 ==
																														3L))
																													{	/* Read/reader.scm 678 */
																														int
																															BgL_arg6491z00_16944;
																														{	/* Read/reader.scm 678 */
																															char
																																*BgL_auxz00_28824;
																															char
																																*BgL_tmpz00_28822;
																															BgL_auxz00_28824 =
																																BSTRING_TO_STRING
																																(BGl_string6895z00zz__readerz00);
																															BgL_tmpz00_28822 =
																																BSTRING_TO_STRING
																																(BgL_sz00_9846);
																															BgL_arg6491z00_16944
																																=
																																memcmp
																																(BgL_tmpz00_28822,
																																BgL_auxz00_28824,
																																BgL_l1z00_16941);
																														}
																														BgL_test9303z00_28818
																															=
																															((long)
																															(BgL_arg6491z00_16944)
																															== 0L);
																													}
																												else
																													{	/* Read/reader.scm 678 */
																														BgL_test9303z00_28818
																															= ((bool_t) 0);
																													}
																											}
																											if (BgL_test9303z00_28818)
																												{	/* Read/reader.scm 680 */
																													obj_t
																														BgL_arg6012z00_9884;
																													{	/* Read/reader.scm 680 */
																														obj_t
																															BgL_arg6013z00_9885;
																														BgL_arg6013z00_9885
																															=
																															BGl_collectzd2upzd2toze70ze7zz__readerz00
																															(BgL_pospz00_17905,
																															BgL_brazd2poseszd2_17904,
																															BgL_resolvez00_17903,
																															BgL_cyclesz00_17902,
																															BgL_parzd2openzd2_17901,
																															BgL_brazd2openzd2_17900,
																															BgL_parzd2poseszd2_17899,
																															BgL_iportz00_17898,
																															BGl_string6896z00zz__readerz00,
																															((obj_t)
																																BgL_iportz00_17898),
																															BgL_pospz00_17905);
																														BgL_arg6012z00_9884
																															=
																															bgl_reverse_bang
																															(BgL_arg6013z00_9885);
																													}
																													return
																														BGl_listzd2ze3f64vectorz31zz__srfi4z00
																														(BgL_arg6012z00_9884);
																												}
																											else
																												{	/* Read/reader.scm 682 */
																													obj_t BgL_idz00_9887;

																													{	/* Read/reader.scm 683 */
																														obj_t
																															BgL_arg6017z00_9891;
																														{	/* Read/reader.scm 683 */
																															obj_t
																																BgL_casezd2valuezd2_9892;
																															BgL_casezd2valuezd2_9892
																																=
																																BGl_bigloozd2casezd2sensitivez00zz__paramz00
																																();
																															if (
																																(BgL_casezd2valuezd2_9892
																																	==
																																	BGl_symbol6897z00zz__readerz00))
																																{	/* Read/reader.scm 683 */
																																	BgL_arg6017z00_9891
																																		=
																																		BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00
																																		(BgL_sz00_9846);
																																}
																															else
																																{	/* Read/reader.scm 683 */
																																	if (
																																		(BgL_casezd2valuezd2_9892
																																			==
																																			BGl_symbol6899z00zz__readerz00))
																																		{	/* Read/reader.scm 683 */
																																			BgL_arg6017z00_9891
																																				=
																																				BGl_stringzd2downcasez12zc0zz__r4_strings_6_7z00
																																				(BgL_sz00_9846);
																																		}
																																	else
																																		{	/* Read/reader.scm 683 */
																																			if (
																																				(BgL_casezd2valuezd2_9892
																																					==
																																					BGl_symbol6901z00zz__readerz00))
																																				{	/* Read/reader.scm 683 */
																																					BgL_arg6017z00_9891
																																						=
																																						BgL_sz00_9846;
																																				}
																																			else
																																				{	/* Read/reader.scm 683 */
																																					BgL_arg6017z00_9891
																																						=
																																						BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00
																																						(BgL_sz00_9846);
																																				}
																																		}
																																}
																														}
																														BgL_idz00_9887 =
																															bstring_to_symbol
																															(BgL_arg6017z00_9891);
																													}
																													{	/* Read/reader.scm 682 */
																														obj_t BgL_lz00_9888;

																														{	/* Read/reader.scm 692 */
																															obj_t
																																BgL_arg6015z00_9889;
																															BgL_arg6015z00_9889
																																=
																																BGl_collectzd2upzd2toze70ze7zz__readerz00
																																(BgL_pospz00_17905,
																																BgL_brazd2poseszd2_17904,
																																BgL_resolvez00_17903,
																																BgL_cyclesz00_17902,
																																BgL_parzd2openzd2_17901,
																																BgL_brazd2openzd2_17900,
																																BgL_parzd2poseszd2_17899,
																																BgL_iportz00_17898,
																																BGl_string6876z00zz__readerz00,
																																((obj_t)
																																	BgL_iportz00_17898),
																																BgL_pospz00_17905);
																															BgL_lz00_9888 =
																																bgl_reverse_bang
																																(BgL_arg6015z00_9889);
																														}
																														{	/* Read/reader.scm 692 */

																															return
																																BGl_listzd2ze3tvectorz31zz__tvectorz00
																																(BgL_idz00_9887,
																																BgL_lz00_9888);
																														}
																													}
																												}
																										}
																								}
																						}
																				}
																		}
																}
														}
												}
										}
								}
							}
							break;
						case 30L:

							{	/* Read/reader.scm 637 */
								obj_t BgL_auxz00_17918;

								BgL_auxz00_17918 =
									ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_parzd2openzd2_17901));
								BGL_UNSAFE_CELL_SET(BgL_parzd2openzd2_17901, BgL_auxz00_17918);
							}
							{	/* Read/reader.scm 638 */
								obj_t BgL_auxz00_17919;

								{	/* Read/reader.scm 638 */
									long BgL_arg6021z00_9896;

									{	/* Read/reader.scm 638 */
										long BgL_arg6022z00_9897;

										{	/* Read/reader.scm 638 */
											obj_t BgL_tmpz00_28850;

											BgL_tmpz00_28850 = ((obj_t) BgL_iportz00_17898);
											BgL_arg6022z00_9897 =
												INPUT_PORT_FILEPOS(BgL_tmpz00_28850);
										}
										BgL_arg6021z00_9896 = (BgL_arg6022z00_9897 - 1L);
									}
									BgL_auxz00_17919 =
										MAKE_YOUNG_PAIR(BINT(BgL_arg6021z00_9896),
										BGL_UNSAFE_CELL_REF(BgL_parzd2poseszd2_17899));
								}
								BGL_UNSAFE_CELL_SET(BgL_parzd2poseszd2_17899, BgL_auxz00_17919);
							}
							{	/* Read/reader.scm 641 */
								obj_t BgL_arg6024z00_9899;

								{	/* Read/reader.scm 641 */
									obj_t BgL_arg6025z00_9900;

									BgL_arg6025z00_9900 =
										BGl_collectzd2upzd2toze70ze7zz__readerz00(BgL_pospz00_17905,
										BgL_brazd2poseszd2_17904, BgL_resolvez00_17903,
										BgL_cyclesz00_17902, BgL_parzd2openzd2_17901,
										BgL_brazd2openzd2_17900, BgL_parzd2poseszd2_17899,
										BgL_iportz00_17898, BGl_string6876z00zz__readerz00,
										((obj_t) BgL_iportz00_17898), BgL_pospz00_17905);
									BgL_arg6024z00_9899 = bgl_reverse_bang(BgL_arg6025z00_9900);
								}
								return
									BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00
									(BgL_arg6024z00_9899);
							}
							break;
						case 29L:

							{	/* Read/reader.scm 619 */
								obj_t BgL_auxz00_17920;

								BgL_auxz00_17920 =
									SUBFX(BGL_UNSAFE_CELL_REF(BgL_parzd2openzd2_17901), BINT(1L));
								BGL_UNSAFE_CELL_SET(BgL_parzd2openzd2_17901, BgL_auxz00_17920);
							}
							{	/* Read/reader.scm 620 */
								bool_t BgL_test9308z00_28862;

								{	/* Read/reader.scm 620 */
									long BgL_n1z00_16962;

									BgL_n1z00_16962 =
										(long) CINT(BGL_UNSAFE_CELL_REF(BgL_parzd2openzd2_17901));
									BgL_test9308z00_28862 = (BgL_n1z00_16962 < 0L);
								}
								if (BgL_test9308z00_28862)
									{	/* Read/reader.scm 620 */
										{	/* Read/reader.scm 622 */
											obj_t BgL_arg6028z00_9903;
											long BgL_arg6029z00_9904;
											obj_t BgL_arg6030z00_9905;

											{	/* Read/reader.scm 622 */
												obj_t BgL_tmpz00_28865;

												BgL_tmpz00_28865 = ((obj_t) BgL_iportz00_17898);
												BgL_arg6028z00_9903 = INPUT_PORT_NAME(BgL_tmpz00_28865);
											}
											{	/* Read/reader.scm 623 */
												long BgL_res6783z00_16967;

												{	/* Read/reader.scm 623 */
													long BgL_tmpz00_28868;

													{	/* Read/reader.scm 623 */
														obj_t BgL_tmpz00_28869;

														BgL_tmpz00_28869 = ((obj_t) BgL_iportz00_17898);
														BgL_tmpz00_28868 =
															INPUT_PORT_TOKENPOS(BgL_tmpz00_28869);
													}
													BgL_res6783z00_16967 = (long) (BgL_tmpz00_28868);
												}
												BgL_arg6029z00_9904 = BgL_res6783z00_16967;
											}
											{	/* Read/reader.scm 409 */
												long BgL_arg5814z00_16968;

												{	/* Read/reader.scm 409 */
													obj_t BgL_tmpz00_28873;

													BgL_tmpz00_28873 = ((obj_t) BgL_iportz00_17898);
													BgL_arg5814z00_16968 =
														RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_28873);
												}
												BgL_arg6030z00_9905 =
													rgc_buffer_substring(
													((obj_t) BgL_iportz00_17898), 0L,
													BgL_arg5814z00_16968);
											}
											{	/* Read/reader.scm 622 */
												obj_t BgL_list6031z00_9906;

												{	/* Read/reader.scm 622 */
													obj_t BgL_arg6032z00_9907;

													{	/* Read/reader.scm 622 */
														obj_t BgL_arg6033z00_9908;

														{	/* Read/reader.scm 622 */
															obj_t BgL_arg6034z00_9909;

															BgL_arg6034z00_9909 =
																MAKE_YOUNG_PAIR(BGl_string6903z00zz__readerz00,
																BNIL);
															BgL_arg6033z00_9908 =
																MAKE_YOUNG_PAIR(BgL_arg6030z00_9905,
																BgL_arg6034z00_9909);
														}
														BgL_arg6032z00_9907 =
															MAKE_YOUNG_PAIR(BGl_string6904z00zz__readerz00,
															BgL_arg6033z00_9908);
													}
													BgL_list6031z00_9906 =
														MAKE_YOUNG_PAIR(BGl_symbol6873z00zz__readerz00,
														BgL_arg6032z00_9907);
												}
												BGl_warningzf2locationzf2zz__errorz00
													(BgL_arg6028z00_9903, BINT(BgL_arg6029z00_9904),
													BgL_list6031z00_9906);
										}}
										{	/* Read/reader.scm 628 */
											obj_t BgL_auxz00_17921;

											BgL_auxz00_17921 = BINT(0L);
											BGL_UNSAFE_CELL_SET(BgL_parzd2openzd2_17901,
												BgL_auxz00_17921);
										}
										{

											goto BGl_ignoreze70ze7zz__readerz00;
										}
									}
								else
									{	/* Read/reader.scm 620 */
										{	/* Read/reader.scm 631 */
											obj_t BgL_auxz00_17922;

											{	/* Read/reader.scm 631 */
												obj_t BgL_pairz00_16972;

												BgL_pairz00_16972 =
													BGL_UNSAFE_CELL_REF(BgL_parzd2poseszd2_17899);
												BgL_auxz00_17922 = CDR(BgL_pairz00_16972);
											}
											BGL_UNSAFE_CELL_SET(BgL_parzd2poseszd2_17899,
												BgL_auxz00_17922);
										}
										return BGl_za2endzd2ofzd2listza2z00zz__readerz00;
									}
							}
							break;
						case 28L:

							{	/* Read/reader.scm 612 */
								obj_t BgL_auxz00_17923;

								BgL_auxz00_17923 =
									ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_parzd2openzd2_17901));
								BGL_UNSAFE_CELL_SET(BgL_parzd2openzd2_17901, BgL_auxz00_17923);
							}
							{	/* Read/reader.scm 613 */
								obj_t BgL_auxz00_17924;

								{	/* Read/reader.scm 613 */
									long BgL_arg6037z00_9912;

									{	/* Read/reader.scm 613 */
										long BgL_arg6038z00_9913;

										{	/* Read/reader.scm 613 */
											obj_t BgL_tmpz00_28888;

											BgL_tmpz00_28888 = ((obj_t) BgL_iportz00_17898);
											BgL_arg6038z00_9913 =
												INPUT_PORT_FILEPOS(BgL_tmpz00_28888);
										}
										BgL_arg6037z00_9912 = (BgL_arg6038z00_9913 - 1L);
									}
									BgL_auxz00_17924 =
										MAKE_YOUNG_PAIR(BINT(BgL_arg6037z00_9912),
										BGL_UNSAFE_CELL_REF(BgL_parzd2poseszd2_17899));
								}
								BGL_UNSAFE_CELL_SET(BgL_parzd2poseszd2_17899, BgL_auxz00_17924);
							}
							{	/* Read/reader.scm 616 */
								obj_t BgL_arg6040z00_9915;

								BgL_arg6040z00_9915 =
									BGl_collectzd2upzd2toze70ze7zz__readerz00(BgL_pospz00_17905,
									BgL_brazd2poseszd2_17904, BgL_resolvez00_17903,
									BgL_cyclesz00_17902, BgL_parzd2openzd2_17901,
									BgL_brazd2openzd2_17900, BgL_parzd2poseszd2_17899,
									BgL_iportz00_17898, BGl_string6905z00zz__readerz00,
									((obj_t) BgL_iportz00_17898), BgL_pospz00_17905);
								return BGl_makezd2listz12zc0zz__readerz00(BgL_arg6040z00_9915,
									((obj_t) BgL_iportz00_17898));
							}
							break;
						case 27L:

							BgL_kwotez00_9714 = BGl_symbol6906z00zz__readerz00;
							BgL_portz00_9715 = ((obj_t) BgL_iportz00_17898);
							BgL_pospz00_9716 = BgL_pospz00_17905;
						BgL_zc3z04anonymousza35894ze3z87_9717:
							if (CBOOL(BgL_pospz00_9716))
								{	/* Read/reader.scm 453 */
									long BgL_posz00_9718;

									BgL_posz00_9718 = INPUT_PORT_FILEPOS(BgL_portz00_9715);
									{	/* Read/reader.scm 453 */
										obj_t BgL_objz00_9719;

										BgL_objz00_9719 =
											BGl_ignoreze70ze7zz__readerz00(BgL_pospz00_17905,
											BgL_brazd2poseszd2_17904, BgL_resolvez00_17903,
											BgL_cyclesz00_17902, BgL_parzd2openzd2_17901,
											BgL_brazd2openzd2_17900, BgL_parzd2poseszd2_17899,
											BgL_iportz00_17898);
										{	/* Read/reader.scm 454 */

											{	/* Read/reader.scm 455 */
												bool_t BgL_test9310z00_28902;

												if (EOF_OBJECTP(BgL_objz00_9719))
													{	/* Read/reader.scm 455 */
														BgL_test9310z00_28902 = ((bool_t) 1);
													}
												else
													{	/* Read/reader.scm 455 */
														BgL_test9310z00_28902 =
															(BgL_objz00_9719 ==
															BGl_za2endzd2ofzd2listza2z00zz__readerz00);
													}
												if (BgL_test9310z00_28902)
													{	/* Read/reader.scm 455 */
														return
															BGl_readzd2errorzf2locz20zz__readerz00(BINT
															(BgL_posz00_9718), BGl_string6864z00zz__readerz00,
															BgL_kwotez00_9714, BgL_portz00_9715);
													}
												else
													{	/* Read/reader.scm 457 */
														obj_t BgL_arg5897z00_9722;
														obj_t BgL_arg5898z00_9723;

														BgL_arg5897z00_9722 =
															MAKE_YOUNG_PAIR(BgL_objz00_9719, BNIL);
														BgL_arg5898z00_9723 =
															INPUT_PORT_NAME(BgL_portz00_9715);
														{	/* Read/reader.scm 137 */
															obj_t BgL_arg6113z00_16688;

															{	/* Read/reader.scm 122 */
																obj_t BgL_list6100z00_16689;

																{	/* Read/reader.scm 122 */
																	obj_t BgL_arg6101z00_16690;

																	{	/* Read/reader.scm 122 */
																		obj_t BgL_arg6102z00_16691;

																		BgL_arg6102z00_16691 =
																			MAKE_YOUNG_PAIR(BINT(BgL_posz00_9718),
																			BNIL);
																		BgL_arg6101z00_16690 =
																			MAKE_YOUNG_PAIR(BgL_arg5898z00_9723,
																			BgL_arg6102z00_16691);
																	}
																	BgL_list6100z00_16689 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol6859z00zz__readerz00,
																		BgL_arg6101z00_16690);
																}
																BgL_arg6113z00_16688 = BgL_list6100z00_16689;
															}
															{	/* Read/reader.scm 137 */
																obj_t BgL_res6742z00_16693;

																BgL_res6742z00_16693 =
																	MAKE_YOUNG_EPAIR(BgL_kwotez00_9714,
																	BgL_arg5897z00_9722, BgL_arg6113z00_16688);
																return BgL_res6742z00_16693;
															}
														}
													}
											}
										}
									}
								}
							else
								{	/* Read/reader.scm 458 */
									obj_t BgL_objz00_9725;

									BgL_objz00_9725 =
										BGl_ignoreze70ze7zz__readerz00(BgL_pospz00_17905,
										BgL_brazd2poseszd2_17904, BgL_resolvez00_17903,
										BgL_cyclesz00_17902, BgL_parzd2openzd2_17901,
										BgL_brazd2openzd2_17900, BgL_parzd2poseszd2_17899,
										BgL_iportz00_17898);
									{	/* Read/reader.scm 459 */
										bool_t BgL_test9312z00_28916;

										if (EOF_OBJECTP(BgL_objz00_9725))
											{	/* Read/reader.scm 459 */
												BgL_test9312z00_28916 = ((bool_t) 1);
											}
										else
											{	/* Read/reader.scm 459 */
												BgL_test9312z00_28916 =
													(BgL_objz00_9725 ==
													BGl_za2endzd2ofzd2listza2z00zz__readerz00);
											}
										if (BgL_test9312z00_28916)
											{	/* Read/reader.scm 459 */
												return
													BGl_readzd2errorzd2zz__readerz00
													(BGl_string6864z00zz__readerz00, BgL_kwotez00_9714,
													BgL_portz00_9715);
											}
										else
											{	/* Read/reader.scm 461 */
												obj_t BgL_arg5901z00_9728;

												BgL_arg5901z00_9728 =
													MAKE_YOUNG_PAIR(BgL_objz00_9725, BNIL);
												return
													MAKE_YOUNG_PAIR(BgL_kwotez00_9714,
													BgL_arg5901z00_9728);
											}
									}
								}
							break;
						case 26L:

							{
								obj_t BgL_pospz00_28927;
								obj_t BgL_portz00_28925;
								obj_t BgL_kwotez00_28924;

								BgL_kwotez00_28924 = BGl_symbol6908z00zz__readerz00;
								BgL_portz00_28925 = ((obj_t) BgL_iportz00_17898);
								BgL_pospz00_28927 = BgL_pospz00_17905;
								BgL_pospz00_9716 = BgL_pospz00_28927;
								BgL_portz00_9715 = BgL_portz00_28925;
								BgL_kwotez00_9714 = BgL_kwotez00_28924;
								goto BgL_zc3z04anonymousza35894ze3z87_9717;
							}
							break;
						case 25L:

							{
								obj_t BgL_pospz00_28931;
								obj_t BgL_portz00_28929;
								obj_t BgL_kwotez00_28928;

								BgL_kwotez00_28928 = BGl_symbol6910z00zz__readerz00;
								BgL_portz00_28929 = ((obj_t) BgL_iportz00_17898);
								BgL_pospz00_28931 = BgL_pospz00_17905;
								BgL_pospz00_9716 = BgL_pospz00_28931;
								BgL_portz00_9715 = BgL_portz00_28929;
								BgL_kwotez00_9714 = BgL_kwotez00_28928;
								goto BgL_zc3z04anonymousza35894ze3z87_9717;
							}
							break;
						case 24L:

							{
								obj_t BgL_pospz00_28935;
								obj_t BgL_portz00_28933;
								obj_t BgL_kwotez00_28932;

								BgL_kwotez00_28932 = BGl_symbol6912z00zz__readerz00;
								BgL_portz00_28933 = ((obj_t) BgL_iportz00_17898);
								BgL_pospz00_28935 = BgL_pospz00_17905;
								BgL_pospz00_9716 = BgL_pospz00_28935;
								BgL_portz00_9715 = BgL_portz00_28933;
								BgL_kwotez00_9714 = BgL_kwotez00_28932;
								goto BgL_zc3z04anonymousza35894ze3z87_9717;
							}
							break;
						case 23L:

							{	/* Read/reader.scm 595 */
								bool_t BgL_test9314z00_28936;

								{	/* Read/reader.scm 595 */
									long BgL_arg6052z00_9927;

									{	/* Read/reader.scm 409 */
										obj_t BgL_tmpz00_28937;

										BgL_tmpz00_28937 = ((obj_t) BgL_iportz00_17898);
										BgL_arg6052z00_9927 =
											RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_28937);
									}
									BgL_test9314z00_28936 = (BgL_arg6052z00_9927 == 2L);
								}
								if (BgL_test9314z00_28936)
									{	/* Read/reader.scm 595 */
										return bstring_to_symbol(BGl_string6914z00zz__readerz00);
									}
								else
									{	/* Read/reader.scm 597 */
										obj_t BgL_arg6049z00_9924;

										{	/* Read/reader.scm 597 */
											long BgL_arg6050z00_9925;

											{	/* Read/reader.scm 597 */
												long BgL_arg6051z00_9926;

												{	/* Read/reader.scm 409 */
													obj_t BgL_tmpz00_28942;

													BgL_tmpz00_28942 = ((obj_t) BgL_iportz00_17898);
													BgL_arg6051z00_9926 =
														RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_28942);
												}
												BgL_arg6050z00_9925 = (BgL_arg6051z00_9926 - 1L);
											}
											BgL_arg6049z00_9924 =
												BGl_thezd2escapezd2substringze71ze7zz__readerz00
												(BgL_iportz00_17898, (int) (1L),
												(int) (BgL_arg6050z00_9925), ((bool_t) 0));
										}
										return bstring_to_symbol(BgL_arg6049z00_9924);
									}
							}
							break;
						case 22L:

							return rgc_buffer_symbol(((obj_t) BgL_iportz00_17898));
							break;
						case 21L:

							if (
								(BGl_za2identifierzd2syntaxza2zd2zz__readerz00 ==
									BGl_symbol6915z00zz__readerz00))
								{	/* Read/reader.scm 587 */
									obj_t BgL_arg6053z00_9928;
									obj_t BgL_arg6054z00_9929;
									long BgL_arg6055z00_9930;

									{	/* Read/reader.scm 587 */
										obj_t BgL_l01402z00_9931;

										{	/* Read/reader.scm 587 */
											obj_t BgL_arg6061z00_9940;

											{	/* Read/reader.scm 409 */
												long BgL_arg5814z00_16990;

												{	/* Read/reader.scm 409 */
													obj_t BgL_tmpz00_28954;

													BgL_tmpz00_28954 = ((obj_t) BgL_iportz00_17898);
													BgL_arg5814z00_16990 =
														RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_28954);
												}
												BgL_arg6061z00_9940 =
													rgc_buffer_substring(
													((obj_t) BgL_iportz00_17898), 0L,
													BgL_arg5814z00_16990);
											}
											{	/* Read/reader.scm 587 */
												obj_t BgL_list6062z00_9941;

												BgL_list6062z00_9941 =
													MAKE_YOUNG_PAIR(BGl_string6917z00zz__readerz00, BNIL);
												BgL_l01402z00_9931 =
													BGl_stringzd2splitzd2zz__r4_strings_6_7z00
													(BgL_arg6061z00_9940, BgL_list6062z00_9941);
										}}
										{
											obj_t BgL_l1401z00_9933;

											BgL_l1401z00_9933 = BgL_l01402z00_9931;
										BgL_zc3z04anonymousza36056ze3z87_9934:
											if (NULLP(BgL_l1401z00_9933))
												{	/* Read/reader.scm 587 */
													BgL_arg6053z00_9928 = BgL_l01402z00_9931;
												}
											else
												{	/* Read/reader.scm 587 */
													{	/* Read/reader.scm 587 */
														obj_t BgL_arg6058z00_9936;

														{	/* Read/reader.scm 587 */
															obj_t BgL_arg6059z00_9937;

															BgL_arg6059z00_9937 =
																CAR(((obj_t) BgL_l1401z00_9933));
															BgL_arg6058z00_9936 =
																bstring_to_symbol(
																((obj_t) BgL_arg6059z00_9937));
														}
														{	/* Read/reader.scm 587 */
															obj_t BgL_tmpz00_28967;

															BgL_tmpz00_28967 = ((obj_t) BgL_l1401z00_9933);
															SET_CAR(BgL_tmpz00_28967, BgL_arg6058z00_9936);
														}
													}
													{	/* Read/reader.scm 587 */
														obj_t BgL_arg6060z00_9938;

														BgL_arg6060z00_9938 =
															CDR(((obj_t) BgL_l1401z00_9933));
														{
															obj_t BgL_l1401z00_28972;

															BgL_l1401z00_28972 = BgL_arg6060z00_9938;
															BgL_l1401z00_9933 = BgL_l1401z00_28972;
															goto BgL_zc3z04anonymousza36056ze3z87_9934;
														}
													}
												}
										}
									}
									{	/* Read/reader.scm 588 */
										obj_t BgL_tmpz00_28973;

										BgL_tmpz00_28973 = ((obj_t) BgL_iportz00_17898);
										BgL_arg6054z00_9929 = INPUT_PORT_NAME(BgL_tmpz00_28973);
									}
									{	/* Read/reader.scm 589 */
										obj_t BgL_tmpz00_28976;

										BgL_tmpz00_28976 = ((obj_t) BgL_iportz00_17898);
										BgL_arg6055z00_9930 = INPUT_PORT_FILEPOS(BgL_tmpz00_28976);
									}
									{	/* Read/reader.scm 586 */
										obj_t BgL_az00_17002;

										BgL_az00_17002 = BGl_symbol6918z00zz__readerz00;
										{	/* Read/reader.scm 137 */
											obj_t BgL_arg6113z00_17003;

											{	/* Read/reader.scm 122 */
												obj_t BgL_list6100z00_17004;

												{	/* Read/reader.scm 122 */
													obj_t BgL_arg6101z00_17005;

													{	/* Read/reader.scm 122 */
														obj_t BgL_arg6102z00_17006;

														BgL_arg6102z00_17006 =
															MAKE_YOUNG_PAIR(BINT(BgL_arg6055z00_9930), BNIL);
														BgL_arg6101z00_17005 =
															MAKE_YOUNG_PAIR(BgL_arg6054z00_9929,
															BgL_arg6102z00_17006);
													}
													BgL_list6100z00_17004 =
														MAKE_YOUNG_PAIR(BGl_symbol6859z00zz__readerz00,
														BgL_arg6101z00_17005);
												}
												BgL_arg6113z00_17003 = BgL_list6100z00_17004;
											}
											{	/* Read/reader.scm 137 */
												obj_t BgL_res6794z00_17008;

												BgL_res6794z00_17008 =
													MAKE_YOUNG_EPAIR(BgL_az00_17002, BgL_arg6053z00_9928,
													BgL_arg6113z00_17003);
												return BgL_res6794z00_17008;
											}
										}
									}
								}
							else
								{	/* Read/reader.scm 585 */
									return rgc_buffer_symbol(((obj_t) BgL_iportz00_17898));
								}
							break;
						case 20L:

							return rgc_buffer_keyword(((obj_t) BgL_iportz00_17898));
							break;
						case 19L:

							return BFALSE;
							break;
						case 18L:

							return BTRUE;
							break;
						case 17L:

							{	/* Read/reader.scm 566 */
								bool_t BgL_test9317z00_28988;

								{	/* Read/reader.scm 566 */
									long BgL_n1z00_17011;

									BgL_n1z00_17011 =
										(long) CINT(BGL_UNSAFE_CELL_REF(BgL_parzd2openzd2_17901));
									BgL_test9317z00_28988 = (BgL_n1z00_17011 <= 0L);
								}
								if (BgL_test9317z00_28988)
									{	/* Read/reader.scm 566 */
										return
											BGl_readzd2errorzd2zz__readerz00
											(BGl_string6920z00zz__readerz00,
											BCHAR(((unsigned char) '.')),
											((obj_t) BgL_iportz00_17898));
									}
								else
									{	/* Read/reader.scm 566 */
										return BGl_za2dottedzd2markza2zd2zz__readerz00;
									}
							}
							break;
						case 16L:

							{	/* Read/reader.scm 562 */
								double BgL_tmpz00_28994;

								BgL_tmpz00_28994 = NEG(BGL_INFINITY);
								return DOUBLE_TO_REAL(BgL_tmpz00_28994);
							}
							break;
						case 15L:

							return DOUBLE_TO_REAL(BGL_INFINITY);
							break;
						case 14L:

							return DOUBLE_TO_REAL(BGL_NAN);
							break;
						case 13L:

							{	/* Read/reader.scm 409 */
								double BgL_tmpz00_28999;

								BgL_tmpz00_28999 =
									rgc_buffer_flonum(((obj_t) BgL_iportz00_17898));
								return DOUBLE_TO_REAL(BgL_tmpz00_28999);
							}
							break;
						case 12L:

							return rgc_buffer_integer(((obj_t) BgL_iportz00_17898));
							break;
						case 11L:

							{	/* Read/reader.scm 545 */
								long BgL_arg6067z00_9946;
								bool_t BgL_arg6068z00_9947;

								{	/* Read/reader.scm 545 */
									long BgL_arg6069z00_9948;

									{	/* Read/reader.scm 409 */
										obj_t BgL_tmpz00_29005;

										BgL_tmpz00_29005 = ((obj_t) BgL_iportz00_17898);
										BgL_arg6069z00_9948 =
											RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_29005);
									}
									BgL_arg6067z00_9946 = (BgL_arg6069z00_9948 - 1L);
								}
								BgL_arg6068z00_9947 =
									BGl_bigloozd2strictzd2r5rszd2stringszd2zz__paramz00();
								return
									BGl_thezd2escapezd2substringze71ze7zz__readerz00
									(BgL_iportz00_17898, (int) (1L), (int) (BgL_arg6067z00_9946),
									BgL_arg6068z00_9947);
							} break;
						case 10L:

							{	/* Read/reader.scm 536 */
								long BgL_nz00_9949;

								{	/* Read/reader.scm 536 */
									obj_t BgL_arg6071z00_9951;

									BgL_arg6071z00_9951 =
										BGl_thezd2substringze71z35zz__readerz00(BgL_iportz00_17898,
										(int) (3L), (int) (0L));
									{	/* Read/reader.scm 536 */
										char *BgL_tmpz00_29016;

										BgL_tmpz00_29016 = BSTRING_TO_STRING(BgL_arg6071z00_9951);
										BgL_nz00_9949 = BGL_STRTOL(BgL_tmpz00_29016, 0L, 16L);
								}}
								if ((BgL_nz00_9949 <= 256L))
									{	/* Read/reader.scm 537 */
										return BCHAR((BgL_nz00_9949));
									}
								else
									{	/* Read/reader.scm 537 */
										return
											BUCS2(BGl_integerzd2ze3ucs2z31zz__ucs2z00(
												(int) (BgL_nz00_9949)));
							}} break;
						case 9L:

							{	/* Read/reader.scm 533 */
								long BgL_arg6072z00_9952;

								{	/* Read/reader.scm 533 */
									obj_t BgL_arg6073z00_9953;

									{	/* Read/reader.scm 533 */
										long BgL_arg6074z00_9954;

										{	/* Read/reader.scm 409 */
											obj_t BgL_tmpz00_29026;

											BgL_tmpz00_29026 = ((obj_t) BgL_iportz00_17898);
											BgL_arg6074z00_9954 =
												RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_29026);
										}
										BgL_arg6073z00_9953 =
											BGl_thezd2substringze71z35zz__readerz00
											(BgL_iportz00_17898, (int) (2L),
											(int) (BgL_arg6074z00_9954));
									}
									{	/* Read/reader.scm 533 */
										char *BgL_tmpz00_29032;

										BgL_tmpz00_29032 = BSTRING_TO_STRING(BgL_arg6073z00_9953);
										BgL_arg6072z00_9952 = BGL_STRTOL(BgL_tmpz00_29032, 0L, 8L);
								}}
								return BCHAR((BgL_arg6072z00_9952));
							}
							break;
						case 8L:

							{	/* Read/reader.scm 508 */
								obj_t BgL_charzd2namezd2_9955;

								{	/* Read/reader.scm 510 */
									obj_t BgL_arg6086z00_9968;

									{	/* Read/reader.scm 510 */
										obj_t BgL_arg6087z00_9969;

										{	/* Read/reader.scm 510 */
											long BgL_arg6088z00_9970;

											{	/* Read/reader.scm 409 */
												obj_t BgL_tmpz00_29037;

												BgL_tmpz00_29037 = ((obj_t) BgL_iportz00_17898);
												BgL_arg6088z00_9970 =
													RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_29037);
											}
											BgL_arg6087z00_9969 =
												BGl_thezd2substringze71z35zz__readerz00
												(BgL_iportz00_17898, (int) (2L),
												(int) (BgL_arg6088z00_9970));
										}
										BgL_arg6086z00_9968 =
											BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00
											(BgL_arg6087z00_9969);
									}
									BgL_charzd2namezd2_9955 =
										bstring_to_symbol(BgL_arg6086z00_9968);
								}
								if ((BgL_charzd2namezd2_9955 == BGl_symbol6921z00zz__readerz00))
									{	/* Read/reader.scm 512 */
										return BCHAR(((unsigned char) 10));
									}
								else
									{	/* Read/reader.scm 512 */
										if (
											(BgL_charzd2namezd2_9955 ==
												BGl_symbol6923z00zz__readerz00))
											{	/* Read/reader.scm 512 */
												return BCHAR(((unsigned char) 9));
											}
										else
											{	/* Read/reader.scm 512 */
												if (
													(BgL_charzd2namezd2_9955 ==
														BGl_symbol6925z00zz__readerz00))
													{	/* Read/reader.scm 512 */
														return BCHAR(((unsigned char) ' '));
													}
												else
													{	/* Read/reader.scm 512 */
														if (
															(BgL_charzd2namezd2_9955 ==
																BGl_symbol6927z00zz__readerz00))
															{	/* Read/reader.scm 512 */
																return BCHAR(((unsigned char) 13));
															}
														else
															{	/* Read/reader.scm 512 */
																if (
																	(BgL_charzd2namezd2_9955 ==
																		BGl_symbol6929z00zz__readerz00))
																	{	/* Read/reader.scm 512 */
																		return BCHAR(((unsigned char) '\000'));
																	}
																else
																	{	/* Read/reader.scm 512 */
																		if (
																			(BgL_charzd2namezd2_9955 ==
																				BGl_symbol6931z00zz__readerz00))
																			{	/* Read/reader.scm 512 */
																				return BCHAR(((unsigned char) 7));
																			}
																		else
																			{	/* Read/reader.scm 512 */
																				if (
																					(BgL_charzd2namezd2_9955 ==
																						BGl_symbol6933z00zz__readerz00))
																					{	/* Read/reader.scm 512 */
																						return BCHAR(((unsigned char) 8));
																					}
																				else
																					{	/* Read/reader.scm 512 */
																						if (
																							(BgL_charzd2namezd2_9955 ==
																								BGl_symbol6935z00zz__readerz00))
																							{	/* Read/reader.scm 512 */
																								return
																									BCHAR(((unsigned char) ''));
																							}
																						else
																							{	/* Read/reader.scm 512 */
																								if (
																									(BgL_charzd2namezd2_9955 ==
																										BGl_symbol6937z00zz__readerz00))
																									{	/* Read/reader.scm 512 */
																										return
																											BCHAR(((unsigned char)
																												27));
																									}
																								else
																									{	/* Read/reader.scm 531 */
																										obj_t BgL_arg6084z00_9966;

																										{	/* Read/reader.scm 409 */
																											long BgL_arg5814z00_17033;

																											{	/* Read/reader.scm 409 */
																												obj_t BgL_tmpz00_29072;

																												BgL_tmpz00_29072 =
																													((obj_t)
																													BgL_iportz00_17898);
																												BgL_arg5814z00_17033 =
																													RGC_BUFFER_MATCH_LENGTH
																													(BgL_tmpz00_29072);
																											}
																											BgL_arg6084z00_9966 =
																												rgc_buffer_substring(
																												((obj_t)
																													BgL_iportz00_17898),
																												0L,
																												BgL_arg5814z00_17033);
																										}
																										return
																											BGl_readzd2errorzd2zz__readerz00
																											(BGl_string6939z00zz__readerz00,
																											BgL_arg6084z00_9966,
																											((obj_t)
																												BgL_iportz00_17898));
																									}
																							}
																					}
																			}
																	}
															}
													}
											}
									}
							}
							break;
						case 7L:

							{	/* Read/reader.scm 506 */
								obj_t BgL_arg6089z00_9971;

								{	/* Read/reader.scm 409 */
									long BgL_arg5814z00_17038;

									{	/* Read/reader.scm 409 */
										obj_t BgL_tmpz00_29079;

										BgL_tmpz00_29079 = ((obj_t) BgL_iportz00_17898);
										BgL_arg5814z00_17038 =
											RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_29079);
									}
									BgL_arg6089z00_9971 =
										rgc_buffer_substring(
										((obj_t) BgL_iportz00_17898), 0L, BgL_arg5814z00_17038);
								}
								return BCHAR(STRING_REF(BgL_arg6089z00_9971, 2L));
							}
							break;
						case 6L:

							{	/* Read/reader.scm 492 */
								obj_t BgL_strz00_9972;

								{	/* Read/reader.scm 409 */
									long BgL_arg5814z00_17043;

									{	/* Read/reader.scm 409 */
										obj_t BgL_tmpz00_29086;

										BgL_tmpz00_29086 = ((obj_t) BgL_iportz00_17898);
										BgL_arg5814z00_17043 =
											RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_29086);
									}
									BgL_strz00_9972 =
										rgc_buffer_substring(
										((obj_t) BgL_iportz00_17898), 0L, BgL_arg5814z00_17043);
								}
								{	/* Read/reader.scm 492 */

									{	/* Read/reader.scm 494 */
										bool_t BgL_test9328z00_29091;

										{	/* Read/reader.scm 494 */
											long BgL_l1z00_17049;

											BgL_l1z00_17049 = STRING_LENGTH(BgL_strz00_9972);
											if ((BgL_l1z00_17049 == 10L))
												{	/* Read/reader.scm 494 */
													int BgL_arg6491z00_17052;

													{	/* Read/reader.scm 494 */
														char *BgL_auxz00_29097;
														char *BgL_tmpz00_29095;

														BgL_auxz00_29097 =
															BSTRING_TO_STRING(BGl_string6940z00zz__readerz00);
														BgL_tmpz00_29095 =
															BSTRING_TO_STRING(BgL_strz00_9972);
														BgL_arg6491z00_17052 =
															memcmp(BgL_tmpz00_29095, BgL_auxz00_29097,
															BgL_l1z00_17049);
													}
													BgL_test9328z00_29091 =
														((long) (BgL_arg6491z00_17052) == 0L);
												}
											else
												{	/* Read/reader.scm 494 */
													BgL_test9328z00_29091 = ((bool_t) 0);
												}
										}
										if (BgL_test9328z00_29091)
											{	/* Read/reader.scm 494 */
												return BOPTIONAL;
											}
										else
											{	/* Read/reader.scm 496 */
												bool_t BgL_test9330z00_29102;

												{	/* Read/reader.scm 496 */
													long BgL_l1z00_17060;

													BgL_l1z00_17060 = STRING_LENGTH(BgL_strz00_9972);
													if ((BgL_l1z00_17060 == 6L))
														{	/* Read/reader.scm 496 */
															int BgL_arg6491z00_17063;

															{	/* Read/reader.scm 496 */
																char *BgL_auxz00_29108;
																char *BgL_tmpz00_29106;

																BgL_auxz00_29108 =
																	BSTRING_TO_STRING
																	(BGl_string6941z00zz__readerz00);
																BgL_tmpz00_29106 =
																	BSTRING_TO_STRING(BgL_strz00_9972);
																BgL_arg6491z00_17063 =
																	memcmp(BgL_tmpz00_29106, BgL_auxz00_29108,
																	BgL_l1z00_17060);
															}
															BgL_test9330z00_29102 =
																((long) (BgL_arg6491z00_17063) == 0L);
														}
													else
														{	/* Read/reader.scm 496 */
															BgL_test9330z00_29102 = ((bool_t) 0);
														}
												}
												if (BgL_test9330z00_29102)
													{	/* Read/reader.scm 496 */
														return BREST;
													}
												else
													{	/* Read/reader.scm 498 */
														bool_t BgL_test9332z00_29113;

														{	/* Read/reader.scm 498 */
															long BgL_l1z00_17071;

															BgL_l1z00_17071 = STRING_LENGTH(BgL_strz00_9972);
															if ((BgL_l1z00_17071 == 5L))
																{	/* Read/reader.scm 498 */
																	int BgL_arg6491z00_17074;

																	{	/* Read/reader.scm 498 */
																		char *BgL_auxz00_29119;
																		char *BgL_tmpz00_29117;

																		BgL_auxz00_29119 =
																			BSTRING_TO_STRING
																			(BGl_string6942z00zz__readerz00);
																		BgL_tmpz00_29117 =
																			BSTRING_TO_STRING(BgL_strz00_9972);
																		BgL_arg6491z00_17074 =
																			memcmp(BgL_tmpz00_29117, BgL_auxz00_29119,
																			BgL_l1z00_17071);
																	}
																	BgL_test9332z00_29113 =
																		((long) (BgL_arg6491z00_17074) == 0L);
																}
															else
																{	/* Read/reader.scm 498 */
																	BgL_test9332z00_29113 = ((bool_t) 0);
																}
														}
														if (BgL_test9332z00_29113)
															{	/* Read/reader.scm 498 */
																return BKEY;
															}
														else
															{	/* Read/reader.scm 498 */
																BGl_za2bigloozd2interpreterza2zd2zz__readerz00 =
																	BTRUE;
																{

																	goto BGl_ignoreze70ze7zz__readerz00;
																}
															}
													}
											}
									}
								}
							}
							break;
						case 5L:

							{

								goto BGl_ignoreze70ze7zz__readerz00;
							}
							break;
						case 4L:

							BGl_ignoreze70ze7zz__readerz00(BgL_pospz00_17905,
								BgL_brazd2poseszd2_17904, BgL_resolvez00_17903,
								BgL_cyclesz00_17902, BgL_parzd2openzd2_17901,
								BgL_brazd2openzd2_17900, BgL_parzd2poseszd2_17899,
								BgL_iportz00_17898);
							{

								goto BGl_ignoreze70ze7zz__readerz00;
							}
							break;
						case 3L:

							BGl_readzd2multizd2linezd2commentzd2zz__readerz00(
								((obj_t) BgL_iportz00_17898));
							{

								goto BGl_ignoreze70ze7zz__readerz00;
							}
							break;
						case 2L:

							{

								goto BGl_ignoreze70ze7zz__readerz00;
							}
							break;
						case 1L:

							{

								goto BGl_ignoreze70ze7zz__readerz00;
							}
							break;
						case 0L:

							{

								goto BGl_ignoreze70ze7zz__readerz00;
							}
							break;
						default:
							return
								BGl_errorz00zz__errorz00(BGl_string6943z00zz__readerz00,
								BGl_string6944z00zz__readerz00, BINT(BgL_matchz00_9747));
						}
				}
			}
		}

	}



/* &<@anonymous:5920> */
	obj_t BGl_z62zc3z04anonymousza35920ze3ze5zz__readerz00(obj_t BgL_envz00_17830)
	{
		{	/* Read/reader.scm 768 */
			return PROCEDURE_REF(BgL_envz00_17830, (int) (0L));
		}

	}



/* &<@anonymous:1517> */
	obj_t BGl_z62zc3z04anonymousza31517ze3ze5zz__readerz00(obj_t BgL_envz00_17832,
		obj_t BgL_iportz00_17833)
	{
		{	/* Read/reader.scm 301 */
			{
				obj_t BgL_iportz00_18769;
				long BgL_lastzd2matchzd2_18770;
				long BgL_forwardz00_18771;
				long BgL_bufposz00_18772;
				obj_t BgL_iportz00_18753;
				long BgL_lastzd2matchzd2_18754;
				long BgL_forwardz00_18755;
				long BgL_bufposz00_18756;
				obj_t BgL_iportz00_18745;
				long BgL_lastzd2matchzd2_18746;
				long BgL_forwardz00_18747;
				long BgL_bufposz00_18748;
				obj_t BgL_iportz00_18738;
				long BgL_lastzd2matchzd2_18739;
				long BgL_forwardz00_18740;
				long BgL_bufposz00_18741;
				obj_t BgL_iportz00_18731;
				long BgL_lastzd2matchzd2_18732;
				long BgL_forwardz00_18733;
				long BgL_bufposz00_18734;
				obj_t BgL_iportz00_18723;
				long BgL_lastzd2matchzd2_18724;
				long BgL_forwardz00_18725;
				long BgL_bufposz00_18726;
				obj_t BgL_iportz00_18716;
				long BgL_lastzd2matchzd2_18717;
				long BgL_forwardz00_18718;
				long BgL_bufposz00_18719;
				obj_t BgL_iportz00_18709;
				long BgL_lastzd2matchzd2_18710;
				long BgL_forwardz00_18711;
				long BgL_bufposz00_18712;
				obj_t BgL_iportz00_18699;
				long BgL_lastzd2matchzd2_18700;
				long BgL_forwardz00_18701;
				long BgL_bufposz00_18702;
				obj_t BgL_iportz00_18691;
				long BgL_lastzd2matchzd2_18692;
				long BgL_forwardz00_18693;
				long BgL_bufposz00_18694;
				obj_t BgL_iportz00_18684;
				long BgL_lastzd2matchzd2_18685;
				long BgL_forwardz00_18686;
				long BgL_bufposz00_18687;
				obj_t BgL_iportz00_18676;
				long BgL_lastzd2matchzd2_18677;
				long BgL_forwardz00_18678;
				long BgL_bufposz00_18679;
				obj_t BgL_iportz00_18668;
				long BgL_lastzd2matchzd2_18669;
				long BgL_forwardz00_18670;
				long BgL_bufposz00_18671;
				obj_t BgL_iportz00_18660;
				long BgL_lastzd2matchzd2_18661;
				long BgL_forwardz00_18662;
				long BgL_bufposz00_18663;
				obj_t BgL_iportz00_18651;
				long BgL_lastzd2matchzd2_18652;
				long BgL_forwardz00_18653;
				long BgL_bufposz00_18654;
				obj_t BgL_iportz00_18640;
				long BgL_lastzd2matchzd2_18641;
				long BgL_forwardz00_18642;
				long BgL_bufposz00_18643;
				obj_t BgL_iportz00_18633;
				long BgL_lastzd2matchzd2_18634;
				long BgL_forwardz00_18635;
				long BgL_bufposz00_18636;
				obj_t BgL_iportz00_18626;
				long BgL_lastzd2matchzd2_18627;
				long BgL_forwardz00_18628;
				long BgL_bufposz00_18629;
				obj_t BgL_iportz00_18617;
				long BgL_lastzd2matchzd2_18618;
				long BgL_forwardz00_18619;
				long BgL_bufposz00_18620;
				obj_t BgL_iportz00_18610;
				long BgL_lastzd2matchzd2_18611;
				long BgL_forwardz00_18612;
				long BgL_bufposz00_18613;
				obj_t BgL_iportz00_18601;
				long BgL_lastzd2matchzd2_18602;
				long BgL_forwardz00_18603;
				long BgL_bufposz00_18604;
				obj_t BgL_iportz00_18592;
				long BgL_lastzd2matchzd2_18593;
				long BgL_forwardz00_18594;
				long BgL_bufposz00_18595;
				obj_t BgL_iportz00_18584;
				long BgL_lastzd2matchzd2_18585;
				long BgL_forwardz00_18586;
				long BgL_bufposz00_18587;
				obj_t BgL_iportz00_18575;
				long BgL_lastzd2matchzd2_18576;
				long BgL_forwardz00_18577;
				long BgL_bufposz00_18578;
				obj_t BgL_iportz00_18568;
				long BgL_lastzd2matchzd2_18569;
				long BgL_forwardz00_18570;
				long BgL_bufposz00_18571;
				obj_t BgL_iportz00_18559;
				long BgL_lastzd2matchzd2_18560;
				long BgL_forwardz00_18561;
				long BgL_bufposz00_18562;
				obj_t BgL_iportz00_18552;
				long BgL_lastzd2matchzd2_18553;
				long BgL_forwardz00_18554;
				long BgL_bufposz00_18555;
				obj_t BgL_iportz00_18544;
				long BgL_lastzd2matchzd2_18545;
				long BgL_forwardz00_18546;
				long BgL_bufposz00_18547;
				obj_t BgL_iportz00_18537;
				long BgL_lastzd2matchzd2_18538;
				long BgL_forwardz00_18539;
				long BgL_bufposz00_18540;
				obj_t BgL_iportz00_18530;
				long BgL_lastzd2matchzd2_18531;
				long BgL_forwardz00_18532;
				long BgL_bufposz00_18533;
				obj_t BgL_iportz00_18522;
				long BgL_lastzd2matchzd2_18523;
				long BgL_forwardz00_18524;
				long BgL_bufposz00_18525;
				obj_t BgL_iportz00_18514;
				long BgL_lastzd2matchzd2_18515;
				long BgL_forwardz00_18516;
				long BgL_bufposz00_18517;
				obj_t BgL_iportz00_18506;
				long BgL_lastzd2matchzd2_18507;
				long BgL_forwardz00_18508;
				long BgL_bufposz00_18509;
				obj_t BgL_iportz00_18499;
				long BgL_lastzd2matchzd2_18500;
				long BgL_forwardz00_18501;
				long BgL_bufposz00_18502;
				obj_t BgL_iportz00_18491;
				long BgL_lastzd2matchzd2_18492;
				long BgL_forwardz00_18493;
				long BgL_bufposz00_18494;
				obj_t BgL_iportz00_18484;
				long BgL_lastzd2matchzd2_18485;
				long BgL_forwardz00_18486;
				long BgL_bufposz00_18487;
				obj_t BgL_iportz00_18477;
				long BgL_lastzd2matchzd2_18478;
				long BgL_forwardz00_18479;
				long BgL_bufposz00_18480;
				obj_t BgL_iportz00_18469;
				long BgL_lastzd2matchzd2_18470;
				long BgL_forwardz00_18471;
				long BgL_bufposz00_18472;
				obj_t BgL_iportz00_18462;
				long BgL_lastzd2matchzd2_18463;
				long BgL_forwardz00_18464;
				long BgL_bufposz00_18465;
				obj_t BgL_iportz00_18454;
				long BgL_lastzd2matchzd2_18455;
				long BgL_forwardz00_18456;
				long BgL_bufposz00_18457;
				obj_t BgL_iportz00_18445;
				long BgL_lastzd2matchzd2_18446;
				long BgL_forwardz00_18447;
				long BgL_bufposz00_18448;
				obj_t BgL_iportz00_18438;
				long BgL_lastzd2matchzd2_18439;
				long BgL_forwardz00_18440;
				long BgL_bufposz00_18441;
				obj_t BgL_iportz00_18430;
				long BgL_lastzd2matchzd2_18431;
				long BgL_forwardz00_18432;
				long BgL_bufposz00_18433;
				obj_t BgL_iportz00_18423;
				long BgL_lastzd2matchzd2_18424;
				long BgL_forwardz00_18425;
				long BgL_bufposz00_18426;
				obj_t BgL_iportz00_18416;
				long BgL_lastzd2matchzd2_18417;
				long BgL_forwardz00_18418;
				long BgL_bufposz00_18419;
				obj_t BgL_iportz00_18408;
				long BgL_lastzd2matchzd2_18409;
				long BgL_forwardz00_18410;
				long BgL_bufposz00_18411;
				obj_t BgL_iportz00_18400;
				long BgL_lastzd2matchzd2_18401;
				long BgL_forwardz00_18402;
				long BgL_bufposz00_18403;
				obj_t BgL_iportz00_18364;
				long BgL_lastzd2matchzd2_18365;
				long BgL_forwardz00_18366;
				long BgL_bufposz00_18367;
				obj_t BgL_iportz00_18356;
				long BgL_lastzd2matchzd2_18357;
				long BgL_forwardz00_18358;
				long BgL_bufposz00_18359;
				obj_t BgL_iportz00_18349;
				long BgL_lastzd2matchzd2_18350;
				long BgL_forwardz00_18351;
				long BgL_bufposz00_18352;
				obj_t BgL_iportz00_18342;
				long BgL_lastzd2matchzd2_18343;
				long BgL_forwardz00_18344;
				long BgL_bufposz00_18345;
				obj_t BgL_iportz00_18335;
				long BgL_lastzd2matchzd2_18336;
				long BgL_forwardz00_18337;
				long BgL_bufposz00_18338;
				obj_t BgL_iportz00_18327;
				long BgL_lastzd2matchzd2_18328;
				long BgL_forwardz00_18329;
				long BgL_bufposz00_18330;
				obj_t BgL_iportz00_18311;
				long BgL_lastzd2matchzd2_18312;
				long BgL_forwardz00_18313;
				long BgL_bufposz00_18314;
				obj_t BgL_iportz00_18304;
				long BgL_lastzd2matchzd2_18305;
				long BgL_forwardz00_18306;
				long BgL_bufposz00_18307;
				obj_t BgL_iportz00_18294;
				long BgL_lastzd2matchzd2_18295;
				long BgL_forwardz00_18296;
				long BgL_bufposz00_18297;
				obj_t BgL_iportz00_18287;
				long BgL_lastzd2matchzd2_18288;
				long BgL_forwardz00_18289;
				long BgL_bufposz00_18290;
				obj_t BgL_iportz00_18280;
				long BgL_lastzd2matchzd2_18281;
				long BgL_forwardz00_18282;
				long BgL_bufposz00_18283;
				obj_t BgL_iportz00_18271;
				long BgL_lastzd2matchzd2_18272;
				long BgL_forwardz00_18273;
				long BgL_bufposz00_18274;
				obj_t BgL_iportz00_18263;
				long BgL_lastzd2matchzd2_18264;
				long BgL_forwardz00_18265;
				long BgL_bufposz00_18266;
				obj_t BgL_iportz00_18256;
				long BgL_lastzd2matchzd2_18257;
				long BgL_forwardz00_18258;
				long BgL_bufposz00_18259;
				obj_t BgL_iportz00_18248;
				long BgL_lastzd2matchzd2_18249;
				long BgL_forwardz00_18250;
				long BgL_bufposz00_18251;
				obj_t BgL_iportz00_18240;
				long BgL_lastzd2matchzd2_18241;
				long BgL_forwardz00_18242;
				long BgL_bufposz00_18243;
				obj_t BgL_iportz00_18233;
				long BgL_lastzd2matchzd2_18234;
				long BgL_forwardz00_18235;
				long BgL_bufposz00_18236;
				obj_t BgL_iportz00_18226;
				long BgL_lastzd2matchzd2_18227;
				long BgL_forwardz00_18228;
				long BgL_bufposz00_18229;
				obj_t BgL_iportz00_18219;
				long BgL_lastzd2matchzd2_18220;
				long BgL_forwardz00_18221;
				long BgL_bufposz00_18222;
				obj_t BgL_iportz00_18211;
				long BgL_lastzd2matchzd2_18212;
				long BgL_forwardz00_18213;
				long BgL_bufposz00_18214;
				obj_t BgL_iportz00_18204;
				long BgL_lastzd2matchzd2_18205;
				long BgL_forwardz00_18206;
				long BgL_bufposz00_18207;
				obj_t BgL_iportz00_18188;
				long BgL_lastzd2matchzd2_18189;
				long BgL_forwardz00_18190;
				long BgL_bufposz00_18191;
				obj_t BgL_iportz00_18180;
				long BgL_lastzd2matchzd2_18181;
				long BgL_forwardz00_18182;
				long BgL_bufposz00_18183;
				obj_t BgL_iportz00_18173;
				long BgL_lastzd2matchzd2_18174;
				long BgL_forwardz00_18175;
				long BgL_bufposz00_18176;
				obj_t BgL_iportz00_18166;
				long BgL_lastzd2matchzd2_18167;
				long BgL_forwardz00_18168;
				long BgL_bufposz00_18169;
				obj_t BgL_iportz00_18155;
				long BgL_lastzd2matchzd2_18156;
				long BgL_forwardz00_18157;
				long BgL_bufposz00_18158;
				obj_t BgL_iportz00_18138;
				long BgL_lastzd2matchzd2_18139;
				long BgL_forwardz00_18140;
				long BgL_bufposz00_18141;
				obj_t BgL_iportz00_18131;
				long BgL_lastzd2matchzd2_18132;
				long BgL_forwardz00_18133;
				long BgL_bufposz00_18134;
				obj_t BgL_iportz00_18124;
				long BgL_lastzd2matchzd2_18125;
				long BgL_forwardz00_18126;
				long BgL_bufposz00_18127;
				obj_t BgL_iportz00_18115;
				long BgL_lastzd2matchzd2_18116;
				long BgL_forwardz00_18117;
				long BgL_bufposz00_18118;
				obj_t BgL_iportz00_18105;
				long BgL_lastzd2matchzd2_18106;
				long BgL_forwardz00_18107;
				long BgL_bufposz00_18108;
				obj_t BgL_iportz00_18097;
				long BgL_lastzd2matchzd2_18098;
				long BgL_forwardz00_18099;
				long BgL_bufposz00_18100;

				RGC_START_MATCH(BgL_iportz00_17833);
				{	/* Read/reader.scm 301 */
					long BgL_matchz00_18778;

					{	/* Read/reader.scm 301 */
						long BgL_arg2744z00_18779;
						long BgL_arg2749z00_18780;

						BgL_arg2744z00_18779 = RGC_BUFFER_FORWARD(BgL_iportz00_17833);
						BgL_arg2749z00_18780 = RGC_BUFFER_BUFPOS(BgL_iportz00_17833);
						BgL_iportz00_18155 = BgL_iportz00_17833;
						BgL_lastzd2matchzd2_18156 = 25L;
						BgL_forwardz00_18157 = BgL_arg2744z00_18779;
						BgL_bufposz00_18158 = BgL_arg2749z00_18780;
					BgL_statezd20zd21058z00_18022:
						if ((BgL_forwardz00_18157 == BgL_bufposz00_18158))
							{	/* Read/reader.scm 301 */
								if (rgc_fill_buffer(BgL_iportz00_18155))
									{	/* Read/reader.scm 301 */
										long BgL_arg1604z00_18159;
										long BgL_arg1605z00_18160;

										BgL_arg1604z00_18159 =
											RGC_BUFFER_FORWARD(BgL_iportz00_18155);
										BgL_arg1605z00_18160 =
											RGC_BUFFER_BUFPOS(BgL_iportz00_18155);
										{
											long BgL_bufposz00_29142;
											long BgL_forwardz00_29141;

											BgL_forwardz00_29141 = BgL_arg1604z00_18159;
											BgL_bufposz00_29142 = BgL_arg1605z00_18160;
											BgL_bufposz00_18158 = BgL_bufposz00_29142;
											BgL_forwardz00_18157 = BgL_forwardz00_29141;
											goto BgL_statezd20zd21058z00_18022;
										}
									}
								else
									{	/* Read/reader.scm 301 */
										BgL_matchz00_18778 = BgL_lastzd2matchzd2_18156;
									}
							}
						else
							{	/* Read/reader.scm 301 */
								int BgL_curz00_18161;

								BgL_curz00_18161 =
									RGC_BUFFER_GET_CHAR(BgL_iportz00_18155, BgL_forwardz00_18157);
								{	/* Read/reader.scm 301 */

									switch ((long) (BgL_curz00_18161))
										{
										case 122L:

											BgL_iportz00_18522 = BgL_iportz00_18155;
											BgL_lastzd2matchzd2_18523 = BgL_lastzd2matchzd2_18156;
											BgL_forwardz00_18524 = (1L + BgL_forwardz00_18157);
											BgL_bufposz00_18525 = BgL_bufposz00_18158;
										BgL_statezd214zd21072z00_18064:
											{	/* Read/reader.scm 301 */
												long BgL_newzd2matchzd2_18526;

												RGC_STOP_MATCH(BgL_iportz00_18522,
													BgL_forwardz00_18524);
												BgL_newzd2matchzd2_18526 = 25L;
												if ((BgL_forwardz00_18524 == BgL_bufposz00_18525))
													{	/* Read/reader.scm 301 */
														if (rgc_fill_buffer(BgL_iportz00_18522))
															{	/* Read/reader.scm 301 */
																long BgL_arg2133z00_18527;
																long BgL_arg2134z00_18528;

																BgL_arg2133z00_18527 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_18522);
																BgL_arg2134z00_18528 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_18522);
																{
																	long BgL_bufposz00_29152;
																	long BgL_forwardz00_29151;

																	BgL_forwardz00_29151 = BgL_arg2133z00_18527;
																	BgL_bufposz00_29152 = BgL_arg2134z00_18528;
																	BgL_bufposz00_18525 = BgL_bufposz00_29152;
																	BgL_forwardz00_18524 = BgL_forwardz00_29151;
																	goto BgL_statezd214zd21072z00_18064;
																}
															}
														else
															{	/* Read/reader.scm 301 */
																BgL_matchz00_18778 = BgL_newzd2matchzd2_18526;
															}
													}
												else
													{	/* Read/reader.scm 301 */
														int BgL_curz00_18529;

														BgL_curz00_18529 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_18522,
															BgL_forwardz00_18524);
														{	/* Read/reader.scm 301 */

															if (((long) (BgL_curz00_18529) == 120L))
																{	/* Read/reader.scm 301 */
																	BgL_iportz00_18738 = BgL_iportz00_18522;
																	BgL_lastzd2matchzd2_18739 =
																		BgL_newzd2matchzd2_18526;
																	BgL_forwardz00_18740 =
																		(1L + BgL_forwardz00_18524);
																	BgL_bufposz00_18741 = BgL_bufposz00_18525;
																BgL_statezd217zd21075z00_18091:
																	if (
																		(BgL_forwardz00_18740 ==
																			BgL_bufposz00_18741))
																		{	/* Read/reader.scm 301 */
																			if (rgc_fill_buffer(BgL_iportz00_18738))
																				{	/* Read/reader.scm 301 */
																					long BgL_arg2486z00_18742;
																					long BgL_arg2488z00_18743;

																					BgL_arg2486z00_18742 =
																						RGC_BUFFER_FORWARD
																						(BgL_iportz00_18738);
																					BgL_arg2488z00_18743 =
																						RGC_BUFFER_BUFPOS
																						(BgL_iportz00_18738);
																					{
																						long BgL_bufposz00_29164;
																						long BgL_forwardz00_29163;

																						BgL_forwardz00_29163 =
																							BgL_arg2486z00_18742;
																						BgL_bufposz00_29164 =
																							BgL_arg2488z00_18743;
																						BgL_bufposz00_18741 =
																							BgL_bufposz00_29164;
																						BgL_forwardz00_18740 =
																							BgL_forwardz00_29163;
																						goto BgL_statezd217zd21075z00_18091;
																					}
																				}
																			else
																				{	/* Read/reader.scm 301 */
																					BgL_matchz00_18778 =
																						BgL_lastzd2matchzd2_18739;
																				}
																		}
																	else
																		{	/* Read/reader.scm 301 */
																			int BgL_curz00_18744;

																			BgL_curz00_18744 =
																				RGC_BUFFER_GET_CHAR(BgL_iportz00_18738,
																				BgL_forwardz00_18740);
																			{	/* Read/reader.scm 301 */

																				{	/* Read/reader.scm 301 */
																					bool_t BgL_test9341z00_29166;

																					{	/* Read/reader.scm 301 */
																						bool_t BgL_test9342z00_29167;

																						if (
																							((long) (BgL_curz00_18744) >=
																								48L))
																							{	/* Read/reader.scm 301 */
																								BgL_test9342z00_29167 =
																									(
																									(long) (BgL_curz00_18744) <
																									58L);
																							}
																						else
																							{	/* Read/reader.scm 301 */
																								BgL_test9342z00_29167 =
																									((bool_t) 0);
																							}
																						if (BgL_test9342z00_29167)
																							{	/* Read/reader.scm 301 */
																								BgL_test9341z00_29166 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Read/reader.scm 301 */
																								bool_t BgL_test9344z00_29173;

																								if (
																									((long) (BgL_curz00_18744) >=
																										65L))
																									{	/* Read/reader.scm 301 */
																										BgL_test9344z00_29173 =
																											(
																											(long) (BgL_curz00_18744)
																											< 71L);
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										BgL_test9344z00_29173 =
																											((bool_t) 0);
																									}
																								if (BgL_test9344z00_29173)
																									{	/* Read/reader.scm 301 */
																										BgL_test9341z00_29166 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										if (
																											((long) (BgL_curz00_18744)
																												>= 97L))
																											{	/* Read/reader.scm 301 */
																												BgL_test9341z00_29166 =
																													(
																													(long)
																													(BgL_curz00_18744) <
																													103L);
																											}
																										else
																											{	/* Read/reader.scm 301 */
																												BgL_test9341z00_29166 =
																													((bool_t) 0);
																											}
																									}
																							}
																					}
																					if (BgL_test9341z00_29166)
																						{	/* Read/reader.scm 301 */
																							BgL_iportz00_18180 =
																								BgL_iportz00_18738;
																							BgL_lastzd2matchzd2_18181 =
																								BgL_lastzd2matchzd2_18739;
																							BgL_forwardz00_18182 =
																								(1L + BgL_forwardz00_18740);
																							BgL_bufposz00_18183 =
																								BgL_bufposz00_18741;
																						BgL_statezd219zd21077z00_18025:
																							{	/* Read/reader.scm 301 */
																								long BgL_newzd2matchzd2_18184;

																								RGC_STOP_MATCH
																									(BgL_iportz00_18180,
																									BgL_forwardz00_18182);
																								BgL_newzd2matchzd2_18184 = 13L;
																								if (
																									(BgL_forwardz00_18182 ==
																										BgL_bufposz00_18183))
																									{	/* Read/reader.scm 301 */
																										if (rgc_fill_buffer
																											(BgL_iportz00_18180))
																											{	/* Read/reader.scm 301 */
																												long
																													BgL_arg1653z00_18185;
																												long
																													BgL_arg1655z00_18186;
																												BgL_arg1653z00_18185 =
																													RGC_BUFFER_FORWARD
																													(BgL_iportz00_18180);
																												BgL_arg1655z00_18186 =
																													RGC_BUFFER_BUFPOS
																													(BgL_iportz00_18180);
																												{
																													long
																														BgL_bufposz00_29192;
																													long
																														BgL_forwardz00_29191;
																													BgL_forwardz00_29191 =
																														BgL_arg1653z00_18185;
																													BgL_bufposz00_29192 =
																														BgL_arg1655z00_18186;
																													BgL_bufposz00_18183 =
																														BgL_bufposz00_29192;
																													BgL_forwardz00_18182 =
																														BgL_forwardz00_29191;
																													goto
																														BgL_statezd219zd21077z00_18025;
																												}
																											}
																										else
																											{	/* Read/reader.scm 301 */
																												BgL_matchz00_18778 =
																													BgL_newzd2matchzd2_18184;
																											}
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										int BgL_curz00_18187;

																										BgL_curz00_18187 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_iportz00_18180,
																											BgL_forwardz00_18182);
																										{	/* Read/reader.scm 301 */

																											{	/* Read/reader.scm 301 */
																												bool_t
																													BgL_test9349z00_29194;
																												{	/* Read/reader.scm 301 */
																													bool_t
																														BgL_test9350z00_29195;
																													if (((long)
																															(BgL_curz00_18187)
																															>= 48L))
																														{	/* Read/reader.scm 301 */
																															BgL_test9350z00_29195
																																=
																																((long)
																																(BgL_curz00_18187)
																																< 58L);
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															BgL_test9350z00_29195
																																= ((bool_t) 0);
																														}
																													if (BgL_test9350z00_29195)
																														{	/* Read/reader.scm 301 */
																															BgL_test9349z00_29194
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															bool_t
																																BgL_test9352z00_29201;
																															if (((long)
																																	(BgL_curz00_18187)
																																	>= 65L))
																																{	/* Read/reader.scm 301 */
																																	BgL_test9352z00_29201
																																		=
																																		((long)
																																		(BgL_curz00_18187)
																																		< 71L);
																																}
																															else
																																{	/* Read/reader.scm 301 */
																																	BgL_test9352z00_29201
																																		=
																																		((bool_t)
																																		0);
																																}
																															if (BgL_test9352z00_29201)
																																{	/* Read/reader.scm 301 */
																																	BgL_test9349z00_29194
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 301 */
																																	if (
																																		((long)
																																			(BgL_curz00_18187)
																																			>= 97L))
																																		{	/* Read/reader.scm 301 */
																																			BgL_test9349z00_29194
																																				=
																																				((long)
																																				(BgL_curz00_18187)
																																				< 103L);
																																		}
																																	else
																																		{	/* Read/reader.scm 301 */
																																			BgL_test9349z00_29194
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																}
																														}
																												}
																												if (BgL_test9349z00_29194)
																													{
																														long
																															BgL_forwardz00_29213;
																														long
																															BgL_lastzd2matchzd2_29212;
																														BgL_lastzd2matchzd2_29212
																															=
																															BgL_newzd2matchzd2_18184;
																														BgL_forwardz00_29213
																															=
																															(1L +
																															BgL_forwardz00_18182);
																														BgL_forwardz00_18182
																															=
																															BgL_forwardz00_29213;
																														BgL_lastzd2matchzd2_18181
																															=
																															BgL_lastzd2matchzd2_29212;
																														goto
																															BgL_statezd219zd21077z00_18025;
																													}
																												else
																													{	/* Read/reader.scm 301 */
																														BgL_matchz00_18778 =
																															BgL_newzd2matchzd2_18184;
																													}
																											}
																										}
																									}
																							}
																						}
																					else
																						{	/* Read/reader.scm 301 */
																							BgL_matchz00_18778 =
																								BgL_lastzd2matchzd2_18739;
																						}
																				}
																			}
																		}
																}
															else
																{	/* Read/reader.scm 301 */
																	bool_t BgL_test9355z00_29217;

																	if (((long) (BgL_curz00_18529) >= 48L))
																		{	/* Read/reader.scm 301 */
																			BgL_test9355z00_29217 =
																				((long) (BgL_curz00_18529) < 58L);
																		}
																	else
																		{	/* Read/reader.scm 301 */
																			BgL_test9355z00_29217 = ((bool_t) 0);
																		}
																	if (BgL_test9355z00_29217)
																		{	/* Read/reader.scm 301 */
																			BgL_iportz00_18327 = BgL_iportz00_18522;
																			BgL_lastzd2matchzd2_18328 =
																				BgL_newzd2matchzd2_18526;
																			BgL_forwardz00_18329 =
																				(1L + BgL_forwardz00_18524);
																			BgL_bufposz00_18330 = BgL_bufposz00_18525;
																		BgL_statezd216zd21074z00_18042:
																			{	/* Read/reader.scm 301 */
																				long BgL_newzd2matchzd2_18331;

																				RGC_STOP_MATCH(BgL_iportz00_18327,
																					BgL_forwardz00_18329);
																				BgL_newzd2matchzd2_18331 = 12L;
																				if (
																					(BgL_forwardz00_18329 ==
																						BgL_bufposz00_18330))
																					{	/* Read/reader.scm 301 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_18327))
																							{	/* Read/reader.scm 301 */
																								long BgL_arg1890z00_18332;
																								long BgL_arg1891z00_18333;

																								BgL_arg1890z00_18332 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_18327);
																								BgL_arg1891z00_18333 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_18327);
																								{
																									long BgL_bufposz00_29231;
																									long BgL_forwardz00_29230;

																									BgL_forwardz00_29230 =
																										BgL_arg1890z00_18332;
																									BgL_bufposz00_29231 =
																										BgL_arg1891z00_18333;
																									BgL_bufposz00_18330 =
																										BgL_bufposz00_29231;
																									BgL_forwardz00_18329 =
																										BgL_forwardz00_29230;
																									goto
																										BgL_statezd216zd21074z00_18042;
																								}
																							}
																						else
																							{	/* Read/reader.scm 301 */
																								BgL_matchz00_18778 =
																									BgL_newzd2matchzd2_18331;
																							}
																					}
																				else
																					{	/* Read/reader.scm 301 */
																						int BgL_curz00_18334;

																						BgL_curz00_18334 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_18327,
																							BgL_forwardz00_18329);
																						{	/* Read/reader.scm 301 */

																							{	/* Read/reader.scm 301 */
																								bool_t BgL_test9359z00_29233;

																								if (
																									((long) (BgL_curz00_18334) >=
																										48L))
																									{	/* Read/reader.scm 301 */
																										BgL_test9359z00_29233 =
																											(
																											(long) (BgL_curz00_18334)
																											< 58L);
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										BgL_test9359z00_29233 =
																											((bool_t) 0);
																									}
																								if (BgL_test9359z00_29233)
																									{
																										long BgL_forwardz00_29240;
																										long
																											BgL_lastzd2matchzd2_29239;
																										BgL_lastzd2matchzd2_29239 =
																											BgL_newzd2matchzd2_18331;
																										BgL_forwardz00_29240 =
																											(1L +
																											BgL_forwardz00_18329);
																										BgL_forwardz00_18329 =
																											BgL_forwardz00_29240;
																										BgL_lastzd2matchzd2_18328 =
																											BgL_lastzd2matchzd2_29239;
																										goto
																											BgL_statezd216zd21074z00_18042;
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										BgL_matchz00_18778 =
																											BgL_newzd2matchzd2_18331;
																									}
																							}
																						}
																					}
																			}
																		}
																	else
																		{	/* Read/reader.scm 301 */
																			bool_t BgL_test9361z00_29243;

																			if (((long) (BgL_curz00_18529) == 43L))
																				{	/* Read/reader.scm 301 */
																					BgL_test9361z00_29243 = ((bool_t) 1);
																				}
																			else
																				{	/* Read/reader.scm 301 */
																					BgL_test9361z00_29243 =
																						((long) (BgL_curz00_18529) == 45L);
																				}
																			if (BgL_test9361z00_29243)
																				{	/* Read/reader.scm 301 */
																					BgL_iportz00_18537 =
																						BgL_iportz00_18522;
																					BgL_lastzd2matchzd2_18538 =
																						BgL_newzd2matchzd2_18526;
																					BgL_forwardz00_18539 =
																						(1L + BgL_forwardz00_18524);
																					BgL_bufposz00_18540 =
																						BgL_bufposz00_18525;
																				BgL_statezd215zd21073z00_18066:
																					if (
																						(BgL_forwardz00_18539 ==
																							BgL_bufposz00_18540))
																						{	/* Read/reader.scm 301 */
																							if (rgc_fill_buffer
																								(BgL_iportz00_18537))
																								{	/* Read/reader.scm 301 */
																									long BgL_arg2157z00_18541;
																									long BgL_arg2158z00_18542;

																									BgL_arg2157z00_18541 =
																										RGC_BUFFER_FORWARD
																										(BgL_iportz00_18537);
																									BgL_arg2158z00_18542 =
																										RGC_BUFFER_BUFPOS
																										(BgL_iportz00_18537);
																									{
																										long BgL_bufposz00_29256;
																										long BgL_forwardz00_29255;

																										BgL_forwardz00_29255 =
																											BgL_arg2157z00_18541;
																										BgL_bufposz00_29256 =
																											BgL_arg2158z00_18542;
																										BgL_bufposz00_18540 =
																											BgL_bufposz00_29256;
																										BgL_forwardz00_18539 =
																											BgL_forwardz00_29255;
																										goto
																											BgL_statezd215zd21073z00_18066;
																									}
																								}
																							else
																								{	/* Read/reader.scm 301 */
																									BgL_matchz00_18778 =
																										BgL_lastzd2matchzd2_18538;
																								}
																						}
																					else
																						{	/* Read/reader.scm 301 */
																							int BgL_curz00_18543;

																							BgL_curz00_18543 =
																								RGC_BUFFER_GET_CHAR
																								(BgL_iportz00_18537,
																								BgL_forwardz00_18539);
																							{	/* Read/reader.scm 301 */

																								{	/* Read/reader.scm 301 */
																									bool_t BgL_test9365z00_29258;

																									if (
																										((long) (BgL_curz00_18543)
																											>= 48L))
																										{	/* Read/reader.scm 301 */
																											BgL_test9365z00_29258 =
																												(
																												(long)
																												(BgL_curz00_18543) <
																												58L);
																										}
																									else
																										{	/* Read/reader.scm 301 */
																											BgL_test9365z00_29258 =
																												((bool_t) 0);
																										}
																									if (BgL_test9365z00_29258)
																										{
																											long BgL_bufposz00_29268;
																											long BgL_forwardz00_29266;
																											long
																												BgL_lastzd2matchzd2_29265;
																											obj_t BgL_iportz00_29264;

																											BgL_iportz00_29264 =
																												BgL_iportz00_18537;
																											BgL_lastzd2matchzd2_29265
																												=
																												BgL_lastzd2matchzd2_18538;
																											BgL_forwardz00_29266 =
																												(1L +
																												BgL_forwardz00_18539);
																											BgL_bufposz00_29268 =
																												BgL_bufposz00_18540;
																											BgL_bufposz00_18330 =
																												BgL_bufposz00_29268;
																											BgL_forwardz00_18329 =
																												BgL_forwardz00_29266;
																											BgL_lastzd2matchzd2_18328
																												=
																												BgL_lastzd2matchzd2_29265;
																											BgL_iportz00_18327 =
																												BgL_iportz00_29264;
																											goto
																												BgL_statezd216zd21074z00_18042;
																										}
																									else
																										{	/* Read/reader.scm 301 */
																											BgL_matchz00_18778 =
																												BgL_lastzd2matchzd2_18538;
																										}
																								}
																							}
																						}
																				}
																			else
																				{	/* Read/reader.scm 301 */
																					BgL_matchz00_18778 =
																						BgL_newzd2matchzd2_18526;
																				}
																		}
																}
														}
													}
											}
											break;
										case 120L:

											BgL_iportz00_18769 = BgL_iportz00_18155;
											BgL_lastzd2matchzd2_18770 = BgL_lastzd2matchzd2_18156;
											BgL_forwardz00_18771 = (1L + BgL_forwardz00_18157);
											BgL_bufposz00_18772 = BgL_bufposz00_18158;
										BgL_statezd213zd21071z00_18094:
											{	/* Read/reader.scm 301 */
												long BgL_newzd2matchzd2_18773;

												RGC_STOP_MATCH(BgL_iportz00_18769,
													BgL_forwardz00_18771);
												BgL_newzd2matchzd2_18773 = 25L;
												if ((BgL_forwardz00_18771 == BgL_bufposz00_18772))
													{	/* Read/reader.scm 301 */
														if (rgc_fill_buffer(BgL_iportz00_18769))
															{	/* Read/reader.scm 301 */
																long BgL_arg2524z00_18774;
																long BgL_arg2525z00_18775;

																BgL_arg2524z00_18774 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_18769);
																BgL_arg2525z00_18775 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_18769);
																{
																	long BgL_bufposz00_29279;
																	long BgL_forwardz00_29278;

																	BgL_forwardz00_29278 = BgL_arg2524z00_18774;
																	BgL_bufposz00_29279 = BgL_arg2525z00_18775;
																	BgL_bufposz00_18772 = BgL_bufposz00_29279;
																	BgL_forwardz00_18771 = BgL_forwardz00_29278;
																	goto BgL_statezd213zd21071z00_18094;
																}
															}
														else
															{	/* Read/reader.scm 301 */
																BgL_matchz00_18778 = BgL_newzd2matchzd2_18773;
															}
													}
												else
													{	/* Read/reader.scm 301 */
														int BgL_curz00_18776;

														BgL_curz00_18776 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_18769,
															BgL_forwardz00_18771);
														{	/* Read/reader.scm 301 */

															{	/* Read/reader.scm 301 */
																bool_t BgL_test9369z00_29281;

																{	/* Read/reader.scm 301 */
																	bool_t BgL_test9370z00_29282;

																	if (((long) (BgL_curz00_18776) >= 48L))
																		{	/* Read/reader.scm 301 */
																			BgL_test9370z00_29282 =
																				((long) (BgL_curz00_18776) < 58L);
																		}
																	else
																		{	/* Read/reader.scm 301 */
																			BgL_test9370z00_29282 = ((bool_t) 0);
																		}
																	if (BgL_test9370z00_29282)
																		{	/* Read/reader.scm 301 */
																			BgL_test9369z00_29281 = ((bool_t) 1);
																		}
																	else
																		{	/* Read/reader.scm 301 */
																			bool_t BgL_test9372z00_29288;

																			if (((long) (BgL_curz00_18776) >= 65L))
																				{	/* Read/reader.scm 301 */
																					BgL_test9372z00_29288 =
																						((long) (BgL_curz00_18776) < 71L);
																				}
																			else
																				{	/* Read/reader.scm 301 */
																					BgL_test9372z00_29288 = ((bool_t) 0);
																				}
																			if (BgL_test9372z00_29288)
																				{	/* Read/reader.scm 301 */
																					BgL_test9369z00_29281 = ((bool_t) 1);
																				}
																			else
																				{	/* Read/reader.scm 301 */
																					if (
																						((long) (BgL_curz00_18776) >= 97L))
																						{	/* Read/reader.scm 301 */
																							BgL_test9369z00_29281 =
																								(
																								(long) (BgL_curz00_18776) <
																								103L);
																						}
																					else
																						{	/* Read/reader.scm 301 */
																							BgL_test9369z00_29281 =
																								((bool_t) 0);
																						}
																				}
																		}
																}
																if (BgL_test9369z00_29281)
																	{	/* Read/reader.scm 301 */
																		BgL_iportz00_18356 = BgL_iportz00_18769;
																		BgL_lastzd2matchzd2_18357 =
																			BgL_newzd2matchzd2_18773;
																		BgL_forwardz00_18358 =
																			(1L + BgL_forwardz00_18771);
																		BgL_bufposz00_18359 = BgL_bufposz00_18772;
																	BgL_statezd221zd21079z00_18046:
																		{	/* Read/reader.scm 301 */
																			long BgL_newzd2matchzd2_18360;

																			RGC_STOP_MATCH(BgL_iportz00_18356,
																				BgL_forwardz00_18358);
																			BgL_newzd2matchzd2_18360 = 11L;
																			if (
																				(BgL_forwardz00_18358 ==
																					BgL_bufposz00_18359))
																				{	/* Read/reader.scm 301 */
																					if (rgc_fill_buffer
																						(BgL_iportz00_18356))
																						{	/* Read/reader.scm 301 */
																							long BgL_arg1935z00_18361;
																							long BgL_arg1936z00_18362;

																							BgL_arg1935z00_18361 =
																								RGC_BUFFER_FORWARD
																								(BgL_iportz00_18356);
																							BgL_arg1936z00_18362 =
																								RGC_BUFFER_BUFPOS
																								(BgL_iportz00_18356);
																							{
																								long BgL_bufposz00_29307;
																								long BgL_forwardz00_29306;

																								BgL_forwardz00_29306 =
																									BgL_arg1935z00_18361;
																								BgL_bufposz00_29307 =
																									BgL_arg1936z00_18362;
																								BgL_bufposz00_18359 =
																									BgL_bufposz00_29307;
																								BgL_forwardz00_18358 =
																									BgL_forwardz00_29306;
																								goto
																									BgL_statezd221zd21079z00_18046;
																							}
																						}
																					else
																						{	/* Read/reader.scm 301 */
																							BgL_matchz00_18778 =
																								BgL_newzd2matchzd2_18360;
																						}
																				}
																			else
																				{	/* Read/reader.scm 301 */
																					int BgL_curz00_18363;

																					BgL_curz00_18363 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_iportz00_18356,
																						BgL_forwardz00_18358);
																					{	/* Read/reader.scm 301 */

																						{	/* Read/reader.scm 301 */
																							bool_t BgL_test9377z00_29309;

																							{	/* Read/reader.scm 301 */
																								bool_t BgL_test9378z00_29310;

																								if (
																									((long) (BgL_curz00_18363) >=
																										48L))
																									{	/* Read/reader.scm 301 */
																										BgL_test9378z00_29310 =
																											(
																											(long) (BgL_curz00_18363)
																											< 58L);
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										BgL_test9378z00_29310 =
																											((bool_t) 0);
																									}
																								if (BgL_test9378z00_29310)
																									{	/* Read/reader.scm 301 */
																										BgL_test9377z00_29309 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										bool_t
																											BgL_test9380z00_29316;
																										if (((long)
																												(BgL_curz00_18363) >=
																												65L))
																											{	/* Read/reader.scm 301 */
																												BgL_test9380z00_29316 =
																													(
																													(long)
																													(BgL_curz00_18363) <
																													71L);
																											}
																										else
																											{	/* Read/reader.scm 301 */
																												BgL_test9380z00_29316 =
																													((bool_t) 0);
																											}
																										if (BgL_test9380z00_29316)
																											{	/* Read/reader.scm 301 */
																												BgL_test9377z00_29309 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Read/reader.scm 301 */
																												if (
																													((long)
																														(BgL_curz00_18363)
																														>= 97L))
																													{	/* Read/reader.scm 301 */
																														BgL_test9377z00_29309
																															=
																															((long)
																															(BgL_curz00_18363)
																															< 103L);
																													}
																												else
																													{	/* Read/reader.scm 301 */
																														BgL_test9377z00_29309
																															= ((bool_t) 0);
																													}
																											}
																									}
																							}
																							if (BgL_test9377z00_29309)
																								{
																									long BgL_forwardz00_29328;
																									long
																										BgL_lastzd2matchzd2_29327;
																									BgL_lastzd2matchzd2_29327 =
																										BgL_newzd2matchzd2_18360;
																									BgL_forwardz00_29328 =
																										(1L + BgL_forwardz00_18358);
																									BgL_forwardz00_18358 =
																										BgL_forwardz00_29328;
																									BgL_lastzd2matchzd2_18357 =
																										BgL_lastzd2matchzd2_29327;
																									goto
																										BgL_statezd221zd21079z00_18046;
																								}
																							else
																								{	/* Read/reader.scm 301 */
																									BgL_matchz00_18778 =
																										BgL_newzd2matchzd2_18360;
																								}
																						}
																					}
																				}
																		}
																	}
																else
																	{	/* Read/reader.scm 301 */
																		bool_t BgL_test9383z00_29331;

																		if (((long) (BgL_curz00_18776) == 43L))
																			{	/* Read/reader.scm 301 */
																				BgL_test9383z00_29331 = ((bool_t) 1);
																			}
																		else
																			{	/* Read/reader.scm 301 */
																				BgL_test9383z00_29331 =
																					((long) (BgL_curz00_18776) == 45L);
																			}
																		if (BgL_test9383z00_29331)
																			{	/* Read/reader.scm 301 */
																				BgL_iportz00_18280 = BgL_iportz00_18769;
																				BgL_lastzd2matchzd2_18281 =
																					BgL_newzd2matchzd2_18773;
																				BgL_forwardz00_18282 =
																					(1L + BgL_forwardz00_18771);
																				BgL_bufposz00_18283 =
																					BgL_bufposz00_18772;
																			BgL_statezd220zd21078z00_18037:
																				if (
																					(BgL_forwardz00_18282 ==
																						BgL_bufposz00_18283))
																					{	/* Read/reader.scm 301 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_18280))
																							{	/* Read/reader.scm 301 */
																								long BgL_arg1836z00_18284;
																								long BgL_arg1837z00_18285;

																								BgL_arg1836z00_18284 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_18280);
																								BgL_arg1837z00_18285 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_18280);
																								{
																									long BgL_bufposz00_29344;
																									long BgL_forwardz00_29343;

																									BgL_forwardz00_29343 =
																										BgL_arg1836z00_18284;
																									BgL_bufposz00_29344 =
																										BgL_arg1837z00_18285;
																									BgL_bufposz00_18283 =
																										BgL_bufposz00_29344;
																									BgL_forwardz00_18282 =
																										BgL_forwardz00_29343;
																									goto
																										BgL_statezd220zd21078z00_18037;
																								}
																							}
																						else
																							{	/* Read/reader.scm 301 */
																								BgL_matchz00_18778 =
																									BgL_lastzd2matchzd2_18281;
																							}
																					}
																				else
																					{	/* Read/reader.scm 301 */
																						int BgL_curz00_18286;

																						BgL_curz00_18286 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_18280,
																							BgL_forwardz00_18282);
																						{	/* Read/reader.scm 301 */

																							{	/* Read/reader.scm 301 */
																								bool_t BgL_test9387z00_29346;

																								{	/* Read/reader.scm 301 */
																									bool_t BgL_test9388z00_29347;

																									if (
																										((long) (BgL_curz00_18286)
																											>= 48L))
																										{	/* Read/reader.scm 301 */
																											BgL_test9388z00_29347 =
																												(
																												(long)
																												(BgL_curz00_18286) <
																												58L);
																										}
																									else
																										{	/* Read/reader.scm 301 */
																											BgL_test9388z00_29347 =
																												((bool_t) 0);
																										}
																									if (BgL_test9388z00_29347)
																										{	/* Read/reader.scm 301 */
																											BgL_test9387z00_29346 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 301 */
																											bool_t
																												BgL_test9390z00_29353;
																											if (((long)
																													(BgL_curz00_18286) >=
																													65L))
																												{	/* Read/reader.scm 301 */
																													BgL_test9390z00_29353
																														=
																														((long)
																														(BgL_curz00_18286) <
																														71L);
																												}
																											else
																												{	/* Read/reader.scm 301 */
																													BgL_test9390z00_29353
																														= ((bool_t) 0);
																												}
																											if (BgL_test9390z00_29353)
																												{	/* Read/reader.scm 301 */
																													BgL_test9387z00_29346
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 301 */
																													if (
																														((long)
																															(BgL_curz00_18286)
																															>= 97L))
																														{	/* Read/reader.scm 301 */
																															BgL_test9387z00_29346
																																=
																																((long)
																																(BgL_curz00_18286)
																																< 103L);
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															BgL_test9387z00_29346
																																= ((bool_t) 0);
																														}
																												}
																										}
																								}
																								if (BgL_test9387z00_29346)
																									{
																										long BgL_bufposz00_29368;
																										long BgL_forwardz00_29366;
																										long
																											BgL_lastzd2matchzd2_29365;
																										obj_t BgL_iportz00_29364;

																										BgL_iportz00_29364 =
																											BgL_iportz00_18280;
																										BgL_lastzd2matchzd2_29365 =
																											BgL_lastzd2matchzd2_18281;
																										BgL_forwardz00_29366 =
																											(1L +
																											BgL_forwardz00_18282);
																										BgL_bufposz00_29368 =
																											BgL_bufposz00_18283;
																										BgL_bufposz00_18359 =
																											BgL_bufposz00_29368;
																										BgL_forwardz00_18358 =
																											BgL_forwardz00_29366;
																										BgL_lastzd2matchzd2_18357 =
																											BgL_lastzd2matchzd2_29365;
																										BgL_iportz00_18356 =
																											BgL_iportz00_29364;
																										goto
																											BgL_statezd221zd21079z00_18046;
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										BgL_matchz00_18778 =
																											BgL_lastzd2matchzd2_18281;
																									}
																							}
																						}
																					}
																			}
																		else
																			{	/* Read/reader.scm 301 */
																				BgL_matchz00_18778 =
																					BgL_newzd2matchzd2_18773;
																			}
																	}
															}
														}
													}
											}
											break;
										case 117L:

											BgL_iportz00_18271 = BgL_iportz00_18155;
											BgL_lastzd2matchzd2_18272 = BgL_lastzd2matchzd2_18156;
											BgL_forwardz00_18273 = (1L + BgL_forwardz00_18157);
											BgL_bufposz00_18274 = BgL_bufposz00_18158;
										BgL_statezd212zd21070z00_18036:
											{	/* Read/reader.scm 301 */
												long BgL_newzd2matchzd2_18275;

												RGC_STOP_MATCH(BgL_iportz00_18271,
													BgL_forwardz00_18273);
												BgL_newzd2matchzd2_18275 = 25L;
												if ((BgL_forwardz00_18273 == BgL_bufposz00_18274))
													{	/* Read/reader.scm 301 */
														if (rgc_fill_buffer(BgL_iportz00_18271))
															{	/* Read/reader.scm 301 */
																long BgL_arg1798z00_18276;
																long BgL_arg1799z00_18277;

																BgL_arg1798z00_18276 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_18271);
																BgL_arg1799z00_18277 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_18271);
																{
																	long BgL_bufposz00_29379;
																	long BgL_forwardz00_29378;

																	BgL_forwardz00_29378 = BgL_arg1798z00_18276;
																	BgL_bufposz00_29379 = BgL_arg1799z00_18277;
																	BgL_bufposz00_18274 = BgL_bufposz00_29379;
																	BgL_forwardz00_18273 = BgL_forwardz00_29378;
																	goto BgL_statezd212zd21070z00_18036;
																}
															}
														else
															{	/* Read/reader.scm 301 */
																BgL_matchz00_18778 = BgL_newzd2matchzd2_18275;
															}
													}
												else
													{	/* Read/reader.scm 301 */
														int BgL_curz00_18278;

														BgL_curz00_18278 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_18271,
															BgL_forwardz00_18273);
														{	/* Read/reader.scm 301 */

															{	/* Read/reader.scm 301 */
																bool_t BgL_test9395z00_29381;

																if (((long) (BgL_curz00_18278) >= 98L))
																	{	/* Read/reader.scm 301 */
																		BgL_test9395z00_29381 =
																			((long) (BgL_curz00_18278) < 103L);
																	}
																else
																	{	/* Read/reader.scm 301 */
																		BgL_test9395z00_29381 = ((bool_t) 0);
																	}
																if (BgL_test9395z00_29381)
																	{	/* Read/reader.scm 301 */
																		BgL_iportz00_18115 = BgL_iportz00_18271;
																		BgL_lastzd2matchzd2_18116 =
																			BgL_newzd2matchzd2_18275;
																		BgL_forwardz00_18117 =
																			(1L + BgL_forwardz00_18273);
																		BgL_bufposz00_18118 = BgL_bufposz00_18274;
																	BgL_statezd229zd21087z00_18018:
																		{	/* Read/reader.scm 301 */
																			long BgL_newzd2matchzd2_18119;

																			RGC_STOP_MATCH(BgL_iportz00_18115,
																				BgL_forwardz00_18117);
																			BgL_newzd2matchzd2_18119 = 14L;
																			if (
																				(BgL_forwardz00_18117 ==
																					BgL_bufposz00_18118))
																				{	/* Read/reader.scm 301 */
																					if (rgc_fill_buffer
																						(BgL_iportz00_18115))
																						{	/* Read/reader.scm 301 */
																							long BgL_arg1549z00_18120;
																							long BgL_arg1551z00_18121;

																							BgL_arg1549z00_18120 =
																								RGC_BUFFER_FORWARD
																								(BgL_iportz00_18115);
																							BgL_arg1551z00_18121 =
																								RGC_BUFFER_BUFPOS
																								(BgL_iportz00_18115);
																							{
																								long BgL_bufposz00_29395;
																								long BgL_forwardz00_29394;

																								BgL_forwardz00_29394 =
																									BgL_arg1549z00_18120;
																								BgL_bufposz00_29395 =
																									BgL_arg1551z00_18121;
																								BgL_bufposz00_18118 =
																									BgL_bufposz00_29395;
																								BgL_forwardz00_18117 =
																									BgL_forwardz00_29394;
																								goto
																									BgL_statezd229zd21087z00_18018;
																							}
																						}
																					else
																						{	/* Read/reader.scm 301 */
																							BgL_matchz00_18778 =
																								BgL_newzd2matchzd2_18119;
																						}
																				}
																			else
																				{	/* Read/reader.scm 301 */
																					int BgL_curz00_18122;

																					BgL_curz00_18122 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_iportz00_18115,
																						BgL_forwardz00_18117);
																					{	/* Read/reader.scm 301 */

																						{	/* Read/reader.scm 301 */
																							bool_t BgL_test9399z00_29397;

																							if (
																								((long) (BgL_curz00_18122) >=
																									98L))
																								{	/* Read/reader.scm 301 */
																									BgL_test9399z00_29397 =
																										(
																										(long) (BgL_curz00_18122) <
																										103L);
																								}
																							else
																								{	/* Read/reader.scm 301 */
																									BgL_test9399z00_29397 =
																										((bool_t) 0);
																								}
																							if (BgL_test9399z00_29397)
																								{	/* Read/reader.scm 301 */
																									BgL_iportz00_18575 =
																										BgL_iportz00_18115;
																									BgL_lastzd2matchzd2_18576 =
																										BgL_newzd2matchzd2_18119;
																									BgL_forwardz00_18577 =
																										(1L + BgL_forwardz00_18117);
																									BgL_bufposz00_18578 =
																										BgL_bufposz00_18118;
																								BgL_statezd231zd21089z00_18071:
																									{	/* Read/reader.scm 301 */
																										long
																											BgL_newzd2matchzd2_18579;
																										RGC_STOP_MATCH
																											(BgL_iportz00_18575,
																											BgL_forwardz00_18577);
																										BgL_newzd2matchzd2_18579 =
																											14L;
																										if ((BgL_forwardz00_18577 ==
																												BgL_bufposz00_18578))
																											{	/* Read/reader.scm 301 */
																												if (rgc_fill_buffer
																													(BgL_iportz00_18575))
																													{	/* Read/reader.scm 301 */
																														long
																															BgL_arg2207z00_18580;
																														long
																															BgL_arg2208z00_18581;
																														BgL_arg2207z00_18580
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_iportz00_18575);
																														BgL_arg2208z00_18581
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_iportz00_18575);
																														{
																															long
																																BgL_bufposz00_29411;
																															long
																																BgL_forwardz00_29410;
																															BgL_forwardz00_29410
																																=
																																BgL_arg2207z00_18580;
																															BgL_bufposz00_29411
																																=
																																BgL_arg2208z00_18581;
																															BgL_bufposz00_18578
																																=
																																BgL_bufposz00_29411;
																															BgL_forwardz00_18577
																																=
																																BgL_forwardz00_29410;
																															goto
																																BgL_statezd231zd21089z00_18071;
																														}
																													}
																												else
																													{	/* Read/reader.scm 301 */
																														BgL_matchz00_18778 =
																															BgL_newzd2matchzd2_18579;
																													}
																											}
																										else
																											{	/* Read/reader.scm 301 */
																												int BgL_curz00_18582;

																												BgL_curz00_18582 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_iportz00_18575,
																													BgL_forwardz00_18577);
																												{	/* Read/reader.scm 301 */

																													{	/* Read/reader.scm 301 */
																														bool_t
																															BgL_test9403z00_29413;
																														if (((long)
																																(BgL_curz00_18582)
																																>= 98L))
																															{	/* Read/reader.scm 301 */
																																BgL_test9403z00_29413
																																	=
																																	((long)
																																	(BgL_curz00_18582)
																																	< 103L);
																															}
																														else
																															{	/* Read/reader.scm 301 */
																																BgL_test9403z00_29413
																																	=
																																	((bool_t) 0);
																															}
																														if (BgL_test9403z00_29413)
																															{	/* Read/reader.scm 301 */
																																BgL_iportz00_18640
																																	=
																																	BgL_iportz00_18575;
																																BgL_lastzd2matchzd2_18641
																																	=
																																	BgL_newzd2matchzd2_18579;
																																BgL_forwardz00_18642
																																	=
																																	(1L +
																																	BgL_forwardz00_18577);
																																BgL_bufposz00_18643
																																	=
																																	BgL_bufposz00_18578;
																															BgL_statezd233zd21091z00_18079:
																																{	/* Read/reader.scm 301 */
																																	long
																																		BgL_newzd2matchzd2_18644;
																																	RGC_STOP_MATCH
																																		(BgL_iportz00_18640,
																																		BgL_forwardz00_18642);
																																	BgL_newzd2matchzd2_18644
																																		= 14L;
																																	if (
																																		(BgL_forwardz00_18642
																																			==
																																			BgL_bufposz00_18643))
																																		{	/* Read/reader.scm 301 */
																																			if (rgc_fill_buffer(BgL_iportz00_18640))
																																				{	/* Read/reader.scm 301 */
																																					long
																																						BgL_arg2328z00_18645;
																																					long
																																						BgL_arg2329z00_18646;
																																					BgL_arg2328z00_18645
																																						=
																																						RGC_BUFFER_FORWARD
																																						(BgL_iportz00_18640);
																																					BgL_arg2329z00_18646
																																						=
																																						RGC_BUFFER_BUFPOS
																																						(BgL_iportz00_18640);
																																					{
																																						long
																																							BgL_bufposz00_29427;
																																						long
																																							BgL_forwardz00_29426;
																																						BgL_forwardz00_29426
																																							=
																																							BgL_arg2328z00_18645;
																																						BgL_bufposz00_29427
																																							=
																																							BgL_arg2329z00_18646;
																																						BgL_bufposz00_18643
																																							=
																																							BgL_bufposz00_29427;
																																						BgL_forwardz00_18642
																																							=
																																							BgL_forwardz00_29426;
																																						goto
																																							BgL_statezd233zd21091z00_18079;
																																					}
																																				}
																																			else
																																				{	/* Read/reader.scm 301 */
																																					BgL_matchz00_18778
																																						=
																																						BgL_newzd2matchzd2_18644;
																																				}
																																		}
																																	else
																																		{	/* Read/reader.scm 301 */
																																			int
																																				BgL_curz00_18647;
																																			BgL_curz00_18647
																																				=
																																				RGC_BUFFER_GET_CHAR
																																				(BgL_iportz00_18640,
																																				BgL_forwardz00_18642);
																																			{	/* Read/reader.scm 301 */

																																				{	/* Read/reader.scm 301 */
																																					bool_t
																																						BgL_test9407z00_29429;
																																					if ((
																																							(long)
																																							(BgL_curz00_18647)
																																							>=
																																							98L))
																																						{	/* Read/reader.scm 301 */
																																							BgL_test9407z00_29429
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_18647)
																																								<
																																								103L);
																																						}
																																					else
																																						{	/* Read/reader.scm 301 */
																																							BgL_test9407z00_29429
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																					if (BgL_test9407z00_29429)
																																						{	/* Read/reader.scm 301 */
																																							BgL_iportz00_18651
																																								=
																																								BgL_iportz00_18640;
																																							BgL_lastzd2matchzd2_18652
																																								=
																																								BgL_newzd2matchzd2_18644;
																																							BgL_forwardz00_18653
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_18642);
																																							BgL_bufposz00_18654
																																								=
																																								BgL_bufposz00_18643;
																																						BgL_statezd235zd21093z00_18080:
																																							{	/* Read/reader.scm 301 */
																																								long
																																									BgL_newzd2matchzd2_18655;
																																								RGC_STOP_MATCH
																																									(BgL_iportz00_18651,
																																									BgL_forwardz00_18653);
																																								BgL_newzd2matchzd2_18655
																																									=
																																									1L;
																																								if ((BgL_forwardz00_18653 == BgL_bufposz00_18654))
																																									{	/* Read/reader.scm 301 */
																																										if (rgc_fill_buffer(BgL_iportz00_18651))
																																											{	/* Read/reader.scm 301 */
																																												long
																																													BgL_arg2350z00_18656;
																																												long
																																													BgL_arg2351z00_18657;
																																												BgL_arg2350z00_18656
																																													=
																																													RGC_BUFFER_FORWARD
																																													(BgL_iportz00_18651);
																																												BgL_arg2351z00_18657
																																													=
																																													RGC_BUFFER_BUFPOS
																																													(BgL_iportz00_18651);
																																												{
																																													long
																																														BgL_bufposz00_29443;
																																													long
																																														BgL_forwardz00_29442;
																																													BgL_forwardz00_29442
																																														=
																																														BgL_arg2350z00_18656;
																																													BgL_bufposz00_29443
																																														=
																																														BgL_arg2351z00_18657;
																																													BgL_bufposz00_18654
																																														=
																																														BgL_bufposz00_29443;
																																													BgL_forwardz00_18653
																																														=
																																														BgL_forwardz00_29442;
																																													goto
																																														BgL_statezd235zd21093z00_18080;
																																												}
																																											}
																																										else
																																											{	/* Read/reader.scm 301 */
																																												BgL_matchz00_18778
																																													=
																																													BgL_newzd2matchzd2_18655;
																																											}
																																									}
																																								else
																																									{	/* Read/reader.scm 301 */
																																										int
																																											BgL_curz00_18658;
																																										BgL_curz00_18658
																																											=
																																											RGC_BUFFER_GET_CHAR
																																											(BgL_iportz00_18651,
																																											BgL_forwardz00_18653);
																																										{	/* Read/reader.scm 301 */

																																											{	/* Read/reader.scm 301 */
																																												bool_t
																																													BgL_test9411z00_29445;
																																												if (((long) (BgL_curz00_18658) == 45L))
																																													{	/* Read/reader.scm 301 */
																																														BgL_test9411z00_29445
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Read/reader.scm 301 */
																																														bool_t
																																															BgL_test9413z00_29449;
																																														if (((long) (BgL_curz00_18658) >= 98L))
																																															{	/* Read/reader.scm 301 */
																																																BgL_test9413z00_29449
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_18658)
																																																	<
																																																	103L);
																																															}
																																														else
																																															{	/* Read/reader.scm 301 */
																																																BgL_test9413z00_29449
																																																	=
																																																	(
																																																	(bool_t)
																																																	0);
																																															}
																																														if (BgL_test9413z00_29449)
																																															{	/* Read/reader.scm 301 */
																																																BgL_test9411z00_29445
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Read/reader.scm 301 */
																																																bool_t
																																																	BgL_test9415z00_29455;
																																																if (((long) (BgL_curz00_18658) == 106L))
																																																	{	/* Read/reader.scm 301 */
																																																		BgL_test9415z00_29455
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 301 */
																																																		BgL_test9415z00_29455
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_18658)
																																																			==
																																																			105L);
																																																	}
																																																if (BgL_test9415z00_29455)
																																																	{	/* Read/reader.scm 301 */
																																																		BgL_test9411z00_29445
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 301 */
																																																		bool_t
																																																			BgL_test9417z00_29461;
																																																		if (((long) (BgL_curz00_18658) == 112L))
																																																			{	/* Read/reader.scm 301 */
																																																				BgL_test9417z00_29461
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 301 */
																																																				if (((long) (BgL_curz00_18658) == 111L))
																																																					{	/* Read/reader.scm 301 */
																																																						BgL_test9417z00_29461
																																																							=
																																																							(
																																																							(bool_t)
																																																							1);
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 301 */
																																																						BgL_test9417z00_29461
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_18658)
																																																							==
																																																							110L);
																																																			}}
																																																		if (BgL_test9417z00_29461)
																																																			{	/* Read/reader.scm 301 */
																																																				BgL_test9411z00_29445
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 301 */
																																																				bool_t
																																																					BgL__ortest_1179z00_18659;
																																																				BgL__ortest_1179z00_18659
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_18658)
																																																					==
																																																					116L);
																																																				if (BgL__ortest_1179z00_18659)
																																																					{	/* Read/reader.scm 301 */
																																																						BgL_test9411z00_29445
																																																							=
																																																							BgL__ortest_1179z00_18659;
																																																					}
																																																				else
																																																					{	/* Read/reader.scm 301 */
																																																						BgL_test9411z00_29445
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_18658)
																																																							==
																																																							115L);
																																													}}}}}
																																												if (BgL_test9411z00_29445)
																																													{	/* Read/reader.scm 301 */
																																														BgL_iportz00_18445
																																															=
																																															BgL_iportz00_18651;
																																														BgL_lastzd2matchzd2_18446
																																															=
																																															BgL_newzd2matchzd2_18655;
																																														BgL_forwardz00_18447
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_18653);
																																														BgL_bufposz00_18448
																																															=
																																															BgL_bufposz00_18654;
																																													BgL_statezd223zd21081z00_18054:
																																														{	/* Read/reader.scm 301 */
																																															long
																																																BgL_newzd2matchzd2_18449;
																																															RGC_STOP_MATCH
																																																(BgL_iportz00_18445,
																																																BgL_forwardz00_18447);
																																															BgL_newzd2matchzd2_18449
																																																=
																																																14L;
																																															if ((BgL_forwardz00_18447 == BgL_bufposz00_18448))
																																																{	/* Read/reader.scm 301 */
																																																	if (rgc_fill_buffer(BgL_iportz00_18445))
																																																		{	/* Read/reader.scm 301 */
																																																			long
																																																				BgL_arg2028z00_18450;
																																																			long
																																																				BgL_arg2029z00_18451;
																																																			BgL_arg2028z00_18450
																																																				=
																																																				RGC_BUFFER_FORWARD
																																																				(BgL_iportz00_18445);
																																																			BgL_arg2029z00_18451
																																																				=
																																																				RGC_BUFFER_BUFPOS
																																																				(BgL_iportz00_18445);
																																																			{
																																																				long
																																																					BgL_bufposz00_29483;
																																																				long
																																																					BgL_forwardz00_29482;
																																																				BgL_forwardz00_29482
																																																					=
																																																					BgL_arg2028z00_18450;
																																																				BgL_bufposz00_29483
																																																					=
																																																					BgL_arg2029z00_18451;
																																																				BgL_bufposz00_18448
																																																					=
																																																					BgL_bufposz00_29483;
																																																				BgL_forwardz00_18447
																																																					=
																																																					BgL_forwardz00_29482;
																																																				goto
																																																					BgL_statezd223zd21081z00_18054;
																																																			}
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 301 */
																																																			BgL_matchz00_18778
																																																				=
																																																				BgL_newzd2matchzd2_18449;
																																																		}
																																																}
																																															else
																																																{	/* Read/reader.scm 301 */
																																																	int
																																																		BgL_curz00_18452;
																																																	BgL_curz00_18452
																																																		=
																																																		RGC_BUFFER_GET_CHAR
																																																		(BgL_iportz00_18445,
																																																		BgL_forwardz00_18447);
																																																	{	/* Read/reader.scm 301 */

																																																		{	/* Read/reader.scm 301 */
																																																			bool_t
																																																				BgL_test9423z00_29485;
																																																			if (((long) (BgL_curz00_18452) == 45L))
																																																				{	/* Read/reader.scm 301 */
																																																					BgL_test9423z00_29485
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 301 */
																																																					bool_t
																																																						BgL_test9425z00_29489;
																																																					if (((long) (BgL_curz00_18452) >= 98L))
																																																						{	/* Read/reader.scm 301 */
																																																							BgL_test9425z00_29489
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_curz00_18452)
																																																								<
																																																								103L);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 301 */
																																																							BgL_test9425z00_29489
																																																								=
																																																								(
																																																								(bool_t)
																																																								0);
																																																						}
																																																					if (BgL_test9425z00_29489)
																																																						{	/* Read/reader.scm 301 */
																																																							BgL_test9423z00_29485
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Read/reader.scm 301 */
																																																							bool_t
																																																								BgL_test9427z00_29495;
																																																							if (((long) (BgL_curz00_18452) == 106L))
																																																								{	/* Read/reader.scm 301 */
																																																									BgL_test9427z00_29495
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 301 */
																																																									BgL_test9427z00_29495
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_18452)
																																																										==
																																																										105L);
																																																								}
																																																							if (BgL_test9427z00_29495)
																																																								{	/* Read/reader.scm 301 */
																																																									BgL_test9423z00_29485
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Read/reader.scm 301 */
																																																									bool_t
																																																										BgL_test9429z00_29501;
																																																									if (((long) (BgL_curz00_18452) == 112L))
																																																										{	/* Read/reader.scm 301 */
																																																											BgL_test9429z00_29501
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 301 */
																																																											if (((long) (BgL_curz00_18452) == 111L))
																																																												{	/* Read/reader.scm 301 */
																																																													BgL_test9429z00_29501
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 301 */
																																																													BgL_test9429z00_29501
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_18452)
																																																														==
																																																														110L);
																																																										}}
																																																									if (BgL_test9429z00_29501)
																																																										{	/* Read/reader.scm 301 */
																																																											BgL_test9423z00_29485
																																																												=
																																																												(
																																																												(bool_t)
																																																												1);
																																																										}
																																																									else
																																																										{	/* Read/reader.scm 301 */
																																																											bool_t
																																																												BgL__ortest_1168z00_18453;
																																																											BgL__ortest_1168z00_18453
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_18452)
																																																												==
																																																												116L);
																																																											if (BgL__ortest_1168z00_18453)
																																																												{	/* Read/reader.scm 301 */
																																																													BgL_test9423z00_29485
																																																														=
																																																														BgL__ortest_1168z00_18453;
																																																												}
																																																											else
																																																												{	/* Read/reader.scm 301 */
																																																													BgL_test9423z00_29485
																																																														=
																																																														(
																																																														(long)
																																																														(BgL_curz00_18452)
																																																														==
																																																														115L);
																																																				}}}}}
																																																			if (BgL_test9423z00_29485)
																																																				{
																																																					long
																																																						BgL_forwardz00_29516;
																																																					long
																																																						BgL_lastzd2matchzd2_29515;
																																																					BgL_lastzd2matchzd2_29515
																																																						=
																																																						BgL_newzd2matchzd2_18449;
																																																					BgL_forwardz00_29516
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_18447);
																																																					BgL_forwardz00_18447
																																																						=
																																																						BgL_forwardz00_29516;
																																																					BgL_lastzd2matchzd2_18446
																																																						=
																																																						BgL_lastzd2matchzd2_29515;
																																																					goto
																																																						BgL_statezd223zd21081z00_18054;
																																																				}
																																																			else
																																																				{	/* Read/reader.scm 301 */
																																																					BgL_matchz00_18778
																																																						=
																																																						BgL_newzd2matchzd2_18449;
																																																				}
																																																		}
																																																	}
																																																}
																																														}
																																													}
																																												else
																																													{	/* Read/reader.scm 301 */
																																														BgL_matchz00_18778
																																															=
																																															BgL_newzd2matchzd2_18655;
																																													}
																																											}
																																										}
																																									}
																																							}
																																						}
																																					else
																																						{	/* Read/reader.scm 301 */
																																							bool_t
																																								BgL_test9433z00_29520;
																																							{	/* Read/reader.scm 301 */
																																								bool_t
																																									BgL_test9434z00_29521;
																																								if (((long) (BgL_curz00_18647) >= 48L))
																																									{	/* Read/reader.scm 301 */
																																										BgL_test9434z00_29521
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_18647)
																																											<
																																											58L);
																																									}
																																								else
																																									{	/* Read/reader.scm 301 */
																																										BgL_test9434z00_29521
																																											=
																																											(
																																											(bool_t)
																																											0);
																																									}
																																								if (BgL_test9434z00_29521)
																																									{	/* Read/reader.scm 301 */
																																										BgL_test9433z00_29520
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 301 */
																																										bool_t
																																											BgL_test9436z00_29527;
																																										if (((long) (BgL_curz00_18647) >= 65L))
																																											{	/* Read/reader.scm 301 */
																																												BgL_test9436z00_29527
																																													=
																																													(
																																													(long)
																																													(BgL_curz00_18647)
																																													<
																																													71L);
																																											}
																																										else
																																											{	/* Read/reader.scm 301 */
																																												BgL_test9436z00_29527
																																													=
																																													(
																																													(bool_t)
																																													0);
																																											}
																																										if (BgL_test9436z00_29527)
																																											{	/* Read/reader.scm 301 */
																																												BgL_test9433z00_29520
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Read/reader.scm 301 */
																																												BgL_test9433z00_29520
																																													=
																																													(
																																													(long)
																																													(BgL_curz00_18647)
																																													==
																																													97L);
																																							}}}
																																							if (BgL_test9433z00_29520)
																																								{	/* Read/reader.scm 301 */
																																									long
																																										BgL_arg2338z00_18648;
																																									BgL_arg2338z00_18648
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_18642);
																																									{	/* Read/reader.scm 301 */
																																										long
																																											BgL_newzd2matchzd2_18649;
																																										RGC_STOP_MATCH
																																											(BgL_iportz00_18640,
																																											BgL_arg2338z00_18648);
																																										BgL_newzd2matchzd2_18649
																																											=
																																											1L;
																																										BgL_matchz00_18778
																																											=
																																											BgL_newzd2matchzd2_18649;
																																								}}
																																							else
																																								{	/* Read/reader.scm 301 */
																																									bool_t
																																										BgL_test9438z00_29537;
																																									if (((long) (BgL_curz00_18647) == 45L))
																																										{	/* Read/reader.scm 301 */
																																											BgL_test9438z00_29537
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 301 */
																																											bool_t
																																												BgL_test9440z00_29541;
																																											if (((long) (BgL_curz00_18647) == 106L))
																																												{	/* Read/reader.scm 301 */
																																													BgL_test9440z00_29541
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 301 */
																																													BgL_test9440z00_29541
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_18647)
																																														==
																																														105L);
																																												}
																																											if (BgL_test9440z00_29541)
																																												{	/* Read/reader.scm 301 */
																																													BgL_test9438z00_29537
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Read/reader.scm 301 */
																																													bool_t
																																														BgL_test9442z00_29547;
																																													if (((long) (BgL_curz00_18647) == 112L))
																																														{	/* Read/reader.scm 301 */
																																															BgL_test9442z00_29547
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 301 */
																																															if (((long) (BgL_curz00_18647) == 111L))
																																																{	/* Read/reader.scm 301 */
																																																	BgL_test9442z00_29547
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Read/reader.scm 301 */
																																																	BgL_test9442z00_29547
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_18647)
																																																		==
																																																		110L);
																																														}}
																																													if (BgL_test9442z00_29547)
																																														{	/* Read/reader.scm 301 */
																																															BgL_test9438z00_29537
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Read/reader.scm 301 */
																																															bool_t
																																																BgL__ortest_1178z00_18650;
																																															BgL__ortest_1178z00_18650
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_18647)
																																																==
																																																116L);
																																															if (BgL__ortest_1178z00_18650)
																																																{	/* Read/reader.scm 301 */
																																																	BgL_test9438z00_29537
																																																		=
																																																		BgL__ortest_1178z00_18650;
																																																}
																																															else
																																																{	/* Read/reader.scm 301 */
																																																	BgL_test9438z00_29537
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_18647)
																																																		==
																																																		115L);
																																										}}}}
																																									if (BgL_test9438z00_29537)
																																										{
																																											long
																																												BgL_bufposz00_29565;
																																											long
																																												BgL_forwardz00_29563;
																																											long
																																												BgL_lastzd2matchzd2_29562;
																																											obj_t
																																												BgL_iportz00_29561;
																																											BgL_iportz00_29561
																																												=
																																												BgL_iportz00_18640;
																																											BgL_lastzd2matchzd2_29562
																																												=
																																												BgL_newzd2matchzd2_18644;
																																											BgL_forwardz00_29563
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_18642);
																																											BgL_bufposz00_29565
																																												=
																																												BgL_bufposz00_18643;
																																											BgL_bufposz00_18448
																																												=
																																												BgL_bufposz00_29565;
																																											BgL_forwardz00_18447
																																												=
																																												BgL_forwardz00_29563;
																																											BgL_lastzd2matchzd2_18446
																																												=
																																												BgL_lastzd2matchzd2_29562;
																																											BgL_iportz00_18445
																																												=
																																												BgL_iportz00_29561;
																																											goto
																																												BgL_statezd223zd21081z00_18054;
																																										}
																																									else
																																										{	/* Read/reader.scm 301 */
																																											BgL_matchz00_18778
																																												=
																																												BgL_newzd2matchzd2_18644;
																																										}
																																								}
																																						}
																																				}
																																			}
																																		}
																																}
																															}
																														else
																															{	/* Read/reader.scm 301 */
																																bool_t
																																	BgL_test9446z00_29567;
																																{	/* Read/reader.scm 301 */
																																	bool_t
																																		BgL_test9447z00_29568;
																																	if (((long)
																																			(BgL_curz00_18582)
																																			>= 48L))
																																		{	/* Read/reader.scm 301 */
																																			BgL_test9447z00_29568
																																				=
																																				((long)
																																				(BgL_curz00_18582)
																																				< 58L);
																																		}
																																	else
																																		{	/* Read/reader.scm 301 */
																																			BgL_test9447z00_29568
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																	if (BgL_test9447z00_29568)
																																		{	/* Read/reader.scm 301 */
																																			BgL_test9446z00_29567
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 301 */
																																			bool_t
																																				BgL_test9449z00_29574;
																																			if ((
																																					(long)
																																					(BgL_curz00_18582)
																																					>=
																																					65L))
																																				{	/* Read/reader.scm 301 */
																																					BgL_test9449z00_29574
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_18582)
																																						<
																																						71L);
																																				}
																																			else
																																				{	/* Read/reader.scm 301 */
																																					BgL_test9449z00_29574
																																						=
																																						(
																																						(bool_t)
																																						0);
																																				}
																																			if (BgL_test9449z00_29574)
																																				{	/* Read/reader.scm 301 */
																																					BgL_test9446z00_29567
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 301 */
																																					BgL_test9446z00_29567
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_18582)
																																						==
																																						97L);
																																}}}
																																if (BgL_test9446z00_29567)
																																	{	/* Read/reader.scm 301 */
																																		BgL_iportz00_18601
																																			=
																																			BgL_iportz00_18575;
																																		BgL_lastzd2matchzd2_18602
																																			=
																																			BgL_newzd2matchzd2_18579;
																																		BgL_forwardz00_18603
																																			=
																																			(1L +
																																			BgL_forwardz00_18577);
																																		BgL_bufposz00_18604
																																			=
																																			BgL_bufposz00_18578;
																																	BgL_statezd232zd21090z00_18074:
																																		if (
																																			(BgL_forwardz00_18603
																																				==
																																				BgL_bufposz00_18604))
																																			{	/* Read/reader.scm 301 */
																																				if (rgc_fill_buffer(BgL_iportz00_18601))
																																					{	/* Read/reader.scm 301 */
																																						long
																																							BgL_arg2260z00_18605;
																																						long
																																							BgL_arg2261z00_18606;
																																						BgL_arg2260z00_18605
																																							=
																																							RGC_BUFFER_FORWARD
																																							(BgL_iportz00_18601);
																																						BgL_arg2261z00_18606
																																							=
																																							RGC_BUFFER_BUFPOS
																																							(BgL_iportz00_18601);
																																						{
																																							long
																																								BgL_bufposz00_29589;
																																							long
																																								BgL_forwardz00_29588;
																																							BgL_forwardz00_29588
																																								=
																																								BgL_arg2260z00_18605;
																																							BgL_bufposz00_29589
																																								=
																																								BgL_arg2261z00_18606;
																																							BgL_bufposz00_18604
																																								=
																																								BgL_bufposz00_29589;
																																							BgL_forwardz00_18603
																																								=
																																								BgL_forwardz00_29588;
																																							goto
																																								BgL_statezd232zd21090z00_18074;
																																						}
																																					}
																																				else
																																					{	/* Read/reader.scm 301 */
																																						BgL_matchz00_18778
																																							=
																																							BgL_lastzd2matchzd2_18602;
																																					}
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				int
																																					BgL_curz00_18607;
																																				BgL_curz00_18607
																																					=
																																					RGC_BUFFER_GET_CHAR
																																					(BgL_iportz00_18601,
																																					BgL_forwardz00_18603);
																																				{	/* Read/reader.scm 301 */

																																					{	/* Read/reader.scm 301 */
																																						bool_t
																																							BgL_test9453z00_29591;
																																						{	/* Read/reader.scm 301 */
																																							bool_t
																																								BgL_test9454z00_29592;
																																							if (((long) (BgL_curz00_18607) >= 48L))
																																								{	/* Read/reader.scm 301 */
																																									BgL_test9454z00_29592
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_18607)
																																										<
																																										58L);
																																								}
																																							else
																																								{	/* Read/reader.scm 301 */
																																									BgL_test9454z00_29592
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																							if (BgL_test9454z00_29592)
																																								{	/* Read/reader.scm 301 */
																																									BgL_test9453z00_29591
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 301 */
																																									bool_t
																																										BgL_test9456z00_29598;
																																									if (((long) (BgL_curz00_18607) >= 65L))
																																										{	/* Read/reader.scm 301 */
																																											BgL_test9456z00_29598
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_18607)
																																												<
																																												71L);
																																										}
																																									else
																																										{	/* Read/reader.scm 301 */
																																											BgL_test9456z00_29598
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																									if (BgL_test9456z00_29598)
																																										{	/* Read/reader.scm 301 */
																																											BgL_test9453z00_29591
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Read/reader.scm 301 */
																																											if (((long) (BgL_curz00_18607) >= 97L))
																																												{	/* Read/reader.scm 301 */
																																													BgL_test9453z00_29591
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_18607)
																																														<
																																														103L);
																																												}
																																											else
																																												{	/* Read/reader.scm 301 */
																																													BgL_test9453z00_29591
																																														=
																																														(
																																														(bool_t)
																																														0);
																																												}
																																										}
																																								}
																																						}
																																						if (BgL_test9453z00_29591)
																																							{	/* Read/reader.scm 301 */
																																								long
																																									BgL_arg2267z00_18608;
																																								BgL_arg2267z00_18608
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_18603);
																																								{	/* Read/reader.scm 301 */
																																									long
																																										BgL_newzd2matchzd2_18609;
																																									RGC_STOP_MATCH
																																										(BgL_iportz00_18601,
																																										BgL_arg2267z00_18608);
																																									BgL_newzd2matchzd2_18609
																																										=
																																										1L;
																																									BgL_matchz00_18778
																																										=
																																										BgL_newzd2matchzd2_18609;
																																							}}
																																						else
																																							{	/* Read/reader.scm 301 */
																																								BgL_matchz00_18778
																																									=
																																									BgL_lastzd2matchzd2_18602;
																																							}
																																					}
																																				}
																																			}
																																	}
																																else
																																	{	/* Read/reader.scm 301 */
																																		bool_t
																																			BgL_test9459z00_29612;
																																		if (((long)
																																				(BgL_curz00_18582)
																																				== 45L))
																																			{	/* Read/reader.scm 301 */
																																				BgL_test9459z00_29612
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				bool_t
																																					BgL_test9461z00_29616;
																																				if ((
																																						(long)
																																						(BgL_curz00_18582)
																																						==
																																						106L))
																																					{	/* Read/reader.scm 301 */
																																						BgL_test9461z00_29616
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 301 */
																																						BgL_test9461z00_29616
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_18582)
																																							==
																																							105L);
																																					}
																																				if (BgL_test9461z00_29616)
																																					{	/* Read/reader.scm 301 */
																																						BgL_test9459z00_29612
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 301 */
																																						bool_t
																																							BgL_test9463z00_29622;
																																						if (
																																							((long) (BgL_curz00_18582) == 112L))
																																							{	/* Read/reader.scm 301 */
																																								BgL_test9463z00_29622
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 301 */
																																								if (((long) (BgL_curz00_18582) == 111L))
																																									{	/* Read/reader.scm 301 */
																																										BgL_test9463z00_29622
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Read/reader.scm 301 */
																																										BgL_test9463z00_29622
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_18582)
																																											==
																																											110L);
																																							}}
																																						if (BgL_test9463z00_29622)
																																							{	/* Read/reader.scm 301 */
																																								BgL_test9459z00_29612
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 301 */
																																								bool_t
																																									BgL__ortest_1173z00_18583;
																																								BgL__ortest_1173z00_18583
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_18582)
																																									==
																																									116L);
																																								if (BgL__ortest_1173z00_18583)
																																									{	/* Read/reader.scm 301 */
																																										BgL_test9459z00_29612
																																											=
																																											BgL__ortest_1173z00_18583;
																																									}
																																								else
																																									{	/* Read/reader.scm 301 */
																																										BgL_test9459z00_29612
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_18582)
																																											==
																																											115L);
																																			}}}}
																																		if (BgL_test9459z00_29612)
																																			{
																																				long
																																					BgL_bufposz00_29640;
																																				long
																																					BgL_forwardz00_29638;
																																				long
																																					BgL_lastzd2matchzd2_29637;
																																				obj_t
																																					BgL_iportz00_29636;
																																				BgL_iportz00_29636
																																					=
																																					BgL_iportz00_18575;
																																				BgL_lastzd2matchzd2_29637
																																					=
																																					BgL_newzd2matchzd2_18579;
																																				BgL_forwardz00_29638
																																					=
																																					(1L +
																																					BgL_forwardz00_18577);
																																				BgL_bufposz00_29640
																																					=
																																					BgL_bufposz00_18578;
																																				BgL_bufposz00_18448
																																					=
																																					BgL_bufposz00_29640;
																																				BgL_forwardz00_18447
																																					=
																																					BgL_forwardz00_29638;
																																				BgL_lastzd2matchzd2_18446
																																					=
																																					BgL_lastzd2matchzd2_29637;
																																				BgL_iportz00_18445
																																					=
																																					BgL_iportz00_29636;
																																				goto
																																					BgL_statezd223zd21081z00_18054;
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				BgL_matchz00_18778
																																					=
																																					BgL_newzd2matchzd2_18579;
																																			}
																																	}
																															}
																													}
																												}
																											}
																									}
																								}
																							else
																								{	/* Read/reader.scm 301 */
																									bool_t BgL_test9467z00_29642;

																									{	/* Read/reader.scm 301 */
																										bool_t
																											BgL_test9468z00_29643;
																										if (((long)
																												(BgL_curz00_18122) >=
																												48L))
																											{	/* Read/reader.scm 301 */
																												BgL_test9468z00_29643 =
																													(
																													(long)
																													(BgL_curz00_18122) <
																													58L);
																											}
																										else
																											{	/* Read/reader.scm 301 */
																												BgL_test9468z00_29643 =
																													((bool_t) 0);
																											}
																										if (BgL_test9468z00_29643)
																											{	/* Read/reader.scm 301 */
																												BgL_test9467z00_29642 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Read/reader.scm 301 */
																												bool_t
																													BgL_test9470z00_29649;
																												if (((long)
																														(BgL_curz00_18122)
																														>= 65L))
																													{	/* Read/reader.scm 301 */
																														BgL_test9470z00_29649
																															=
																															((long)
																															(BgL_curz00_18122)
																															< 71L);
																													}
																												else
																													{	/* Read/reader.scm 301 */
																														BgL_test9470z00_29649
																															= ((bool_t) 0);
																													}
																												if (BgL_test9470z00_29649)
																													{	/* Read/reader.scm 301 */
																														BgL_test9467z00_29642
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Read/reader.scm 301 */
																														BgL_test9467z00_29642
																															=
																															((long)
																															(BgL_curz00_18122)
																															== 97L);
																									}}}
																									if (BgL_test9467z00_29642)
																										{	/* Read/reader.scm 301 */
																											BgL_iportz00_18226 =
																												BgL_iportz00_18115;
																											BgL_lastzd2matchzd2_18227
																												=
																												BgL_newzd2matchzd2_18119;
																											BgL_forwardz00_18228 =
																												(1L +
																												BgL_forwardz00_18117);
																											BgL_bufposz00_18229 =
																												BgL_bufposz00_18118;
																										BgL_statezd230zd21088z00_18030:
																											if (
																												(BgL_forwardz00_18228 ==
																													BgL_bufposz00_18229))
																												{	/* Read/reader.scm 301 */
																													if (rgc_fill_buffer
																														(BgL_iportz00_18226))
																														{	/* Read/reader.scm 301 */
																															long
																																BgL_arg1728z00_18230;
																															long
																																BgL_arg1729z00_18231;
																															BgL_arg1728z00_18230
																																=
																																RGC_BUFFER_FORWARD
																																(BgL_iportz00_18226);
																															BgL_arg1729z00_18231
																																=
																																RGC_BUFFER_BUFPOS
																																(BgL_iportz00_18226);
																															{
																																long
																																	BgL_bufposz00_29664;
																																long
																																	BgL_forwardz00_29663;
																																BgL_forwardz00_29663
																																	=
																																	BgL_arg1728z00_18230;
																																BgL_bufposz00_29664
																																	=
																																	BgL_arg1729z00_18231;
																																BgL_bufposz00_18229
																																	=
																																	BgL_bufposz00_29664;
																																BgL_forwardz00_18228
																																	=
																																	BgL_forwardz00_29663;
																																goto
																																	BgL_statezd230zd21088z00_18030;
																															}
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															BgL_matchz00_18778
																																=
																																BgL_lastzd2matchzd2_18227;
																														}
																												}
																											else
																												{	/* Read/reader.scm 301 */
																													int BgL_curz00_18232;

																													BgL_curz00_18232 =
																														RGC_BUFFER_GET_CHAR
																														(BgL_iportz00_18226,
																														BgL_forwardz00_18228);
																													{	/* Read/reader.scm 301 */

																														{	/* Read/reader.scm 301 */
																															bool_t
																																BgL_test9474z00_29666;
																															{	/* Read/reader.scm 301 */
																																bool_t
																																	BgL_test9475z00_29667;
																																if (((long)
																																		(BgL_curz00_18232)
																																		>= 48L))
																																	{	/* Read/reader.scm 301 */
																																		BgL_test9475z00_29667
																																			=
																																			((long)
																																			(BgL_curz00_18232)
																																			< 58L);
																																	}
																																else
																																	{	/* Read/reader.scm 301 */
																																		BgL_test9475z00_29667
																																			=
																																			((bool_t)
																																			0);
																																	}
																																if (BgL_test9475z00_29667)
																																	{	/* Read/reader.scm 301 */
																																		BgL_test9474z00_29666
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 301 */
																																		bool_t
																																			BgL_test9477z00_29673;
																																		if (((long)
																																				(BgL_curz00_18232)
																																				>= 65L))
																																			{	/* Read/reader.scm 301 */
																																				BgL_test9477z00_29673
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_18232)
																																					<
																																					71L);
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				BgL_test9477z00_29673
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																		if (BgL_test9477z00_29673)
																																			{	/* Read/reader.scm 301 */
																																				BgL_test9474z00_29666
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				if (
																																					((long) (BgL_curz00_18232) >= 97L))
																																					{	/* Read/reader.scm 301 */
																																						BgL_test9474z00_29666
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_18232)
																																							<
																																							103L);
																																					}
																																				else
																																					{	/* Read/reader.scm 301 */
																																						BgL_test9474z00_29666
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																			}
																																	}
																															}
																															if (BgL_test9474z00_29666)
																																{
																																	long
																																		BgL_bufposz00_29688;
																																	long
																																		BgL_forwardz00_29686;
																																	long
																																		BgL_lastzd2matchzd2_29685;
																																	obj_t
																																		BgL_iportz00_29684;
																																	BgL_iportz00_29684
																																		=
																																		BgL_iportz00_18226;
																																	BgL_lastzd2matchzd2_29685
																																		=
																																		BgL_lastzd2matchzd2_18227;
																																	BgL_forwardz00_29686
																																		=
																																		(1L +
																																		BgL_forwardz00_18228);
																																	BgL_bufposz00_29688
																																		=
																																		BgL_bufposz00_18229;
																																	BgL_bufposz00_18604
																																		=
																																		BgL_bufposz00_29688;
																																	BgL_forwardz00_18603
																																		=
																																		BgL_forwardz00_29686;
																																	BgL_lastzd2matchzd2_18602
																																		=
																																		BgL_lastzd2matchzd2_29685;
																																	BgL_iportz00_18601
																																		=
																																		BgL_iportz00_29684;
																																	goto
																																		BgL_statezd232zd21090z00_18074;
																																}
																															else
																																{	/* Read/reader.scm 301 */
																																	BgL_matchz00_18778
																																		=
																																		BgL_lastzd2matchzd2_18227;
																																}
																														}
																													}
																												}
																										}
																									else
																										{	/* Read/reader.scm 301 */
																											bool_t
																												BgL_test9480z00_29690;
																											if (((long)
																													(BgL_curz00_18122) ==
																													45L))
																												{	/* Read/reader.scm 301 */
																													BgL_test9480z00_29690
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Read/reader.scm 301 */
																													bool_t
																														BgL_test9482z00_29694;
																													if (((long)
																															(BgL_curz00_18122)
																															== 106L))
																														{	/* Read/reader.scm 301 */
																															BgL_test9482z00_29694
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															BgL_test9482z00_29694
																																=
																																((long)
																																(BgL_curz00_18122)
																																== 105L);
																														}
																													if (BgL_test9482z00_29694)
																														{	/* Read/reader.scm 301 */
																															BgL_test9480z00_29690
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															bool_t
																																BgL_test9484z00_29700;
																															if (((long)
																																	(BgL_curz00_18122)
																																	== 112L))
																																{	/* Read/reader.scm 301 */
																																	BgL_test9484z00_29700
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 301 */
																																	if (
																																		((long)
																																			(BgL_curz00_18122)
																																			== 111L))
																																		{	/* Read/reader.scm 301 */
																																			BgL_test9484z00_29700
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 301 */
																																			BgL_test9484z00_29700
																																				=
																																				((long)
																																				(BgL_curz00_18122)
																																				==
																																				110L);
																																}}
																															if (BgL_test9484z00_29700)
																																{	/* Read/reader.scm 301 */
																																	BgL_test9480z00_29690
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 301 */
																																	bool_t
																																		BgL__ortest_1152z00_18123;
																																	BgL__ortest_1152z00_18123
																																		=
																																		((long)
																																		(BgL_curz00_18122)
																																		== 116L);
																																	if (BgL__ortest_1152z00_18123)
																																		{	/* Read/reader.scm 301 */
																																			BgL_test9480z00_29690
																																				=
																																				BgL__ortest_1152z00_18123;
																																		}
																																	else
																																		{	/* Read/reader.scm 301 */
																																			BgL_test9480z00_29690
																																				=
																																				((long)
																																				(BgL_curz00_18122)
																																				==
																																				115L);
																												}}}}
																											if (BgL_test9480z00_29690)
																												{
																													long
																														BgL_bufposz00_29718;
																													long
																														BgL_forwardz00_29716;
																													long
																														BgL_lastzd2matchzd2_29715;
																													obj_t
																														BgL_iportz00_29714;
																													BgL_iportz00_29714 =
																														BgL_iportz00_18115;
																													BgL_lastzd2matchzd2_29715
																														=
																														BgL_newzd2matchzd2_18119;
																													BgL_forwardz00_29716 =
																														(1L +
																														BgL_forwardz00_18117);
																													BgL_bufposz00_29718 =
																														BgL_bufposz00_18118;
																													BgL_bufposz00_18448 =
																														BgL_bufposz00_29718;
																													BgL_forwardz00_18447 =
																														BgL_forwardz00_29716;
																													BgL_lastzd2matchzd2_18446
																														=
																														BgL_lastzd2matchzd2_29715;
																													BgL_iportz00_18445 =
																														BgL_iportz00_29714;
																													goto
																														BgL_statezd223zd21081z00_18054;
																												}
																											else
																												{	/* Read/reader.scm 301 */
																													BgL_matchz00_18778 =
																														BgL_newzd2matchzd2_18119;
																												}
																										}
																								}
																						}
																					}
																				}
																		}
																	}
																else
																	{	/* Read/reader.scm 301 */
																		if (((long) (BgL_curz00_18278) == 56L))
																			{	/* Read/reader.scm 301 */
																				BgL_iportz00_18568 = BgL_iportz00_18271;
																				BgL_lastzd2matchzd2_18569 =
																					BgL_newzd2matchzd2_18275;
																				BgL_forwardz00_18570 =
																					(1L + BgL_forwardz00_18273);
																				BgL_bufposz00_18571 =
																					BgL_bufposz00_18274;
																			BgL_statezd228zd21086z00_18070:
																				if (
																					(BgL_forwardz00_18570 ==
																						BgL_bufposz00_18571))
																					{	/* Read/reader.scm 301 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_18568))
																							{	/* Read/reader.scm 301 */
																								long BgL_arg2194z00_18572;
																								long BgL_arg2195z00_18573;

																								BgL_arg2194z00_18572 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_18568);
																								BgL_arg2195z00_18573 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_18568);
																								{
																									long BgL_bufposz00_29730;
																									long BgL_forwardz00_29729;

																									BgL_forwardz00_29729 =
																										BgL_arg2194z00_18572;
																									BgL_bufposz00_29730 =
																										BgL_arg2195z00_18573;
																									BgL_bufposz00_18571 =
																										BgL_bufposz00_29730;
																									BgL_forwardz00_18570 =
																										BgL_forwardz00_29729;
																									goto
																										BgL_statezd228zd21086z00_18070;
																								}
																							}
																						else
																							{	/* Read/reader.scm 301 */
																								BgL_matchz00_18778 =
																									BgL_lastzd2matchzd2_18569;
																							}
																					}
																				else
																					{	/* Read/reader.scm 301 */
																						int BgL_curz00_18574;

																						BgL_curz00_18574 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_18568,
																							BgL_forwardz00_18570);
																						{	/* Read/reader.scm 301 */

																							if (
																								((long) (BgL_curz00_18574) ==
																									58L))
																								{	/* Read/reader.scm 301 */
																									BgL_iportz00_18204 =
																										BgL_iportz00_18568;
																									BgL_lastzd2matchzd2_18205 =
																										BgL_lastzd2matchzd2_18569;
																									BgL_forwardz00_18206 =
																										(1L + BgL_forwardz00_18570);
																									BgL_bufposz00_18207 =
																										BgL_bufposz00_18571;
																								BgL_statezd236zd21094z00_18027:
																									if (
																										(BgL_forwardz00_18206 ==
																											BgL_bufposz00_18207))
																										{	/* Read/reader.scm 301 */
																											if (rgc_fill_buffer
																												(BgL_iportz00_18204))
																												{	/* Read/reader.scm 301 */
																													long
																														BgL_arg1687z00_18208;
																													long
																														BgL_arg1689z00_18209;
																													BgL_arg1687z00_18208 =
																														RGC_BUFFER_FORWARD
																														(BgL_iportz00_18204);
																													BgL_arg1689z00_18209 =
																														RGC_BUFFER_BUFPOS
																														(BgL_iportz00_18204);
																													{
																														long
																															BgL_bufposz00_29742;
																														long
																															BgL_forwardz00_29741;
																														BgL_forwardz00_29741
																															=
																															BgL_arg1687z00_18208;
																														BgL_bufposz00_29742
																															=
																															BgL_arg1689z00_18209;
																														BgL_bufposz00_18207
																															=
																															BgL_bufposz00_29742;
																														BgL_forwardz00_18206
																															=
																															BgL_forwardz00_29741;
																														goto
																															BgL_statezd236zd21094z00_18027;
																													}
																												}
																											else
																												{	/* Read/reader.scm 301 */
																													BgL_matchz00_18778 =
																														BgL_lastzd2matchzd2_18205;
																												}
																										}
																									else
																										{	/* Read/reader.scm 301 */
																											int BgL_curz00_18210;

																											BgL_curz00_18210 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_iportz00_18204,
																												BgL_forwardz00_18206);
																											{	/* Read/reader.scm 301 */

																												{	/* Read/reader.scm 301 */
																													bool_t
																														BgL_test9494z00_29744;
																													if (((long)
																															(BgL_curz00_18210)
																															>= 48L))
																														{	/* Read/reader.scm 301 */
																															BgL_test9494z00_29744
																																=
																																((long)
																																(BgL_curz00_18210)
																																< 58L);
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															BgL_test9494z00_29744
																																= ((bool_t) 0);
																														}
																													if (BgL_test9494z00_29744)
																														{	/* Read/reader.scm 301 */
																															BgL_iportz00_18676
																																=
																																BgL_iportz00_18204;
																															BgL_lastzd2matchzd2_18677
																																=
																																BgL_lastzd2matchzd2_18205;
																															BgL_forwardz00_18678
																																=
																																(1L +
																																BgL_forwardz00_18206);
																															BgL_bufposz00_18679
																																=
																																BgL_bufposz00_18207;
																														BgL_statezd237zd21095z00_18083:
																															{	/* Read/reader.scm 301 */
																																long
																																	BgL_newzd2matchzd2_18680;
																																RGC_STOP_MATCH
																																	(BgL_iportz00_18676,
																																	BgL_forwardz00_18678);
																																BgL_newzd2matchzd2_18680
																																	= 16L;
																																if (
																																	(BgL_forwardz00_18678
																																		==
																																		BgL_bufposz00_18679))
																																	{	/* Read/reader.scm 301 */
																																		if (rgc_fill_buffer(BgL_iportz00_18676))
																																			{	/* Read/reader.scm 301 */
																																				long
																																					BgL_arg2389z00_18681;
																																				long
																																					BgL_arg2390z00_18682;
																																				BgL_arg2389z00_18681
																																					=
																																					RGC_BUFFER_FORWARD
																																					(BgL_iportz00_18676);
																																				BgL_arg2390z00_18682
																																					=
																																					RGC_BUFFER_BUFPOS
																																					(BgL_iportz00_18676);
																																				{
																																					long
																																						BgL_bufposz00_29758;
																																					long
																																						BgL_forwardz00_29757;
																																					BgL_forwardz00_29757
																																						=
																																						BgL_arg2389z00_18681;
																																					BgL_bufposz00_29758
																																						=
																																						BgL_arg2390z00_18682;
																																					BgL_bufposz00_18679
																																						=
																																						BgL_bufposz00_29758;
																																					BgL_forwardz00_18678
																																						=
																																						BgL_forwardz00_29757;
																																					goto
																																						BgL_statezd237zd21095z00_18083;
																																				}
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				BgL_matchz00_18778
																																					=
																																					BgL_newzd2matchzd2_18680;
																																			}
																																	}
																																else
																																	{	/* Read/reader.scm 301 */
																																		int
																																			BgL_curz00_18683;
																																		BgL_curz00_18683
																																			=
																																			RGC_BUFFER_GET_CHAR
																																			(BgL_iportz00_18676,
																																			BgL_forwardz00_18678);
																																		{	/* Read/reader.scm 301 */

																																			{	/* Read/reader.scm 301 */
																																				bool_t
																																					BgL_test9498z00_29760;
																																				if ((
																																						(long)
																																						(BgL_curz00_18683)
																																						>=
																																						48L))
																																					{	/* Read/reader.scm 301 */
																																						BgL_test9498z00_29760
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_18683)
																																							<
																																							58L);
																																					}
																																				else
																																					{	/* Read/reader.scm 301 */
																																						BgL_test9498z00_29760
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																				if (BgL_test9498z00_29760)
																																					{
																																						long
																																							BgL_forwardz00_29767;
																																						long
																																							BgL_lastzd2matchzd2_29766;
																																						BgL_lastzd2matchzd2_29766
																																							=
																																							BgL_newzd2matchzd2_18680;
																																						BgL_forwardz00_29767
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_18678);
																																						BgL_forwardz00_18678
																																							=
																																							BgL_forwardz00_29767;
																																						BgL_lastzd2matchzd2_18677
																																							=
																																							BgL_lastzd2matchzd2_29766;
																																						goto
																																							BgL_statezd237zd21095z00_18083;
																																					}
																																				else
																																					{	/* Read/reader.scm 301 */
																																						BgL_matchz00_18778
																																							=
																																							BgL_newzd2matchzd2_18680;
																																					}
																																			}
																																		}
																																	}
																															}
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															BgL_matchz00_18778
																																=
																																BgL_lastzd2matchzd2_18205;
																														}
																												}
																											}
																										}
																								}
																							else
																								{	/* Read/reader.scm 301 */
																									bool_t BgL_test9500z00_29771;

																									{	/* Read/reader.scm 301 */
																										bool_t
																											BgL_test9501z00_29772;
																										if (((long)
																												(BgL_curz00_18574) >=
																												48L))
																											{	/* Read/reader.scm 301 */
																												BgL_test9501z00_29772 =
																													(
																													(long)
																													(BgL_curz00_18574) <
																													58L);
																											}
																										else
																											{	/* Read/reader.scm 301 */
																												BgL_test9501z00_29772 =
																													((bool_t) 0);
																											}
																										if (BgL_test9501z00_29772)
																											{	/* Read/reader.scm 301 */
																												BgL_test9500z00_29771 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Read/reader.scm 301 */
																												bool_t
																													BgL_test9503z00_29778;
																												if (((long)
																														(BgL_curz00_18574)
																														>= 65L))
																													{	/* Read/reader.scm 301 */
																														BgL_test9503z00_29778
																															=
																															((long)
																															(BgL_curz00_18574)
																															< 71L);
																													}
																												else
																													{	/* Read/reader.scm 301 */
																														BgL_test9503z00_29778
																															= ((bool_t) 0);
																													}
																												if (BgL_test9503z00_29778)
																													{	/* Read/reader.scm 301 */
																														BgL_test9500z00_29771
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Read/reader.scm 301 */
																														if (
																															((long)
																																(BgL_curz00_18574)
																																>= 97L))
																															{	/* Read/reader.scm 301 */
																																BgL_test9500z00_29771
																																	=
																																	((long)
																																	(BgL_curz00_18574)
																																	< 103L);
																															}
																														else
																															{	/* Read/reader.scm 301 */
																																BgL_test9500z00_29771
																																	=
																																	((bool_t) 0);
																															}
																													}
																											}
																									}
																									if (BgL_test9500z00_29771)
																										{
																											long BgL_bufposz00_29793;
																											long BgL_forwardz00_29791;
																											long
																												BgL_lastzd2matchzd2_29790;
																											obj_t BgL_iportz00_29789;

																											BgL_iportz00_29789 =
																												BgL_iportz00_18568;
																											BgL_lastzd2matchzd2_29790
																												=
																												BgL_lastzd2matchzd2_18569;
																											BgL_forwardz00_29791 =
																												(1L +
																												BgL_forwardz00_18570);
																											BgL_bufposz00_29793 =
																												BgL_bufposz00_18571;
																											BgL_bufposz00_18229 =
																												BgL_bufposz00_29793;
																											BgL_forwardz00_18228 =
																												BgL_forwardz00_29791;
																											BgL_lastzd2matchzd2_18227
																												=
																												BgL_lastzd2matchzd2_29790;
																											BgL_iportz00_18226 =
																												BgL_iportz00_29789;
																											goto
																												BgL_statezd230zd21088z00_18030;
																										}
																									else
																										{	/* Read/reader.scm 301 */
																											BgL_matchz00_18778 =
																												BgL_lastzd2matchzd2_18569;
																										}
																								}
																						}
																					}
																			}
																		else
																			{	/* Read/reader.scm 301 */
																				if (((long) (BgL_curz00_18278) == 54L))
																					{	/* Read/reader.scm 301 */
																						BgL_iportz00_18462 =
																							BgL_iportz00_18271;
																						BgL_lastzd2matchzd2_18463 =
																							BgL_newzd2matchzd2_18275;
																						BgL_forwardz00_18464 =
																							(1L + BgL_forwardz00_18273);
																						BgL_bufposz00_18465 =
																							BgL_bufposz00_18274;
																					BgL_statezd227zd21085z00_18056:
																						if (
																							(BgL_forwardz00_18464 ==
																								BgL_bufposz00_18465))
																							{	/* Read/reader.scm 301 */
																								if (rgc_fill_buffer
																									(BgL_iportz00_18462))
																									{	/* Read/reader.scm 301 */
																										long BgL_arg2051z00_18466;
																										long BgL_arg2052z00_18467;

																										BgL_arg2051z00_18466 =
																											RGC_BUFFER_FORWARD
																											(BgL_iportz00_18462);
																										BgL_arg2052z00_18467 =
																											RGC_BUFFER_BUFPOS
																											(BgL_iportz00_18462);
																										{
																											long BgL_bufposz00_29805;
																											long BgL_forwardz00_29804;

																											BgL_forwardz00_29804 =
																												BgL_arg2051z00_18466;
																											BgL_bufposz00_29805 =
																												BgL_arg2052z00_18467;
																											BgL_bufposz00_18465 =
																												BgL_bufposz00_29805;
																											BgL_forwardz00_18464 =
																												BgL_forwardz00_29804;
																											goto
																												BgL_statezd227zd21085z00_18056;
																										}
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										BgL_matchz00_18778 =
																											BgL_lastzd2matchzd2_18463;
																									}
																							}
																						else
																							{	/* Read/reader.scm 301 */
																								int BgL_curz00_18468;

																								BgL_curz00_18468 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_iportz00_18462,
																									BgL_forwardz00_18464);
																								{	/* Read/reader.scm 301 */

																									if (
																										((long) (BgL_curz00_18468)
																											== 52L))
																										{	/* Read/reader.scm 301 */
																											BgL_iportz00_18219 =
																												BgL_iportz00_18462;
																											BgL_lastzd2matchzd2_18220
																												=
																												BgL_lastzd2matchzd2_18463;
																											BgL_forwardz00_18221 =
																												(1L +
																												BgL_forwardz00_18464);
																											BgL_bufposz00_18222 =
																												BgL_bufposz00_18465;
																										BgL_statezd238zd21096z00_18029:
																											if (
																												(BgL_forwardz00_18221 ==
																													BgL_bufposz00_18222))
																												{	/* Read/reader.scm 301 */
																													if (rgc_fill_buffer
																														(BgL_iportz00_18219))
																														{	/* Read/reader.scm 301 */
																															long
																																BgL_arg1715z00_18223;
																															long
																																BgL_arg1716z00_18224;
																															BgL_arg1715z00_18223
																																=
																																RGC_BUFFER_FORWARD
																																(BgL_iportz00_18219);
																															BgL_arg1716z00_18224
																																=
																																RGC_BUFFER_BUFPOS
																																(BgL_iportz00_18219);
																															{
																																long
																																	BgL_bufposz00_29817;
																																long
																																	BgL_forwardz00_29816;
																																BgL_forwardz00_29816
																																	=
																																	BgL_arg1715z00_18223;
																																BgL_bufposz00_29817
																																	=
																																	BgL_arg1716z00_18224;
																																BgL_bufposz00_18222
																																	=
																																	BgL_bufposz00_29817;
																																BgL_forwardz00_18221
																																	=
																																	BgL_forwardz00_29816;
																																goto
																																	BgL_statezd238zd21096z00_18029;
																															}
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															BgL_matchz00_18778
																																=
																																BgL_lastzd2matchzd2_18220;
																														}
																												}
																											else
																												{	/* Read/reader.scm 301 */
																													int BgL_curz00_18225;

																													BgL_curz00_18225 =
																														RGC_BUFFER_GET_CHAR
																														(BgL_iportz00_18219,
																														BgL_forwardz00_18221);
																													{	/* Read/reader.scm 301 */

																														if (
																															((long)
																																(BgL_curz00_18225)
																																== 58L))
																															{	/* Read/reader.scm 301 */
																																BgL_iportz00_18626
																																	=
																																	BgL_iportz00_18219;
																																BgL_lastzd2matchzd2_18627
																																	=
																																	BgL_lastzd2matchzd2_18220;
																																BgL_forwardz00_18628
																																	=
																																	(1L +
																																	BgL_forwardz00_18221);
																																BgL_bufposz00_18629
																																	=
																																	BgL_bufposz00_18222;
																															BgL_statezd239zd21097z00_18077:
																																if (
																																	(BgL_forwardz00_18628
																																		==
																																		BgL_bufposz00_18629))
																																	{	/* Read/reader.scm 301 */
																																		if (rgc_fill_buffer(BgL_iportz00_18626))
																																			{	/* Read/reader.scm 301 */
																																				long
																																					BgL_arg2299z00_18630;
																																				long
																																					BgL_arg2300z00_18631;
																																				BgL_arg2299z00_18630
																																					=
																																					RGC_BUFFER_FORWARD
																																					(BgL_iportz00_18626);
																																				BgL_arg2300z00_18631
																																					=
																																					RGC_BUFFER_BUFPOS
																																					(BgL_iportz00_18626);
																																				{
																																					long
																																						BgL_bufposz00_29829;
																																					long
																																						BgL_forwardz00_29828;
																																					BgL_forwardz00_29828
																																						=
																																						BgL_arg2299z00_18630;
																																					BgL_bufposz00_29829
																																						=
																																						BgL_arg2300z00_18631;
																																					BgL_bufposz00_18629
																																						=
																																						BgL_bufposz00_29829;
																																					BgL_forwardz00_18628
																																						=
																																						BgL_forwardz00_29828;
																																					goto
																																						BgL_statezd239zd21097z00_18077;
																																				}
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				BgL_matchz00_18778
																																					=
																																					BgL_lastzd2matchzd2_18627;
																																			}
																																	}
																																else
																																	{	/* Read/reader.scm 301 */
																																		int
																																			BgL_curz00_18632;
																																		BgL_curz00_18632
																																			=
																																			RGC_BUFFER_GET_CHAR
																																			(BgL_iportz00_18626,
																																			BgL_forwardz00_18628);
																																		{	/* Read/reader.scm 301 */

																																			{	/* Read/reader.scm 301 */
																																				bool_t
																																					BgL_test9515z00_29831;
																																				if ((
																																						(long)
																																						(BgL_curz00_18632)
																																						>=
																																						48L))
																																					{	/* Read/reader.scm 301 */
																																						BgL_test9515z00_29831
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_18632)
																																							<
																																							58L);
																																					}
																																				else
																																					{	/* Read/reader.scm 301 */
																																						BgL_test9515z00_29831
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																				if (BgL_test9515z00_29831)
																																					{	/* Read/reader.scm 301 */
																																						BgL_iportz00_18514
																																							=
																																							BgL_iportz00_18626;
																																						BgL_lastzd2matchzd2_18515
																																							=
																																							BgL_lastzd2matchzd2_18627;
																																						BgL_forwardz00_18516
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_18628);
																																						BgL_bufposz00_18517
																																							=
																																							BgL_bufposz00_18629;
																																					BgL_statezd240zd21098z00_18063:
																																						{	/* Read/reader.scm 301 */
																																							long
																																								BgL_newzd2matchzd2_18518;
																																							RGC_STOP_MATCH
																																								(BgL_iportz00_18514,
																																								BgL_forwardz00_18516);
																																							BgL_newzd2matchzd2_18518
																																								=
																																								22L;
																																							if ((BgL_forwardz00_18516 == BgL_bufposz00_18517))
																																								{	/* Read/reader.scm 301 */
																																									if (rgc_fill_buffer(BgL_iportz00_18514))
																																										{	/* Read/reader.scm 301 */
																																											long
																																												BgL_arg2124z00_18519;
																																											long
																																												BgL_arg2125z00_18520;
																																											BgL_arg2124z00_18519
																																												=
																																												RGC_BUFFER_FORWARD
																																												(BgL_iportz00_18514);
																																											BgL_arg2125z00_18520
																																												=
																																												RGC_BUFFER_BUFPOS
																																												(BgL_iportz00_18514);
																																											{
																																												long
																																													BgL_bufposz00_29845;
																																												long
																																													BgL_forwardz00_29844;
																																												BgL_forwardz00_29844
																																													=
																																													BgL_arg2124z00_18519;
																																												BgL_bufposz00_29845
																																													=
																																													BgL_arg2125z00_18520;
																																												BgL_bufposz00_18517
																																													=
																																													BgL_bufposz00_29845;
																																												BgL_forwardz00_18516
																																													=
																																													BgL_forwardz00_29844;
																																												goto
																																													BgL_statezd240zd21098z00_18063;
																																											}
																																										}
																																									else
																																										{	/* Read/reader.scm 301 */
																																											BgL_matchz00_18778
																																												=
																																												BgL_newzd2matchzd2_18518;
																																										}
																																								}
																																							else
																																								{	/* Read/reader.scm 301 */
																																									int
																																										BgL_curz00_18521;
																																									BgL_curz00_18521
																																										=
																																										RGC_BUFFER_GET_CHAR
																																										(BgL_iportz00_18514,
																																										BgL_forwardz00_18516);
																																									{	/* Read/reader.scm 301 */

																																										{	/* Read/reader.scm 301 */
																																											bool_t
																																												BgL_test9519z00_29847;
																																											if (((long) (BgL_curz00_18521) >= 48L))
																																												{	/* Read/reader.scm 301 */
																																													BgL_test9519z00_29847
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_18521)
																																														<
																																														58L);
																																												}
																																											else
																																												{	/* Read/reader.scm 301 */
																																													BgL_test9519z00_29847
																																														=
																																														(
																																														(bool_t)
																																														0);
																																												}
																																											if (BgL_test9519z00_29847)
																																												{
																																													long
																																														BgL_forwardz00_29854;
																																													long
																																														BgL_lastzd2matchzd2_29853;
																																													BgL_lastzd2matchzd2_29853
																																														=
																																														BgL_newzd2matchzd2_18518;
																																													BgL_forwardz00_29854
																																														=
																																														(1L
																																														+
																																														BgL_forwardz00_18516);
																																													BgL_forwardz00_18516
																																														=
																																														BgL_forwardz00_29854;
																																													BgL_lastzd2matchzd2_18515
																																														=
																																														BgL_lastzd2matchzd2_29853;
																																													goto
																																														BgL_statezd240zd21098z00_18063;
																																												}
																																											else
																																												{	/* Read/reader.scm 301 */
																																													BgL_matchz00_18778
																																														=
																																														BgL_newzd2matchzd2_18518;
																																												}
																																										}
																																									}
																																								}
																																						}
																																					}
																																				else
																																					{	/* Read/reader.scm 301 */
																																						BgL_matchz00_18778
																																							=
																																							BgL_lastzd2matchzd2_18627;
																																					}
																																			}
																																		}
																																	}
																															}
																														else
																															{	/* Read/reader.scm 301 */
																																bool_t
																																	BgL_test9521z00_29858;
																																{	/* Read/reader.scm 301 */
																																	bool_t
																																		BgL_test9522z00_29859;
																																	if (((long)
																																			(BgL_curz00_18225)
																																			>= 48L))
																																		{	/* Read/reader.scm 301 */
																																			BgL_test9522z00_29859
																																				=
																																				((long)
																																				(BgL_curz00_18225)
																																				< 58L);
																																		}
																																	else
																																		{	/* Read/reader.scm 301 */
																																			BgL_test9522z00_29859
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																	if (BgL_test9522z00_29859)
																																		{	/* Read/reader.scm 301 */
																																			BgL_test9521z00_29858
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 301 */
																																			bool_t
																																				BgL_test9524z00_29865;
																																			if ((
																																					(long)
																																					(BgL_curz00_18225)
																																					>=
																																					65L))
																																				{	/* Read/reader.scm 301 */
																																					BgL_test9524z00_29865
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_18225)
																																						<
																																						71L);
																																				}
																																			else
																																				{	/* Read/reader.scm 301 */
																																					BgL_test9524z00_29865
																																						=
																																						(
																																						(bool_t)
																																						0);
																																				}
																																			if (BgL_test9524z00_29865)
																																				{	/* Read/reader.scm 301 */
																																					BgL_test9521z00_29858
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 301 */
																																					if (
																																						((long) (BgL_curz00_18225) >= 97L))
																																						{	/* Read/reader.scm 301 */
																																							BgL_test9521z00_29858
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_18225)
																																								<
																																								103L);
																																						}
																																					else
																																						{	/* Read/reader.scm 301 */
																																							BgL_test9521z00_29858
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																				}
																																		}
																																}
																																if (BgL_test9521z00_29858)
																																	{
																																		long
																																			BgL_bufposz00_29880;
																																		long
																																			BgL_forwardz00_29878;
																																		long
																																			BgL_lastzd2matchzd2_29877;
																																		obj_t
																																			BgL_iportz00_29876;
																																		BgL_iportz00_29876
																																			=
																																			BgL_iportz00_18219;
																																		BgL_lastzd2matchzd2_29877
																																			=
																																			BgL_lastzd2matchzd2_18220;
																																		BgL_forwardz00_29878
																																			=
																																			(1L +
																																			BgL_forwardz00_18221);
																																		BgL_bufposz00_29880
																																			=
																																			BgL_bufposz00_18222;
																																		BgL_bufposz00_18604
																																			=
																																			BgL_bufposz00_29880;
																																		BgL_forwardz00_18603
																																			=
																																			BgL_forwardz00_29878;
																																		BgL_lastzd2matchzd2_18602
																																			=
																																			BgL_lastzd2matchzd2_29877;
																																		BgL_iportz00_18601
																																			=
																																			BgL_iportz00_29876;
																																		goto
																																			BgL_statezd232zd21090z00_18074;
																																	}
																																else
																																	{	/* Read/reader.scm 301 */
																																		BgL_matchz00_18778
																																			=
																																			BgL_lastzd2matchzd2_18220;
																																	}
																															}
																													}
																												}
																										}
																									else
																										{	/* Read/reader.scm 301 */
																											bool_t
																												BgL_test9527z00_29882;
																											{	/* Read/reader.scm 301 */
																												bool_t
																													BgL_test9528z00_29883;
																												if (((long)
																														(BgL_curz00_18468)
																														>= 48L))
																													{	/* Read/reader.scm 301 */
																														BgL_test9528z00_29883
																															=
																															((long)
																															(BgL_curz00_18468)
																															< 52L);
																													}
																												else
																													{	/* Read/reader.scm 301 */
																														BgL_test9528z00_29883
																															= ((bool_t) 0);
																													}
																												if (BgL_test9528z00_29883)
																													{	/* Read/reader.scm 301 */
																														BgL_test9527z00_29882
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Read/reader.scm 301 */
																														bool_t
																															BgL_test9530z00_29889;
																														if (((long)
																																(BgL_curz00_18468)
																																>= 53L))
																															{	/* Read/reader.scm 301 */
																																BgL_test9530z00_29889
																																	=
																																	((long)
																																	(BgL_curz00_18468)
																																	< 58L);
																															}
																														else
																															{	/* Read/reader.scm 301 */
																																BgL_test9530z00_29889
																																	=
																																	((bool_t) 0);
																															}
																														if (BgL_test9530z00_29889)
																															{	/* Read/reader.scm 301 */
																																BgL_test9527z00_29882
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 301 */
																																bool_t
																																	BgL_test9532z00_29895;
																																if (((long)
																																		(BgL_curz00_18468)
																																		>= 65L))
																																	{	/* Read/reader.scm 301 */
																																		BgL_test9532z00_29895
																																			=
																																			((long)
																																			(BgL_curz00_18468)
																																			< 71L);
																																	}
																																else
																																	{	/* Read/reader.scm 301 */
																																		BgL_test9532z00_29895
																																			=
																																			((bool_t)
																																			0);
																																	}
																																if (BgL_test9532z00_29895)
																																	{	/* Read/reader.scm 301 */
																																		BgL_test9527z00_29882
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 301 */
																																		if (
																																			((long)
																																				(BgL_curz00_18468)
																																				>= 97L))
																																			{	/* Read/reader.scm 301 */
																																				BgL_test9527z00_29882
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_18468)
																																					<
																																					103L);
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				BgL_test9527z00_29882
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																	}
																															}
																													}
																											}
																											if (BgL_test9527z00_29882)
																												{
																													long
																														BgL_bufposz00_29910;
																													long
																														BgL_forwardz00_29908;
																													long
																														BgL_lastzd2matchzd2_29907;
																													obj_t
																														BgL_iportz00_29906;
																													BgL_iportz00_29906 =
																														BgL_iportz00_18462;
																													BgL_lastzd2matchzd2_29907
																														=
																														BgL_lastzd2matchzd2_18463;
																													BgL_forwardz00_29908 =
																														(1L +
																														BgL_forwardz00_18464);
																													BgL_bufposz00_29910 =
																														BgL_bufposz00_18465;
																													BgL_bufposz00_18229 =
																														BgL_bufposz00_29910;
																													BgL_forwardz00_18228 =
																														BgL_forwardz00_29908;
																													BgL_lastzd2matchzd2_18227
																														=
																														BgL_lastzd2matchzd2_29907;
																													BgL_iportz00_18226 =
																														BgL_iportz00_29906;
																													goto
																														BgL_statezd230zd21088z00_18030;
																												}
																											else
																												{	/* Read/reader.scm 301 */
																													BgL_matchz00_18778 =
																														BgL_lastzd2matchzd2_18463;
																												}
																										}
																								}
																							}
																					}
																				else
																					{	/* Read/reader.scm 301 */
																						if (
																							((long) (BgL_curz00_18278) ==
																								51L))
																							{	/* Read/reader.scm 301 */
																								BgL_iportz00_18335 =
																									BgL_iportz00_18271;
																								BgL_lastzd2matchzd2_18336 =
																									BgL_newzd2matchzd2_18275;
																								BgL_forwardz00_18337 =
																									(1L + BgL_forwardz00_18273);
																								BgL_bufposz00_18338 =
																									BgL_bufposz00_18274;
																							BgL_statezd226zd21084z00_18043:
																								if (
																									(BgL_forwardz00_18337 ==
																										BgL_bufposz00_18338))
																									{	/* Read/reader.scm 301 */
																										if (rgc_fill_buffer
																											(BgL_iportz00_18335))
																											{	/* Read/reader.scm 301 */
																												long
																													BgL_arg1898z00_18339;
																												long
																													BgL_arg1899z00_18340;
																												BgL_arg1898z00_18339 =
																													RGC_BUFFER_FORWARD
																													(BgL_iportz00_18335);
																												BgL_arg1899z00_18340 =
																													RGC_BUFFER_BUFPOS
																													(BgL_iportz00_18335);
																												{
																													long
																														BgL_bufposz00_29922;
																													long
																														BgL_forwardz00_29921;
																													BgL_forwardz00_29921 =
																														BgL_arg1898z00_18339;
																													BgL_bufposz00_29922 =
																														BgL_arg1899z00_18340;
																													BgL_bufposz00_18338 =
																														BgL_bufposz00_29922;
																													BgL_forwardz00_18337 =
																														BgL_forwardz00_29921;
																													goto
																														BgL_statezd226zd21084z00_18043;
																												}
																											}
																										else
																											{	/* Read/reader.scm 301 */
																												BgL_matchz00_18778 =
																													BgL_lastzd2matchzd2_18336;
																											}
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										int BgL_curz00_18341;

																										BgL_curz00_18341 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_iportz00_18335,
																											BgL_forwardz00_18337);
																										{	/* Read/reader.scm 301 */

																											if (
																												((long)
																													(BgL_curz00_18341) ==
																													50L))
																												{	/* Read/reader.scm 301 */
																													BgL_iportz00_18684 =
																														BgL_iportz00_18335;
																													BgL_lastzd2matchzd2_18685
																														=
																														BgL_lastzd2matchzd2_18336;
																													BgL_forwardz00_18686 =
																														(1L +
																														BgL_forwardz00_18337);
																													BgL_bufposz00_18687 =
																														BgL_bufposz00_18338;
																												BgL_statezd241zd21099z00_18084:
																													if (
																														(BgL_forwardz00_18686
																															==
																															BgL_bufposz00_18687))
																														{	/* Read/reader.scm 301 */
																															if (rgc_fill_buffer(BgL_iportz00_18684))
																																{	/* Read/reader.scm 301 */
																																	long
																																		BgL_arg2397z00_18688;
																																	long
																																		BgL_arg2398z00_18689;
																																	BgL_arg2397z00_18688
																																		=
																																		RGC_BUFFER_FORWARD
																																		(BgL_iportz00_18684);
																																	BgL_arg2398z00_18689
																																		=
																																		RGC_BUFFER_BUFPOS
																																		(BgL_iportz00_18684);
																																	{
																																		long
																																			BgL_bufposz00_29934;
																																		long
																																			BgL_forwardz00_29933;
																																		BgL_forwardz00_29933
																																			=
																																			BgL_arg2397z00_18688;
																																		BgL_bufposz00_29934
																																			=
																																			BgL_arg2398z00_18689;
																																		BgL_bufposz00_18687
																																			=
																																			BgL_bufposz00_29934;
																																		BgL_forwardz00_18686
																																			=
																																			BgL_forwardz00_29933;
																																		goto
																																			BgL_statezd241zd21099z00_18084;
																																	}
																																}
																															else
																																{	/* Read/reader.scm 301 */
																																	BgL_matchz00_18778
																																		=
																																		BgL_lastzd2matchzd2_18685;
																																}
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															int
																																BgL_curz00_18690;
																															BgL_curz00_18690 =
																																RGC_BUFFER_GET_CHAR
																																(BgL_iportz00_18684,
																																BgL_forwardz00_18686);
																															{	/* Read/reader.scm 301 */

																																if (
																																	((long)
																																		(BgL_curz00_18690)
																																		== 58L))
																																	{	/* Read/reader.scm 301 */
																																		BgL_iportz00_18131
																																			=
																																			BgL_iportz00_18684;
																																		BgL_lastzd2matchzd2_18132
																																			=
																																			BgL_lastzd2matchzd2_18685;
																																		BgL_forwardz00_18133
																																			=
																																			(1L +
																																			BgL_forwardz00_18686);
																																		BgL_bufposz00_18134
																																			=
																																			BgL_bufposz00_18687;
																																	BgL_statezd242zd21100z00_18020:
																																		if (
																																			(BgL_forwardz00_18133
																																				==
																																				BgL_bufposz00_18134))
																																			{	/* Read/reader.scm 301 */
																																				if (rgc_fill_buffer(BgL_iportz00_18131))
																																					{	/* Read/reader.scm 301 */
																																						long
																																							BgL_arg1581z00_18135;
																																						long
																																							BgL_arg1582z00_18136;
																																						BgL_arg1581z00_18135
																																							=
																																							RGC_BUFFER_FORWARD
																																							(BgL_iportz00_18131);
																																						BgL_arg1582z00_18136
																																							=
																																							RGC_BUFFER_BUFPOS
																																							(BgL_iportz00_18131);
																																						{
																																							long
																																								BgL_bufposz00_29946;
																																							long
																																								BgL_forwardz00_29945;
																																							BgL_forwardz00_29945
																																								=
																																								BgL_arg1581z00_18135;
																																							BgL_bufposz00_29946
																																								=
																																								BgL_arg1582z00_18136;
																																							BgL_bufposz00_18134
																																								=
																																								BgL_bufposz00_29946;
																																							BgL_forwardz00_18133
																																								=
																																								BgL_forwardz00_29945;
																																							goto
																																								BgL_statezd242zd21100z00_18020;
																																						}
																																					}
																																				else
																																					{	/* Read/reader.scm 301 */
																																						BgL_matchz00_18778
																																							=
																																							BgL_lastzd2matchzd2_18132;
																																					}
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				int
																																					BgL_curz00_18137;
																																				BgL_curz00_18137
																																					=
																																					RGC_BUFFER_GET_CHAR
																																					(BgL_iportz00_18131,
																																					BgL_forwardz00_18133);
																																				{	/* Read/reader.scm 301 */

																																					{	/* Read/reader.scm 301 */
																																						bool_t
																																							BgL_test9544z00_29948;
																																						if (
																																							((long) (BgL_curz00_18137) >= 48L))
																																							{	/* Read/reader.scm 301 */
																																								BgL_test9544z00_29948
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_18137)
																																									<
																																									58L);
																																							}
																																						else
																																							{	/* Read/reader.scm 301 */
																																								BgL_test9544z00_29948
																																									=
																																									(
																																									(bool_t)
																																									0);
																																							}
																																						if (BgL_test9544z00_29948)
																																							{	/* Read/reader.scm 301 */
																																								BgL_iportz00_18454
																																									=
																																									BgL_iportz00_18131;
																																								BgL_lastzd2matchzd2_18455
																																									=
																																									BgL_lastzd2matchzd2_18132;
																																								BgL_forwardz00_18456
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_18133);
																																								BgL_bufposz00_18457
																																									=
																																									BgL_bufposz00_18134;
																																							BgL_statezd243zd21101z00_18055:
																																								{	/* Read/reader.scm 301 */
																																									long
																																										BgL_newzd2matchzd2_18458;
																																									RGC_STOP_MATCH
																																										(BgL_iportz00_18454,
																																										BgL_forwardz00_18456);
																																									BgL_newzd2matchzd2_18458
																																										=
																																										20L;
																																									if ((BgL_forwardz00_18456 == BgL_bufposz00_18457))
																																										{	/* Read/reader.scm 301 */
																																											if (rgc_fill_buffer(BgL_iportz00_18454))
																																												{	/* Read/reader.scm 301 */
																																													long
																																														BgL_arg2043z00_18459;
																																													long
																																														BgL_arg2044z00_18460;
																																													BgL_arg2043z00_18459
																																														=
																																														RGC_BUFFER_FORWARD
																																														(BgL_iportz00_18454);
																																													BgL_arg2044z00_18460
																																														=
																																														RGC_BUFFER_BUFPOS
																																														(BgL_iportz00_18454);
																																													{
																																														long
																																															BgL_bufposz00_29962;
																																														long
																																															BgL_forwardz00_29961;
																																														BgL_forwardz00_29961
																																															=
																																															BgL_arg2043z00_18459;
																																														BgL_bufposz00_29962
																																															=
																																															BgL_arg2044z00_18460;
																																														BgL_bufposz00_18457
																																															=
																																															BgL_bufposz00_29962;
																																														BgL_forwardz00_18456
																																															=
																																															BgL_forwardz00_29961;
																																														goto
																																															BgL_statezd243zd21101z00_18055;
																																													}
																																												}
																																											else
																																												{	/* Read/reader.scm 301 */
																																													BgL_matchz00_18778
																																														=
																																														BgL_newzd2matchzd2_18458;
																																												}
																																										}
																																									else
																																										{	/* Read/reader.scm 301 */
																																											int
																																												BgL_curz00_18461;
																																											BgL_curz00_18461
																																												=
																																												RGC_BUFFER_GET_CHAR
																																												(BgL_iportz00_18454,
																																												BgL_forwardz00_18456);
																																											{	/* Read/reader.scm 301 */

																																												{	/* Read/reader.scm 301 */
																																													bool_t
																																														BgL_test9548z00_29964;
																																													if (((long) (BgL_curz00_18461) >= 48L))
																																														{	/* Read/reader.scm 301 */
																																															BgL_test9548z00_29964
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_18461)
																																																<
																																																58L);
																																														}
																																													else
																																														{	/* Read/reader.scm 301 */
																																															BgL_test9548z00_29964
																																																=
																																																(
																																																(bool_t)
																																																0);
																																														}
																																													if (BgL_test9548z00_29964)
																																														{
																																															long
																																																BgL_forwardz00_29971;
																																															long
																																																BgL_lastzd2matchzd2_29970;
																																															BgL_lastzd2matchzd2_29970
																																																=
																																																BgL_newzd2matchzd2_18458;
																																															BgL_forwardz00_29971
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_18456);
																																															BgL_forwardz00_18456
																																																=
																																																BgL_forwardz00_29971;
																																															BgL_lastzd2matchzd2_18455
																																																=
																																																BgL_lastzd2matchzd2_29970;
																																															goto
																																																BgL_statezd243zd21101z00_18055;
																																														}
																																													else
																																														{	/* Read/reader.scm 301 */
																																															BgL_matchz00_18778
																																																=
																																																BgL_newzd2matchzd2_18458;
																																														}
																																												}
																																											}
																																										}
																																								}
																																							}
																																						else
																																							{	/* Read/reader.scm 301 */
																																								BgL_matchz00_18778
																																									=
																																									BgL_lastzd2matchzd2_18132;
																																							}
																																					}
																																				}
																																			}
																																	}
																																else
																																	{	/* Read/reader.scm 301 */
																																		bool_t
																																			BgL_test9550z00_29975;
																																		{	/* Read/reader.scm 301 */
																																			bool_t
																																				BgL_test9551z00_29976;
																																			if ((
																																					(long)
																																					(BgL_curz00_18690)
																																					>=
																																					48L))
																																				{	/* Read/reader.scm 301 */
																																					BgL_test9551z00_29976
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_18690)
																																						<
																																						58L);
																																				}
																																			else
																																				{	/* Read/reader.scm 301 */
																																					BgL_test9551z00_29976
																																						=
																																						(
																																						(bool_t)
																																						0);
																																				}
																																			if (BgL_test9551z00_29976)
																																				{	/* Read/reader.scm 301 */
																																					BgL_test9550z00_29975
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 301 */
																																					bool_t
																																						BgL_test9553z00_29982;
																																					if ((
																																							(long)
																																							(BgL_curz00_18690)
																																							>=
																																							65L))
																																						{	/* Read/reader.scm 301 */
																																							BgL_test9553z00_29982
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_18690)
																																								<
																																								71L);
																																						}
																																					else
																																						{	/* Read/reader.scm 301 */
																																							BgL_test9553z00_29982
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																					if (BgL_test9553z00_29982)
																																						{	/* Read/reader.scm 301 */
																																							BgL_test9550z00_29975
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 301 */
																																							if (((long) (BgL_curz00_18690) >= 97L))
																																								{	/* Read/reader.scm 301 */
																																									BgL_test9550z00_29975
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_18690)
																																										<
																																										103L);
																																								}
																																							else
																																								{	/* Read/reader.scm 301 */
																																									BgL_test9550z00_29975
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																						}
																																				}
																																		}
																																		if (BgL_test9550z00_29975)
																																			{
																																				long
																																					BgL_bufposz00_29997;
																																				long
																																					BgL_forwardz00_29995;
																																				long
																																					BgL_lastzd2matchzd2_29994;
																																				obj_t
																																					BgL_iportz00_29993;
																																				BgL_iportz00_29993
																																					=
																																					BgL_iportz00_18684;
																																				BgL_lastzd2matchzd2_29994
																																					=
																																					BgL_lastzd2matchzd2_18685;
																																				BgL_forwardz00_29995
																																					=
																																					(1L +
																																					BgL_forwardz00_18686);
																																				BgL_bufposz00_29997
																																					=
																																					BgL_bufposz00_18687;
																																				BgL_bufposz00_18604
																																					=
																																					BgL_bufposz00_29997;
																																				BgL_forwardz00_18603
																																					=
																																					BgL_forwardz00_29995;
																																				BgL_lastzd2matchzd2_18602
																																					=
																																					BgL_lastzd2matchzd2_29994;
																																				BgL_iportz00_18601
																																					=
																																					BgL_iportz00_29993;
																																				goto
																																					BgL_statezd232zd21090z00_18074;
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				BgL_matchz00_18778
																																					=
																																					BgL_lastzd2matchzd2_18685;
																																			}
																																	}
																															}
																														}
																												}
																											else
																												{	/* Read/reader.scm 301 */
																													bool_t
																														BgL_test9556z00_29999;
																													{	/* Read/reader.scm 301 */
																														bool_t
																															BgL_test9557z00_30000;
																														if (((long)
																																(BgL_curz00_18341)
																																== 49L))
																															{	/* Read/reader.scm 301 */
																																BgL_test9557z00_30000
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 301 */
																																BgL_test9557z00_30000
																																	=
																																	((long)
																																	(BgL_curz00_18341)
																																	== 48L);
																															}
																														if (BgL_test9557z00_30000)
																															{	/* Read/reader.scm 301 */
																																BgL_test9556z00_29999
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 301 */
																																bool_t
																																	BgL_test9559z00_30006;
																																if (((long)
																																		(BgL_curz00_18341)
																																		>= 51L))
																																	{	/* Read/reader.scm 301 */
																																		BgL_test9559z00_30006
																																			=
																																			((long)
																																			(BgL_curz00_18341)
																																			< 58L);
																																	}
																																else
																																	{	/* Read/reader.scm 301 */
																																		BgL_test9559z00_30006
																																			=
																																			((bool_t)
																																			0);
																																	}
																																if (BgL_test9559z00_30006)
																																	{	/* Read/reader.scm 301 */
																																		BgL_test9556z00_29999
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 301 */
																																		bool_t
																																			BgL_test9561z00_30012;
																																		if (((long)
																																				(BgL_curz00_18341)
																																				>= 65L))
																																			{	/* Read/reader.scm 301 */
																																				BgL_test9561z00_30012
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_18341)
																																					<
																																					71L);
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				BgL_test9561z00_30012
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																		if (BgL_test9561z00_30012)
																																			{	/* Read/reader.scm 301 */
																																				BgL_test9556z00_29999
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				if (
																																					((long) (BgL_curz00_18341) >= 97L))
																																					{	/* Read/reader.scm 301 */
																																						BgL_test9556z00_29999
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_18341)
																																							<
																																							103L);
																																					}
																																				else
																																					{	/* Read/reader.scm 301 */
																																						BgL_test9556z00_29999
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																			}
																																	}
																															}
																													}
																													if (BgL_test9556z00_29999)
																														{
																															long
																																BgL_bufposz00_30027;
																															long
																																BgL_forwardz00_30025;
																															long
																																BgL_lastzd2matchzd2_30024;
																															obj_t
																																BgL_iportz00_30023;
																															BgL_iportz00_30023
																																=
																																BgL_iportz00_18335;
																															BgL_lastzd2matchzd2_30024
																																=
																																BgL_lastzd2matchzd2_18336;
																															BgL_forwardz00_30025
																																=
																																(1L +
																																BgL_forwardz00_18337);
																															BgL_bufposz00_30027
																																=
																																BgL_bufposz00_18338;
																															BgL_bufposz00_18229
																																=
																																BgL_bufposz00_30027;
																															BgL_forwardz00_18228
																																=
																																BgL_forwardz00_30025;
																															BgL_lastzd2matchzd2_18227
																																=
																																BgL_lastzd2matchzd2_30024;
																															BgL_iportz00_18226
																																=
																																BgL_iportz00_30023;
																															goto
																																BgL_statezd230zd21088z00_18030;
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															BgL_matchz00_18778
																																=
																																BgL_lastzd2matchzd2_18336;
																														}
																												}
																										}
																									}
																							}
																						else
																							{	/* Read/reader.scm 301 */
																								if (
																									((long) (BgL_curz00_18278) ==
																										49L))
																									{	/* Read/reader.scm 301 */
																										BgL_iportz00_18166 =
																											BgL_iportz00_18271;
																										BgL_lastzd2matchzd2_18167 =
																											BgL_newzd2matchzd2_18275;
																										BgL_forwardz00_18168 =
																											(1L +
																											BgL_forwardz00_18273);
																										BgL_bufposz00_18169 =
																											BgL_bufposz00_18274;
																									BgL_statezd225zd21083z00_18023:
																										if (
																											(BgL_forwardz00_18168 ==
																												BgL_bufposz00_18169))
																											{	/* Read/reader.scm 301 */
																												if (rgc_fill_buffer
																													(BgL_iportz00_18166))
																													{	/* Read/reader.scm 301 */
																														long
																															BgL_arg1627z00_18170;
																														long
																															BgL_arg1628z00_18171;
																														BgL_arg1627z00_18170
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_iportz00_18166);
																														BgL_arg1628z00_18171
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_iportz00_18166);
																														{
																															long
																																BgL_bufposz00_30039;
																															long
																																BgL_forwardz00_30038;
																															BgL_forwardz00_30038
																																=
																																BgL_arg1627z00_18170;
																															BgL_bufposz00_30039
																																=
																																BgL_arg1628z00_18171;
																															BgL_bufposz00_18169
																																=
																																BgL_bufposz00_30039;
																															BgL_forwardz00_18168
																																=
																																BgL_forwardz00_30038;
																															goto
																																BgL_statezd225zd21083z00_18023;
																														}
																													}
																												else
																													{	/* Read/reader.scm 301 */
																														BgL_matchz00_18778 =
																															BgL_lastzd2matchzd2_18167;
																													}
																											}
																										else
																											{	/* Read/reader.scm 301 */
																												int BgL_curz00_18172;

																												BgL_curz00_18172 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_iportz00_18166,
																													BgL_forwardz00_18168);
																												{	/* Read/reader.scm 301 */

																													if (
																														((long)
																															(BgL_curz00_18172)
																															== 54L))
																														{	/* Read/reader.scm 301 */
																															BgL_iportz00_18552
																																=
																																BgL_iportz00_18166;
																															BgL_lastzd2matchzd2_18553
																																=
																																BgL_lastzd2matchzd2_18167;
																															BgL_forwardz00_18554
																																=
																																(1L +
																																BgL_forwardz00_18168);
																															BgL_bufposz00_18555
																																=
																																BgL_bufposz00_18169;
																														BgL_statezd244zd21102z00_18068:
																															if (
																																(BgL_forwardz00_18554
																																	==
																																	BgL_bufposz00_18555))
																																{	/* Read/reader.scm 301 */
																																	if (rgc_fill_buffer(BgL_iportz00_18552))
																																		{	/* Read/reader.scm 301 */
																																			long
																																				BgL_arg2173z00_18556;
																																			long
																																				BgL_arg2174z00_18557;
																																			BgL_arg2173z00_18556
																																				=
																																				RGC_BUFFER_FORWARD
																																				(BgL_iportz00_18552);
																																			BgL_arg2174z00_18557
																																				=
																																				RGC_BUFFER_BUFPOS
																																				(BgL_iportz00_18552);
																																			{
																																				long
																																					BgL_bufposz00_30051;
																																				long
																																					BgL_forwardz00_30050;
																																				BgL_forwardz00_30050
																																					=
																																					BgL_arg2173z00_18556;
																																				BgL_bufposz00_30051
																																					=
																																					BgL_arg2174z00_18557;
																																				BgL_bufposz00_18555
																																					=
																																					BgL_bufposz00_30051;
																																				BgL_forwardz00_18554
																																					=
																																					BgL_forwardz00_30050;
																																				goto
																																					BgL_statezd244zd21102z00_18068;
																																			}
																																		}
																																	else
																																		{	/* Read/reader.scm 301 */
																																			BgL_matchz00_18778
																																				=
																																				BgL_lastzd2matchzd2_18553;
																																		}
																																}
																															else
																																{	/* Read/reader.scm 301 */
																																	int
																																		BgL_curz00_18558;
																																	BgL_curz00_18558
																																		=
																																		RGC_BUFFER_GET_CHAR
																																		(BgL_iportz00_18552,
																																		BgL_forwardz00_18554);
																																	{	/* Read/reader.scm 301 */

																																		if (
																																			((long)
																																				(BgL_curz00_18558)
																																				== 58L))
																																			{	/* Read/reader.scm 301 */
																																				BgL_iportz00_18416
																																					=
																																					BgL_iportz00_18552;
																																				BgL_lastzd2matchzd2_18417
																																					=
																																					BgL_lastzd2matchzd2_18553;
																																				BgL_forwardz00_18418
																																					=
																																					(1L +
																																					BgL_forwardz00_18554);
																																				BgL_bufposz00_18419
																																					=
																																					BgL_bufposz00_18555;
																																			BgL_statezd245zd21103z00_18050:
																																				if (
																																					(BgL_forwardz00_18418
																																						==
																																						BgL_bufposz00_18419))
																																					{	/* Read/reader.scm 301 */
																																						if (rgc_fill_buffer(BgL_iportz00_18416))
																																							{	/* Read/reader.scm 301 */
																																								long
																																									BgL_arg1991z00_18420;
																																								long
																																									BgL_arg1992z00_18421;
																																								BgL_arg1991z00_18420
																																									=
																																									RGC_BUFFER_FORWARD
																																									(BgL_iportz00_18416);
																																								BgL_arg1992z00_18421
																																									=
																																									RGC_BUFFER_BUFPOS
																																									(BgL_iportz00_18416);
																																								{
																																									long
																																										BgL_bufposz00_30063;
																																									long
																																										BgL_forwardz00_30062;
																																									BgL_forwardz00_30062
																																										=
																																										BgL_arg1991z00_18420;
																																									BgL_bufposz00_30063
																																										=
																																										BgL_arg1992z00_18421;
																																									BgL_bufposz00_18419
																																										=
																																										BgL_bufposz00_30063;
																																									BgL_forwardz00_18418
																																										=
																																										BgL_forwardz00_30062;
																																									goto
																																										BgL_statezd245zd21103z00_18050;
																																								}
																																							}
																																						else
																																							{	/* Read/reader.scm 301 */
																																								BgL_matchz00_18778
																																									=
																																									BgL_lastzd2matchzd2_18417;
																																							}
																																					}
																																				else
																																					{	/* Read/reader.scm 301 */
																																						int
																																							BgL_curz00_18422;
																																						BgL_curz00_18422
																																							=
																																							RGC_BUFFER_GET_CHAR
																																							(BgL_iportz00_18416,
																																							BgL_forwardz00_18418);
																																						{	/* Read/reader.scm 301 */

																																							{	/* Read/reader.scm 301 */
																																								bool_t
																																									BgL_test9573z00_30065;
																																								if (((long) (BgL_curz00_18422) >= 48L))
																																									{	/* Read/reader.scm 301 */
																																										BgL_test9573z00_30065
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_18422)
																																											<
																																											58L);
																																									}
																																								else
																																									{	/* Read/reader.scm 301 */
																																										BgL_test9573z00_30065
																																											=
																																											(
																																											(bool_t)
																																											0);
																																									}
																																								if (BgL_test9573z00_30065)
																																									{	/* Read/reader.scm 301 */
																																										BgL_iportz00_18469
																																											=
																																											BgL_iportz00_18416;
																																										BgL_lastzd2matchzd2_18470
																																											=
																																											BgL_lastzd2matchzd2_18417;
																																										BgL_forwardz00_18471
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_18418);
																																										BgL_bufposz00_18472
																																											=
																																											BgL_bufposz00_18419;
																																									BgL_statezd246zd21104z00_18057:
																																										{	/* Read/reader.scm 301 */
																																											long
																																												BgL_newzd2matchzd2_18473;
																																											RGC_STOP_MATCH
																																												(BgL_iportz00_18469,
																																												BgL_forwardz00_18471);
																																											BgL_newzd2matchzd2_18473
																																												=
																																												18L;
																																											if ((BgL_forwardz00_18471 == BgL_bufposz00_18472))
																																												{	/* Read/reader.scm 301 */
																																													if (rgc_fill_buffer(BgL_iportz00_18469))
																																														{	/* Read/reader.scm 301 */
																																															long
																																																BgL_arg2067z00_18474;
																																															long
																																																BgL_arg2068z00_18475;
																																															BgL_arg2067z00_18474
																																																=
																																																RGC_BUFFER_FORWARD
																																																(BgL_iportz00_18469);
																																															BgL_arg2068z00_18475
																																																=
																																																RGC_BUFFER_BUFPOS
																																																(BgL_iportz00_18469);
																																															{
																																																long
																																																	BgL_bufposz00_30079;
																																																long
																																																	BgL_forwardz00_30078;
																																																BgL_forwardz00_30078
																																																	=
																																																	BgL_arg2067z00_18474;
																																																BgL_bufposz00_30079
																																																	=
																																																	BgL_arg2068z00_18475;
																																																BgL_bufposz00_18472
																																																	=
																																																	BgL_bufposz00_30079;
																																																BgL_forwardz00_18471
																																																	=
																																																	BgL_forwardz00_30078;
																																																goto
																																																	BgL_statezd246zd21104z00_18057;
																																															}
																																														}
																																													else
																																														{	/* Read/reader.scm 301 */
																																															BgL_matchz00_18778
																																																=
																																																BgL_newzd2matchzd2_18473;
																																														}
																																												}
																																											else
																																												{	/* Read/reader.scm 301 */
																																													int
																																														BgL_curz00_18476;
																																													BgL_curz00_18476
																																														=
																																														RGC_BUFFER_GET_CHAR
																																														(BgL_iportz00_18469,
																																														BgL_forwardz00_18471);
																																													{	/* Read/reader.scm 301 */

																																														{	/* Read/reader.scm 301 */
																																															bool_t
																																																BgL_test9577z00_30081;
																																															if (((long) (BgL_curz00_18476) >= 48L))
																																																{	/* Read/reader.scm 301 */
																																																	BgL_test9577z00_30081
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_18476)
																																																		<
																																																		58L);
																																																}
																																															else
																																																{	/* Read/reader.scm 301 */
																																																	BgL_test9577z00_30081
																																																		=
																																																		(
																																																		(bool_t)
																																																		0);
																																																}
																																															if (BgL_test9577z00_30081)
																																																{
																																																	long
																																																		BgL_forwardz00_30088;
																																																	long
																																																		BgL_lastzd2matchzd2_30087;
																																																	BgL_lastzd2matchzd2_30087
																																																		=
																																																		BgL_newzd2matchzd2_18473;
																																																	BgL_forwardz00_30088
																																																		=
																																																		(1L
																																																		+
																																																		BgL_forwardz00_18471);
																																																	BgL_forwardz00_18471
																																																		=
																																																		BgL_forwardz00_30088;
																																																	BgL_lastzd2matchzd2_18470
																																																		=
																																																		BgL_lastzd2matchzd2_30087;
																																																	goto
																																																		BgL_statezd246zd21104z00_18057;
																																																}
																																															else
																																																{	/* Read/reader.scm 301 */
																																																	BgL_matchz00_18778
																																																		=
																																																		BgL_newzd2matchzd2_18473;
																																																}
																																														}
																																													}
																																												}
																																										}
																																									}
																																								else
																																									{	/* Read/reader.scm 301 */
																																										BgL_matchz00_18778
																																											=
																																											BgL_lastzd2matchzd2_18417;
																																									}
																																							}
																																						}
																																					}
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				bool_t
																																					BgL_test9579z00_30092;
																																				{	/* Read/reader.scm 301 */
																																					bool_t
																																						BgL_test9580z00_30093;
																																					if ((
																																							(long)
																																							(BgL_curz00_18558)
																																							>=
																																							48L))
																																						{	/* Read/reader.scm 301 */
																																							BgL_test9580z00_30093
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_18558)
																																								<
																																								58L);
																																						}
																																					else
																																						{	/* Read/reader.scm 301 */
																																							BgL_test9580z00_30093
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																					if (BgL_test9580z00_30093)
																																						{	/* Read/reader.scm 301 */
																																							BgL_test9579z00_30092
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 301 */
																																							bool_t
																																								BgL_test9582z00_30099;
																																							if (((long) (BgL_curz00_18558) >= 65L))
																																								{	/* Read/reader.scm 301 */
																																									BgL_test9582z00_30099
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_18558)
																																										<
																																										71L);
																																								}
																																							else
																																								{	/* Read/reader.scm 301 */
																																									BgL_test9582z00_30099
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																							if (BgL_test9582z00_30099)
																																								{	/* Read/reader.scm 301 */
																																									BgL_test9579z00_30092
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 301 */
																																									if (((long) (BgL_curz00_18558) >= 97L))
																																										{	/* Read/reader.scm 301 */
																																											BgL_test9579z00_30092
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_18558)
																																												<
																																												103L);
																																										}
																																									else
																																										{	/* Read/reader.scm 301 */
																																											BgL_test9579z00_30092
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																								}
																																						}
																																				}
																																				if (BgL_test9579z00_30092)
																																					{
																																						long
																																							BgL_bufposz00_30114;
																																						long
																																							BgL_forwardz00_30112;
																																						long
																																							BgL_lastzd2matchzd2_30111;
																																						obj_t
																																							BgL_iportz00_30110;
																																						BgL_iportz00_30110
																																							=
																																							BgL_iportz00_18552;
																																						BgL_lastzd2matchzd2_30111
																																							=
																																							BgL_lastzd2matchzd2_18553;
																																						BgL_forwardz00_30112
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_18554);
																																						BgL_bufposz00_30114
																																							=
																																							BgL_bufposz00_18555;
																																						BgL_bufposz00_18604
																																							=
																																							BgL_bufposz00_30114;
																																						BgL_forwardz00_18603
																																							=
																																							BgL_forwardz00_30112;
																																						BgL_lastzd2matchzd2_18602
																																							=
																																							BgL_lastzd2matchzd2_30111;
																																						BgL_iportz00_18601
																																							=
																																							BgL_iportz00_30110;
																																						goto
																																							BgL_statezd232zd21090z00_18074;
																																					}
																																				else
																																					{	/* Read/reader.scm 301 */
																																						BgL_matchz00_18778
																																							=
																																							BgL_lastzd2matchzd2_18553;
																																					}
																																			}
																																	}
																																}
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															bool_t
																																BgL_test9585z00_30116;
																															{	/* Read/reader.scm 301 */
																																bool_t
																																	BgL_test9586z00_30117;
																																if (((long)
																																		(BgL_curz00_18172)
																																		>= 48L))
																																	{	/* Read/reader.scm 301 */
																																		BgL_test9586z00_30117
																																			=
																																			((long)
																																			(BgL_curz00_18172)
																																			< 54L);
																																	}
																																else
																																	{	/* Read/reader.scm 301 */
																																		BgL_test9586z00_30117
																																			=
																																			((bool_t)
																																			0);
																																	}
																																if (BgL_test9586z00_30117)
																																	{	/* Read/reader.scm 301 */
																																		BgL_test9585z00_30116
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 301 */
																																		bool_t
																																			BgL_test9588z00_30123;
																																		if (((long)
																																				(BgL_curz00_18172)
																																				== 57L))
																																			{	/* Read/reader.scm 301 */
																																				BgL_test9588z00_30123
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				if (
																																					((long) (BgL_curz00_18172) == 56L))
																																					{	/* Read/reader.scm 301 */
																																						BgL_test9588z00_30123
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 301 */
																																						BgL_test9588z00_30123
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_18172)
																																							==
																																							55L);
																																			}}
																																		if (BgL_test9588z00_30123)
																																			{	/* Read/reader.scm 301 */
																																				BgL_test9585z00_30116
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				bool_t
																																					BgL_test9591z00_30132;
																																				if ((
																																						(long)
																																						(BgL_curz00_18172)
																																						>=
																																						65L))
																																					{	/* Read/reader.scm 301 */
																																						BgL_test9591z00_30132
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_18172)
																																							<
																																							71L);
																																					}
																																				else
																																					{	/* Read/reader.scm 301 */
																																						BgL_test9591z00_30132
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																				if (BgL_test9591z00_30132)
																																					{	/* Read/reader.scm 301 */
																																						BgL_test9585z00_30116
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 301 */
																																						if (
																																							((long) (BgL_curz00_18172) >= 97L))
																																							{	/* Read/reader.scm 301 */
																																								BgL_test9585z00_30116
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_18172)
																																									<
																																									103L);
																																							}
																																						else
																																							{	/* Read/reader.scm 301 */
																																								BgL_test9585z00_30116
																																									=
																																									(
																																									(bool_t)
																																									0);
																																							}
																																					}
																																			}
																																	}
																															}
																															if (BgL_test9585z00_30116)
																																{
																																	long
																																		BgL_bufposz00_30147;
																																	long
																																		BgL_forwardz00_30145;
																																	long
																																		BgL_lastzd2matchzd2_30144;
																																	obj_t
																																		BgL_iportz00_30143;
																																	BgL_iportz00_30143
																																		=
																																		BgL_iportz00_18166;
																																	BgL_lastzd2matchzd2_30144
																																		=
																																		BgL_lastzd2matchzd2_18167;
																																	BgL_forwardz00_30145
																																		=
																																		(1L +
																																		BgL_forwardz00_18168);
																																	BgL_bufposz00_30147
																																		=
																																		BgL_bufposz00_18169;
																																	BgL_bufposz00_18229
																																		=
																																		BgL_bufposz00_30147;
																																	BgL_forwardz00_18228
																																		=
																																		BgL_forwardz00_30145;
																																	BgL_lastzd2matchzd2_18227
																																		=
																																		BgL_lastzd2matchzd2_30144;
																																	BgL_iportz00_18226
																																		=
																																		BgL_iportz00_30143;
																																	goto
																																		BgL_statezd230zd21088z00_18030;
																																}
																															else
																																{	/* Read/reader.scm 301 */
																																	BgL_matchz00_18778
																																		=
																																		BgL_lastzd2matchzd2_18167;
																																}
																														}
																												}
																											}
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										bool_t
																											BgL_test9594z00_30149;
																										if (((long)
																												(BgL_curz00_18278) ==
																												48L))
																											{	/* Read/reader.scm 301 */
																												BgL_test9594z00_30149 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Read/reader.scm 301 */
																												if (
																													((long)
																														(BgL_curz00_18278)
																														== 50L))
																													{	/* Read/reader.scm 301 */
																														BgL_test9594z00_30149
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Read/reader.scm 301 */
																														bool_t
																															BgL_test9597z00_30156;
																														if (((long)
																																(BgL_curz00_18278)
																																== 53L))
																															{	/* Read/reader.scm 301 */
																																BgL_test9597z00_30156
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 301 */
																																BgL_test9597z00_30156
																																	=
																																	((long)
																																	(BgL_curz00_18278)
																																	== 52L);
																															}
																														if (BgL_test9597z00_30156)
																															{	/* Read/reader.scm 301 */
																																BgL_test9594z00_30149
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 301 */
																																if (
																																	((long)
																																		(BgL_curz00_18278)
																																		== 55L))
																																	{	/* Read/reader.scm 301 */
																																		BgL_test9594z00_30149
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 301 */
																																		if (
																																			((long)
																																				(BgL_curz00_18278)
																																				== 57L))
																																			{	/* Read/reader.scm 301 */
																																				BgL_test9594z00_30149
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				bool_t
																																					BgL_test9601z00_30168;
																																				if ((
																																						(long)
																																						(BgL_curz00_18278)
																																						>=
																																						65L))
																																					{	/* Read/reader.scm 301 */
																																						BgL_test9601z00_30168
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_18278)
																																							<
																																							71L);
																																					}
																																				else
																																					{	/* Read/reader.scm 301 */
																																						BgL_test9601z00_30168
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																				if (BgL_test9601z00_30168)
																																					{	/* Read/reader.scm 301 */
																																						BgL_test9594z00_30149
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 301 */
																																						BgL_test9594z00_30149
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_18278)
																																							==
																																							97L);
																											}}}}}}
																										if (BgL_test9594z00_30149)
																											{	/* Read/reader.scm 301 */
																												BgL_iportz00_18438 =
																													BgL_iportz00_18271;
																												BgL_lastzd2matchzd2_18439
																													=
																													BgL_newzd2matchzd2_18275;
																												BgL_forwardz00_18440 =
																													(1L +
																													BgL_forwardz00_18273);
																												BgL_bufposz00_18441 =
																													BgL_bufposz00_18274;
																											BgL_statezd224zd21082z00_18053:
																												if (
																													(BgL_forwardz00_18440
																														==
																														BgL_bufposz00_18441))
																													{	/* Read/reader.scm 301 */
																														if (rgc_fill_buffer
																															(BgL_iportz00_18438))
																															{	/* Read/reader.scm 301 */
																																long
																																	BgL_arg2016z00_18442;
																																long
																																	BgL_arg2017z00_18443;
																																BgL_arg2016z00_18442
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_iportz00_18438);
																																BgL_arg2017z00_18443
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_iportz00_18438);
																																{
																																	long
																																		BgL_bufposz00_30183;
																																	long
																																		BgL_forwardz00_30182;
																																	BgL_forwardz00_30182
																																		=
																																		BgL_arg2016z00_18442;
																																	BgL_bufposz00_30183
																																		=
																																		BgL_arg2017z00_18443;
																																	BgL_bufposz00_18441
																																		=
																																		BgL_bufposz00_30183;
																																	BgL_forwardz00_18440
																																		=
																																		BgL_forwardz00_30182;
																																	goto
																																		BgL_statezd224zd21082z00_18053;
																																}
																															}
																														else
																															{	/* Read/reader.scm 301 */
																																BgL_matchz00_18778
																																	=
																																	BgL_lastzd2matchzd2_18439;
																															}
																													}
																												else
																													{	/* Read/reader.scm 301 */
																														int
																															BgL_curz00_18444;
																														BgL_curz00_18444 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_iportz00_18438,
																															BgL_forwardz00_18440);
																														{	/* Read/reader.scm 301 */

																															{	/* Read/reader.scm 301 */
																																bool_t
																																	BgL_test9605z00_30185;
																																{	/* Read/reader.scm 301 */
																																	bool_t
																																		BgL_test9606z00_30186;
																																	if (((long)
																																			(BgL_curz00_18444)
																																			>= 48L))
																																		{	/* Read/reader.scm 301 */
																																			BgL_test9606z00_30186
																																				=
																																				((long)
																																				(BgL_curz00_18444)
																																				< 58L);
																																		}
																																	else
																																		{	/* Read/reader.scm 301 */
																																			BgL_test9606z00_30186
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																	if (BgL_test9606z00_30186)
																																		{	/* Read/reader.scm 301 */
																																			BgL_test9605z00_30185
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Read/reader.scm 301 */
																																			bool_t
																																				BgL_test9608z00_30192;
																																			if ((
																																					(long)
																																					(BgL_curz00_18444)
																																					>=
																																					65L))
																																				{	/* Read/reader.scm 301 */
																																					BgL_test9608z00_30192
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_18444)
																																						<
																																						71L);
																																				}
																																			else
																																				{	/* Read/reader.scm 301 */
																																					BgL_test9608z00_30192
																																						=
																																						(
																																						(bool_t)
																																						0);
																																				}
																																			if (BgL_test9608z00_30192)
																																				{	/* Read/reader.scm 301 */
																																					BgL_test9605z00_30185
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 301 */
																																					if (
																																						((long) (BgL_curz00_18444) >= 97L))
																																						{	/* Read/reader.scm 301 */
																																							BgL_test9605z00_30185
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_18444)
																																								<
																																								103L);
																																						}
																																					else
																																						{	/* Read/reader.scm 301 */
																																							BgL_test9605z00_30185
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																				}
																																		}
																																}
																																if (BgL_test9605z00_30185)
																																	{
																																		long
																																			BgL_bufposz00_30207;
																																		long
																																			BgL_forwardz00_30205;
																																		long
																																			BgL_lastzd2matchzd2_30204;
																																		obj_t
																																			BgL_iportz00_30203;
																																		BgL_iportz00_30203
																																			=
																																			BgL_iportz00_18438;
																																		BgL_lastzd2matchzd2_30204
																																			=
																																			BgL_lastzd2matchzd2_18439;
																																		BgL_forwardz00_30205
																																			=
																																			(1L +
																																			BgL_forwardz00_18440);
																																		BgL_bufposz00_30207
																																			=
																																			BgL_bufposz00_18441;
																																		BgL_bufposz00_18229
																																			=
																																			BgL_bufposz00_30207;
																																		BgL_forwardz00_18228
																																			=
																																			BgL_forwardz00_30205;
																																		BgL_lastzd2matchzd2_18227
																																			=
																																			BgL_lastzd2matchzd2_30204;
																																		BgL_iportz00_18226
																																			=
																																			BgL_iportz00_30203;
																																		goto
																																			BgL_statezd230zd21088z00_18030;
																																	}
																																else
																																	{	/* Read/reader.scm 301 */
																																		BgL_matchz00_18778
																																			=
																																			BgL_lastzd2matchzd2_18439;
																																	}
																															}
																														}
																													}
																											}
																										else
																											{	/* Read/reader.scm 301 */
																												bool_t
																													BgL_test9611z00_30209;
																												if (((long)
																														(BgL_curz00_18278)
																														== 45L))
																													{	/* Read/reader.scm 301 */
																														BgL_test9611z00_30209
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Read/reader.scm 301 */
																														bool_t
																															BgL_test9613z00_30213;
																														if (((long)
																																(BgL_curz00_18278)
																																== 106L))
																															{	/* Read/reader.scm 301 */
																																BgL_test9613z00_30213
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 301 */
																																BgL_test9613z00_30213
																																	=
																																	((long)
																																	(BgL_curz00_18278)
																																	== 105L);
																															}
																														if (BgL_test9613z00_30213)
																															{	/* Read/reader.scm 301 */
																																BgL_test9611z00_30209
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 301 */
																																bool_t
																																	BgL_test9615z00_30219;
																																if (((long)
																																		(BgL_curz00_18278)
																																		== 112L))
																																	{	/* Read/reader.scm 301 */
																																		BgL_test9615z00_30219
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 301 */
																																		if (
																																			((long)
																																				(BgL_curz00_18278)
																																				==
																																				111L))
																																			{	/* Read/reader.scm 301 */
																																				BgL_test9615z00_30219
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				BgL_test9615z00_30219
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_18278)
																																					==
																																					110L);
																																	}}
																																if (BgL_test9615z00_30219)
																																	{	/* Read/reader.scm 301 */
																																		BgL_test9611z00_30209
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 301 */
																																		bool_t
																																			BgL__ortest_1162z00_18279;
																																		BgL__ortest_1162z00_18279
																																			=
																																			((long)
																																			(BgL_curz00_18278)
																																			== 116L);
																																		if (BgL__ortest_1162z00_18279)
																																			{	/* Read/reader.scm 301 */
																																				BgL_test9611z00_30209
																																					=
																																					BgL__ortest_1162z00_18279;
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				BgL_test9611z00_30209
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_18278)
																																					==
																																					115L);
																													}}}}
																												if (BgL_test9611z00_30209)
																													{
																														long
																															BgL_bufposz00_30237;
																														long
																															BgL_forwardz00_30235;
																														long
																															BgL_lastzd2matchzd2_30234;
																														obj_t
																															BgL_iportz00_30233;
																														BgL_iportz00_30233 =
																															BgL_iportz00_18271;
																														BgL_lastzd2matchzd2_30234
																															=
																															BgL_newzd2matchzd2_18275;
																														BgL_forwardz00_30235
																															=
																															(1L +
																															BgL_forwardz00_18273);
																														BgL_bufposz00_30237
																															=
																															BgL_bufposz00_18274;
																														BgL_bufposz00_18448
																															=
																															BgL_bufposz00_30237;
																														BgL_forwardz00_18447
																															=
																															BgL_forwardz00_30235;
																														BgL_lastzd2matchzd2_18446
																															=
																															BgL_lastzd2matchzd2_30234;
																														BgL_iportz00_18445 =
																															BgL_iportz00_30233;
																														goto
																															BgL_statezd223zd21081z00_18054;
																													}
																												else
																													{	/* Read/reader.scm 301 */
																														if (
																															((long)
																																(BgL_curz00_18278)
																																== 34L))
																															{	/* Read/reader.scm 301 */
																																BgL_iportz00_18188
																																	=
																																	BgL_iportz00_18271;
																																BgL_lastzd2matchzd2_18189
																																	=
																																	BgL_newzd2matchzd2_18275;
																																BgL_forwardz00_18190
																																	=
																																	(1L +
																																	BgL_forwardz00_18273);
																																BgL_bufposz00_18191
																																	=
																																	BgL_bufposz00_18274;
																															BgL_statezd222zd21080z00_18026:
																																if (
																																	(BgL_forwardz00_18190
																																		==
																																		BgL_bufposz00_18191))
																																	{	/* Read/reader.scm 301 */
																																		if (rgc_fill_buffer(BgL_iportz00_18188))
																																			{	/* Read/reader.scm 301 */
																																				long
																																					BgL_arg1666z00_18192;
																																				long
																																					BgL_arg1667z00_18193;
																																				BgL_arg1666z00_18192
																																					=
																																					RGC_BUFFER_FORWARD
																																					(BgL_iportz00_18188);
																																				BgL_arg1667z00_18193
																																					=
																																					RGC_BUFFER_BUFPOS
																																					(BgL_iportz00_18188);
																																				{
																																					long
																																						BgL_bufposz00_30248;
																																					long
																																						BgL_forwardz00_30247;
																																					BgL_forwardz00_30247
																																						=
																																						BgL_arg1666z00_18192;
																																					BgL_bufposz00_30248
																																						=
																																						BgL_arg1667z00_18193;
																																					BgL_bufposz00_18191
																																						=
																																						BgL_bufposz00_30248;
																																					BgL_forwardz00_18190
																																						=
																																						BgL_forwardz00_30247;
																																					goto
																																						BgL_statezd222zd21080z00_18026;
																																				}
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				BgL_matchz00_18778
																																					=
																																					BgL_lastzd2matchzd2_18189;
																																			}
																																	}
																																else
																																	{	/* Read/reader.scm 301 */
																																		int
																																			BgL_curz00_18194;
																																		BgL_curz00_18194
																																			=
																																			RGC_BUFFER_GET_CHAR
																																			(BgL_iportz00_18188,
																																			BgL_forwardz00_18190);
																																		{	/* Read/reader.scm 301 */

																																			if (
																																				((long)
																																					(BgL_curz00_18194)
																																					==
																																					92L))
																																				{	/* Read/reader.scm 301 */
																																					long
																																						BgL_arg1671z00_18195;
																																					BgL_arg1671z00_18195
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_18190);
																																					{
																																						long
																																							BgL_forwardz00_18197;
																																						long
																																							BgL_bufposz00_18198;
																																						BgL_forwardz00_18197
																																							=
																																							BgL_arg1671z00_18195;
																																						BgL_bufposz00_18198
																																							=
																																							BgL_bufposz00_18191;
																																					BgL_statezd248zd21106z00_18196:
																																						if (
																																							(BgL_forwardz00_18197
																																								==
																																								BgL_bufposz00_18198))
																																							{	/* Read/reader.scm 301 */
																																								if (rgc_fill_buffer(BgL_iportz00_18188))
																																									{	/* Read/reader.scm 301 */
																																										long
																																											BgL_arg1777z00_18199;
																																										long
																																											BgL_arg1778z00_18200;
																																										BgL_arg1777z00_18199
																																											=
																																											RGC_BUFFER_FORWARD
																																											(BgL_iportz00_18188);
																																										BgL_arg1778z00_18200
																																											=
																																											RGC_BUFFER_BUFPOS
																																											(BgL_iportz00_18188);
																																										{
																																											long
																																												BgL_bufposz00_30261;
																																											long
																																												BgL_forwardz00_30260;
																																											BgL_forwardz00_30260
																																												=
																																												BgL_arg1777z00_18199;
																																											BgL_bufposz00_30261
																																												=
																																												BgL_arg1778z00_18200;
																																											BgL_bufposz00_18198
																																												=
																																												BgL_bufposz00_30261;
																																											BgL_forwardz00_18197
																																												=
																																												BgL_forwardz00_30260;
																																											goto
																																												BgL_statezd248zd21106z00_18196;
																																										}
																																									}
																																								else
																																									{	/* Read/reader.scm 301 */
																																										BgL_matchz00_18778
																																											=
																																											BgL_lastzd2matchzd2_18189;
																																									}
																																							}
																																						else
																																							{	/* Read/reader.scm 301 */
																																								int
																																									BgL_curz00_18201;
																																								BgL_curz00_18201
																																									=
																																									RGC_BUFFER_GET_CHAR
																																									(BgL_iportz00_18188,
																																									BgL_forwardz00_18197);
																																								{	/* Read/reader.scm 301 */

																																									if (((long) (BgL_curz00_18201) == 10L))
																																										{	/* Read/reader.scm 301 */
																																											BgL_matchz00_18778
																																												=
																																												BgL_lastzd2matchzd2_18189;
																																										}
																																									else
																																										{
																																											long
																																												BgL_bufposz00_30268;
																																											long
																																												BgL_forwardz00_30266;
																																											BgL_forwardz00_30266
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_18197);
																																											BgL_bufposz00_30268
																																												=
																																												BgL_bufposz00_18198;
																																											BgL_bufposz00_18191
																																												=
																																												BgL_bufposz00_30268;
																																											BgL_forwardz00_18190
																																												=
																																												BgL_forwardz00_30266;
																																											goto
																																												BgL_statezd222zd21080z00_18026;
																																										}
																																								}
																																							}
																																					}
																																				}
																																			else
																																				{	/* Read/reader.scm 301 */
																																					if (
																																						((long) (BgL_curz00_18194) == 34L))
																																						{	/* Read/reader.scm 301 */
																																							long
																																								BgL_arg1673z00_18202;
																																							BgL_arg1673z00_18202
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_18190);
																																							{	/* Read/reader.scm 301 */
																																								long
																																									BgL_newzd2matchzd2_18203;
																																								RGC_STOP_MATCH
																																									(BgL_iportz00_18188,
																																									BgL_arg1673z00_18202);
																																								BgL_newzd2matchzd2_18203
																																									=
																																									3L;
																																								BgL_matchz00_18778
																																									=
																																									BgL_newzd2matchzd2_18203;
																																						}}
																																					else
																																						{	/* Read/reader.scm 301 */
																																							bool_t
																																								BgL_test9627z00_30274;
																																							if (((long) (BgL_curz00_18194) == 34L))
																																								{	/* Read/reader.scm 301 */
																																									BgL_test9627z00_30274
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Read/reader.scm 301 */
																																									BgL_test9627z00_30274
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_18194)
																																										==
																																										92L);
																																								}
																																							if (BgL_test9627z00_30274)
																																								{	/* Read/reader.scm 301 */
																																									BgL_matchz00_18778
																																										=
																																										BgL_lastzd2matchzd2_18189;
																																								}
																																							else
																																								{
																																									long
																																										BgL_forwardz00_30280;
																																									BgL_forwardz00_30280
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_18190);
																																									BgL_forwardz00_18190
																																										=
																																										BgL_forwardz00_30280;
																																									goto
																																										BgL_statezd222zd21080z00_18026;
																																								}
																																						}
																																				}
																																		}
																																	}
																															}
																														else
																															{	/* Read/reader.scm 301 */
																																BgL_matchz00_18778
																																	=
																																	BgL_newzd2matchzd2_18275;
																															}
																													}
																											}
																									}
																							}
																					}
																			}
																	}
															}
														}
													}
											}
											break;
										case 115L:

											BgL_iportz00_18364 = BgL_iportz00_18155;
											BgL_lastzd2matchzd2_18365 = BgL_lastzd2matchzd2_18156;
											BgL_forwardz00_18366 = (1L + BgL_forwardz00_18157);
											BgL_bufposz00_18367 = BgL_bufposz00_18158;
										BgL_statezd211zd21069z00_18047:
											{	/* Read/reader.scm 301 */
												long BgL_newzd2matchzd2_18368;

												RGC_STOP_MATCH(BgL_iportz00_18364,
													BgL_forwardz00_18366);
												BgL_newzd2matchzd2_18368 = 25L;
												if ((BgL_forwardz00_18366 == BgL_bufposz00_18367))
													{	/* Read/reader.scm 301 */
														if (rgc_fill_buffer(BgL_iportz00_18364))
															{	/* Read/reader.scm 301 */
																long BgL_arg1946z00_18369;
																long BgL_arg1947z00_18370;

																BgL_arg1946z00_18369 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_18364);
																BgL_arg1947z00_18370 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_18364);
																{
																	long BgL_bufposz00_30292;
																	long BgL_forwardz00_30291;

																	BgL_forwardz00_30291 = BgL_arg1946z00_18369;
																	BgL_bufposz00_30292 = BgL_arg1947z00_18370;
																	BgL_bufposz00_18367 = BgL_bufposz00_30292;
																	BgL_forwardz00_18366 = BgL_forwardz00_30291;
																	goto BgL_statezd211zd21069z00_18047;
																}
															}
														else
															{	/* Read/reader.scm 301 */
																BgL_matchz00_18778 = BgL_newzd2matchzd2_18368;
															}
													}
												else
													{	/* Read/reader.scm 301 */
														int BgL_curz00_18371;

														BgL_curz00_18371 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_18364,
															BgL_forwardz00_18366);
														{	/* Read/reader.scm 301 */

															if (((long) (BgL_curz00_18371) == 56L))
																{	/* Read/reader.scm 301 */
																	long BgL_arg1949z00_18372;

																	BgL_arg1949z00_18372 =
																		(1L + BgL_forwardz00_18366);
																	{
																		long BgL_forwardz00_18374;
																		long BgL_bufposz00_18375;

																		BgL_forwardz00_18374 = BgL_arg1949z00_18372;
																		BgL_bufposz00_18375 = BgL_bufposz00_18367;
																	BgL_statezd252zd21110z00_18373:
																		if (
																			(BgL_forwardz00_18374 ==
																				BgL_bufposz00_18375))
																			{	/* Read/reader.scm 301 */
																				if (rgc_fill_buffer(BgL_iportz00_18364))
																					{	/* Read/reader.scm 301 */
																						long BgL_arg1697z00_18376;
																						long BgL_arg1698z00_18377;

																						BgL_arg1697z00_18376 =
																							RGC_BUFFER_FORWARD
																							(BgL_iportz00_18364);
																						BgL_arg1698z00_18377 =
																							RGC_BUFFER_BUFPOS
																							(BgL_iportz00_18364);
																						{
																							long BgL_bufposz00_30305;
																							long BgL_forwardz00_30304;

																							BgL_forwardz00_30304 =
																								BgL_arg1697z00_18376;
																							BgL_bufposz00_30305 =
																								BgL_arg1698z00_18377;
																							BgL_bufposz00_18375 =
																								BgL_bufposz00_30305;
																							BgL_forwardz00_18374 =
																								BgL_forwardz00_30304;
																							goto
																								BgL_statezd252zd21110z00_18373;
																						}
																					}
																				else
																					{	/* Read/reader.scm 301 */
																						BgL_matchz00_18778 =
																							BgL_newzd2matchzd2_18368;
																					}
																			}
																		else
																			{	/* Read/reader.scm 301 */
																				int BgL_curz00_18378;

																				BgL_curz00_18378 =
																					RGC_BUFFER_GET_CHAR
																					(BgL_iportz00_18364,
																					BgL_forwardz00_18374);
																				{	/* Read/reader.scm 301 */

																					if (
																						((long) (BgL_curz00_18378) == 58L))
																						{	/* Read/reader.scm 301 */
																							BgL_iportz00_18342 =
																								BgL_iportz00_18364;
																							BgL_lastzd2matchzd2_18343 =
																								BgL_newzd2matchzd2_18368;
																							BgL_forwardz00_18344 =
																								(1L + BgL_forwardz00_18374);
																							BgL_bufposz00_18345 =
																								BgL_bufposz00_18375;
																						BgL_statezd253zd21111z00_18044:
																							if (
																								(BgL_forwardz00_18344 ==
																									BgL_bufposz00_18345))
																								{	/* Read/reader.scm 301 */
																									if (rgc_fill_buffer
																										(BgL_iportz00_18342))
																										{	/* Read/reader.scm 301 */
																											long BgL_arg1915z00_18346;
																											long BgL_arg1916z00_18347;

																											BgL_arg1915z00_18346 =
																												RGC_BUFFER_FORWARD
																												(BgL_iportz00_18342);
																											BgL_arg1916z00_18347 =
																												RGC_BUFFER_BUFPOS
																												(BgL_iportz00_18342);
																											{
																												long
																													BgL_bufposz00_30317;
																												long
																													BgL_forwardz00_30316;
																												BgL_forwardz00_30316 =
																													BgL_arg1915z00_18346;
																												BgL_bufposz00_30317 =
																													BgL_arg1916z00_18347;
																												BgL_bufposz00_18345 =
																													BgL_bufposz00_30317;
																												BgL_forwardz00_18344 =
																													BgL_forwardz00_30316;
																												goto
																													BgL_statezd253zd21111z00_18044;
																											}
																										}
																									else
																										{	/* Read/reader.scm 301 */
																											BgL_matchz00_18778 =
																												BgL_lastzd2matchzd2_18343;
																										}
																								}
																							else
																								{	/* Read/reader.scm 301 */
																									int BgL_curz00_18348;

																									BgL_curz00_18348 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_iportz00_18342,
																										BgL_forwardz00_18344);
																									{	/* Read/reader.scm 301 */

																										{	/* Read/reader.scm 301 */
																											bool_t
																												BgL_test9637z00_30319;
																											if (((long)
																													(BgL_curz00_18348) >=
																													48L))
																												{	/* Read/reader.scm 301 */
																													BgL_test9637z00_30319
																														=
																														((long)
																														(BgL_curz00_18348) <
																														58L);
																												}
																											else
																												{	/* Read/reader.scm 301 */
																													BgL_test9637z00_30319
																														= ((bool_t) 0);
																												}
																											if (BgL_test9637z00_30319)
																												{	/* Read/reader.scm 301 */
																													BgL_iportz00_18544 =
																														BgL_iportz00_18342;
																													BgL_lastzd2matchzd2_18545
																														=
																														BgL_lastzd2matchzd2_18343;
																													BgL_forwardz00_18546 =
																														(1L +
																														BgL_forwardz00_18344);
																													BgL_bufposz00_18547 =
																														BgL_bufposz00_18345;
																												BgL_statezd255zd21113z00_18067:
																													{	/* Read/reader.scm 301 */
																														long
																															BgL_newzd2matchzd2_18548;
																														RGC_STOP_MATCH
																															(BgL_iportz00_18544,
																															BgL_forwardz00_18546);
																														BgL_newzd2matchzd2_18548
																															= 15L;
																														if (
																															(BgL_forwardz00_18546
																																==
																																BgL_bufposz00_18547))
																															{	/* Read/reader.scm 301 */
																																if (rgc_fill_buffer(BgL_iportz00_18544))
																																	{	/* Read/reader.scm 301 */
																																		long
																																			BgL_arg2165z00_18549;
																																		long
																																			BgL_arg2166z00_18550;
																																		BgL_arg2165z00_18549
																																			=
																																			RGC_BUFFER_FORWARD
																																			(BgL_iportz00_18544);
																																		BgL_arg2166z00_18550
																																			=
																																			RGC_BUFFER_BUFPOS
																																			(BgL_iportz00_18544);
																																		{
																																			long
																																				BgL_bufposz00_30333;
																																			long
																																				BgL_forwardz00_30332;
																																			BgL_forwardz00_30332
																																				=
																																				BgL_arg2165z00_18549;
																																			BgL_bufposz00_30333
																																				=
																																				BgL_arg2166z00_18550;
																																			BgL_bufposz00_18547
																																				=
																																				BgL_bufposz00_30333;
																																			BgL_forwardz00_18546
																																				=
																																				BgL_forwardz00_30332;
																																			goto
																																				BgL_statezd255zd21113z00_18067;
																																		}
																																	}
																																else
																																	{	/* Read/reader.scm 301 */
																																		BgL_matchz00_18778
																																			=
																																			BgL_newzd2matchzd2_18548;
																																	}
																															}
																														else
																															{	/* Read/reader.scm 301 */
																																int
																																	BgL_curz00_18551;
																																BgL_curz00_18551
																																	=
																																	RGC_BUFFER_GET_CHAR
																																	(BgL_iportz00_18544,
																																	BgL_forwardz00_18546);
																																{	/* Read/reader.scm 301 */

																																	{	/* Read/reader.scm 301 */
																																		bool_t
																																			BgL_test9641z00_30335;
																																		if (((long)
																																				(BgL_curz00_18551)
																																				>= 48L))
																																			{	/* Read/reader.scm 301 */
																																				BgL_test9641z00_30335
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_18551)
																																					<
																																					58L);
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				BgL_test9641z00_30335
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																		if (BgL_test9641z00_30335)
																																			{
																																				long
																																					BgL_forwardz00_30342;
																																				long
																																					BgL_lastzd2matchzd2_30341;
																																				BgL_lastzd2matchzd2_30341
																																					=
																																					BgL_newzd2matchzd2_18548;
																																				BgL_forwardz00_30342
																																					=
																																					(1L +
																																					BgL_forwardz00_18546);
																																				BgL_forwardz00_18546
																																					=
																																					BgL_forwardz00_30342;
																																				BgL_lastzd2matchzd2_18545
																																					=
																																					BgL_lastzd2matchzd2_30341;
																																				goto
																																					BgL_statezd255zd21113z00_18067;
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				BgL_matchz00_18778
																																					=
																																					BgL_newzd2matchzd2_18548;
																																			}
																																	}
																																}
																															}
																													}
																												}
																											else
																												{	/* Read/reader.scm 301 */
																													if (
																														((long)
																															(BgL_curz00_18348)
																															== 45L))
																														{	/* Read/reader.scm 301 */
																															BgL_iportz00_18349
																																=
																																BgL_iportz00_18342;
																															BgL_lastzd2matchzd2_18350
																																=
																																BgL_lastzd2matchzd2_18343;
																															BgL_forwardz00_18351
																																=
																																(1L +
																																BgL_forwardz00_18344);
																															BgL_bufposz00_18352
																																=
																																BgL_bufposz00_18345;
																														BgL_statezd254zd21112z00_18045:
																															if (
																																(BgL_forwardz00_18351
																																	==
																																	BgL_bufposz00_18352))
																																{	/* Read/reader.scm 301 */
																																	if (rgc_fill_buffer(BgL_iportz00_18349))
																																		{	/* Read/reader.scm 301 */
																																			long
																																				BgL_arg1925z00_18353;
																																			long
																																				BgL_arg1926z00_18354;
																																			BgL_arg1925z00_18353
																																				=
																																				RGC_BUFFER_FORWARD
																																				(BgL_iportz00_18349);
																																			BgL_arg1926z00_18354
																																				=
																																				RGC_BUFFER_BUFPOS
																																				(BgL_iportz00_18349);
																																			{
																																				long
																																					BgL_bufposz00_30355;
																																				long
																																					BgL_forwardz00_30354;
																																				BgL_forwardz00_30354
																																					=
																																					BgL_arg1925z00_18353;
																																				BgL_bufposz00_30355
																																					=
																																					BgL_arg1926z00_18354;
																																				BgL_bufposz00_18352
																																					=
																																					BgL_bufposz00_30355;
																																				BgL_forwardz00_18351
																																					=
																																					BgL_forwardz00_30354;
																																				goto
																																					BgL_statezd254zd21112z00_18045;
																																			}
																																		}
																																	else
																																		{	/* Read/reader.scm 301 */
																																			BgL_matchz00_18778
																																				=
																																				BgL_lastzd2matchzd2_18350;
																																		}
																																}
																															else
																																{	/* Read/reader.scm 301 */
																																	int
																																		BgL_curz00_18355;
																																	BgL_curz00_18355
																																		=
																																		RGC_BUFFER_GET_CHAR
																																		(BgL_iportz00_18349,
																																		BgL_forwardz00_18351);
																																	{	/* Read/reader.scm 301 */

																																		{	/* Read/reader.scm 301 */
																																			bool_t
																																				BgL_test9646z00_30357;
																																			if ((
																																					(long)
																																					(BgL_curz00_18355)
																																					>=
																																					48L))
																																				{	/* Read/reader.scm 301 */
																																					BgL_test9646z00_30357
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_18355)
																																						<
																																						58L);
																																				}
																																			else
																																				{	/* Read/reader.scm 301 */
																																					BgL_test9646z00_30357
																																						=
																																						(
																																						(bool_t)
																																						0);
																																				}
																																			if (BgL_test9646z00_30357)
																																				{
																																					long
																																						BgL_bufposz00_30367;
																																					long
																																						BgL_forwardz00_30365;
																																					long
																																						BgL_lastzd2matchzd2_30364;
																																					obj_t
																																						BgL_iportz00_30363;
																																					BgL_iportz00_30363
																																						=
																																						BgL_iportz00_18349;
																																					BgL_lastzd2matchzd2_30364
																																						=
																																						BgL_lastzd2matchzd2_18350;
																																					BgL_forwardz00_30365
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_18351);
																																					BgL_bufposz00_30367
																																						=
																																						BgL_bufposz00_18352;
																																					BgL_bufposz00_18547
																																						=
																																						BgL_bufposz00_30367;
																																					BgL_forwardz00_18546
																																						=
																																						BgL_forwardz00_30365;
																																					BgL_lastzd2matchzd2_18545
																																						=
																																						BgL_lastzd2matchzd2_30364;
																																					BgL_iportz00_18544
																																						=
																																						BgL_iportz00_30363;
																																					goto
																																						BgL_statezd255zd21113z00_18067;
																																				}
																																			else
																																				{	/* Read/reader.scm 301 */
																																					BgL_matchz00_18778
																																						=
																																						BgL_lastzd2matchzd2_18350;
																																				}
																																		}
																																	}
																																}
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															BgL_matchz00_18778
																																=
																																BgL_lastzd2matchzd2_18343;
																														}
																												}
																										}
																									}
																								}
																						}
																					else
																						{	/* Read/reader.scm 301 */
																							BgL_matchz00_18778 =
																								BgL_newzd2matchzd2_18368;
																						}
																				}
																			}
																	}
																}
															else
																{	/* Read/reader.scm 301 */
																	if (((long) (BgL_curz00_18371) == 54L))
																		{	/* Read/reader.scm 301 */
																			long BgL_arg1953z00_18379;

																			BgL_arg1953z00_18379 =
																				(1L + BgL_forwardz00_18366);
																			{
																				long BgL_forwardz00_18381;
																				long BgL_bufposz00_18382;

																				BgL_forwardz00_18381 =
																					BgL_arg1953z00_18379;
																				BgL_bufposz00_18382 =
																					BgL_bufposz00_18367;
																			BgL_statezd251zd21109z00_18380:
																				if (
																					(BgL_forwardz00_18381 ==
																						BgL_bufposz00_18382))
																					{	/* Read/reader.scm 301 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_18364))
																							{	/* Read/reader.scm 301 */
																								long BgL_arg2424z00_18383;
																								long BgL_arg2427z00_18384;

																								BgL_arg2424z00_18383 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_18364);
																								BgL_arg2427z00_18384 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_18364);
																								{
																									long BgL_bufposz00_30381;
																									long BgL_forwardz00_30380;

																									BgL_forwardz00_30380 =
																										BgL_arg2424z00_18383;
																									BgL_bufposz00_30381 =
																										BgL_arg2427z00_18384;
																									BgL_bufposz00_18382 =
																										BgL_bufposz00_30381;
																									BgL_forwardz00_18381 =
																										BgL_forwardz00_30380;
																									goto
																										BgL_statezd251zd21109z00_18380;
																								}
																							}
																						else
																							{	/* Read/reader.scm 301 */
																								BgL_matchz00_18778 =
																									BgL_newzd2matchzd2_18368;
																							}
																					}
																				else
																					{	/* Read/reader.scm 301 */
																						int BgL_curz00_18385;

																						BgL_curz00_18385 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_18364,
																							BgL_forwardz00_18381);
																						{	/* Read/reader.scm 301 */

																							if (
																								((long) (BgL_curz00_18385) ==
																									52L))
																								{	/* Read/reader.scm 301 */
																									BgL_iportz00_18699 =
																										BgL_iportz00_18364;
																									BgL_lastzd2matchzd2_18700 =
																										BgL_newzd2matchzd2_18368;
																									BgL_forwardz00_18701 =
																										(1L + BgL_forwardz00_18381);
																									BgL_bufposz00_18702 =
																										BgL_bufposz00_18382;
																								BgL_statezd256zd21114z00_18086:
																									if (
																										(BgL_forwardz00_18701 ==
																											BgL_bufposz00_18702))
																										{	/* Read/reader.scm 301 */
																											if (rgc_fill_buffer
																												(BgL_iportz00_18699))
																												{	/* Read/reader.scm 301 */
																													long
																														BgL_arg2433z00_18703;
																													long
																														BgL_arg2436z00_18704;
																													BgL_arg2433z00_18703 =
																														RGC_BUFFER_FORWARD
																														(BgL_iportz00_18699);
																													BgL_arg2436z00_18704 =
																														RGC_BUFFER_BUFPOS
																														(BgL_iportz00_18699);
																													if (
																														(BgL_arg2433z00_18703
																															==
																															BgL_arg2436z00_18704))
																														{	/* Read/reader.scm 301 */
																															if (rgc_fill_buffer(BgL_iportz00_18699))
																																{	/* Read/reader.scm 301 */
																																	long
																																		BgL_arg2433z00_18705;
																																	long
																																		BgL_arg2436z00_18706;
																																	BgL_arg2433z00_18705
																																		=
																																		RGC_BUFFER_FORWARD
																																		(BgL_iportz00_18699);
																																	BgL_arg2436z00_18706
																																		=
																																		RGC_BUFFER_BUFPOS
																																		(BgL_iportz00_18699);
																																	{
																																		long
																																			BgL_bufposz00_30399;
																																		long
																																			BgL_forwardz00_30398;
																																		BgL_forwardz00_30398
																																			=
																																			BgL_arg2433z00_18705;
																																		BgL_bufposz00_30399
																																			=
																																			BgL_arg2436z00_18706;
																																		BgL_bufposz00_18702
																																			=
																																			BgL_bufposz00_30399;
																																		BgL_forwardz00_18701
																																			=
																																			BgL_forwardz00_30398;
																																		goto
																																			BgL_statezd256zd21114z00_18086;
																																	}
																																}
																															else
																																{	/* Read/reader.scm 301 */
																																	BgL_matchz00_18778
																																		=
																																		BgL_lastzd2matchzd2_18700;
																																}
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															int
																																BgL_curz00_18707;
																															BgL_curz00_18707 =
																																RGC_BUFFER_GET_CHAR
																																(BgL_iportz00_18699,
																																BgL_arg2433z00_18703);
																															{	/* Read/reader.scm 301 */

																																if (
																																	((long)
																																		(BgL_curz00_18707)
																																		== 58L))
																																	{	/* Read/reader.scm 301 */
																																		BgL_iportz00_18709
																																			=
																																			BgL_iportz00_18699;
																																		BgL_lastzd2matchzd2_18710
																																			=
																																			BgL_lastzd2matchzd2_18700;
																																		BgL_forwardz00_18711
																																			=
																																			(1L +
																																			BgL_arg2433z00_18703);
																																		BgL_bufposz00_18712
																																			=
																																			BgL_arg2436z00_18704;
																																	BgL_statezd257zd21115z00_18087:
																																		if (
																																			(BgL_forwardz00_18711
																																				==
																																				BgL_bufposz00_18712))
																																			{	/* Read/reader.scm 301 */
																																				if (rgc_fill_buffer(BgL_iportz00_18709))
																																					{	/* Read/reader.scm 301 */
																																						long
																																							BgL_arg2445z00_18713;
																																						long
																																							BgL_arg2446z00_18714;
																																						BgL_arg2445z00_18713
																																							=
																																							RGC_BUFFER_FORWARD
																																							(BgL_iportz00_18709);
																																						BgL_arg2446z00_18714
																																							=
																																							RGC_BUFFER_BUFPOS
																																							(BgL_iportz00_18709);
																																						{
																																							long
																																								BgL_bufposz00_30411;
																																							long
																																								BgL_forwardz00_30410;
																																							BgL_forwardz00_30410
																																								=
																																								BgL_arg2445z00_18713;
																																							BgL_bufposz00_30411
																																								=
																																								BgL_arg2446z00_18714;
																																							BgL_bufposz00_18712
																																								=
																																								BgL_bufposz00_30411;
																																							BgL_forwardz00_18711
																																								=
																																								BgL_forwardz00_30410;
																																							goto
																																								BgL_statezd257zd21115z00_18087;
																																						}
																																					}
																																				else
																																					{	/* Read/reader.scm 301 */
																																						BgL_matchz00_18778
																																							=
																																							BgL_lastzd2matchzd2_18710;
																																					}
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				int
																																					BgL_curz00_18715;
																																				BgL_curz00_18715
																																					=
																																					RGC_BUFFER_GET_CHAR
																																					(BgL_iportz00_18709,
																																					BgL_forwardz00_18711);
																																				{	/* Read/reader.scm 301 */

																																					{	/* Read/reader.scm 301 */
																																						bool_t
																																							BgL_test9659z00_30413;
																																						if (
																																							((long) (BgL_curz00_18715) >= 48L))
																																							{	/* Read/reader.scm 301 */
																																								BgL_test9659z00_30413
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_18715)
																																									<
																																									58L);
																																							}
																																						else
																																							{	/* Read/reader.scm 301 */
																																								BgL_test9659z00_30413
																																									=
																																									(
																																									(bool_t)
																																									0);
																																							}
																																						if (BgL_test9659z00_30413)
																																							{	/* Read/reader.scm 301 */
																																								BgL_iportz00_18723
																																									=
																																									BgL_iportz00_18709;
																																								BgL_lastzd2matchzd2_18724
																																									=
																																									BgL_lastzd2matchzd2_18710;
																																								BgL_forwardz00_18725
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_18711);
																																								BgL_bufposz00_18726
																																									=
																																									BgL_bufposz00_18712;
																																							BgL_statezd259zd21117z00_18089:
																																								{	/* Read/reader.scm 301 */
																																									long
																																										BgL_newzd2matchzd2_18727;
																																									RGC_STOP_MATCH
																																										(BgL_iportz00_18723,
																																										BgL_forwardz00_18725);
																																									BgL_newzd2matchzd2_18727
																																										=
																																										21L;
																																									if ((BgL_forwardz00_18725 == BgL_bufposz00_18726))
																																										{	/* Read/reader.scm 301 */
																																											if (rgc_fill_buffer(BgL_iportz00_18723))
																																												{	/* Read/reader.scm 301 */
																																													long
																																														BgL_arg2465z00_18728;
																																													long
																																														BgL_arg2470z00_18729;
																																													BgL_arg2465z00_18728
																																														=
																																														RGC_BUFFER_FORWARD
																																														(BgL_iportz00_18723);
																																													BgL_arg2470z00_18729
																																														=
																																														RGC_BUFFER_BUFPOS
																																														(BgL_iportz00_18723);
																																													{
																																														long
																																															BgL_bufposz00_30427;
																																														long
																																															BgL_forwardz00_30426;
																																														BgL_forwardz00_30426
																																															=
																																															BgL_arg2465z00_18728;
																																														BgL_bufposz00_30427
																																															=
																																															BgL_arg2470z00_18729;
																																														BgL_bufposz00_18726
																																															=
																																															BgL_bufposz00_30427;
																																														BgL_forwardz00_18725
																																															=
																																															BgL_forwardz00_30426;
																																														goto
																																															BgL_statezd259zd21117z00_18089;
																																													}
																																												}
																																											else
																																												{	/* Read/reader.scm 301 */
																																													BgL_matchz00_18778
																																														=
																																														BgL_newzd2matchzd2_18727;
																																												}
																																										}
																																									else
																																										{	/* Read/reader.scm 301 */
																																											int
																																												BgL_curz00_18730;
																																											BgL_curz00_18730
																																												=
																																												RGC_BUFFER_GET_CHAR
																																												(BgL_iportz00_18723,
																																												BgL_forwardz00_18725);
																																											{	/* Read/reader.scm 301 */

																																												{	/* Read/reader.scm 301 */
																																													bool_t
																																														BgL_test9663z00_30429;
																																													if (((long) (BgL_curz00_18730) >= 48L))
																																														{	/* Read/reader.scm 301 */
																																															BgL_test9663z00_30429
																																																=
																																																(
																																																(long)
																																																(BgL_curz00_18730)
																																																<
																																																58L);
																																														}
																																													else
																																														{	/* Read/reader.scm 301 */
																																															BgL_test9663z00_30429
																																																=
																																																(
																																																(bool_t)
																																																0);
																																														}
																																													if (BgL_test9663z00_30429)
																																														{
																																															long
																																																BgL_forwardz00_30436;
																																															long
																																																BgL_lastzd2matchzd2_30435;
																																															BgL_lastzd2matchzd2_30435
																																																=
																																																BgL_newzd2matchzd2_18727;
																																															BgL_forwardz00_30436
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_18725);
																																															BgL_forwardz00_18725
																																																=
																																																BgL_forwardz00_30436;
																																															BgL_lastzd2matchzd2_18724
																																																=
																																																BgL_lastzd2matchzd2_30435;
																																															goto
																																																BgL_statezd259zd21117z00_18089;
																																														}
																																													else
																																														{	/* Read/reader.scm 301 */
																																															BgL_matchz00_18778
																																																=
																																																BgL_newzd2matchzd2_18727;
																																														}
																																												}
																																											}
																																										}
																																								}
																																							}
																																						else
																																							{	/* Read/reader.scm 301 */
																																								if (((long) (BgL_curz00_18715) == 45L))
																																									{	/* Read/reader.scm 301 */
																																										BgL_iportz00_18716
																																											=
																																											BgL_iportz00_18709;
																																										BgL_lastzd2matchzd2_18717
																																											=
																																											BgL_lastzd2matchzd2_18710;
																																										BgL_forwardz00_18718
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_18711);
																																										BgL_bufposz00_18719
																																											=
																																											BgL_bufposz00_18712;
																																									BgL_statezd258zd21116z00_18088:
																																										if ((BgL_forwardz00_18718 == BgL_bufposz00_18719))
																																											{	/* Read/reader.scm 301 */
																																												if (rgc_fill_buffer(BgL_iportz00_18716))
																																													{	/* Read/reader.scm 301 */
																																														long
																																															BgL_arg2457z00_18720;
																																														long
																																															BgL_arg2458z00_18721;
																																														BgL_arg2457z00_18720
																																															=
																																															RGC_BUFFER_FORWARD
																																															(BgL_iportz00_18716);
																																														BgL_arg2458z00_18721
																																															=
																																															RGC_BUFFER_BUFPOS
																																															(BgL_iportz00_18716);
																																														{
																																															long
																																																BgL_bufposz00_30449;
																																															long
																																																BgL_forwardz00_30448;
																																															BgL_forwardz00_30448
																																																=
																																																BgL_arg2457z00_18720;
																																															BgL_bufposz00_30449
																																																=
																																																BgL_arg2458z00_18721;
																																															BgL_bufposz00_18719
																																																=
																																																BgL_bufposz00_30449;
																																															BgL_forwardz00_18718
																																																=
																																																BgL_forwardz00_30448;
																																															goto
																																																BgL_statezd258zd21116z00_18088;
																																														}
																																													}
																																												else
																																													{	/* Read/reader.scm 301 */
																																														BgL_matchz00_18778
																																															=
																																															BgL_lastzd2matchzd2_18717;
																																													}
																																											}
																																										else
																																											{	/* Read/reader.scm 301 */
																																												int
																																													BgL_curz00_18722;
																																												BgL_curz00_18722
																																													=
																																													RGC_BUFFER_GET_CHAR
																																													(BgL_iportz00_18716,
																																													BgL_forwardz00_18718);
																																												{	/* Read/reader.scm 301 */

																																													{	/* Read/reader.scm 301 */
																																														bool_t
																																															BgL_test9668z00_30451;
																																														if (((long) (BgL_curz00_18722) >= 48L))
																																															{	/* Read/reader.scm 301 */
																																																BgL_test9668z00_30451
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_18722)
																																																	<
																																																	58L);
																																															}
																																														else
																																															{	/* Read/reader.scm 301 */
																																																BgL_test9668z00_30451
																																																	=
																																																	(
																																																	(bool_t)
																																																	0);
																																															}
																																														if (BgL_test9668z00_30451)
																																															{
																																																long
																																																	BgL_bufposz00_30461;
																																																long
																																																	BgL_forwardz00_30459;
																																																long
																																																	BgL_lastzd2matchzd2_30458;
																																																obj_t
																																																	BgL_iportz00_30457;
																																																BgL_iportz00_30457
																																																	=
																																																	BgL_iportz00_18716;
																																																BgL_lastzd2matchzd2_30458
																																																	=
																																																	BgL_lastzd2matchzd2_18717;
																																																BgL_forwardz00_30459
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_18718);
																																																BgL_bufposz00_30461
																																																	=
																																																	BgL_bufposz00_18719;
																																																BgL_bufposz00_18726
																																																	=
																																																	BgL_bufposz00_30461;
																																																BgL_forwardz00_18725
																																																	=
																																																	BgL_forwardz00_30459;
																																																BgL_lastzd2matchzd2_18724
																																																	=
																																																	BgL_lastzd2matchzd2_30458;
																																																BgL_iportz00_18723
																																																	=
																																																	BgL_iportz00_30457;
																																																goto
																																																	BgL_statezd259zd21117z00_18089;
																																															}
																																														else
																																															{	/* Read/reader.scm 301 */
																																																BgL_matchz00_18778
																																																	=
																																																	BgL_lastzd2matchzd2_18717;
																																															}
																																													}
																																												}
																																											}
																																									}
																																								else
																																									{	/* Read/reader.scm 301 */
																																										BgL_matchz00_18778
																																											=
																																											BgL_lastzd2matchzd2_18710;
																																									}
																																							}
																																					}
																																				}
																																			}
																																	}
																																else
																																	{	/* Read/reader.scm 301 */
																																		BgL_matchz00_18778
																																			=
																																			BgL_lastzd2matchzd2_18700;
																																	}
																															}
																														}
																												}
																											else
																												{	/* Read/reader.scm 301 */
																													BgL_matchz00_18778 =
																														BgL_lastzd2matchzd2_18700;
																												}
																										}
																									else
																										{	/* Read/reader.scm 301 */
																											int BgL_curz00_18708;

																											BgL_curz00_18708 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_iportz00_18699,
																												BgL_forwardz00_18701);
																											{	/* Read/reader.scm 301 */

																												if (
																													((long)
																														(BgL_curz00_18708)
																														== 58L))
																													{
																														long
																															BgL_bufposz00_30472;
																														long
																															BgL_forwardz00_30470;
																														long
																															BgL_lastzd2matchzd2_30469;
																														obj_t
																															BgL_iportz00_30468;
																														BgL_iportz00_30468 =
																															BgL_iportz00_18699;
																														BgL_lastzd2matchzd2_30469
																															=
																															BgL_lastzd2matchzd2_18700;
																														BgL_forwardz00_30470
																															=
																															(1L +
																															BgL_forwardz00_18701);
																														BgL_bufposz00_30472
																															=
																															BgL_bufposz00_18702;
																														BgL_bufposz00_18712
																															=
																															BgL_bufposz00_30472;
																														BgL_forwardz00_18711
																															=
																															BgL_forwardz00_30470;
																														BgL_lastzd2matchzd2_18710
																															=
																															BgL_lastzd2matchzd2_30469;
																														BgL_iportz00_18709 =
																															BgL_iportz00_30468;
																														goto
																															BgL_statezd257zd21115z00_18087;
																													}
																												else
																													{	/* Read/reader.scm 301 */
																														BgL_matchz00_18778 =
																															BgL_lastzd2matchzd2_18700;
																													}
																											}
																										}
																								}
																							else
																								{	/* Read/reader.scm 301 */
																									BgL_matchz00_18778 =
																										BgL_newzd2matchzd2_18368;
																								}
																						}
																					}
																			}
																		}
																	else
																		{	/* Read/reader.scm 301 */
																			if (((long) (BgL_curz00_18371) == 51L))
																				{	/* Read/reader.scm 301 */
																					long BgL_arg1955z00_18386;

																					BgL_arg1955z00_18386 =
																						(1L + BgL_forwardz00_18366);
																					{
																						long BgL_forwardz00_18388;
																						long BgL_bufposz00_18389;

																						BgL_forwardz00_18388 =
																							BgL_arg1955z00_18386;
																						BgL_bufposz00_18389 =
																							BgL_bufposz00_18367;
																					BgL_statezd250zd21108z00_18387:
																						if (
																							(BgL_forwardz00_18388 ==
																								BgL_bufposz00_18389))
																							{	/* Read/reader.scm 301 */
																								if (rgc_fill_buffer
																									(BgL_iportz00_18364))
																									{	/* Read/reader.scm 301 */
																										long BgL_arg2307z00_18390;
																										long BgL_arg2309z00_18391;

																										BgL_arg2307z00_18390 =
																											RGC_BUFFER_FORWARD
																											(BgL_iportz00_18364);
																										BgL_arg2309z00_18391 =
																											RGC_BUFFER_BUFPOS
																											(BgL_iportz00_18364);
																										{
																											long BgL_bufposz00_30485;
																											long BgL_forwardz00_30484;

																											BgL_forwardz00_30484 =
																												BgL_arg2307z00_18390;
																											BgL_bufposz00_30485 =
																												BgL_arg2309z00_18391;
																											BgL_bufposz00_18389 =
																												BgL_bufposz00_30485;
																											BgL_forwardz00_18388 =
																												BgL_forwardz00_30484;
																											goto
																												BgL_statezd250zd21108z00_18387;
																										}
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										BgL_matchz00_18778 =
																											BgL_newzd2matchzd2_18368;
																									}
																							}
																						else
																							{	/* Read/reader.scm 301 */
																								int BgL_curz00_18392;

																								BgL_curz00_18392 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_iportz00_18364,
																									BgL_forwardz00_18388);
																								{	/* Read/reader.scm 301 */

																									if (
																										((long) (BgL_curz00_18392)
																											== 50L))
																										{	/* Read/reader.scm 301 */
																											BgL_iportz00_18105 =
																												BgL_iportz00_18364;
																											BgL_lastzd2matchzd2_18106
																												=
																												BgL_newzd2matchzd2_18368;
																											BgL_forwardz00_18107 =
																												(1L +
																												BgL_forwardz00_18388);
																											BgL_bufposz00_18108 =
																												BgL_bufposz00_18389;
																										BgL_statezd260zd21118z00_18017:
																											if (
																												(BgL_forwardz00_18107 ==
																													BgL_bufposz00_18108))
																												{	/* Read/reader.scm 301 */
																													if (rgc_fill_buffer
																														(BgL_iportz00_18105))
																														{	/* Read/reader.scm 301 */
																															long
																																BgL_arg1541z00_18109;
																															long
																																BgL_arg1542z00_18110;
																															BgL_arg1541z00_18109
																																=
																																RGC_BUFFER_FORWARD
																																(BgL_iportz00_18105);
																															BgL_arg1542z00_18110
																																=
																																RGC_BUFFER_BUFPOS
																																(BgL_iportz00_18105);
																															if (
																																(BgL_arg1541z00_18109
																																	==
																																	BgL_arg1542z00_18110))
																																{	/* Read/reader.scm 301 */
																																	if (rgc_fill_buffer(BgL_iportz00_18105))
																																		{	/* Read/reader.scm 301 */
																																			long
																																				BgL_arg1541z00_18111;
																																			long
																																				BgL_arg1542z00_18112;
																																			BgL_arg1541z00_18111
																																				=
																																				RGC_BUFFER_FORWARD
																																				(BgL_iportz00_18105);
																																			BgL_arg1542z00_18112
																																				=
																																				RGC_BUFFER_BUFPOS
																																				(BgL_iportz00_18105);
																																			{
																																				long
																																					BgL_bufposz00_30503;
																																				long
																																					BgL_forwardz00_30502;
																																				BgL_forwardz00_30502
																																					=
																																					BgL_arg1541z00_18111;
																																				BgL_bufposz00_30503
																																					=
																																					BgL_arg1542z00_18112;
																																				BgL_bufposz00_18108
																																					=
																																					BgL_bufposz00_30503;
																																				BgL_forwardz00_18107
																																					=
																																					BgL_forwardz00_30502;
																																				goto
																																					BgL_statezd260zd21118z00_18017;
																																			}
																																		}
																																	else
																																		{	/* Read/reader.scm 301 */
																																			BgL_matchz00_18778
																																				=
																																				BgL_lastzd2matchzd2_18106;
																																		}
																																}
																															else
																																{	/* Read/reader.scm 301 */
																																	int
																																		BgL_curz00_18113;
																																	BgL_curz00_18113
																																		=
																																		RGC_BUFFER_GET_CHAR
																																		(BgL_iportz00_18105,
																																		BgL_arg1541z00_18109);
																																	{	/* Read/reader.scm 301 */

																																		if (
																																			((long)
																																				(BgL_curz00_18113)
																																				== 58L))
																																			{	/* Read/reader.scm 301 */
																																				BgL_iportz00_18477
																																					=
																																					BgL_iportz00_18105;
																																				BgL_lastzd2matchzd2_18478
																																					=
																																					BgL_lastzd2matchzd2_18106;
																																				BgL_forwardz00_18479
																																					=
																																					(1L +
																																					BgL_arg1541z00_18109);
																																				BgL_bufposz00_18480
																																					=
																																					BgL_arg1542z00_18110;
																																			BgL_statezd261zd21119z00_18058:
																																				if (
																																					(BgL_forwardz00_18479
																																						==
																																						BgL_bufposz00_18480))
																																					{	/* Read/reader.scm 301 */
																																						if (rgc_fill_buffer(BgL_iportz00_18477))
																																							{	/* Read/reader.scm 301 */
																																								long
																																									BgL_arg2082z00_18481;
																																								long
																																									BgL_arg2083z00_18482;
																																								BgL_arg2082z00_18481
																																									=
																																									RGC_BUFFER_FORWARD
																																									(BgL_iportz00_18477);
																																								BgL_arg2083z00_18482
																																									=
																																									RGC_BUFFER_BUFPOS
																																									(BgL_iportz00_18477);
																																								{
																																									long
																																										BgL_bufposz00_30515;
																																									long
																																										BgL_forwardz00_30514;
																																									BgL_forwardz00_30514
																																										=
																																										BgL_arg2082z00_18481;
																																									BgL_bufposz00_30515
																																										=
																																										BgL_arg2083z00_18482;
																																									BgL_bufposz00_18480
																																										=
																																										BgL_bufposz00_30515;
																																									BgL_forwardz00_18479
																																										=
																																										BgL_forwardz00_30514;
																																									goto
																																										BgL_statezd261zd21119z00_18058;
																																								}
																																							}
																																						else
																																							{	/* Read/reader.scm 301 */
																																								BgL_matchz00_18778
																																									=
																																									BgL_lastzd2matchzd2_18478;
																																							}
																																					}
																																				else
																																					{	/* Read/reader.scm 301 */
																																						int
																																							BgL_curz00_18483;
																																						BgL_curz00_18483
																																							=
																																							RGC_BUFFER_GET_CHAR
																																							(BgL_iportz00_18477,
																																							BgL_forwardz00_18479);
																																						{	/* Read/reader.scm 301 */

																																							{	/* Read/reader.scm 301 */
																																								bool_t
																																									BgL_test9682z00_30517;
																																								if (((long) (BgL_curz00_18483) >= 48L))
																																									{	/* Read/reader.scm 301 */
																																										BgL_test9682z00_30517
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_18483)
																																											<
																																											58L);
																																									}
																																								else
																																									{	/* Read/reader.scm 301 */
																																										BgL_test9682z00_30517
																																											=
																																											(
																																											(bool_t)
																																											0);
																																									}
																																								if (BgL_test9682z00_30517)
																																									{	/* Read/reader.scm 301 */
																																										BgL_iportz00_18430
																																											=
																																											BgL_iportz00_18477;
																																										BgL_lastzd2matchzd2_18431
																																											=
																																											BgL_lastzd2matchzd2_18478;
																																										BgL_forwardz00_18432
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_18479);
																																										BgL_bufposz00_18433
																																											=
																																											BgL_bufposz00_18480;
																																									BgL_statezd263zd21121z00_18052:
																																										{	/* Read/reader.scm 301 */
																																											long
																																												BgL_newzd2matchzd2_18434;
																																											RGC_STOP_MATCH
																																												(BgL_iportz00_18430,
																																												BgL_forwardz00_18432);
																																											BgL_newzd2matchzd2_18434
																																												=
																																												19L;
																																											if ((BgL_forwardz00_18432 == BgL_bufposz00_18433))
																																												{	/* Read/reader.scm 301 */
																																													if (rgc_fill_buffer(BgL_iportz00_18430))
																																														{	/* Read/reader.scm 301 */
																																															long
																																																BgL_arg2007z00_18435;
																																															long
																																																BgL_arg2008z00_18436;
																																															BgL_arg2007z00_18435
																																																=
																																																RGC_BUFFER_FORWARD
																																																(BgL_iportz00_18430);
																																															BgL_arg2008z00_18436
																																																=
																																																RGC_BUFFER_BUFPOS
																																																(BgL_iportz00_18430);
																																															{
																																																long
																																																	BgL_bufposz00_30531;
																																																long
																																																	BgL_forwardz00_30530;
																																																BgL_forwardz00_30530
																																																	=
																																																	BgL_arg2007z00_18435;
																																																BgL_bufposz00_30531
																																																	=
																																																	BgL_arg2008z00_18436;
																																																BgL_bufposz00_18433
																																																	=
																																																	BgL_bufposz00_30531;
																																																BgL_forwardz00_18432
																																																	=
																																																	BgL_forwardz00_30530;
																																																goto
																																																	BgL_statezd263zd21121z00_18052;
																																															}
																																														}
																																													else
																																														{	/* Read/reader.scm 301 */
																																															BgL_matchz00_18778
																																																=
																																																BgL_newzd2matchzd2_18434;
																																														}
																																												}
																																											else
																																												{	/* Read/reader.scm 301 */
																																													int
																																														BgL_curz00_18437;
																																													BgL_curz00_18437
																																														=
																																														RGC_BUFFER_GET_CHAR
																																														(BgL_iportz00_18430,
																																														BgL_forwardz00_18432);
																																													{	/* Read/reader.scm 301 */

																																														{	/* Read/reader.scm 301 */
																																															bool_t
																																																BgL_test9686z00_30533;
																																															if (((long) (BgL_curz00_18437) >= 48L))
																																																{	/* Read/reader.scm 301 */
																																																	BgL_test9686z00_30533
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_18437)
																																																		<
																																																		58L);
																																																}
																																															else
																																																{	/* Read/reader.scm 301 */
																																																	BgL_test9686z00_30533
																																																		=
																																																		(
																																																		(bool_t)
																																																		0);
																																																}
																																															if (BgL_test9686z00_30533)
																																																{
																																																	long
																																																		BgL_forwardz00_30540;
																																																	long
																																																		BgL_lastzd2matchzd2_30539;
																																																	BgL_lastzd2matchzd2_30539
																																																		=
																																																		BgL_newzd2matchzd2_18434;
																																																	BgL_forwardz00_30540
																																																		=
																																																		(1L
																																																		+
																																																		BgL_forwardz00_18432);
																																																	BgL_forwardz00_18432
																																																		=
																																																		BgL_forwardz00_30540;
																																																	BgL_lastzd2matchzd2_18431
																																																		=
																																																		BgL_lastzd2matchzd2_30539;
																																																	goto
																																																		BgL_statezd263zd21121z00_18052;
																																																}
																																															else
																																																{	/* Read/reader.scm 301 */
																																																	BgL_matchz00_18778
																																																		=
																																																		BgL_newzd2matchzd2_18434;
																																																}
																																														}
																																													}
																																												}
																																										}
																																									}
																																								else
																																									{	/* Read/reader.scm 301 */
																																										if (((long) (BgL_curz00_18483) == 45L))
																																											{	/* Read/reader.scm 301 */
																																												BgL_iportz00_18423
																																													=
																																													BgL_iportz00_18477;
																																												BgL_lastzd2matchzd2_18424
																																													=
																																													BgL_lastzd2matchzd2_18478;
																																												BgL_forwardz00_18425
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_18479);
																																												BgL_bufposz00_18426
																																													=
																																													BgL_bufposz00_18480;
																																											BgL_statezd262zd21120z00_18051:
																																												if ((BgL_forwardz00_18425 == BgL_bufposz00_18426))
																																													{	/* Read/reader.scm 301 */
																																														if (rgc_fill_buffer(BgL_iportz00_18423))
																																															{	/* Read/reader.scm 301 */
																																																long
																																																	BgL_arg1999z00_18427;
																																																long
																																																	BgL_arg2000z00_18428;
																																																BgL_arg1999z00_18427
																																																	=
																																																	RGC_BUFFER_FORWARD
																																																	(BgL_iportz00_18423);
																																																BgL_arg2000z00_18428
																																																	=
																																																	RGC_BUFFER_BUFPOS
																																																	(BgL_iportz00_18423);
																																																{
																																																	long
																																																		BgL_bufposz00_30553;
																																																	long
																																																		BgL_forwardz00_30552;
																																																	BgL_forwardz00_30552
																																																		=
																																																		BgL_arg1999z00_18427;
																																																	BgL_bufposz00_30553
																																																		=
																																																		BgL_arg2000z00_18428;
																																																	BgL_bufposz00_18426
																																																		=
																																																		BgL_bufposz00_30553;
																																																	BgL_forwardz00_18425
																																																		=
																																																		BgL_forwardz00_30552;
																																																	goto
																																																		BgL_statezd262zd21120z00_18051;
																																																}
																																															}
																																														else
																																															{	/* Read/reader.scm 301 */
																																																BgL_matchz00_18778
																																																	=
																																																	BgL_lastzd2matchzd2_18424;
																																															}
																																													}
																																												else
																																													{	/* Read/reader.scm 301 */
																																														int
																																															BgL_curz00_18429;
																																														BgL_curz00_18429
																																															=
																																															RGC_BUFFER_GET_CHAR
																																															(BgL_iportz00_18423,
																																															BgL_forwardz00_18425);
																																														{	/* Read/reader.scm 301 */

																																															{	/* Read/reader.scm 301 */
																																																bool_t
																																																	BgL_test9691z00_30555;
																																																if (((long) (BgL_curz00_18429) >= 48L))
																																																	{	/* Read/reader.scm 301 */
																																																		BgL_test9691z00_30555
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_18429)
																																																			<
																																																			58L);
																																																	}
																																																else
																																																	{	/* Read/reader.scm 301 */
																																																		BgL_test9691z00_30555
																																																			=
																																																			(
																																																			(bool_t)
																																																			0);
																																																	}
																																																if (BgL_test9691z00_30555)
																																																	{
																																																		long
																																																			BgL_bufposz00_30565;
																																																		long
																																																			BgL_forwardz00_30563;
																																																		long
																																																			BgL_lastzd2matchzd2_30562;
																																																		obj_t
																																																			BgL_iportz00_30561;
																																																		BgL_iportz00_30561
																																																			=
																																																			BgL_iportz00_18423;
																																																		BgL_lastzd2matchzd2_30562
																																																			=
																																																			BgL_lastzd2matchzd2_18424;
																																																		BgL_forwardz00_30563
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_18425);
																																																		BgL_bufposz00_30565
																																																			=
																																																			BgL_bufposz00_18426;
																																																		BgL_bufposz00_18433
																																																			=
																																																			BgL_bufposz00_30565;
																																																		BgL_forwardz00_18432
																																																			=
																																																			BgL_forwardz00_30563;
																																																		BgL_lastzd2matchzd2_18431
																																																			=
																																																			BgL_lastzd2matchzd2_30562;
																																																		BgL_iportz00_18430
																																																			=
																																																			BgL_iportz00_30561;
																																																		goto
																																																			BgL_statezd263zd21121z00_18052;
																																																	}
																																																else
																																																	{	/* Read/reader.scm 301 */
																																																		BgL_matchz00_18778
																																																			=
																																																			BgL_lastzd2matchzd2_18424;
																																																	}
																																															}
																																														}
																																													}
																																											}
																																										else
																																											{	/* Read/reader.scm 301 */
																																												BgL_matchz00_18778
																																													=
																																													BgL_lastzd2matchzd2_18478;
																																											}
																																									}
																																							}
																																						}
																																					}
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				BgL_matchz00_18778
																																					=
																																					BgL_lastzd2matchzd2_18106;
																																			}
																																	}
																																}
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															BgL_matchz00_18778
																																=
																																BgL_lastzd2matchzd2_18106;
																														}
																												}
																											else
																												{	/* Read/reader.scm 301 */
																													int BgL_curz00_18114;

																													BgL_curz00_18114 =
																														RGC_BUFFER_GET_CHAR
																														(BgL_iportz00_18105,
																														BgL_forwardz00_18107);
																													{	/* Read/reader.scm 301 */

																														if (
																															((long)
																																(BgL_curz00_18114)
																																== 58L))
																															{
																																long
																																	BgL_bufposz00_30576;
																																long
																																	BgL_forwardz00_30574;
																																long
																																	BgL_lastzd2matchzd2_30573;
																																obj_t
																																	BgL_iportz00_30572;
																																BgL_iportz00_30572
																																	=
																																	BgL_iportz00_18105;
																																BgL_lastzd2matchzd2_30573
																																	=
																																	BgL_lastzd2matchzd2_18106;
																																BgL_forwardz00_30574
																																	=
																																	(1L +
																																	BgL_forwardz00_18107);
																																BgL_bufposz00_30576
																																	=
																																	BgL_bufposz00_18108;
																																BgL_bufposz00_18480
																																	=
																																	BgL_bufposz00_30576;
																																BgL_forwardz00_18479
																																	=
																																	BgL_forwardz00_30574;
																																BgL_lastzd2matchzd2_18478
																																	=
																																	BgL_lastzd2matchzd2_30573;
																																BgL_iportz00_18477
																																	=
																																	BgL_iportz00_30572;
																																goto
																																	BgL_statezd261zd21119z00_18058;
																															}
																														else
																															{	/* Read/reader.scm 301 */
																																BgL_matchz00_18778
																																	=
																																	BgL_lastzd2matchzd2_18106;
																															}
																													}
																												}
																										}
																									else
																										{	/* Read/reader.scm 301 */
																											BgL_matchz00_18778 =
																												BgL_newzd2matchzd2_18368;
																										}
																								}
																							}
																					}
																				}
																			else
																				{	/* Read/reader.scm 301 */
																					if (
																						((long) (BgL_curz00_18371) == 49L))
																						{	/* Read/reader.scm 301 */
																							long BgL_arg1957z00_18393;

																							BgL_arg1957z00_18393 =
																								(1L + BgL_forwardz00_18366);
																							{
																								long BgL_forwardz00_18395;
																								long BgL_bufposz00_18396;

																								BgL_forwardz00_18395 =
																									BgL_arg1957z00_18393;
																								BgL_bufposz00_18396 =
																									BgL_bufposz00_18367;
																							BgL_statezd249zd21107z00_18394:
																								if (
																									(BgL_forwardz00_18395 ==
																										BgL_bufposz00_18396))
																									{	/* Read/reader.scm 301 */
																										if (rgc_fill_buffer
																											(BgL_iportz00_18364))
																											{	/* Read/reader.scm 301 */
																												long
																													BgL_arg2075z00_18397;
																												long
																													BgL_arg2076z00_18398;
																												BgL_arg2075z00_18397 =
																													RGC_BUFFER_FORWARD
																													(BgL_iportz00_18364);
																												BgL_arg2076z00_18398 =
																													RGC_BUFFER_BUFPOS
																													(BgL_iportz00_18364);
																												{
																													long
																														BgL_bufposz00_30589;
																													long
																														BgL_forwardz00_30588;
																													BgL_forwardz00_30588 =
																														BgL_arg2075z00_18397;
																													BgL_bufposz00_30589 =
																														BgL_arg2076z00_18398;
																													BgL_bufposz00_18396 =
																														BgL_bufposz00_30589;
																													BgL_forwardz00_18395 =
																														BgL_forwardz00_30588;
																													goto
																														BgL_statezd249zd21107z00_18394;
																												}
																											}
																										else
																											{	/* Read/reader.scm 301 */
																												BgL_matchz00_18778 =
																													BgL_newzd2matchzd2_18368;
																											}
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										int BgL_curz00_18399;

																										BgL_curz00_18399 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_iportz00_18364,
																											BgL_forwardz00_18395);
																										{	/* Read/reader.scm 301 */

																											if (
																												((long)
																													(BgL_curz00_18399) ==
																													54L))
																												{	/* Read/reader.scm 301 */
																													BgL_iportz00_18294 =
																														BgL_iportz00_18364;
																													BgL_lastzd2matchzd2_18295
																														=
																														BgL_newzd2matchzd2_18368;
																													BgL_forwardz00_18296 =
																														(1L +
																														BgL_forwardz00_18395);
																													BgL_bufposz00_18297 =
																														BgL_bufposz00_18396;
																												BgL_statezd264zd21122z00_18039:
																													if (
																														(BgL_forwardz00_18296
																															==
																															BgL_bufposz00_18297))
																														{	/* Read/reader.scm 301 */
																															if (rgc_fill_buffer(BgL_iportz00_18294))
																																{	/* Read/reader.scm 301 */
																																	long
																																		BgL_arg1858z00_18298;
																																	long
																																		BgL_arg1859z00_18299;
																																	BgL_arg1858z00_18298
																																		=
																																		RGC_BUFFER_FORWARD
																																		(BgL_iportz00_18294);
																																	BgL_arg1859z00_18299
																																		=
																																		RGC_BUFFER_BUFPOS
																																		(BgL_iportz00_18294);
																																	if (
																																		(BgL_arg1858z00_18298
																																			==
																																			BgL_arg1859z00_18299))
																																		{	/* Read/reader.scm 301 */
																																			if (rgc_fill_buffer(BgL_iportz00_18294))
																																				{	/* Read/reader.scm 301 */
																																					long
																																						BgL_arg1858z00_18300;
																																					long
																																						BgL_arg1859z00_18301;
																																					BgL_arg1858z00_18300
																																						=
																																						RGC_BUFFER_FORWARD
																																						(BgL_iportz00_18294);
																																					BgL_arg1859z00_18301
																																						=
																																						RGC_BUFFER_BUFPOS
																																						(BgL_iportz00_18294);
																																					{
																																						long
																																							BgL_bufposz00_30607;
																																						long
																																							BgL_forwardz00_30606;
																																						BgL_forwardz00_30606
																																							=
																																							BgL_arg1858z00_18300;
																																						BgL_bufposz00_30607
																																							=
																																							BgL_arg1859z00_18301;
																																						BgL_bufposz00_18297
																																							=
																																							BgL_bufposz00_30607;
																																						BgL_forwardz00_18296
																																							=
																																							BgL_forwardz00_30606;
																																						goto
																																							BgL_statezd264zd21122z00_18039;
																																					}
																																				}
																																			else
																																				{	/* Read/reader.scm 301 */
																																					BgL_matchz00_18778
																																						=
																																						BgL_lastzd2matchzd2_18295;
																																				}
																																		}
																																	else
																																		{	/* Read/reader.scm 301 */
																																			int
																																				BgL_curz00_18302;
																																			BgL_curz00_18302
																																				=
																																				RGC_BUFFER_GET_CHAR
																																				(BgL_iportz00_18294,
																																				BgL_arg1858z00_18298);
																																			{	/* Read/reader.scm 301 */

																																				if (
																																					((long) (BgL_curz00_18302) == 58L))
																																					{	/* Read/reader.scm 301 */
																																						BgL_iportz00_18173
																																							=
																																							BgL_iportz00_18294;
																																						BgL_lastzd2matchzd2_18174
																																							=
																																							BgL_lastzd2matchzd2_18295;
																																						BgL_forwardz00_18175
																																							=
																																							(1L
																																							+
																																							BgL_arg1858z00_18298);
																																						BgL_bufposz00_18176
																																							=
																																							BgL_arg1859z00_18299;
																																					BgL_statezd265zd21123z00_18024:
																																						if (
																																							(BgL_forwardz00_18175
																																								==
																																								BgL_bufposz00_18176))
																																							{	/* Read/reader.scm 301 */
																																								if (rgc_fill_buffer(BgL_iportz00_18173))
																																									{	/* Read/reader.scm 301 */
																																										long
																																											BgL_arg1643z00_18177;
																																										long
																																											BgL_arg1644z00_18178;
																																										BgL_arg1643z00_18177
																																											=
																																											RGC_BUFFER_FORWARD
																																											(BgL_iportz00_18173);
																																										BgL_arg1644z00_18178
																																											=
																																											RGC_BUFFER_BUFPOS
																																											(BgL_iportz00_18173);
																																										{
																																											long
																																												BgL_bufposz00_30619;
																																											long
																																												BgL_forwardz00_30618;
																																											BgL_forwardz00_30618
																																												=
																																												BgL_arg1643z00_18177;
																																											BgL_bufposz00_30619
																																												=
																																												BgL_arg1644z00_18178;
																																											BgL_bufposz00_18176
																																												=
																																												BgL_bufposz00_30619;
																																											BgL_forwardz00_18175
																																												=
																																												BgL_forwardz00_30618;
																																											goto
																																												BgL_statezd265zd21123z00_18024;
																																										}
																																									}
																																								else
																																									{	/* Read/reader.scm 301 */
																																										BgL_matchz00_18778
																																											=
																																											BgL_lastzd2matchzd2_18174;
																																									}
																																							}
																																						else
																																							{	/* Read/reader.scm 301 */
																																								int
																																									BgL_curz00_18179;
																																								BgL_curz00_18179
																																									=
																																									RGC_BUFFER_GET_CHAR
																																									(BgL_iportz00_18173,
																																									BgL_forwardz00_18175);
																																								{	/* Read/reader.scm 301 */

																																									{	/* Read/reader.scm 301 */
																																										bool_t
																																											BgL_test9705z00_30621;
																																										if (((long) (BgL_curz00_18179) >= 48L))
																																											{	/* Read/reader.scm 301 */
																																												BgL_test9705z00_30621
																																													=
																																													(
																																													(long)
																																													(BgL_curz00_18179)
																																													<
																																													58L);
																																											}
																																										else
																																											{	/* Read/reader.scm 301 */
																																												BgL_test9705z00_30621
																																													=
																																													(
																																													(bool_t)
																																													0);
																																											}
																																										if (BgL_test9705z00_30621)
																																											{	/* Read/reader.scm 301 */
																																												BgL_iportz00_18211
																																													=
																																													BgL_iportz00_18173;
																																												BgL_lastzd2matchzd2_18212
																																													=
																																													BgL_lastzd2matchzd2_18174;
																																												BgL_forwardz00_18213
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_18175);
																																												BgL_bufposz00_18214
																																													=
																																													BgL_bufposz00_18176;
																																											BgL_statezd267zd21125z00_18028:
																																												{	/* Read/reader.scm 301 */
																																													long
																																														BgL_newzd2matchzd2_18215;
																																													RGC_STOP_MATCH
																																														(BgL_iportz00_18211,
																																														BgL_forwardz00_18213);
																																													BgL_newzd2matchzd2_18215
																																														=
																																														17L;
																																													if ((BgL_forwardz00_18213 == BgL_bufposz00_18214))
																																														{	/* Read/reader.scm 301 */
																																															if (rgc_fill_buffer(BgL_iportz00_18211))
																																																{	/* Read/reader.scm 301 */
																																																	long
																																																		BgL_arg1706z00_18216;
																																																	long
																																																		BgL_arg1707z00_18217;
																																																	BgL_arg1706z00_18216
																																																		=
																																																		RGC_BUFFER_FORWARD
																																																		(BgL_iportz00_18211);
																																																	BgL_arg1707z00_18217
																																																		=
																																																		RGC_BUFFER_BUFPOS
																																																		(BgL_iportz00_18211);
																																																	{
																																																		long
																																																			BgL_bufposz00_30635;
																																																		long
																																																			BgL_forwardz00_30634;
																																																		BgL_forwardz00_30634
																																																			=
																																																			BgL_arg1706z00_18216;
																																																		BgL_bufposz00_30635
																																																			=
																																																			BgL_arg1707z00_18217;
																																																		BgL_bufposz00_18214
																																																			=
																																																			BgL_bufposz00_30635;
																																																		BgL_forwardz00_18213
																																																			=
																																																			BgL_forwardz00_30634;
																																																		goto
																																																			BgL_statezd267zd21125z00_18028;
																																																	}
																																																}
																																															else
																																																{	/* Read/reader.scm 301 */
																																																	BgL_matchz00_18778
																																																		=
																																																		BgL_newzd2matchzd2_18215;
																																																}
																																														}
																																													else
																																														{	/* Read/reader.scm 301 */
																																															int
																																																BgL_curz00_18218;
																																															BgL_curz00_18218
																																																=
																																																RGC_BUFFER_GET_CHAR
																																																(BgL_iportz00_18211,
																																																BgL_forwardz00_18213);
																																															{	/* Read/reader.scm 301 */

																																																{	/* Read/reader.scm 301 */
																																																	bool_t
																																																		BgL_test9709z00_30637;
																																																	if (((long) (BgL_curz00_18218) >= 48L))
																																																		{	/* Read/reader.scm 301 */
																																																			BgL_test9709z00_30637
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_18218)
																																																				<
																																																				58L);
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 301 */
																																																			BgL_test9709z00_30637
																																																				=
																																																				(
																																																				(bool_t)
																																																				0);
																																																		}
																																																	if (BgL_test9709z00_30637)
																																																		{
																																																			long
																																																				BgL_forwardz00_30644;
																																																			long
																																																				BgL_lastzd2matchzd2_30643;
																																																			BgL_lastzd2matchzd2_30643
																																																				=
																																																				BgL_newzd2matchzd2_18215;
																																																			BgL_forwardz00_30644
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_18213);
																																																			BgL_forwardz00_18213
																																																				=
																																																				BgL_forwardz00_30644;
																																																			BgL_lastzd2matchzd2_18212
																																																				=
																																																				BgL_lastzd2matchzd2_30643;
																																																			goto
																																																				BgL_statezd267zd21125z00_18028;
																																																		}
																																																	else
																																																		{	/* Read/reader.scm 301 */
																																																			BgL_matchz00_18778
																																																				=
																																																				BgL_newzd2matchzd2_18215;
																																																		}
																																																}
																																															}
																																														}
																																												}
																																											}
																																										else
																																											{	/* Read/reader.scm 301 */
																																												if (((long) (BgL_curz00_18179) == 45L))
																																													{	/* Read/reader.scm 301 */
																																														BgL_iportz00_18731
																																															=
																																															BgL_iportz00_18173;
																																														BgL_lastzd2matchzd2_18732
																																															=
																																															BgL_lastzd2matchzd2_18174;
																																														BgL_forwardz00_18733
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_18175);
																																														BgL_bufposz00_18734
																																															=
																																															BgL_bufposz00_18176;
																																													BgL_statezd266zd21124z00_18090:
																																														if ((BgL_forwardz00_18733 == BgL_bufposz00_18734))
																																															{	/* Read/reader.scm 301 */
																																																if (rgc_fill_buffer(BgL_iportz00_18731))
																																																	{	/* Read/reader.scm 301 */
																																																		long
																																																			BgL_arg2477z00_18735;
																																																		long
																																																			BgL_arg2478z00_18736;
																																																		BgL_arg2477z00_18735
																																																			=
																																																			RGC_BUFFER_FORWARD
																																																			(BgL_iportz00_18731);
																																																		BgL_arg2478z00_18736
																																																			=
																																																			RGC_BUFFER_BUFPOS
																																																			(BgL_iportz00_18731);
																																																		{
																																																			long
																																																				BgL_bufposz00_30657;
																																																			long
																																																				BgL_forwardz00_30656;
																																																			BgL_forwardz00_30656
																																																				=
																																																				BgL_arg2477z00_18735;
																																																			BgL_bufposz00_30657
																																																				=
																																																				BgL_arg2478z00_18736;
																																																			BgL_bufposz00_18734
																																																				=
																																																				BgL_bufposz00_30657;
																																																			BgL_forwardz00_18733
																																																				=
																																																				BgL_forwardz00_30656;
																																																			goto
																																																				BgL_statezd266zd21124z00_18090;
																																																		}
																																																	}
																																																else
																																																	{	/* Read/reader.scm 301 */
																																																		BgL_matchz00_18778
																																																			=
																																																			BgL_lastzd2matchzd2_18732;
																																																	}
																																															}
																																														else
																																															{	/* Read/reader.scm 301 */
																																																int
																																																	BgL_curz00_18737;
																																																BgL_curz00_18737
																																																	=
																																																	RGC_BUFFER_GET_CHAR
																																																	(BgL_iportz00_18731,
																																																	BgL_forwardz00_18733);
																																																{	/* Read/reader.scm 301 */

																																																	{	/* Read/reader.scm 301 */
																																																		bool_t
																																																			BgL_test9714z00_30659;
																																																		if (((long) (BgL_curz00_18737) >= 48L))
																																																			{	/* Read/reader.scm 301 */
																																																				BgL_test9714z00_30659
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_18737)
																																																					<
																																																					58L);
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 301 */
																																																				BgL_test9714z00_30659
																																																					=
																																																					(
																																																					(bool_t)
																																																					0);
																																																			}
																																																		if (BgL_test9714z00_30659)
																																																			{
																																																				long
																																																					BgL_bufposz00_30669;
																																																				long
																																																					BgL_forwardz00_30667;
																																																				long
																																																					BgL_lastzd2matchzd2_30666;
																																																				obj_t
																																																					BgL_iportz00_30665;
																																																				BgL_iportz00_30665
																																																					=
																																																					BgL_iportz00_18731;
																																																				BgL_lastzd2matchzd2_30666
																																																					=
																																																					BgL_lastzd2matchzd2_18732;
																																																				BgL_forwardz00_30667
																																																					=
																																																					(1L
																																																					+
																																																					BgL_forwardz00_18733);
																																																				BgL_bufposz00_30669
																																																					=
																																																					BgL_bufposz00_18734;
																																																				BgL_bufposz00_18214
																																																					=
																																																					BgL_bufposz00_30669;
																																																				BgL_forwardz00_18213
																																																					=
																																																					BgL_forwardz00_30667;
																																																				BgL_lastzd2matchzd2_18212
																																																					=
																																																					BgL_lastzd2matchzd2_30666;
																																																				BgL_iportz00_18211
																																																					=
																																																					BgL_iportz00_30665;
																																																				goto
																																																					BgL_statezd267zd21125z00_18028;
																																																			}
																																																		else
																																																			{	/* Read/reader.scm 301 */
																																																				BgL_matchz00_18778
																																																					=
																																																					BgL_lastzd2matchzd2_18732;
																																																			}
																																																	}
																																																}
																																															}
																																													}
																																												else
																																													{	/* Read/reader.scm 301 */
																																														BgL_matchz00_18778
																																															=
																																															BgL_lastzd2matchzd2_18174;
																																													}
																																											}
																																									}
																																								}
																																							}
																																					}
																																				else
																																					{	/* Read/reader.scm 301 */
																																						BgL_matchz00_18778
																																							=
																																							BgL_lastzd2matchzd2_18295;
																																					}
																																			}
																																		}
																																}
																															else
																																{	/* Read/reader.scm 301 */
																																	BgL_matchz00_18778
																																		=
																																		BgL_lastzd2matchzd2_18295;
																																}
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															int
																																BgL_curz00_18303;
																															BgL_curz00_18303 =
																																RGC_BUFFER_GET_CHAR
																																(BgL_iportz00_18294,
																																BgL_forwardz00_18296);
																															{	/* Read/reader.scm 301 */

																																if (
																																	((long)
																																		(BgL_curz00_18303)
																																		== 58L))
																																	{
																																		long
																																			BgL_bufposz00_30680;
																																		long
																																			BgL_forwardz00_30678;
																																		long
																																			BgL_lastzd2matchzd2_30677;
																																		obj_t
																																			BgL_iportz00_30676;
																																		BgL_iportz00_30676
																																			=
																																			BgL_iportz00_18294;
																																		BgL_lastzd2matchzd2_30677
																																			=
																																			BgL_lastzd2matchzd2_18295;
																																		BgL_forwardz00_30678
																																			=
																																			(1L +
																																			BgL_forwardz00_18296);
																																		BgL_bufposz00_30680
																																			=
																																			BgL_bufposz00_18297;
																																		BgL_bufposz00_18176
																																			=
																																			BgL_bufposz00_30680;
																																		BgL_forwardz00_18175
																																			=
																																			BgL_forwardz00_30678;
																																		BgL_lastzd2matchzd2_18174
																																			=
																																			BgL_lastzd2matchzd2_30677;
																																		BgL_iportz00_18173
																																			=
																																			BgL_iportz00_30676;
																																		goto
																																			BgL_statezd265zd21123z00_18024;
																																	}
																																else
																																	{	/* Read/reader.scm 301 */
																																		BgL_matchz00_18778
																																			=
																																			BgL_lastzd2matchzd2_18295;
																																	}
																															}
																														}
																												}
																											else
																												{	/* Read/reader.scm 301 */
																													BgL_matchz00_18778 =
																														BgL_newzd2matchzd2_18368;
																												}
																										}
																									}
																							}
																						}
																					else
																						{	/* Read/reader.scm 301 */
																							BgL_matchz00_18778 =
																								BgL_newzd2matchzd2_18368;
																						}
																				}
																		}
																}
														}
													}
											}
											break;
										case 111L:

											BgL_iportz00_18668 = BgL_iportz00_18155;
											BgL_lastzd2matchzd2_18669 = BgL_lastzd2matchzd2_18156;
											BgL_forwardz00_18670 = (1L + BgL_forwardz00_18157);
											BgL_bufposz00_18671 = BgL_bufposz00_18158;
										BgL_statezd210zd21068z00_18082:
											{	/* Read/reader.scm 301 */
												long BgL_newzd2matchzd2_18672;

												RGC_STOP_MATCH(BgL_iportz00_18668,
													BgL_forwardz00_18670);
												BgL_newzd2matchzd2_18672 = 25L;
												if ((BgL_forwardz00_18670 == BgL_bufposz00_18671))
													{	/* Read/reader.scm 301 */
														if (rgc_fill_buffer(BgL_iportz00_18668))
															{	/* Read/reader.scm 301 */
																long BgL_arg2378z00_18673;
																long BgL_arg2379z00_18674;

																BgL_arg2378z00_18673 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_18668);
																BgL_arg2379z00_18674 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_18668);
																{
																	long BgL_bufposz00_30691;
																	long BgL_forwardz00_30690;

																	BgL_forwardz00_30690 = BgL_arg2378z00_18673;
																	BgL_bufposz00_30691 = BgL_arg2379z00_18674;
																	BgL_bufposz00_18671 = BgL_bufposz00_30691;
																	BgL_forwardz00_18670 = BgL_forwardz00_30690;
																	goto BgL_statezd210zd21068z00_18082;
																}
															}
														else
															{	/* Read/reader.scm 301 */
																BgL_matchz00_18778 = BgL_newzd2matchzd2_18672;
															}
													}
												else
													{	/* Read/reader.scm 301 */
														int BgL_curz00_18675;

														BgL_curz00_18675 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_18668,
															BgL_forwardz00_18670);
														{	/* Read/reader.scm 301 */

															{	/* Read/reader.scm 301 */
																bool_t BgL_test9719z00_30693;

																if (((long) (BgL_curz00_18675) >= 48L))
																	{	/* Read/reader.scm 301 */
																		BgL_test9719z00_30693 =
																			((long) (BgL_curz00_18675) < 56L);
																	}
																else
																	{	/* Read/reader.scm 301 */
																		BgL_test9719z00_30693 = ((bool_t) 0);
																	}
																if (BgL_test9719z00_30693)
																	{	/* Read/reader.scm 301 */
																		BgL_iportz00_18408 = BgL_iportz00_18668;
																		BgL_lastzd2matchzd2_18409 =
																			BgL_newzd2matchzd2_18672;
																		BgL_forwardz00_18410 =
																			(1L + BgL_forwardz00_18670);
																		BgL_bufposz00_18411 = BgL_bufposz00_18671;
																	BgL_statezd269zd21127z00_18049:
																		{	/* Read/reader.scm 301 */
																			long BgL_newzd2matchzd2_18412;

																			RGC_STOP_MATCH(BgL_iportz00_18408,
																				BgL_forwardz00_18410);
																			BgL_newzd2matchzd2_18412 = 5L;
																			if (
																				(BgL_forwardz00_18410 ==
																					BgL_bufposz00_18411))
																				{	/* Read/reader.scm 301 */
																					if (rgc_fill_buffer
																						(BgL_iportz00_18408))
																						{	/* Read/reader.scm 301 */
																							long BgL_arg1983z00_18413;
																							long BgL_arg1984z00_18414;

																							BgL_arg1983z00_18413 =
																								RGC_BUFFER_FORWARD
																								(BgL_iportz00_18408);
																							BgL_arg1984z00_18414 =
																								RGC_BUFFER_BUFPOS
																								(BgL_iportz00_18408);
																							{
																								long BgL_bufposz00_30707;
																								long BgL_forwardz00_30706;

																								BgL_forwardz00_30706 =
																									BgL_arg1983z00_18413;
																								BgL_bufposz00_30707 =
																									BgL_arg1984z00_18414;
																								BgL_bufposz00_18411 =
																									BgL_bufposz00_30707;
																								BgL_forwardz00_18410 =
																									BgL_forwardz00_30706;
																								goto
																									BgL_statezd269zd21127z00_18049;
																							}
																						}
																					else
																						{	/* Read/reader.scm 301 */
																							BgL_matchz00_18778 =
																								BgL_newzd2matchzd2_18412;
																						}
																				}
																			else
																				{	/* Read/reader.scm 301 */
																					int BgL_curz00_18415;

																					BgL_curz00_18415 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_iportz00_18408,
																						BgL_forwardz00_18410);
																					{	/* Read/reader.scm 301 */

																						{	/* Read/reader.scm 301 */
																							bool_t BgL_test9723z00_30709;

																							if (
																								((long) (BgL_curz00_18415) >=
																									48L))
																								{	/* Read/reader.scm 301 */
																									BgL_test9723z00_30709 =
																										(
																										(long) (BgL_curz00_18415) <
																										56L);
																								}
																							else
																								{	/* Read/reader.scm 301 */
																									BgL_test9723z00_30709 =
																										((bool_t) 0);
																								}
																							if (BgL_test9723z00_30709)
																								{
																									long BgL_forwardz00_30716;
																									long
																										BgL_lastzd2matchzd2_30715;
																									BgL_lastzd2matchzd2_30715 =
																										BgL_newzd2matchzd2_18412;
																									BgL_forwardz00_30716 =
																										(1L + BgL_forwardz00_18410);
																									BgL_forwardz00_18410 =
																										BgL_forwardz00_30716;
																									BgL_lastzd2matchzd2_18409 =
																										BgL_lastzd2matchzd2_30715;
																									goto
																										BgL_statezd269zd21127z00_18049;
																								}
																							else
																								{	/* Read/reader.scm 301 */
																									BgL_matchz00_18778 =
																										BgL_newzd2matchzd2_18412;
																								}
																						}
																					}
																				}
																		}
																	}
																else
																	{	/* Read/reader.scm 301 */
																		bool_t BgL_test9725z00_30719;

																		if (((long) (BgL_curz00_18675) == 43L))
																			{	/* Read/reader.scm 301 */
																				BgL_test9725z00_30719 = ((bool_t) 1);
																			}
																		else
																			{	/* Read/reader.scm 301 */
																				BgL_test9725z00_30719 =
																					((long) (BgL_curz00_18675) == 45L);
																			}
																		if (BgL_test9725z00_30719)
																			{	/* Read/reader.scm 301 */
																				BgL_iportz00_18484 = BgL_iportz00_18668;
																				BgL_lastzd2matchzd2_18485 =
																					BgL_newzd2matchzd2_18672;
																				BgL_forwardz00_18486 =
																					(1L + BgL_forwardz00_18670);
																				BgL_bufposz00_18487 =
																					BgL_bufposz00_18671;
																			BgL_statezd268zd21126z00_18059:
																				if (
																					(BgL_forwardz00_18486 ==
																						BgL_bufposz00_18487))
																					{	/* Read/reader.scm 301 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_18484))
																							{	/* Read/reader.scm 301 */
																								long BgL_arg2092z00_18488;
																								long BgL_arg2093z00_18489;

																								BgL_arg2092z00_18488 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_18484);
																								BgL_arg2093z00_18489 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_18484);
																								{
																									long BgL_bufposz00_30732;
																									long BgL_forwardz00_30731;

																									BgL_forwardz00_30731 =
																										BgL_arg2092z00_18488;
																									BgL_bufposz00_30732 =
																										BgL_arg2093z00_18489;
																									BgL_bufposz00_18487 =
																										BgL_bufposz00_30732;
																									BgL_forwardz00_18486 =
																										BgL_forwardz00_30731;
																									goto
																										BgL_statezd268zd21126z00_18059;
																								}
																							}
																						else
																							{	/* Read/reader.scm 301 */
																								BgL_matchz00_18778 =
																									BgL_lastzd2matchzd2_18485;
																							}
																					}
																				else
																					{	/* Read/reader.scm 301 */
																						int BgL_curz00_18490;

																						BgL_curz00_18490 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_18484,
																							BgL_forwardz00_18486);
																						{	/* Read/reader.scm 301 */

																							{	/* Read/reader.scm 301 */
																								bool_t BgL_test9729z00_30734;

																								if (
																									((long) (BgL_curz00_18490) >=
																										48L))
																									{	/* Read/reader.scm 301 */
																										BgL_test9729z00_30734 =
																											(
																											(long) (BgL_curz00_18490)
																											< 56L);
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										BgL_test9729z00_30734 =
																											((bool_t) 0);
																									}
																								if (BgL_test9729z00_30734)
																									{
																										long BgL_bufposz00_30744;
																										long BgL_forwardz00_30742;
																										long
																											BgL_lastzd2matchzd2_30741;
																										obj_t BgL_iportz00_30740;

																										BgL_iportz00_30740 =
																											BgL_iportz00_18484;
																										BgL_lastzd2matchzd2_30741 =
																											BgL_lastzd2matchzd2_18485;
																										BgL_forwardz00_30742 =
																											(1L +
																											BgL_forwardz00_18486);
																										BgL_bufposz00_30744 =
																											BgL_bufposz00_18487;
																										BgL_bufposz00_18411 =
																											BgL_bufposz00_30744;
																										BgL_forwardz00_18410 =
																											BgL_forwardz00_30742;
																										BgL_lastzd2matchzd2_18409 =
																											BgL_lastzd2matchzd2_30741;
																										BgL_iportz00_18408 =
																											BgL_iportz00_30740;
																										goto
																											BgL_statezd269zd21127z00_18049;
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										BgL_matchz00_18778 =
																											BgL_lastzd2matchzd2_18485;
																									}
																							}
																						}
																					}
																			}
																		else
																			{	/* Read/reader.scm 301 */
																				BgL_matchz00_18778 =
																					BgL_newzd2matchzd2_18672;
																			}
																	}
															}
														}
													}
											}
											break;
										case 108L:

											BgL_iportz00_18400 = BgL_iportz00_18155;
											BgL_lastzd2matchzd2_18401 = BgL_lastzd2matchzd2_18156;
											BgL_forwardz00_18402 = (1L + BgL_forwardz00_18157);
											BgL_bufposz00_18403 = BgL_bufposz00_18158;
										BgL_statezd29zd21067z00_18048:
											{	/* Read/reader.scm 301 */
												long BgL_newzd2matchzd2_18404;

												RGC_STOP_MATCH(BgL_iportz00_18400,
													BgL_forwardz00_18402);
												BgL_newzd2matchzd2_18404 = 25L;
												if ((BgL_forwardz00_18402 == BgL_bufposz00_18403))
													{	/* Read/reader.scm 301 */
														if (rgc_fill_buffer(BgL_iportz00_18400))
															{	/* Read/reader.scm 301 */
																long BgL_arg1961z00_18405;
																long BgL_arg1962z00_18406;

																BgL_arg1961z00_18405 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_18400);
																BgL_arg1962z00_18406 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_18400);
																{
																	long BgL_bufposz00_30755;
																	long BgL_forwardz00_30754;

																	BgL_forwardz00_30754 = BgL_arg1961z00_18405;
																	BgL_bufposz00_30755 = BgL_arg1962z00_18406;
																	BgL_bufposz00_18403 = BgL_bufposz00_30755;
																	BgL_forwardz00_18402 = BgL_forwardz00_30754;
																	goto BgL_statezd29zd21067z00_18048;
																}
															}
														else
															{	/* Read/reader.scm 301 */
																BgL_matchz00_18778 = BgL_newzd2matchzd2_18404;
															}
													}
												else
													{	/* Read/reader.scm 301 */
														int BgL_curz00_18407;

														BgL_curz00_18407 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_18400,
															BgL_forwardz00_18402);
														{	/* Read/reader.scm 301 */

															if (((long) (BgL_curz00_18407) == 120L))
																{	/* Read/reader.scm 301 */
																	BgL_iportz00_18530 = BgL_iportz00_18400;
																	BgL_lastzd2matchzd2_18531 =
																		BgL_newzd2matchzd2_18404;
																	BgL_forwardz00_18532 =
																		(1L + BgL_forwardz00_18402);
																	BgL_bufposz00_18533 = BgL_bufposz00_18403;
																BgL_statezd272zd21130z00_18065:
																	if (
																		(BgL_forwardz00_18532 ==
																			BgL_bufposz00_18533))
																		{	/* Read/reader.scm 301 */
																			if (rgc_fill_buffer(BgL_iportz00_18530))
																				{	/* Read/reader.scm 301 */
																					long BgL_arg2146z00_18534;
																					long BgL_arg2147z00_18535;

																					BgL_arg2146z00_18534 =
																						RGC_BUFFER_FORWARD
																						(BgL_iportz00_18530);
																					BgL_arg2147z00_18535 =
																						RGC_BUFFER_BUFPOS
																						(BgL_iportz00_18530);
																					{
																						long BgL_bufposz00_30767;
																						long BgL_forwardz00_30766;

																						BgL_forwardz00_30766 =
																							BgL_arg2146z00_18534;
																						BgL_bufposz00_30767 =
																							BgL_arg2147z00_18535;
																						BgL_bufposz00_18533 =
																							BgL_bufposz00_30767;
																						BgL_forwardz00_18532 =
																							BgL_forwardz00_30766;
																						goto BgL_statezd272zd21130z00_18065;
																					}
																				}
																			else
																				{	/* Read/reader.scm 301 */
																					BgL_matchz00_18778 =
																						BgL_lastzd2matchzd2_18531;
																				}
																		}
																	else
																		{	/* Read/reader.scm 301 */
																			int BgL_curz00_18536;

																			BgL_curz00_18536 =
																				RGC_BUFFER_GET_CHAR(BgL_iportz00_18530,
																				BgL_forwardz00_18532);
																			{	/* Read/reader.scm 301 */

																				{	/* Read/reader.scm 301 */
																					bool_t BgL_test9736z00_30769;

																					{	/* Read/reader.scm 301 */
																						bool_t BgL_test9737z00_30770;

																						if (
																							((long) (BgL_curz00_18536) >=
																								48L))
																							{	/* Read/reader.scm 301 */
																								BgL_test9737z00_30770 =
																									(
																									(long) (BgL_curz00_18536) <
																									58L);
																							}
																						else
																							{	/* Read/reader.scm 301 */
																								BgL_test9737z00_30770 =
																									((bool_t) 0);
																							}
																						if (BgL_test9737z00_30770)
																							{	/* Read/reader.scm 301 */
																								BgL_test9736z00_30769 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Read/reader.scm 301 */
																								bool_t BgL_test9739z00_30776;

																								if (
																									((long) (BgL_curz00_18536) >=
																										65L))
																									{	/* Read/reader.scm 301 */
																										BgL_test9739z00_30776 =
																											(
																											(long) (BgL_curz00_18536)
																											< 71L);
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										BgL_test9739z00_30776 =
																											((bool_t) 0);
																									}
																								if (BgL_test9739z00_30776)
																									{	/* Read/reader.scm 301 */
																										BgL_test9736z00_30769 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										if (
																											((long) (BgL_curz00_18536)
																												>= 97L))
																											{	/* Read/reader.scm 301 */
																												BgL_test9736z00_30769 =
																													(
																													(long)
																													(BgL_curz00_18536) <
																													103L);
																											}
																										else
																											{	/* Read/reader.scm 301 */
																												BgL_test9736z00_30769 =
																													((bool_t) 0);
																											}
																									}
																							}
																					}
																					if (BgL_test9736z00_30769)
																						{	/* Read/reader.scm 301 */
																							BgL_iportz00_18691 =
																								BgL_iportz00_18530;
																							BgL_lastzd2matchzd2_18692 =
																								BgL_lastzd2matchzd2_18531;
																							BgL_forwardz00_18693 =
																								(1L + BgL_forwardz00_18532);
																							BgL_bufposz00_18694 =
																								BgL_bufposz00_18533;
																						BgL_statezd273zd21131z00_18085:
																							{	/* Read/reader.scm 301 */
																								long BgL_newzd2matchzd2_18695;

																								RGC_STOP_MATCH
																									(BgL_iportz00_18691,
																									BgL_forwardz00_18693);
																								BgL_newzd2matchzd2_18695 = 10L;
																								if (
																									(BgL_forwardz00_18693 ==
																										BgL_bufposz00_18694))
																									{	/* Read/reader.scm 301 */
																										if (rgc_fill_buffer
																											(BgL_iportz00_18691))
																											{	/* Read/reader.scm 301 */
																												long
																													BgL_arg2412z00_18696;
																												long
																													BgL_arg2413z00_18697;
																												BgL_arg2412z00_18696 =
																													RGC_BUFFER_FORWARD
																													(BgL_iportz00_18691);
																												BgL_arg2413z00_18697 =
																													RGC_BUFFER_BUFPOS
																													(BgL_iportz00_18691);
																												{
																													long
																														BgL_bufposz00_30795;
																													long
																														BgL_forwardz00_30794;
																													BgL_forwardz00_30794 =
																														BgL_arg2412z00_18696;
																													BgL_bufposz00_30795 =
																														BgL_arg2413z00_18697;
																													BgL_bufposz00_18694 =
																														BgL_bufposz00_30795;
																													BgL_forwardz00_18693 =
																														BgL_forwardz00_30794;
																													goto
																														BgL_statezd273zd21131z00_18085;
																												}
																											}
																										else
																											{	/* Read/reader.scm 301 */
																												BgL_matchz00_18778 =
																													BgL_newzd2matchzd2_18695;
																											}
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										int BgL_curz00_18698;

																										BgL_curz00_18698 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_iportz00_18691,
																											BgL_forwardz00_18693);
																										{	/* Read/reader.scm 301 */

																											{	/* Read/reader.scm 301 */
																												bool_t
																													BgL_test9744z00_30797;
																												{	/* Read/reader.scm 301 */
																													bool_t
																														BgL_test9745z00_30798;
																													if (((long)
																															(BgL_curz00_18698)
																															>= 48L))
																														{	/* Read/reader.scm 301 */
																															BgL_test9745z00_30798
																																=
																																((long)
																																(BgL_curz00_18698)
																																< 58L);
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															BgL_test9745z00_30798
																																= ((bool_t) 0);
																														}
																													if (BgL_test9745z00_30798)
																														{	/* Read/reader.scm 301 */
																															BgL_test9744z00_30797
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															bool_t
																																BgL_test9747z00_30804;
																															if (((long)
																																	(BgL_curz00_18698)
																																	>= 65L))
																																{	/* Read/reader.scm 301 */
																																	BgL_test9747z00_30804
																																		=
																																		((long)
																																		(BgL_curz00_18698)
																																		< 71L);
																																}
																															else
																																{	/* Read/reader.scm 301 */
																																	BgL_test9747z00_30804
																																		=
																																		((bool_t)
																																		0);
																																}
																															if (BgL_test9747z00_30804)
																																{	/* Read/reader.scm 301 */
																																	BgL_test9744z00_30797
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 301 */
																																	if (
																																		((long)
																																			(BgL_curz00_18698)
																																			>= 97L))
																																		{	/* Read/reader.scm 301 */
																																			BgL_test9744z00_30797
																																				=
																																				((long)
																																				(BgL_curz00_18698)
																																				< 103L);
																																		}
																																	else
																																		{	/* Read/reader.scm 301 */
																																			BgL_test9744z00_30797
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																}
																														}
																												}
																												if (BgL_test9744z00_30797)
																													{
																														long
																															BgL_forwardz00_30816;
																														long
																															BgL_lastzd2matchzd2_30815;
																														BgL_lastzd2matchzd2_30815
																															=
																															BgL_newzd2matchzd2_18695;
																														BgL_forwardz00_30816
																															=
																															(1L +
																															BgL_forwardz00_18693);
																														BgL_forwardz00_18693
																															=
																															BgL_forwardz00_30816;
																														BgL_lastzd2matchzd2_18692
																															=
																															BgL_lastzd2matchzd2_30815;
																														goto
																															BgL_statezd273zd21131z00_18085;
																													}
																												else
																													{	/* Read/reader.scm 301 */
																														BgL_matchz00_18778 =
																															BgL_newzd2matchzd2_18695;
																													}
																											}
																										}
																									}
																							}
																						}
																					else
																						{	/* Read/reader.scm 301 */
																							BgL_matchz00_18778 =
																								BgL_lastzd2matchzd2_18531;
																						}
																				}
																			}
																		}
																}
															else
																{	/* Read/reader.scm 301 */
																	bool_t BgL_test9750z00_30820;

																	if (((long) (BgL_curz00_18407) >= 48L))
																		{	/* Read/reader.scm 301 */
																			BgL_test9750z00_30820 =
																				((long) (BgL_curz00_18407) < 58L);
																		}
																	else
																		{	/* Read/reader.scm 301 */
																			BgL_test9750z00_30820 = ((bool_t) 0);
																		}
																	if (BgL_test9750z00_30820)
																		{	/* Read/reader.scm 301 */
																			BgL_iportz00_18584 = BgL_iportz00_18400;
																			BgL_lastzd2matchzd2_18585 =
																				BgL_newzd2matchzd2_18404;
																			BgL_forwardz00_18586 =
																				(1L + BgL_forwardz00_18402);
																			BgL_bufposz00_18587 = BgL_bufposz00_18403;
																		BgL_statezd271zd21129z00_18072:
																			{	/* Read/reader.scm 301 */
																				long BgL_newzd2matchzd2_18588;

																				RGC_STOP_MATCH(BgL_iportz00_18584,
																					BgL_forwardz00_18586);
																				BgL_newzd2matchzd2_18588 = 9L;
																				if (
																					(BgL_forwardz00_18586 ==
																						BgL_bufposz00_18587))
																					{	/* Read/reader.scm 301 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_18584))
																							{	/* Read/reader.scm 301 */
																								long BgL_arg2229z00_18589;
																								long BgL_arg2230z00_18590;

																								BgL_arg2229z00_18589 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_18584);
																								BgL_arg2230z00_18590 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_18584);
																								{
																									long BgL_bufposz00_30834;
																									long BgL_forwardz00_30833;

																									BgL_forwardz00_30833 =
																										BgL_arg2229z00_18589;
																									BgL_bufposz00_30834 =
																										BgL_arg2230z00_18590;
																									BgL_bufposz00_18587 =
																										BgL_bufposz00_30834;
																									BgL_forwardz00_18586 =
																										BgL_forwardz00_30833;
																									goto
																										BgL_statezd271zd21129z00_18072;
																								}
																							}
																						else
																							{	/* Read/reader.scm 301 */
																								BgL_matchz00_18778 =
																									BgL_newzd2matchzd2_18588;
																							}
																					}
																				else
																					{	/* Read/reader.scm 301 */
																						int BgL_curz00_18591;

																						BgL_curz00_18591 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_18584,
																							BgL_forwardz00_18586);
																						{	/* Read/reader.scm 301 */

																							{	/* Read/reader.scm 301 */
																								bool_t BgL_test9754z00_30836;

																								if (
																									((long) (BgL_curz00_18591) >=
																										48L))
																									{	/* Read/reader.scm 301 */
																										BgL_test9754z00_30836 =
																											(
																											(long) (BgL_curz00_18591)
																											< 58L);
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										BgL_test9754z00_30836 =
																											((bool_t) 0);
																									}
																								if (BgL_test9754z00_30836)
																									{
																										long BgL_forwardz00_30843;
																										long
																											BgL_lastzd2matchzd2_30842;
																										BgL_lastzd2matchzd2_30842 =
																											BgL_newzd2matchzd2_18588;
																										BgL_forwardz00_30843 =
																											(1L +
																											BgL_forwardz00_18586);
																										BgL_forwardz00_18586 =
																											BgL_forwardz00_30843;
																										BgL_lastzd2matchzd2_18585 =
																											BgL_lastzd2matchzd2_30842;
																										goto
																											BgL_statezd271zd21129z00_18072;
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										BgL_matchz00_18778 =
																											BgL_newzd2matchzd2_18588;
																									}
																							}
																						}
																					}
																			}
																		}
																	else
																		{	/* Read/reader.scm 301 */
																			bool_t BgL_test9756z00_30846;

																			if (((long) (BgL_curz00_18407) == 43L))
																				{	/* Read/reader.scm 301 */
																					BgL_test9756z00_30846 = ((bool_t) 1);
																				}
																			else
																				{	/* Read/reader.scm 301 */
																					BgL_test9756z00_30846 =
																						((long) (BgL_curz00_18407) == 45L);
																				}
																			if (BgL_test9756z00_30846)
																				{	/* Read/reader.scm 301 */
																					BgL_iportz00_18287 =
																						BgL_iportz00_18400;
																					BgL_lastzd2matchzd2_18288 =
																						BgL_newzd2matchzd2_18404;
																					BgL_forwardz00_18289 =
																						(1L + BgL_forwardz00_18402);
																					BgL_bufposz00_18290 =
																						BgL_bufposz00_18403;
																				BgL_statezd270zd21128z00_18038:
																					if (
																						(BgL_forwardz00_18289 ==
																							BgL_bufposz00_18290))
																						{	/* Read/reader.scm 301 */
																							if (rgc_fill_buffer
																								(BgL_iportz00_18287))
																								{	/* Read/reader.scm 301 */
																									long BgL_arg1849z00_18291;
																									long BgL_arg1851z00_18292;

																									BgL_arg1849z00_18291 =
																										RGC_BUFFER_FORWARD
																										(BgL_iportz00_18287);
																									BgL_arg1851z00_18292 =
																										RGC_BUFFER_BUFPOS
																										(BgL_iportz00_18287);
																									{
																										long BgL_bufposz00_30859;
																										long BgL_forwardz00_30858;

																										BgL_forwardz00_30858 =
																											BgL_arg1849z00_18291;
																										BgL_bufposz00_30859 =
																											BgL_arg1851z00_18292;
																										BgL_bufposz00_18290 =
																											BgL_bufposz00_30859;
																										BgL_forwardz00_18289 =
																											BgL_forwardz00_30858;
																										goto
																											BgL_statezd270zd21128z00_18038;
																									}
																								}
																							else
																								{	/* Read/reader.scm 301 */
																									BgL_matchz00_18778 =
																										BgL_lastzd2matchzd2_18288;
																								}
																						}
																					else
																						{	/* Read/reader.scm 301 */
																							int BgL_curz00_18293;

																							BgL_curz00_18293 =
																								RGC_BUFFER_GET_CHAR
																								(BgL_iportz00_18287,
																								BgL_forwardz00_18289);
																							{	/* Read/reader.scm 301 */

																								{	/* Read/reader.scm 301 */
																									bool_t BgL_test9760z00_30861;

																									if (
																										((long) (BgL_curz00_18293)
																											>= 48L))
																										{	/* Read/reader.scm 301 */
																											BgL_test9760z00_30861 =
																												(
																												(long)
																												(BgL_curz00_18293) <
																												58L);
																										}
																									else
																										{	/* Read/reader.scm 301 */
																											BgL_test9760z00_30861 =
																												((bool_t) 0);
																										}
																									if (BgL_test9760z00_30861)
																										{
																											long BgL_bufposz00_30871;
																											long BgL_forwardz00_30869;
																											long
																												BgL_lastzd2matchzd2_30868;
																											obj_t BgL_iportz00_30867;

																											BgL_iportz00_30867 =
																												BgL_iportz00_18287;
																											BgL_lastzd2matchzd2_30868
																												=
																												BgL_lastzd2matchzd2_18288;
																											BgL_forwardz00_30869 =
																												(1L +
																												BgL_forwardz00_18289);
																											BgL_bufposz00_30871 =
																												BgL_bufposz00_18290;
																											BgL_bufposz00_18587 =
																												BgL_bufposz00_30871;
																											BgL_forwardz00_18586 =
																												BgL_forwardz00_30869;
																											BgL_lastzd2matchzd2_18585
																												=
																												BgL_lastzd2matchzd2_30868;
																											BgL_iportz00_18584 =
																												BgL_iportz00_30867;
																											goto
																												BgL_statezd271zd21129z00_18072;
																										}
																									else
																										{	/* Read/reader.scm 301 */
																											BgL_matchz00_18778 =
																												BgL_lastzd2matchzd2_18288;
																										}
																								}
																							}
																						}
																				}
																			else
																				{	/* Read/reader.scm 301 */
																					BgL_matchz00_18778 =
																						BgL_newzd2matchzd2_18404;
																				}
																		}
																}
														}
													}
											}
											break;
										case 101L:

											BgL_iportz00_18592 = BgL_iportz00_18155;
											BgL_lastzd2matchzd2_18593 = BgL_lastzd2matchzd2_18156;
											BgL_forwardz00_18594 = (1L + BgL_forwardz00_18157);
											BgL_bufposz00_18595 = BgL_bufposz00_18158;
										BgL_statezd28zd21066z00_18073:
											{	/* Read/reader.scm 301 */
												long BgL_newzd2matchzd2_18596;

												RGC_STOP_MATCH(BgL_iportz00_18592,
													BgL_forwardz00_18594);
												BgL_newzd2matchzd2_18596 = 25L;
												if ((BgL_forwardz00_18594 == BgL_bufposz00_18595))
													{	/* Read/reader.scm 301 */
														if (rgc_fill_buffer(BgL_iportz00_18592))
															{	/* Read/reader.scm 301 */
																long BgL_arg2237z00_18597;
																long BgL_arg2238z00_18598;

																BgL_arg2237z00_18597 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_18592);
																BgL_arg2238z00_18598 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_18592);
																{
																	long BgL_bufposz00_30882;
																	long BgL_forwardz00_30881;

																	BgL_forwardz00_30881 = BgL_arg2237z00_18597;
																	BgL_bufposz00_30882 = BgL_arg2238z00_18598;
																	BgL_bufposz00_18595 = BgL_bufposz00_30882;
																	BgL_forwardz00_18594 = BgL_forwardz00_30881;
																	goto BgL_statezd28zd21066z00_18073;
																}
															}
														else
															{	/* Read/reader.scm 301 */
																BgL_matchz00_18778 = BgL_newzd2matchzd2_18596;
															}
													}
												else
													{	/* Read/reader.scm 301 */
														int BgL_curz00_18599;

														BgL_curz00_18599 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_18592,
															BgL_forwardz00_18594);
														{	/* Read/reader.scm 301 */

															if (((long) (BgL_curz00_18599) == 120L))
																{	/* Read/reader.scm 301 */
																	BgL_iportz00_18633 = BgL_iportz00_18592;
																	BgL_lastzd2matchzd2_18634 =
																		BgL_newzd2matchzd2_18596;
																	BgL_forwardz00_18635 =
																		(1L + BgL_forwardz00_18594);
																	BgL_bufposz00_18636 = BgL_bufposz00_18595;
																BgL_statezd277zd21135z00_18078:
																	if (
																		(BgL_forwardz00_18635 ==
																			BgL_bufposz00_18636))
																		{	/* Read/reader.scm 301 */
																			if (rgc_fill_buffer(BgL_iportz00_18633))
																				{	/* Read/reader.scm 301 */
																					long BgL_arg2316z00_18637;
																					long BgL_arg2318z00_18638;

																					BgL_arg2316z00_18637 =
																						RGC_BUFFER_FORWARD
																						(BgL_iportz00_18633);
																					BgL_arg2318z00_18638 =
																						RGC_BUFFER_BUFPOS
																						(BgL_iportz00_18633);
																					{
																						long BgL_bufposz00_30894;
																						long BgL_forwardz00_30893;

																						BgL_forwardz00_30893 =
																							BgL_arg2316z00_18637;
																						BgL_bufposz00_30894 =
																							BgL_arg2318z00_18638;
																						BgL_bufposz00_18636 =
																							BgL_bufposz00_30894;
																						BgL_forwardz00_18635 =
																							BgL_forwardz00_30893;
																						goto BgL_statezd277zd21135z00_18078;
																					}
																				}
																			else
																				{	/* Read/reader.scm 301 */
																					BgL_matchz00_18778 =
																						BgL_lastzd2matchzd2_18634;
																				}
																		}
																	else
																		{	/* Read/reader.scm 301 */
																			int BgL_curz00_18639;

																			BgL_curz00_18639 =
																				RGC_BUFFER_GET_CHAR(BgL_iportz00_18633,
																				BgL_forwardz00_18635);
																			{	/* Read/reader.scm 301 */

																				{	/* Read/reader.scm 301 */
																					bool_t BgL_test9767z00_30896;

																					{	/* Read/reader.scm 301 */
																						bool_t BgL_test9768z00_30897;

																						if (
																							((long) (BgL_curz00_18639) >=
																								48L))
																							{	/* Read/reader.scm 301 */
																								BgL_test9768z00_30897 =
																									(
																									(long) (BgL_curz00_18639) <
																									58L);
																							}
																						else
																							{	/* Read/reader.scm 301 */
																								BgL_test9768z00_30897 =
																									((bool_t) 0);
																							}
																						if (BgL_test9768z00_30897)
																							{	/* Read/reader.scm 301 */
																								BgL_test9767z00_30896 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Read/reader.scm 301 */
																								bool_t BgL_test9770z00_30903;

																								if (
																									((long) (BgL_curz00_18639) >=
																										65L))
																									{	/* Read/reader.scm 301 */
																										BgL_test9770z00_30903 =
																											(
																											(long) (BgL_curz00_18639)
																											< 71L);
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										BgL_test9770z00_30903 =
																											((bool_t) 0);
																									}
																								if (BgL_test9770z00_30903)
																									{	/* Read/reader.scm 301 */
																										BgL_test9767z00_30896 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										if (
																											((long) (BgL_curz00_18639)
																												>= 97L))
																											{	/* Read/reader.scm 301 */
																												BgL_test9767z00_30896 =
																													(
																													(long)
																													(BgL_curz00_18639) <
																													103L);
																											}
																										else
																											{	/* Read/reader.scm 301 */
																												BgL_test9767z00_30896 =
																													((bool_t) 0);
																											}
																									}
																							}
																					}
																					if (BgL_test9767z00_30896)
																						{	/* Read/reader.scm 301 */
																							BgL_iportz00_18240 =
																								BgL_iportz00_18633;
																							BgL_lastzd2matchzd2_18241 =
																								BgL_lastzd2matchzd2_18634;
																							BgL_forwardz00_18242 =
																								(1L + BgL_forwardz00_18635);
																							BgL_bufposz00_18243 =
																								BgL_bufposz00_18636;
																						BgL_statezd278zd21136z00_18032:
																							{	/* Read/reader.scm 301 */
																								long BgL_newzd2matchzd2_18244;

																								RGC_STOP_MATCH
																									(BgL_iportz00_18240,
																									BgL_forwardz00_18242);
																								BgL_newzd2matchzd2_18244 = 8L;
																								if (
																									(BgL_forwardz00_18242 ==
																										BgL_bufposz00_18243))
																									{	/* Read/reader.scm 301 */
																										if (rgc_fill_buffer
																											(BgL_iportz00_18240))
																											{	/* Read/reader.scm 301 */
																												long
																													BgL_arg1747z00_18245;
																												long
																													BgL_arg1748z00_18246;
																												BgL_arg1747z00_18245 =
																													RGC_BUFFER_FORWARD
																													(BgL_iportz00_18240);
																												BgL_arg1748z00_18246 =
																													RGC_BUFFER_BUFPOS
																													(BgL_iportz00_18240);
																												{
																													long
																														BgL_bufposz00_30922;
																													long
																														BgL_forwardz00_30921;
																													BgL_forwardz00_30921 =
																														BgL_arg1747z00_18245;
																													BgL_bufposz00_30922 =
																														BgL_arg1748z00_18246;
																													BgL_bufposz00_18243 =
																														BgL_bufposz00_30922;
																													BgL_forwardz00_18242 =
																														BgL_forwardz00_30921;
																													goto
																														BgL_statezd278zd21136z00_18032;
																												}
																											}
																										else
																											{	/* Read/reader.scm 301 */
																												BgL_matchz00_18778 =
																													BgL_newzd2matchzd2_18244;
																											}
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										int BgL_curz00_18247;

																										BgL_curz00_18247 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_iportz00_18240,
																											BgL_forwardz00_18242);
																										{	/* Read/reader.scm 301 */

																											{	/* Read/reader.scm 301 */
																												bool_t
																													BgL_test9775z00_30924;
																												{	/* Read/reader.scm 301 */
																													bool_t
																														BgL_test9776z00_30925;
																													if (((long)
																															(BgL_curz00_18247)
																															>= 48L))
																														{	/* Read/reader.scm 301 */
																															BgL_test9776z00_30925
																																=
																																((long)
																																(BgL_curz00_18247)
																																< 58L);
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															BgL_test9776z00_30925
																																= ((bool_t) 0);
																														}
																													if (BgL_test9776z00_30925)
																														{	/* Read/reader.scm 301 */
																															BgL_test9775z00_30924
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															bool_t
																																BgL_test9778z00_30931;
																															if (((long)
																																	(BgL_curz00_18247)
																																	>= 65L))
																																{	/* Read/reader.scm 301 */
																																	BgL_test9778z00_30931
																																		=
																																		((long)
																																		(BgL_curz00_18247)
																																		< 71L);
																																}
																															else
																																{	/* Read/reader.scm 301 */
																																	BgL_test9778z00_30931
																																		=
																																		((bool_t)
																																		0);
																																}
																															if (BgL_test9778z00_30931)
																																{	/* Read/reader.scm 301 */
																																	BgL_test9775z00_30924
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 301 */
																																	if (
																																		((long)
																																			(BgL_curz00_18247)
																																			>= 97L))
																																		{	/* Read/reader.scm 301 */
																																			BgL_test9775z00_30924
																																				=
																																				((long)
																																				(BgL_curz00_18247)
																																				< 103L);
																																		}
																																	else
																																		{	/* Read/reader.scm 301 */
																																			BgL_test9775z00_30924
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																}
																														}
																												}
																												if (BgL_test9775z00_30924)
																													{
																														long
																															BgL_forwardz00_30943;
																														long
																															BgL_lastzd2matchzd2_30942;
																														BgL_lastzd2matchzd2_30942
																															=
																															BgL_newzd2matchzd2_18244;
																														BgL_forwardz00_30943
																															=
																															(1L +
																															BgL_forwardz00_18242);
																														BgL_forwardz00_18242
																															=
																															BgL_forwardz00_30943;
																														BgL_lastzd2matchzd2_18241
																															=
																															BgL_lastzd2matchzd2_30942;
																														goto
																															BgL_statezd278zd21136z00_18032;
																													}
																												else
																													{	/* Read/reader.scm 301 */
																														BgL_matchz00_18778 =
																															BgL_newzd2matchzd2_18244;
																													}
																											}
																										}
																									}
																							}
																						}
																					else
																						{	/* Read/reader.scm 301 */
																							BgL_matchz00_18778 =
																								BgL_lastzd2matchzd2_18634;
																						}
																				}
																			}
																		}
																}
															else
																{	/* Read/reader.scm 301 */
																	bool_t BgL_test9781z00_30947;

																	{	/* Read/reader.scm 301 */
																		bool_t BgL_test9782z00_30948;

																		if (((long) (BgL_curz00_18599) >= 98L))
																			{	/* Read/reader.scm 301 */
																				BgL_test9782z00_30948 =
																					((long) (BgL_curz00_18599) < 103L);
																			}
																		else
																			{	/* Read/reader.scm 301 */
																				BgL_test9782z00_30948 = ((bool_t) 0);
																			}
																		if (BgL_test9782z00_30948)
																			{	/* Read/reader.scm 301 */
																				BgL_test9781z00_30947 = ((bool_t) 1);
																			}
																		else
																			{	/* Read/reader.scm 301 */
																				bool_t BgL_test9784z00_30954;

																				if (((long) (BgL_curz00_18599) == 106L))
																					{	/* Read/reader.scm 301 */
																						BgL_test9784z00_30954 =
																							((bool_t) 1);
																					}
																				else
																					{	/* Read/reader.scm 301 */
																						BgL_test9784z00_30954 =
																							(
																							(long) (BgL_curz00_18599) ==
																							105L);
																					}
																				if (BgL_test9784z00_30954)
																					{	/* Read/reader.scm 301 */
																						BgL_test9781z00_30947 =
																							((bool_t) 1);
																					}
																				else
																					{	/* Read/reader.scm 301 */
																						bool_t BgL_test9786z00_30960;

																						if (
																							((long) (BgL_curz00_18599) ==
																								112L))
																							{	/* Read/reader.scm 301 */
																								BgL_test9786z00_30960 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Read/reader.scm 301 */
																								if (
																									((long) (BgL_curz00_18599) ==
																										111L))
																									{	/* Read/reader.scm 301 */
																										BgL_test9786z00_30960 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										BgL_test9786z00_30960 =
																											(
																											(long) (BgL_curz00_18599)
																											== 110L);
																							}}
																						if (BgL_test9786z00_30960)
																							{	/* Read/reader.scm 301 */
																								BgL_test9781z00_30947 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Read/reader.scm 301 */
																								bool_t
																									BgL__ortest_1174z00_18600;
																								BgL__ortest_1174z00_18600 =
																									((long) (BgL_curz00_18599) ==
																									116L);
																								if (BgL__ortest_1174z00_18600)
																									{	/* Read/reader.scm 301 */
																										BgL_test9781z00_30947 =
																											BgL__ortest_1174z00_18600;
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										BgL_test9781z00_30947 =
																											(
																											(long) (BgL_curz00_18599)
																											== 115L);
																	}}}}}
																	if (BgL_test9781z00_30947)
																		{
																			long BgL_bufposz00_30978;
																			long BgL_forwardz00_30976;
																			long BgL_lastzd2matchzd2_30975;
																			obj_t BgL_iportz00_30974;

																			BgL_iportz00_30974 = BgL_iportz00_18592;
																			BgL_lastzd2matchzd2_30975 =
																				BgL_newzd2matchzd2_18596;
																			BgL_forwardz00_30976 =
																				(1L + BgL_forwardz00_18594);
																			BgL_bufposz00_30978 = BgL_bufposz00_18595;
																			BgL_bufposz00_18448 = BgL_bufposz00_30978;
																			BgL_forwardz00_18447 =
																				BgL_forwardz00_30976;
																			BgL_lastzd2matchzd2_18446 =
																				BgL_lastzd2matchzd2_30975;
																			BgL_iportz00_18445 = BgL_iportz00_30974;
																			goto BgL_statezd223zd21081z00_18054;
																		}
																	else
																		{	/* Read/reader.scm 301 */
																			bool_t BgL_test9790z00_30979;

																			if (((long) (BgL_curz00_18599) >= 48L))
																				{	/* Read/reader.scm 301 */
																					BgL_test9790z00_30979 =
																						((long) (BgL_curz00_18599) < 58L);
																				}
																			else
																				{	/* Read/reader.scm 301 */
																					BgL_test9790z00_30979 = ((bool_t) 0);
																				}
																			if (BgL_test9790z00_30979)
																				{	/* Read/reader.scm 301 */
																					BgL_iportz00_18248 =
																						BgL_iportz00_18592;
																					BgL_lastzd2matchzd2_18249 =
																						BgL_newzd2matchzd2_18596;
																					BgL_forwardz00_18250 =
																						(1L + BgL_forwardz00_18594);
																					BgL_bufposz00_18251 =
																						BgL_bufposz00_18595;
																				BgL_statezd276zd21134z00_18033:
																					{	/* Read/reader.scm 301 */
																						long BgL_newzd2matchzd2_18252;

																						RGC_STOP_MATCH(BgL_iportz00_18248,
																							BgL_forwardz00_18250);
																						BgL_newzd2matchzd2_18252 = 7L;
																						if (
																							(BgL_forwardz00_18250 ==
																								BgL_bufposz00_18251))
																							{	/* Read/reader.scm 301 */
																								if (rgc_fill_buffer
																									(BgL_iportz00_18248))
																									{	/* Read/reader.scm 301 */
																										long BgL_arg1758z00_18253;
																										long BgL_arg1759z00_18254;

																										BgL_arg1758z00_18253 =
																											RGC_BUFFER_FORWARD
																											(BgL_iportz00_18248);
																										BgL_arg1759z00_18254 =
																											RGC_BUFFER_BUFPOS
																											(BgL_iportz00_18248);
																										{
																											long BgL_bufposz00_30993;
																											long BgL_forwardz00_30992;

																											BgL_forwardz00_30992 =
																												BgL_arg1758z00_18253;
																											BgL_bufposz00_30993 =
																												BgL_arg1759z00_18254;
																											BgL_bufposz00_18251 =
																												BgL_bufposz00_30993;
																											BgL_forwardz00_18250 =
																												BgL_forwardz00_30992;
																											goto
																												BgL_statezd276zd21134z00_18033;
																										}
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										BgL_matchz00_18778 =
																											BgL_newzd2matchzd2_18252;
																									}
																							}
																						else
																							{	/* Read/reader.scm 301 */
																								int BgL_curz00_18255;

																								BgL_curz00_18255 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_iportz00_18248,
																									BgL_forwardz00_18250);
																								{	/* Read/reader.scm 301 */

																									{	/* Read/reader.scm 301 */
																										bool_t
																											BgL_test9794z00_30995;
																										if (((long)
																												(BgL_curz00_18255) >=
																												48L))
																											{	/* Read/reader.scm 301 */
																												BgL_test9794z00_30995 =
																													(
																													(long)
																													(BgL_curz00_18255) <
																													58L);
																											}
																										else
																											{	/* Read/reader.scm 301 */
																												BgL_test9794z00_30995 =
																													((bool_t) 0);
																											}
																										if (BgL_test9794z00_30995)
																											{
																												long
																													BgL_forwardz00_31002;
																												long
																													BgL_lastzd2matchzd2_31001;
																												BgL_lastzd2matchzd2_31001
																													=
																													BgL_newzd2matchzd2_18252;
																												BgL_forwardz00_31002 =
																													(1L +
																													BgL_forwardz00_18250);
																												BgL_forwardz00_18250 =
																													BgL_forwardz00_31002;
																												BgL_lastzd2matchzd2_18249
																													=
																													BgL_lastzd2matchzd2_31001;
																												goto
																													BgL_statezd276zd21134z00_18033;
																											}
																										else
																											{	/* Read/reader.scm 301 */
																												BgL_matchz00_18778 =
																													BgL_newzd2matchzd2_18252;
																											}
																									}
																								}
																							}
																					}
																				}
																			else
																				{	/* Read/reader.scm 301 */
																					if (
																						((long) (BgL_curz00_18599) == 45L))
																						{	/* Read/reader.scm 301 */
																							BgL_iportz00_18617 =
																								BgL_iportz00_18592;
																							BgL_lastzd2matchzd2_18618 =
																								BgL_newzd2matchzd2_18596;
																							BgL_forwardz00_18619 =
																								(1L + BgL_forwardz00_18594);
																							BgL_bufposz00_18620 =
																								BgL_bufposz00_18595;
																						BgL_statezd275zd21133z00_18076:
																							{	/* Read/reader.scm 301 */
																								long BgL_newzd2matchzd2_18621;

																								RGC_STOP_MATCH
																									(BgL_iportz00_18617,
																									BgL_forwardz00_18619);
																								BgL_newzd2matchzd2_18621 = 14L;
																								if (
																									(BgL_forwardz00_18619 ==
																										BgL_bufposz00_18620))
																									{	/* Read/reader.scm 301 */
																										if (rgc_fill_buffer
																											(BgL_iportz00_18617))
																											{	/* Read/reader.scm 301 */
																												long
																													BgL_arg2280z00_18622;
																												long
																													BgL_arg2281z00_18623;
																												BgL_arg2280z00_18622 =
																													RGC_BUFFER_FORWARD
																													(BgL_iportz00_18617);
																												BgL_arg2281z00_18623 =
																													RGC_BUFFER_BUFPOS
																													(BgL_iportz00_18617);
																												{
																													long
																														BgL_bufposz00_31016;
																													long
																														BgL_forwardz00_31015;
																													BgL_forwardz00_31015 =
																														BgL_arg2280z00_18622;
																													BgL_bufposz00_31016 =
																														BgL_arg2281z00_18623;
																													BgL_bufposz00_18620 =
																														BgL_bufposz00_31016;
																													BgL_forwardz00_18619 =
																														BgL_forwardz00_31015;
																													goto
																														BgL_statezd275zd21133z00_18076;
																												}
																											}
																										else
																											{	/* Read/reader.scm 301 */
																												BgL_matchz00_18778 =
																													BgL_newzd2matchzd2_18621;
																											}
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										int BgL_curz00_18624;

																										BgL_curz00_18624 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_iportz00_18617,
																											BgL_forwardz00_18619);
																										{	/* Read/reader.scm 301 */

																											{	/* Read/reader.scm 301 */
																												bool_t
																													BgL_test9799z00_31018;
																												if (((long)
																														(BgL_curz00_18624)
																														>= 48L))
																													{	/* Read/reader.scm 301 */
																														BgL_test9799z00_31018
																															=
																															((long)
																															(BgL_curz00_18624)
																															< 58L);
																													}
																												else
																													{	/* Read/reader.scm 301 */
																														BgL_test9799z00_31018
																															= ((bool_t) 0);
																													}
																												if (BgL_test9799z00_31018)
																													{
																														long
																															BgL_bufposz00_31028;
																														long
																															BgL_forwardz00_31026;
																														long
																															BgL_lastzd2matchzd2_31025;
																														obj_t
																															BgL_iportz00_31024;
																														BgL_iportz00_31024 =
																															BgL_iportz00_18617;
																														BgL_lastzd2matchzd2_31025
																															=
																															BgL_newzd2matchzd2_18621;
																														BgL_forwardz00_31026
																															=
																															(1L +
																															BgL_forwardz00_18619);
																														BgL_bufposz00_31028
																															=
																															BgL_bufposz00_18620;
																														BgL_bufposz00_18251
																															=
																															BgL_bufposz00_31028;
																														BgL_forwardz00_18250
																															=
																															BgL_forwardz00_31026;
																														BgL_lastzd2matchzd2_18249
																															=
																															BgL_lastzd2matchzd2_31025;
																														BgL_iportz00_18248 =
																															BgL_iportz00_31024;
																														goto
																															BgL_statezd276zd21134z00_18033;
																													}
																												else
																													{	/* Read/reader.scm 301 */
																														bool_t
																															BgL_test9801z00_31029;
																														if (((long)
																																(BgL_curz00_18624)
																																== 45L))
																															{	/* Read/reader.scm 301 */
																																BgL_test9801z00_31029
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 301 */
																																bool_t
																																	BgL_test9803z00_31033;
																																if (((long)
																																		(BgL_curz00_18624)
																																		>= 98L))
																																	{	/* Read/reader.scm 301 */
																																		BgL_test9803z00_31033
																																			=
																																			((long)
																																			(BgL_curz00_18624)
																																			< 103L);
																																	}
																																else
																																	{	/* Read/reader.scm 301 */
																																		BgL_test9803z00_31033
																																			=
																																			((bool_t)
																																			0);
																																	}
																																if (BgL_test9803z00_31033)
																																	{	/* Read/reader.scm 301 */
																																		BgL_test9801z00_31029
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Read/reader.scm 301 */
																																		bool_t
																																			BgL_test9805z00_31039;
																																		if (((long)
																																				(BgL_curz00_18624)
																																				==
																																				106L))
																																			{	/* Read/reader.scm 301 */
																																				BgL_test9805z00_31039
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				BgL_test9805z00_31039
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_18624)
																																					==
																																					105L);
																																			}
																																		if (BgL_test9805z00_31039)
																																			{	/* Read/reader.scm 301 */
																																				BgL_test9801z00_31029
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				bool_t
																																					BgL_test9807z00_31045;
																																				if ((
																																						(long)
																																						(BgL_curz00_18624)
																																						==
																																						112L))
																																					{	/* Read/reader.scm 301 */
																																						BgL_test9807z00_31045
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 301 */
																																						if (
																																							((long) (BgL_curz00_18624) == 111L))
																																							{	/* Read/reader.scm 301 */
																																								BgL_test9807z00_31045
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Read/reader.scm 301 */
																																								BgL_test9807z00_31045
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_18624)
																																									==
																																									110L);
																																					}}
																																				if (BgL_test9807z00_31045)
																																					{	/* Read/reader.scm 301 */
																																						BgL_test9801z00_31029
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Read/reader.scm 301 */
																																						bool_t
																																							BgL__ortest_1176z00_18625;
																																						BgL__ortest_1176z00_18625
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_18624)
																																							==
																																							116L);
																																						if (BgL__ortest_1176z00_18625)
																																							{	/* Read/reader.scm 301 */
																																								BgL_test9801z00_31029
																																									=
																																									BgL__ortest_1176z00_18625;
																																							}
																																						else
																																							{	/* Read/reader.scm 301 */
																																								BgL_test9801z00_31029
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_18624)
																																									==
																																									115L);
																															}}}}}
																														if (BgL_test9801z00_31029)
																															{
																																long
																																	BgL_bufposz00_31063;
																																long
																																	BgL_forwardz00_31061;
																																long
																																	BgL_lastzd2matchzd2_31060;
																																obj_t
																																	BgL_iportz00_31059;
																																BgL_iportz00_31059
																																	=
																																	BgL_iportz00_18617;
																																BgL_lastzd2matchzd2_31060
																																	=
																																	BgL_newzd2matchzd2_18621;
																																BgL_forwardz00_31061
																																	=
																																	(1L +
																																	BgL_forwardz00_18619);
																																BgL_bufposz00_31063
																																	=
																																	BgL_bufposz00_18620;
																																BgL_bufposz00_18448
																																	=
																																	BgL_bufposz00_31063;
																																BgL_forwardz00_18447
																																	=
																																	BgL_forwardz00_31061;
																																BgL_lastzd2matchzd2_18446
																																	=
																																	BgL_lastzd2matchzd2_31060;
																																BgL_iportz00_18445
																																	=
																																	BgL_iportz00_31059;
																																goto
																																	BgL_statezd223zd21081z00_18054;
																															}
																														else
																															{	/* Read/reader.scm 301 */
																																BgL_matchz00_18778
																																	=
																																	BgL_newzd2matchzd2_18621;
																															}
																													}
																											}
																										}
																									}
																							}
																						}
																					else
																						{	/* Read/reader.scm 301 */
																							if (
																								((long) (BgL_curz00_18599) ==
																									43L))
																								{	/* Read/reader.scm 301 */
																									BgL_iportz00_18233 =
																										BgL_iportz00_18592;
																									BgL_lastzd2matchzd2_18234 =
																										BgL_newzd2matchzd2_18596;
																									BgL_forwardz00_18235 =
																										(1L + BgL_forwardz00_18594);
																									BgL_bufposz00_18236 =
																										BgL_bufposz00_18595;
																								BgL_statezd274zd21132z00_18031:
																									if (
																										(BgL_forwardz00_18235 ==
																											BgL_bufposz00_18236))
																										{	/* Read/reader.scm 301 */
																											if (rgc_fill_buffer
																												(BgL_iportz00_18233))
																												{	/* Read/reader.scm 301 */
																													long
																														BgL_arg1739z00_18237;
																													long
																														BgL_arg1740z00_18238;
																													BgL_arg1739z00_18237 =
																														RGC_BUFFER_FORWARD
																														(BgL_iportz00_18233);
																													BgL_arg1740z00_18238 =
																														RGC_BUFFER_BUFPOS
																														(BgL_iportz00_18233);
																													{
																														long
																															BgL_bufposz00_31075;
																														long
																															BgL_forwardz00_31074;
																														BgL_forwardz00_31074
																															=
																															BgL_arg1739z00_18237;
																														BgL_bufposz00_31075
																															=
																															BgL_arg1740z00_18238;
																														BgL_bufposz00_18236
																															=
																															BgL_bufposz00_31075;
																														BgL_forwardz00_18235
																															=
																															BgL_forwardz00_31074;
																														goto
																															BgL_statezd274zd21132z00_18031;
																													}
																												}
																											else
																												{	/* Read/reader.scm 301 */
																													BgL_matchz00_18778 =
																														BgL_lastzd2matchzd2_18234;
																												}
																										}
																									else
																										{	/* Read/reader.scm 301 */
																											int BgL_curz00_18239;

																											BgL_curz00_18239 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_iportz00_18233,
																												BgL_forwardz00_18235);
																											{	/* Read/reader.scm 301 */

																												{	/* Read/reader.scm 301 */
																													bool_t
																														BgL_test9814z00_31077;
																													if (((long)
																															(BgL_curz00_18239)
																															>= 48L))
																														{	/* Read/reader.scm 301 */
																															BgL_test9814z00_31077
																																=
																																((long)
																																(BgL_curz00_18239)
																																< 58L);
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															BgL_test9814z00_31077
																																= ((bool_t) 0);
																														}
																													if (BgL_test9814z00_31077)
																														{
																															long
																																BgL_bufposz00_31087;
																															long
																																BgL_forwardz00_31085;
																															long
																																BgL_lastzd2matchzd2_31084;
																															obj_t
																																BgL_iportz00_31083;
																															BgL_iportz00_31083
																																=
																																BgL_iportz00_18233;
																															BgL_lastzd2matchzd2_31084
																																=
																																BgL_lastzd2matchzd2_18234;
																															BgL_forwardz00_31085
																																=
																																(1L +
																																BgL_forwardz00_18235);
																															BgL_bufposz00_31087
																																=
																																BgL_bufposz00_18236;
																															BgL_bufposz00_18251
																																=
																																BgL_bufposz00_31087;
																															BgL_forwardz00_18250
																																=
																																BgL_forwardz00_31085;
																															BgL_lastzd2matchzd2_18249
																																=
																																BgL_lastzd2matchzd2_31084;
																															BgL_iportz00_18248
																																=
																																BgL_iportz00_31083;
																															goto
																																BgL_statezd276zd21134z00_18033;
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															BgL_matchz00_18778
																																=
																																BgL_lastzd2matchzd2_18234;
																														}
																												}
																											}
																										}
																								}
																							else
																								{	/* Read/reader.scm 301 */
																									BgL_matchz00_18778 =
																										BgL_newzd2matchzd2_18596;
																								}
																						}
																				}
																		}
																}
														}
													}
											}
											break;
										case 100L:

											BgL_iportz00_18745 = BgL_iportz00_18155;
											BgL_lastzd2matchzd2_18746 = BgL_lastzd2matchzd2_18156;
											BgL_forwardz00_18747 = (1L + BgL_forwardz00_18157);
											BgL_bufposz00_18748 = BgL_bufposz00_18158;
										BgL_statezd27zd21065z00_18092:
											{	/* Read/reader.scm 301 */
												long BgL_newzd2matchzd2_18749;

												RGC_STOP_MATCH(BgL_iportz00_18745,
													BgL_forwardz00_18747);
												BgL_newzd2matchzd2_18749 = 25L;
												if ((BgL_forwardz00_18747 == BgL_bufposz00_18748))
													{	/* Read/reader.scm 301 */
														if (rgc_fill_buffer(BgL_iportz00_18745))
															{	/* Read/reader.scm 301 */
																long BgL_arg2500z00_18750;
																long BgL_arg2501z00_18751;

																BgL_arg2500z00_18750 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_18745);
																BgL_arg2501z00_18751 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_18745);
																{
																	long BgL_bufposz00_31098;
																	long BgL_forwardz00_31097;

																	BgL_forwardz00_31097 = BgL_arg2500z00_18750;
																	BgL_bufposz00_31098 = BgL_arg2501z00_18751;
																	BgL_bufposz00_18748 = BgL_bufposz00_31098;
																	BgL_forwardz00_18747 = BgL_forwardz00_31097;
																	goto BgL_statezd27zd21065z00_18092;
																}
															}
														else
															{	/* Read/reader.scm 301 */
																BgL_matchz00_18778 = BgL_newzd2matchzd2_18749;
															}
													}
												else
													{	/* Read/reader.scm 301 */
														int BgL_curz00_18752;

														BgL_curz00_18752 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_18745,
															BgL_forwardz00_18747);
														{	/* Read/reader.scm 301 */

															{	/* Read/reader.scm 301 */
																bool_t BgL_test9818z00_31100;

																if (((long) (BgL_curz00_18752) >= 48L))
																	{	/* Read/reader.scm 301 */
																		BgL_test9818z00_31100 =
																			((long) (BgL_curz00_18752) < 58L);
																	}
																else
																	{	/* Read/reader.scm 301 */
																		BgL_test9818z00_31100 = ((bool_t) 0);
																	}
																if (BgL_test9818z00_31100)
																	{	/* Read/reader.scm 301 */
																		BgL_iportz00_18491 = BgL_iportz00_18745;
																		BgL_lastzd2matchzd2_18492 =
																			BgL_newzd2matchzd2_18749;
																		BgL_forwardz00_18493 =
																			(1L + BgL_forwardz00_18747);
																		BgL_bufposz00_18494 = BgL_bufposz00_18748;
																	BgL_statezd280zd21138z00_18060:
																		{	/* Read/reader.scm 301 */
																			long BgL_newzd2matchzd2_18495;

																			RGC_STOP_MATCH(BgL_iportz00_18491,
																				BgL_forwardz00_18493);
																			BgL_newzd2matchzd2_18495 = 6L;
																			if (
																				(BgL_forwardz00_18493 ==
																					BgL_bufposz00_18494))
																				{	/* Read/reader.scm 301 */
																					if (rgc_fill_buffer
																						(BgL_iportz00_18491))
																						{	/* Read/reader.scm 301 */
																							long BgL_arg2100z00_18496;
																							long BgL_arg2101z00_18497;

																							BgL_arg2100z00_18496 =
																								RGC_BUFFER_FORWARD
																								(BgL_iportz00_18491);
																							BgL_arg2101z00_18497 =
																								RGC_BUFFER_BUFPOS
																								(BgL_iportz00_18491);
																							{
																								long BgL_bufposz00_31114;
																								long BgL_forwardz00_31113;

																								BgL_forwardz00_31113 =
																									BgL_arg2100z00_18496;
																								BgL_bufposz00_31114 =
																									BgL_arg2101z00_18497;
																								BgL_bufposz00_18494 =
																									BgL_bufposz00_31114;
																								BgL_forwardz00_18493 =
																									BgL_forwardz00_31113;
																								goto
																									BgL_statezd280zd21138z00_18060;
																							}
																						}
																					else
																						{	/* Read/reader.scm 301 */
																							BgL_matchz00_18778 =
																								BgL_newzd2matchzd2_18495;
																						}
																				}
																			else
																				{	/* Read/reader.scm 301 */
																					int BgL_curz00_18498;

																					BgL_curz00_18498 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_iportz00_18491,
																						BgL_forwardz00_18493);
																					{	/* Read/reader.scm 301 */

																						{	/* Read/reader.scm 301 */
																							bool_t BgL_test9822z00_31116;

																							if (
																								((long) (BgL_curz00_18498) >=
																									48L))
																								{	/* Read/reader.scm 301 */
																									BgL_test9822z00_31116 =
																										(
																										(long) (BgL_curz00_18498) <
																										58L);
																								}
																							else
																								{	/* Read/reader.scm 301 */
																									BgL_test9822z00_31116 =
																										((bool_t) 0);
																								}
																							if (BgL_test9822z00_31116)
																								{
																									long BgL_forwardz00_31123;
																									long
																										BgL_lastzd2matchzd2_31122;
																									BgL_lastzd2matchzd2_31122 =
																										BgL_newzd2matchzd2_18495;
																									BgL_forwardz00_31123 =
																										(1L + BgL_forwardz00_18493);
																									BgL_forwardz00_18493 =
																										BgL_forwardz00_31123;
																									BgL_lastzd2matchzd2_18492 =
																										BgL_lastzd2matchzd2_31122;
																									goto
																										BgL_statezd280zd21138z00_18060;
																								}
																							else
																								{	/* Read/reader.scm 301 */
																									BgL_matchz00_18778 =
																										BgL_newzd2matchzd2_18495;
																								}
																						}
																					}
																				}
																		}
																	}
																else
																	{	/* Read/reader.scm 301 */
																		bool_t BgL_test9824z00_31126;

																		if (((long) (BgL_curz00_18752) == 43L))
																			{	/* Read/reader.scm 301 */
																				BgL_test9824z00_31126 = ((bool_t) 1);
																			}
																		else
																			{	/* Read/reader.scm 301 */
																				BgL_test9824z00_31126 =
																					((long) (BgL_curz00_18752) == 45L);
																			}
																		if (BgL_test9824z00_31126)
																			{	/* Read/reader.scm 301 */
																				BgL_iportz00_18124 = BgL_iportz00_18745;
																				BgL_lastzd2matchzd2_18125 =
																					BgL_newzd2matchzd2_18749;
																				BgL_forwardz00_18126 =
																					(1L + BgL_forwardz00_18747);
																				BgL_bufposz00_18127 =
																					BgL_bufposz00_18748;
																			BgL_statezd279zd21137z00_18019:
																				if (
																					(BgL_forwardz00_18126 ==
																						BgL_bufposz00_18127))
																					{	/* Read/reader.scm 301 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_18124))
																							{	/* Read/reader.scm 301 */
																								long BgL_arg1573z00_18128;
																								long BgL_arg1574z00_18129;

																								BgL_arg1573z00_18128 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_18124);
																								BgL_arg1574z00_18129 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_18124);
																								{
																									long BgL_bufposz00_31139;
																									long BgL_forwardz00_31138;

																									BgL_forwardz00_31138 =
																										BgL_arg1573z00_18128;
																									BgL_bufposz00_31139 =
																										BgL_arg1574z00_18129;
																									BgL_bufposz00_18127 =
																										BgL_bufposz00_31139;
																									BgL_forwardz00_18126 =
																										BgL_forwardz00_31138;
																									goto
																										BgL_statezd279zd21137z00_18019;
																								}
																							}
																						else
																							{	/* Read/reader.scm 301 */
																								BgL_matchz00_18778 =
																									BgL_lastzd2matchzd2_18125;
																							}
																					}
																				else
																					{	/* Read/reader.scm 301 */
																						int BgL_curz00_18130;

																						BgL_curz00_18130 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_18124,
																							BgL_forwardz00_18126);
																						{	/* Read/reader.scm 301 */

																							{	/* Read/reader.scm 301 */
																								bool_t BgL_test9828z00_31141;

																								if (
																									((long) (BgL_curz00_18130) >=
																										48L))
																									{	/* Read/reader.scm 301 */
																										BgL_test9828z00_31141 =
																											(
																											(long) (BgL_curz00_18130)
																											< 58L);
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										BgL_test9828z00_31141 =
																											((bool_t) 0);
																									}
																								if (BgL_test9828z00_31141)
																									{
																										long BgL_bufposz00_31151;
																										long BgL_forwardz00_31149;
																										long
																											BgL_lastzd2matchzd2_31148;
																										obj_t BgL_iportz00_31147;

																										BgL_iportz00_31147 =
																											BgL_iportz00_18124;
																										BgL_lastzd2matchzd2_31148 =
																											BgL_lastzd2matchzd2_18125;
																										BgL_forwardz00_31149 =
																											(1L +
																											BgL_forwardz00_18126);
																										BgL_bufposz00_31151 =
																											BgL_bufposz00_18127;
																										BgL_bufposz00_18494 =
																											BgL_bufposz00_31151;
																										BgL_forwardz00_18493 =
																											BgL_forwardz00_31149;
																										BgL_lastzd2matchzd2_18492 =
																											BgL_lastzd2matchzd2_31148;
																										BgL_iportz00_18491 =
																											BgL_iportz00_31147;
																										goto
																											BgL_statezd280zd21138z00_18060;
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										BgL_matchz00_18778 =
																											BgL_lastzd2matchzd2_18125;
																									}
																							}
																						}
																					}
																			}
																		else
																			{	/* Read/reader.scm 301 */
																				BgL_matchz00_18778 =
																					BgL_newzd2matchzd2_18749;
																			}
																	}
															}
														}
													}
											}
											break;
										case 98L:

											BgL_iportz00_18660 = BgL_iportz00_18155;
											BgL_lastzd2matchzd2_18661 = BgL_lastzd2matchzd2_18156;
											BgL_forwardz00_18662 = (1L + BgL_forwardz00_18157);
											BgL_bufposz00_18663 = BgL_bufposz00_18158;
										BgL_statezd26zd21064z00_18081:
											{	/* Read/reader.scm 301 */
												long BgL_newzd2matchzd2_18664;

												RGC_STOP_MATCH(BgL_iportz00_18660,
													BgL_forwardz00_18662);
												BgL_newzd2matchzd2_18664 = 25L;
												if ((BgL_forwardz00_18662 == BgL_bufposz00_18663))
													{	/* Read/reader.scm 301 */
														if (rgc_fill_buffer(BgL_iportz00_18660))
															{	/* Read/reader.scm 301 */
																long BgL_arg2366z00_18665;
																long BgL_arg2367z00_18666;

																BgL_arg2366z00_18665 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_18660);
																BgL_arg2367z00_18666 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_18660);
																{
																	long BgL_bufposz00_31162;
																	long BgL_forwardz00_31161;

																	BgL_forwardz00_31161 = BgL_arg2366z00_18665;
																	BgL_bufposz00_31162 = BgL_arg2367z00_18666;
																	BgL_bufposz00_18663 = BgL_bufposz00_31162;
																	BgL_forwardz00_18662 = BgL_forwardz00_31161;
																	goto BgL_statezd26zd21064z00_18081;
																}
															}
														else
															{	/* Read/reader.scm 301 */
																BgL_matchz00_18778 = BgL_newzd2matchzd2_18664;
															}
													}
												else
													{	/* Read/reader.scm 301 */
														int BgL_curz00_18667;

														BgL_curz00_18667 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_18660,
															BgL_forwardz00_18662);
														{	/* Read/reader.scm 301 */

															{	/* Read/reader.scm 301 */
																bool_t BgL_test9832z00_31164;

																if (((long) (BgL_curz00_18667) == 49L))
																	{	/* Read/reader.scm 301 */
																		BgL_test9832z00_31164 = ((bool_t) 1);
																	}
																else
																	{	/* Read/reader.scm 301 */
																		BgL_test9832z00_31164 =
																			((long) (BgL_curz00_18667) == 48L);
																	}
																if (BgL_test9832z00_31164)
																	{	/* Read/reader.scm 301 */
																		BgL_iportz00_18506 = BgL_iportz00_18660;
																		BgL_lastzd2matchzd2_18507 =
																			BgL_newzd2matchzd2_18664;
																		BgL_forwardz00_18508 =
																			(1L + BgL_forwardz00_18662);
																		BgL_bufposz00_18509 = BgL_bufposz00_18663;
																	BgL_statezd282zd21140z00_18062:
																		{	/* Read/reader.scm 301 */
																			long BgL_newzd2matchzd2_18510;

																			RGC_STOP_MATCH(BgL_iportz00_18506,
																				BgL_forwardz00_18508);
																			BgL_newzd2matchzd2_18510 = 4L;
																			if (
																				(BgL_forwardz00_18508 ==
																					BgL_bufposz00_18509))
																				{	/* Read/reader.scm 301 */
																					if (rgc_fill_buffer
																						(BgL_iportz00_18506))
																						{	/* Read/reader.scm 301 */
																							long BgL_arg2116z00_18511;
																							long BgL_arg2117z00_18512;

																							BgL_arg2116z00_18511 =
																								RGC_BUFFER_FORWARD
																								(BgL_iportz00_18506);
																							BgL_arg2117z00_18512 =
																								RGC_BUFFER_BUFPOS
																								(BgL_iportz00_18506);
																							{
																								long BgL_bufposz00_31178;
																								long BgL_forwardz00_31177;

																								BgL_forwardz00_31177 =
																									BgL_arg2116z00_18511;
																								BgL_bufposz00_31178 =
																									BgL_arg2117z00_18512;
																								BgL_bufposz00_18509 =
																									BgL_bufposz00_31178;
																								BgL_forwardz00_18508 =
																									BgL_forwardz00_31177;
																								goto
																									BgL_statezd282zd21140z00_18062;
																							}
																						}
																					else
																						{	/* Read/reader.scm 301 */
																							BgL_matchz00_18778 =
																								BgL_newzd2matchzd2_18510;
																						}
																				}
																			else
																				{	/* Read/reader.scm 301 */
																					int BgL_curz00_18513;

																					BgL_curz00_18513 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_iportz00_18506,
																						BgL_forwardz00_18508);
																					{	/* Read/reader.scm 301 */

																						{	/* Read/reader.scm 301 */
																							bool_t BgL_test9836z00_31180;

																							if (
																								((long) (BgL_curz00_18513) ==
																									49L))
																								{	/* Read/reader.scm 301 */
																									BgL_test9836z00_31180 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Read/reader.scm 301 */
																									BgL_test9836z00_31180 =
																										(
																										(long) (BgL_curz00_18513) ==
																										48L);
																								}
																							if (BgL_test9836z00_31180)
																								{
																									long BgL_forwardz00_31187;
																									long
																										BgL_lastzd2matchzd2_31186;
																									BgL_lastzd2matchzd2_31186 =
																										BgL_newzd2matchzd2_18510;
																									BgL_forwardz00_31187 =
																										(1L + BgL_forwardz00_18508);
																									BgL_forwardz00_18508 =
																										BgL_forwardz00_31187;
																									BgL_lastzd2matchzd2_18507 =
																										BgL_lastzd2matchzd2_31186;
																									goto
																										BgL_statezd282zd21140z00_18062;
																								}
																							else
																								{	/* Read/reader.scm 301 */
																									BgL_matchz00_18778 =
																										BgL_newzd2matchzd2_18510;
																								}
																						}
																					}
																				}
																		}
																	}
																else
																	{	/* Read/reader.scm 301 */
																		bool_t BgL_test9838z00_31190;

																		if (((long) (BgL_curz00_18667) == 43L))
																			{	/* Read/reader.scm 301 */
																				BgL_test9838z00_31190 = ((bool_t) 1);
																			}
																		else
																			{	/* Read/reader.scm 301 */
																				BgL_test9838z00_31190 =
																					((long) (BgL_curz00_18667) == 45L);
																			}
																		if (BgL_test9838z00_31190)
																			{	/* Read/reader.scm 301 */
																				BgL_iportz00_18499 = BgL_iportz00_18660;
																				BgL_lastzd2matchzd2_18500 =
																					BgL_newzd2matchzd2_18664;
																				BgL_forwardz00_18501 =
																					(1L + BgL_forwardz00_18662);
																				BgL_bufposz00_18502 =
																					BgL_bufposz00_18663;
																			BgL_statezd281zd21139z00_18061:
																				if (
																					(BgL_forwardz00_18501 ==
																						BgL_bufposz00_18502))
																					{	/* Read/reader.scm 301 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_18499))
																							{	/* Read/reader.scm 301 */
																								long BgL_arg2108z00_18503;
																								long BgL_arg2109z00_18504;

																								BgL_arg2108z00_18503 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_18499);
																								BgL_arg2109z00_18504 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_18499);
																								{
																									long BgL_bufposz00_31203;
																									long BgL_forwardz00_31202;

																									BgL_forwardz00_31202 =
																										BgL_arg2108z00_18503;
																									BgL_bufposz00_31203 =
																										BgL_arg2109z00_18504;
																									BgL_bufposz00_18502 =
																										BgL_bufposz00_31203;
																									BgL_forwardz00_18501 =
																										BgL_forwardz00_31202;
																									goto
																										BgL_statezd281zd21139z00_18061;
																								}
																							}
																						else
																							{	/* Read/reader.scm 301 */
																								BgL_matchz00_18778 =
																									BgL_lastzd2matchzd2_18500;
																							}
																					}
																				else
																					{	/* Read/reader.scm 301 */
																						int BgL_curz00_18505;

																						BgL_curz00_18505 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_18499,
																							BgL_forwardz00_18501);
																						{	/* Read/reader.scm 301 */

																							{	/* Read/reader.scm 301 */
																								bool_t BgL_test9842z00_31205;

																								if (
																									((long) (BgL_curz00_18505) ==
																										49L))
																									{	/* Read/reader.scm 301 */
																										BgL_test9842z00_31205 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										BgL_test9842z00_31205 =
																											(
																											(long) (BgL_curz00_18505)
																											== 48L);
																									}
																								if (BgL_test9842z00_31205)
																									{
																										long BgL_bufposz00_31215;
																										long BgL_forwardz00_31213;
																										long
																											BgL_lastzd2matchzd2_31212;
																										obj_t BgL_iportz00_31211;

																										BgL_iportz00_31211 =
																											BgL_iportz00_18499;
																										BgL_lastzd2matchzd2_31212 =
																											BgL_lastzd2matchzd2_18500;
																										BgL_forwardz00_31213 =
																											(1L +
																											BgL_forwardz00_18501);
																										BgL_bufposz00_31215 =
																											BgL_bufposz00_18502;
																										BgL_bufposz00_18509 =
																											BgL_bufposz00_31215;
																										BgL_forwardz00_18508 =
																											BgL_forwardz00_31213;
																										BgL_lastzd2matchzd2_18507 =
																											BgL_lastzd2matchzd2_31212;
																										BgL_iportz00_18506 =
																											BgL_iportz00_31211;
																										goto
																											BgL_statezd282zd21140z00_18062;
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										BgL_matchz00_18778 =
																											BgL_lastzd2matchzd2_18500;
																									}
																							}
																						}
																					}
																			}
																		else
																			{	/* Read/reader.scm 301 */
																				BgL_matchz00_18778 =
																					BgL_newzd2matchzd2_18664;
																			}
																	}
															}
														}
													}
											}
											break;
										case 97L:

											BgL_iportz00_18097 = BgL_iportz00_18155;
											BgL_lastzd2matchzd2_18098 = BgL_lastzd2matchzd2_18156;
											BgL_forwardz00_18099 = (1L + BgL_forwardz00_18157);
											BgL_bufposz00_18100 = BgL_bufposz00_18158;
										BgL_statezd25zd21063z00_18016:
											{	/* Read/reader.scm 301 */
												long BgL_newzd2matchzd2_18101;

												RGC_STOP_MATCH(BgL_iportz00_18097,
													BgL_forwardz00_18099);
												BgL_newzd2matchzd2_18101 = 25L;
												if ((BgL_forwardz00_18099 == BgL_bufposz00_18100))
													{	/* Read/reader.scm 301 */
														if (rgc_fill_buffer(BgL_iportz00_18097))
															{	/* Read/reader.scm 301 */
																long BgL_arg1532z00_18102;
																long BgL_arg1533z00_18103;

																BgL_arg1532z00_18102 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_18097);
																BgL_arg1533z00_18103 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_18097);
																{
																	long BgL_bufposz00_31226;
																	long BgL_forwardz00_31225;

																	BgL_forwardz00_31225 = BgL_arg1532z00_18102;
																	BgL_bufposz00_31226 = BgL_arg1533z00_18103;
																	BgL_bufposz00_18100 = BgL_bufposz00_31226;
																	BgL_forwardz00_18099 = BgL_forwardz00_31225;
																	goto BgL_statezd25zd21063z00_18016;
																}
															}
														else
															{	/* Read/reader.scm 301 */
																BgL_matchz00_18778 = BgL_newzd2matchzd2_18101;
															}
													}
												else
													{	/* Read/reader.scm 301 */
														int BgL_curz00_18104;

														BgL_curz00_18104 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_18097,
															BgL_forwardz00_18099);
														{	/* Read/reader.scm 301 */

															{	/* Read/reader.scm 301 */
																bool_t BgL_test9846z00_31228;

																if (((long) (BgL_curz00_18104) >= 48L))
																	{	/* Read/reader.scm 301 */
																		BgL_test9846z00_31228 =
																			((long) (BgL_curz00_18104) < 58L);
																	}
																else
																	{	/* Read/reader.scm 301 */
																		BgL_test9846z00_31228 = ((bool_t) 0);
																	}
																if (BgL_test9846z00_31228)
																	{	/* Read/reader.scm 301 */
																		BgL_iportz00_18610 = BgL_iportz00_18097;
																		BgL_lastzd2matchzd2_18611 =
																			BgL_newzd2matchzd2_18101;
																		BgL_forwardz00_18612 =
																			(1L + BgL_forwardz00_18099);
																		BgL_bufposz00_18613 = BgL_bufposz00_18100;
																	BgL_statezd283zd21141z00_18075:
																		if (
																			(BgL_forwardz00_18612 ==
																				BgL_bufposz00_18613))
																			{	/* Read/reader.scm 301 */
																				if (rgc_fill_buffer(BgL_iportz00_18610))
																					{	/* Read/reader.scm 301 */
																						long BgL_arg2272z00_18614;
																						long BgL_arg2273z00_18615;

																						BgL_arg2272z00_18614 =
																							RGC_BUFFER_FORWARD
																							(BgL_iportz00_18610);
																						BgL_arg2273z00_18615 =
																							RGC_BUFFER_BUFPOS
																							(BgL_iportz00_18610);
																						{
																							long BgL_bufposz00_31241;
																							long BgL_forwardz00_31240;

																							BgL_forwardz00_31240 =
																								BgL_arg2272z00_18614;
																							BgL_bufposz00_31241 =
																								BgL_arg2273z00_18615;
																							BgL_bufposz00_18613 =
																								BgL_bufposz00_31241;
																							BgL_forwardz00_18612 =
																								BgL_forwardz00_31240;
																							goto
																								BgL_statezd283zd21141z00_18075;
																						}
																					}
																				else
																					{	/* Read/reader.scm 301 */
																						BgL_matchz00_18778 =
																							BgL_lastzd2matchzd2_18611;
																					}
																			}
																		else
																			{	/* Read/reader.scm 301 */
																				int BgL_curz00_18616;

																				BgL_curz00_18616 =
																					RGC_BUFFER_GET_CHAR
																					(BgL_iportz00_18610,
																					BgL_forwardz00_18612);
																				{	/* Read/reader.scm 301 */

																					{	/* Read/reader.scm 301 */
																						bool_t BgL_test9850z00_31243;

																						if (
																							((long) (BgL_curz00_18616) >=
																								48L))
																							{	/* Read/reader.scm 301 */
																								BgL_test9850z00_31243 =
																									(
																									(long) (BgL_curz00_18616) <
																									58L);
																							}
																						else
																							{	/* Read/reader.scm 301 */
																								BgL_test9850z00_31243 =
																									((bool_t) 0);
																							}
																						if (BgL_test9850z00_31243)
																							{	/* Read/reader.scm 301 */
																								BgL_iportz00_18559 =
																									BgL_iportz00_18610;
																								BgL_lastzd2matchzd2_18560 =
																									BgL_lastzd2matchzd2_18611;
																								BgL_forwardz00_18561 =
																									(1L + BgL_forwardz00_18612);
																								BgL_bufposz00_18562 =
																									BgL_bufposz00_18613;
																							BgL_statezd284zd21142z00_18069:
																								if (
																									(BgL_forwardz00_18561 ==
																										BgL_bufposz00_18562))
																									{	/* Read/reader.scm 301 */
																										if (rgc_fill_buffer
																											(BgL_iportz00_18559))
																											{	/* Read/reader.scm 301 */
																												long
																													BgL_arg2186z00_18563;
																												long
																													BgL_arg2187z00_18564;
																												BgL_arg2186z00_18563 =
																													RGC_BUFFER_FORWARD
																													(BgL_iportz00_18559);
																												BgL_arg2187z00_18564 =
																													RGC_BUFFER_BUFPOS
																													(BgL_iportz00_18559);
																												{
																													long
																														BgL_bufposz00_31256;
																													long
																														BgL_forwardz00_31255;
																													BgL_forwardz00_31255 =
																														BgL_arg2186z00_18563;
																													BgL_bufposz00_31256 =
																														BgL_arg2187z00_18564;
																													BgL_bufposz00_18562 =
																														BgL_bufposz00_31256;
																													BgL_forwardz00_18561 =
																														BgL_forwardz00_31255;
																													goto
																														BgL_statezd284zd21142z00_18069;
																												}
																											}
																										else
																											{	/* Read/reader.scm 301 */
																												BgL_matchz00_18778 =
																													BgL_lastzd2matchzd2_18560;
																											}
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										int BgL_curz00_18565;

																										BgL_curz00_18565 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_iportz00_18559,
																											BgL_forwardz00_18561);
																										{	/* Read/reader.scm 301 */

																											{	/* Read/reader.scm 301 */
																												bool_t
																													BgL_test9854z00_31258;
																												if (((long)
																														(BgL_curz00_18565)
																														>= 48L))
																													{	/* Read/reader.scm 301 */
																														BgL_test9854z00_31258
																															=
																															((long)
																															(BgL_curz00_18565)
																															< 58L);
																													}
																												else
																													{	/* Read/reader.scm 301 */
																														BgL_test9854z00_31258
																															= ((bool_t) 0);
																													}
																												if (BgL_test9854z00_31258)
																													{	/* Read/reader.scm 301 */
																														long
																															BgL_arg2190z00_18566;
																														BgL_arg2190z00_18566
																															=
																															(1L +
																															BgL_forwardz00_18561);
																														{	/* Read/reader.scm 301 */
																															long
																																BgL_newzd2matchzd2_18567;
																															RGC_STOP_MATCH
																																(BgL_iportz00_18559,
																																BgL_arg2190z00_18566);
																															BgL_newzd2matchzd2_18567
																																= 0L;
																															BgL_matchz00_18778
																																=
																																BgL_newzd2matchzd2_18567;
																													}}
																												else
																													{	/* Read/reader.scm 301 */
																														BgL_matchz00_18778 =
																															BgL_lastzd2matchzd2_18560;
																													}
																											}
																										}
																									}
																							}
																						else
																							{	/* Read/reader.scm 301 */
																								BgL_matchz00_18778 =
																									BgL_lastzd2matchzd2_18611;
																							}
																					}
																				}
																			}
																	}
																else
																	{	/* Read/reader.scm 301 */
																		BgL_matchz00_18778 =
																			BgL_newzd2matchzd2_18101;
																	}
															}
														}
													}
											}
											break;
										case 60L:

											BgL_iportz00_18263 = BgL_iportz00_18155;
											BgL_lastzd2matchzd2_18264 = BgL_lastzd2matchzd2_18156;
											BgL_forwardz00_18265 = (1L + BgL_forwardz00_18157);
											BgL_bufposz00_18266 = BgL_bufposz00_18158;
										BgL_statezd24zd21062z00_18035:
											{	/* Read/reader.scm 301 */
												long BgL_newzd2matchzd2_18267;

												RGC_STOP_MATCH(BgL_iportz00_18263,
													BgL_forwardz00_18265);
												BgL_newzd2matchzd2_18267 = 25L;
												if ((BgL_forwardz00_18265 == BgL_bufposz00_18266))
													{	/* Read/reader.scm 301 */
														if (rgc_fill_buffer(BgL_iportz00_18263))
															{	/* Read/reader.scm 301 */
																long BgL_arg1787z00_18268;
																long BgL_arg1788z00_18269;

																BgL_arg1787z00_18268 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_18263);
																BgL_arg1788z00_18269 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_18263);
																{
																	long BgL_bufposz00_31277;
																	long BgL_forwardz00_31276;

																	BgL_forwardz00_31276 = BgL_arg1787z00_18268;
																	BgL_bufposz00_31277 = BgL_arg1788z00_18269;
																	BgL_bufposz00_18266 = BgL_bufposz00_31277;
																	BgL_forwardz00_18265 = BgL_forwardz00_31276;
																	goto BgL_statezd24zd21062z00_18035;
																}
															}
														else
															{	/* Read/reader.scm 301 */
																BgL_matchz00_18778 = BgL_newzd2matchzd2_18267;
															}
													}
												else
													{	/* Read/reader.scm 301 */
														int BgL_curz00_18270;

														BgL_curz00_18270 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_18263,
															BgL_forwardz00_18265);
														{	/* Read/reader.scm 301 */

															{	/* Read/reader.scm 301 */
																bool_t BgL_test9858z00_31279;

																{	/* Read/reader.scm 301 */
																	bool_t BgL_test9859z00_31280;

																	if (((long) (BgL_curz00_18270) >= 48L))
																		{	/* Read/reader.scm 301 */
																			BgL_test9859z00_31280 =
																				((long) (BgL_curz00_18270) < 58L);
																		}
																	else
																		{	/* Read/reader.scm 301 */
																			BgL_test9859z00_31280 = ((bool_t) 0);
																		}
																	if (BgL_test9859z00_31280)
																		{	/* Read/reader.scm 301 */
																			BgL_test9858z00_31279 = ((bool_t) 1);
																		}
																	else
																		{	/* Read/reader.scm 301 */
																			bool_t BgL_test9861z00_31286;

																			if (((long) (BgL_curz00_18270) >= 65L))
																				{	/* Read/reader.scm 301 */
																					BgL_test9861z00_31286 =
																						((long) (BgL_curz00_18270) < 71L);
																				}
																			else
																				{	/* Read/reader.scm 301 */
																					BgL_test9861z00_31286 = ((bool_t) 0);
																				}
																			if (BgL_test9861z00_31286)
																				{	/* Read/reader.scm 301 */
																					BgL_test9858z00_31279 = ((bool_t) 1);
																				}
																			else
																				{	/* Read/reader.scm 301 */
																					if (
																						((long) (BgL_curz00_18270) >= 97L))
																						{	/* Read/reader.scm 301 */
																							BgL_test9858z00_31279 =
																								(
																								(long) (BgL_curz00_18270) <
																								103L);
																						}
																					else
																						{	/* Read/reader.scm 301 */
																							BgL_test9858z00_31279 =
																								((bool_t) 0);
																						}
																				}
																		}
																}
																if (BgL_test9858z00_31279)
																	{	/* Read/reader.scm 301 */
																		BgL_iportz00_18256 = BgL_iportz00_18263;
																		BgL_lastzd2matchzd2_18257 =
																			BgL_newzd2matchzd2_18267;
																		BgL_forwardz00_18258 =
																			(1L + BgL_forwardz00_18265);
																		BgL_bufposz00_18259 = BgL_bufposz00_18266;
																	BgL_statezd286zd21144z00_18034:
																		if (
																			(BgL_forwardz00_18258 ==
																				BgL_bufposz00_18259))
																			{	/* Read/reader.scm 301 */
																				if (rgc_fill_buffer(BgL_iportz00_18256))
																					{	/* Read/reader.scm 301 */
																						long BgL_arg1766z00_18260;
																						long BgL_arg1767z00_18261;

																						BgL_arg1766z00_18260 =
																							RGC_BUFFER_FORWARD
																							(BgL_iportz00_18256);
																						BgL_arg1767z00_18261 =
																							RGC_BUFFER_BUFPOS
																							(BgL_iportz00_18256);
																						{
																							long BgL_bufposz00_31304;
																							long BgL_forwardz00_31303;

																							BgL_forwardz00_31303 =
																								BgL_arg1766z00_18260;
																							BgL_bufposz00_31304 =
																								BgL_arg1767z00_18261;
																							BgL_bufposz00_18259 =
																								BgL_bufposz00_31304;
																							BgL_forwardz00_18258 =
																								BgL_forwardz00_31303;
																							goto
																								BgL_statezd286zd21144z00_18034;
																						}
																					}
																				else
																					{	/* Read/reader.scm 301 */
																						BgL_matchz00_18778 =
																							BgL_lastzd2matchzd2_18257;
																					}
																			}
																		else
																			{	/* Read/reader.scm 301 */
																				int BgL_curz00_18262;

																				BgL_curz00_18262 =
																					RGC_BUFFER_GET_CHAR
																					(BgL_iportz00_18256,
																					BgL_forwardz00_18258);
																				{	/* Read/reader.scm 301 */

																					{	/* Read/reader.scm 301 */
																						bool_t BgL_test9866z00_31306;

																						{	/* Read/reader.scm 301 */
																							bool_t BgL_test9867z00_31307;

																							if (
																								((long) (BgL_curz00_18262) >=
																									48L))
																								{	/* Read/reader.scm 301 */
																									BgL_test9867z00_31307 =
																										(
																										(long) (BgL_curz00_18262) <
																										58L);
																								}
																							else
																								{	/* Read/reader.scm 301 */
																									BgL_test9867z00_31307 =
																										((bool_t) 0);
																								}
																							if (BgL_test9867z00_31307)
																								{	/* Read/reader.scm 301 */
																									BgL_test9866z00_31306 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Read/reader.scm 301 */
																									bool_t BgL_test9869z00_31313;

																									if (
																										((long) (BgL_curz00_18262)
																											>= 65L))
																										{	/* Read/reader.scm 301 */
																											BgL_test9869z00_31313 =
																												(
																												(long)
																												(BgL_curz00_18262) <
																												71L);
																										}
																									else
																										{	/* Read/reader.scm 301 */
																											BgL_test9869z00_31313 =
																												((bool_t) 0);
																										}
																									if (BgL_test9869z00_31313)
																										{	/* Read/reader.scm 301 */
																											BgL_test9866z00_31306 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Read/reader.scm 301 */
																											if (
																												((long)
																													(BgL_curz00_18262) >=
																													97L))
																												{	/* Read/reader.scm 301 */
																													BgL_test9866z00_31306
																														=
																														((long)
																														(BgL_curz00_18262) <
																														103L);
																												}
																											else
																												{	/* Read/reader.scm 301 */
																													BgL_test9866z00_31306
																														= ((bool_t) 0);
																												}
																										}
																								}
																						}
																						if (BgL_test9866z00_31306)
																							{	/* Read/reader.scm 301 */
																								BgL_iportz00_18304 =
																									BgL_iportz00_18256;
																								BgL_lastzd2matchzd2_18305 =
																									BgL_lastzd2matchzd2_18257;
																								BgL_forwardz00_18306 =
																									(1L + BgL_forwardz00_18258);
																								BgL_bufposz00_18307 =
																									BgL_bufposz00_18259;
																							BgL_statezd287zd21145z00_18040:
																								if (
																									(BgL_forwardz00_18306 ==
																										BgL_bufposz00_18307))
																									{	/* Read/reader.scm 301 */
																										if (rgc_fill_buffer
																											(BgL_iportz00_18304))
																											{	/* Read/reader.scm 301 */
																												long
																													BgL_arg1865z00_18308;
																												long
																													BgL_arg1866z00_18309;
																												BgL_arg1865z00_18308 =
																													RGC_BUFFER_FORWARD
																													(BgL_iportz00_18304);
																												BgL_arg1866z00_18309 =
																													RGC_BUFFER_BUFPOS
																													(BgL_iportz00_18304);
																												{
																													long
																														BgL_bufposz00_31331;
																													long
																														BgL_forwardz00_31330;
																													BgL_forwardz00_31330 =
																														BgL_arg1865z00_18308;
																													BgL_bufposz00_31331 =
																														BgL_arg1866z00_18309;
																													BgL_bufposz00_18307 =
																														BgL_bufposz00_31331;
																													BgL_forwardz00_18306 =
																														BgL_forwardz00_31330;
																													goto
																														BgL_statezd287zd21145z00_18040;
																												}
																											}
																										else
																											{	/* Read/reader.scm 301 */
																												BgL_matchz00_18778 =
																													BgL_lastzd2matchzd2_18305;
																											}
																									}
																								else
																									{	/* Read/reader.scm 301 */
																										int BgL_curz00_18310;

																										BgL_curz00_18310 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_iportz00_18304,
																											BgL_forwardz00_18306);
																										{	/* Read/reader.scm 301 */

																											{	/* Read/reader.scm 301 */
																												bool_t
																													BgL_test9874z00_31333;
																												{	/* Read/reader.scm 301 */
																													bool_t
																														BgL_test9875z00_31334;
																													if (((long)
																															(BgL_curz00_18310)
																															>= 48L))
																														{	/* Read/reader.scm 301 */
																															BgL_test9875z00_31334
																																=
																																((long)
																																(BgL_curz00_18310)
																																< 58L);
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															BgL_test9875z00_31334
																																= ((bool_t) 0);
																														}
																													if (BgL_test9875z00_31334)
																														{	/* Read/reader.scm 301 */
																															BgL_test9874z00_31333
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															bool_t
																																BgL_test9877z00_31340;
																															if (((long)
																																	(BgL_curz00_18310)
																																	>= 65L))
																																{	/* Read/reader.scm 301 */
																																	BgL_test9877z00_31340
																																		=
																																		((long)
																																		(BgL_curz00_18310)
																																		< 71L);
																																}
																															else
																																{	/* Read/reader.scm 301 */
																																	BgL_test9877z00_31340
																																		=
																																		((bool_t)
																																		0);
																																}
																															if (BgL_test9877z00_31340)
																																{	/* Read/reader.scm 301 */
																																	BgL_test9874z00_31333
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Read/reader.scm 301 */
																																	if (
																																		((long)
																																			(BgL_curz00_18310)
																																			>= 97L))
																																		{	/* Read/reader.scm 301 */
																																			BgL_test9874z00_31333
																																				=
																																				((long)
																																				(BgL_curz00_18310)
																																				< 103L);
																																		}
																																	else
																																		{	/* Read/reader.scm 301 */
																																			BgL_test9874z00_31333
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																}
																														}
																												}
																												if (BgL_test9874z00_31333)
																													{	/* Read/reader.scm 301 */
																														BgL_iportz00_18753 =
																															BgL_iportz00_18304;
																														BgL_lastzd2matchzd2_18754
																															=
																															BgL_lastzd2matchzd2_18305;
																														BgL_forwardz00_18755
																															=
																															(1L +
																															BgL_forwardz00_18306);
																														BgL_bufposz00_18756
																															=
																															BgL_bufposz00_18307;
																													BgL_statezd288zd21146z00_18093:
																														if (
																															(BgL_forwardz00_18755
																																==
																																BgL_bufposz00_18756))
																															{	/* Read/reader.scm 301 */
																																if (rgc_fill_buffer(BgL_iportz00_18753))
																																	{	/* Read/reader.scm 301 */
																																		long
																																			BgL_arg2511z00_18757;
																																		long
																																			BgL_arg2512z00_18758;
																																		BgL_arg2511z00_18757
																																			=
																																			RGC_BUFFER_FORWARD
																																			(BgL_iportz00_18753);
																																		BgL_arg2512z00_18758
																																			=
																																			RGC_BUFFER_BUFPOS
																																			(BgL_iportz00_18753);
																																		{
																																			long
																																				BgL_bufposz00_31358;
																																			long
																																				BgL_forwardz00_31357;
																																			BgL_forwardz00_31357
																																				=
																																				BgL_arg2511z00_18757;
																																			BgL_bufposz00_31358
																																				=
																																				BgL_arg2512z00_18758;
																																			BgL_bufposz00_18756
																																				=
																																				BgL_bufposz00_31358;
																																			BgL_forwardz00_18755
																																				=
																																				BgL_forwardz00_31357;
																																			goto
																																				BgL_statezd288zd21146z00_18093;
																																		}
																																	}
																																else
																																	{	/* Read/reader.scm 301 */
																																		BgL_matchz00_18778
																																			=
																																			BgL_lastzd2matchzd2_18754;
																																	}
																															}
																														else
																															{	/* Read/reader.scm 301 */
																																int
																																	BgL_curz00_18759;
																																BgL_curz00_18759
																																	=
																																	RGC_BUFFER_GET_CHAR
																																	(BgL_iportz00_18753,
																																	BgL_forwardz00_18755);
																																{	/* Read/reader.scm 301 */

																																	{	/* Read/reader.scm 301 */
																																		bool_t
																																			BgL_test9882z00_31360;
																																		{	/* Read/reader.scm 301 */
																																			bool_t
																																				BgL_test9883z00_31361;
																																			if ((
																																					(long)
																																					(BgL_curz00_18759)
																																					>=
																																					48L))
																																				{	/* Read/reader.scm 301 */
																																					BgL_test9883z00_31361
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_18759)
																																						<
																																						58L);
																																				}
																																			else
																																				{	/* Read/reader.scm 301 */
																																					BgL_test9883z00_31361
																																						=
																																						(
																																						(bool_t)
																																						0);
																																				}
																																			if (BgL_test9883z00_31361)
																																				{	/* Read/reader.scm 301 */
																																					BgL_test9882z00_31360
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Read/reader.scm 301 */
																																					bool_t
																																						BgL_test9885z00_31367;
																																					if ((
																																							(long)
																																							(BgL_curz00_18759)
																																							>=
																																							65L))
																																						{	/* Read/reader.scm 301 */
																																							BgL_test9885z00_31367
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_18759)
																																								<
																																								71L);
																																						}
																																					else
																																						{	/* Read/reader.scm 301 */
																																							BgL_test9885z00_31367
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																					if (BgL_test9885z00_31367)
																																						{	/* Read/reader.scm 301 */
																																							BgL_test9882z00_31360
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Read/reader.scm 301 */
																																							if (((long) (BgL_curz00_18759) >= 97L))
																																								{	/* Read/reader.scm 301 */
																																									BgL_test9882z00_31360
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_18759)
																																										<
																																										103L);
																																								}
																																							else
																																								{	/* Read/reader.scm 301 */
																																									BgL_test9882z00_31360
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																						}
																																				}
																																		}
																																		if (BgL_test9882z00_31360)
																																			{	/* Read/reader.scm 301 */
																																				long
																																					BgL_arg2518z00_18760;
																																				BgL_arg2518z00_18760
																																					=
																																					(1L +
																																					BgL_forwardz00_18755);
																																				{
																																					long
																																						BgL_forwardz00_18762;
																																					long
																																						BgL_bufposz00_18763;
																																					BgL_forwardz00_18762
																																						=
																																						BgL_arg2518z00_18760;
																																					BgL_bufposz00_18763
																																						=
																																						BgL_bufposz00_18756;
																																				BgL_statezd289zd21147z00_18761:
																																					if (
																																						(BgL_forwardz00_18762
																																							==
																																							BgL_bufposz00_18763))
																																						{	/* Read/reader.scm 301 */
																																							if (rgc_fill_buffer(BgL_iportz00_18753))
																																								{	/* Read/reader.scm 301 */
																																									long
																																										BgL_arg1521z00_18764;
																																									long
																																										BgL_arg1522z00_18765;
																																									BgL_arg1521z00_18764
																																										=
																																										RGC_BUFFER_FORWARD
																																										(BgL_iportz00_18753);
																																									BgL_arg1522z00_18765
																																										=
																																										RGC_BUFFER_BUFPOS
																																										(BgL_iportz00_18753);
																																									{
																																										long
																																											BgL_bufposz00_31386;
																																										long
																																											BgL_forwardz00_31385;
																																										BgL_forwardz00_31385
																																											=
																																											BgL_arg1521z00_18764;
																																										BgL_bufposz00_31386
																																											=
																																											BgL_arg1522z00_18765;
																																										BgL_bufposz00_18763
																																											=
																																											BgL_bufposz00_31386;
																																										BgL_forwardz00_18762
																																											=
																																											BgL_forwardz00_31385;
																																										goto
																																											BgL_statezd289zd21147z00_18761;
																																									}
																																								}
																																							else
																																								{	/* Read/reader.scm 301 */
																																									BgL_matchz00_18778
																																										=
																																										BgL_lastzd2matchzd2_18754;
																																								}
																																						}
																																					else
																																						{	/* Read/reader.scm 301 */
																																							int
																																								BgL_curz00_18766;
																																							BgL_curz00_18766
																																								=
																																								RGC_BUFFER_GET_CHAR
																																								(BgL_iportz00_18753,
																																								BgL_forwardz00_18762);
																																							{	/* Read/reader.scm 301 */

																																								if (((long) (BgL_curz00_18766) == 62L))
																																									{	/* Read/reader.scm 301 */
																																										long
																																											BgL_arg1524z00_18767;
																																										BgL_arg1524z00_18767
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_18762);
																																										{	/* Read/reader.scm 301 */
																																											long
																																												BgL_newzd2matchzd2_18768;
																																											RGC_STOP_MATCH
																																												(BgL_iportz00_18753,
																																												BgL_arg1524z00_18767);
																																											BgL_newzd2matchzd2_18768
																																												=
																																												23L;
																																											BgL_matchz00_18778
																																												=
																																												BgL_newzd2matchzd2_18768;
																																									}}
																																								else
																																									{	/* Read/reader.scm 301 */
																																										BgL_matchz00_18778
																																											=
																																											BgL_lastzd2matchzd2_18754;
																																									}
																																							}
																																						}
																																				}
																																			}
																																		else
																																			{	/* Read/reader.scm 301 */
																																				BgL_matchz00_18778
																																					=
																																					BgL_lastzd2matchzd2_18754;
																																			}
																																	}
																																}
																															}
																													}
																												else
																													{	/* Read/reader.scm 301 */
																														BgL_matchz00_18778 =
																															BgL_lastzd2matchzd2_18305;
																													}
																											}
																										}
																									}
																							}
																						else
																							{	/* Read/reader.scm 301 */
																								BgL_matchz00_18778 =
																									BgL_lastzd2matchzd2_18257;
																							}
																					}
																				}
																			}
																	}
																else
																	{	/* Read/reader.scm 301 */
																		BgL_matchz00_18778 =
																			BgL_newzd2matchzd2_18267;
																	}
															}
														}
													}
											}
											break;
										case 44L:

											{	/* Read/reader.scm 301 */
												long BgL_arg1621z00_18162;

												BgL_arg1621z00_18162 = (1L + BgL_forwardz00_18157);
												{	/* Read/reader.scm 301 */
													long BgL_newzd2matchzd2_18163;

													RGC_STOP_MATCH(BgL_iportz00_18155,
														BgL_arg1621z00_18162);
													BgL_newzd2matchzd2_18163 = 24L;
													BgL_matchz00_18778 = BgL_newzd2matchzd2_18163;
											}} break;
										case 34L:

											BgL_iportz00_18138 = BgL_iportz00_18155;
											BgL_lastzd2matchzd2_18139 = BgL_lastzd2matchzd2_18156;
											BgL_forwardz00_18140 = (1L + BgL_forwardz00_18157);
											BgL_bufposz00_18141 = BgL_bufposz00_18158;
										BgL_statezd22zd21060z00_18021:
											{	/* Read/reader.scm 301 */
												long BgL_newzd2matchzd2_18142;

												RGC_STOP_MATCH(BgL_iportz00_18138,
													BgL_forwardz00_18140);
												BgL_newzd2matchzd2_18142 = 25L;
												if ((BgL_forwardz00_18140 == BgL_bufposz00_18141))
													{	/* Read/reader.scm 301 */
														if (rgc_fill_buffer(BgL_iportz00_18138))
															{	/* Read/reader.scm 301 */
																long BgL_arg1592z00_18143;
																long BgL_arg1593z00_18144;

																BgL_arg1592z00_18143 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_18138);
																BgL_arg1593z00_18144 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_18138);
																{
																	long BgL_bufposz00_31407;
																	long BgL_forwardz00_31406;

																	BgL_forwardz00_31406 = BgL_arg1592z00_18143;
																	BgL_bufposz00_31407 = BgL_arg1593z00_18144;
																	BgL_bufposz00_18141 = BgL_bufposz00_31407;
																	BgL_forwardz00_18140 = BgL_forwardz00_31406;
																	goto BgL_statezd22zd21060z00_18021;
																}
															}
														else
															{	/* Read/reader.scm 301 */
																BgL_matchz00_18778 = BgL_newzd2matchzd2_18142;
															}
													}
												else
													{	/* Read/reader.scm 301 */
														int BgL_curz00_18145;

														BgL_curz00_18145 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_18138,
															BgL_forwardz00_18140);
														{	/* Read/reader.scm 301 */

															if (((long) (BgL_curz00_18145) == 92L))
																{	/* Read/reader.scm 301 */
																	long BgL_arg1595z00_18146;

																	BgL_arg1595z00_18146 =
																		(1L + BgL_forwardz00_18140);
																	{
																		long BgL_forwardz00_18148;
																		long BgL_bufposz00_18149;

																		BgL_forwardz00_18148 = BgL_arg1595z00_18146;
																		BgL_bufposz00_18149 = BgL_bufposz00_18141;
																	BgL_statezd293zd21151z00_18147:
																		if (
																			(BgL_forwardz00_18148 ==
																				BgL_bufposz00_18149))
																			{	/* Read/reader.scm 301 */
																				if (rgc_fill_buffer(BgL_iportz00_18138))
																					{	/* Read/reader.scm 301 */
																						long BgL_arg1975z00_18150;
																						long BgL_arg1977z00_18151;

																						BgL_arg1975z00_18150 =
																							RGC_BUFFER_FORWARD
																							(BgL_iportz00_18138);
																						BgL_arg1977z00_18151 =
																							RGC_BUFFER_BUFPOS
																							(BgL_iportz00_18138);
																						{
																							long BgL_bufposz00_31420;
																							long BgL_forwardz00_31419;

																							BgL_forwardz00_31419 =
																								BgL_arg1975z00_18150;
																							BgL_bufposz00_31420 =
																								BgL_arg1977z00_18151;
																							BgL_bufposz00_18149 =
																								BgL_bufposz00_31420;
																							BgL_forwardz00_18148 =
																								BgL_forwardz00_31419;
																							goto
																								BgL_statezd293zd21151z00_18147;
																						}
																					}
																				else
																					{	/* Read/reader.scm 301 */
																						BgL_matchz00_18778 =
																							BgL_newzd2matchzd2_18142;
																					}
																			}
																		else
																			{	/* Read/reader.scm 301 */
																				int BgL_curz00_18152;

																				BgL_curz00_18152 =
																					RGC_BUFFER_GET_CHAR
																					(BgL_iportz00_18138,
																					BgL_forwardz00_18148);
																				{	/* Read/reader.scm 301 */

																					if (
																						((long) (BgL_curz00_18152) == 10L))
																						{	/* Read/reader.scm 301 */
																							BgL_matchz00_18778 =
																								BgL_newzd2matchzd2_18142;
																						}
																					else
																						{	/* Read/reader.scm 301 */
																							BgL_iportz00_18311 =
																								BgL_iportz00_18138;
																							BgL_lastzd2matchzd2_18312 =
																								BgL_newzd2matchzd2_18142;
																							BgL_forwardz00_18313 =
																								(1L + BgL_forwardz00_18148);
																							BgL_bufposz00_18314 =
																								BgL_bufposz00_18149;
																						BgL_statezd291zd21149z00_18041:
																							if (
																								(BgL_forwardz00_18313 ==
																									BgL_bufposz00_18314))
																								{	/* Read/reader.scm 301 */
																									if (rgc_fill_buffer
																										(BgL_iportz00_18311))
																										{	/* Read/reader.scm 301 */
																											long BgL_arg1878z00_18315;
																											long BgL_arg1879z00_18316;

																											BgL_arg1878z00_18315 =
																												RGC_BUFFER_FORWARD
																												(BgL_iportz00_18311);
																											BgL_arg1879z00_18316 =
																												RGC_BUFFER_BUFPOS
																												(BgL_iportz00_18311);
																											{
																												long
																													BgL_bufposz00_31432;
																												long
																													BgL_forwardz00_31431;
																												BgL_forwardz00_31431 =
																													BgL_arg1878z00_18315;
																												BgL_bufposz00_31432 =
																													BgL_arg1879z00_18316;
																												BgL_bufposz00_18314 =
																													BgL_bufposz00_31432;
																												BgL_forwardz00_18313 =
																													BgL_forwardz00_31431;
																												goto
																													BgL_statezd291zd21149z00_18041;
																											}
																										}
																									else
																										{	/* Read/reader.scm 301 */
																											BgL_matchz00_18778 =
																												BgL_lastzd2matchzd2_18312;
																										}
																								}
																							else
																								{	/* Read/reader.scm 301 */
																									int BgL_curz00_18317;

																									BgL_curz00_18317 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_iportz00_18311,
																										BgL_forwardz00_18313);
																									{	/* Read/reader.scm 301 */

																										if (
																											((long) (BgL_curz00_18317)
																												== 92L))
																											{	/* Read/reader.scm 301 */
																												long
																													BgL_arg1881z00_18318;
																												BgL_arg1881z00_18318 =
																													(1L +
																													BgL_forwardz00_18313);
																												{
																													long
																														BgL_forwardz00_18320;
																													long
																														BgL_bufposz00_18321;
																													BgL_forwardz00_18320 =
																														BgL_arg1881z00_18318;
																													BgL_bufposz00_18321 =
																														BgL_bufposz00_18314;
																												BgL_statezd293zd21151z00_18319:
																													if (
																														(BgL_forwardz00_18320
																															==
																															BgL_bufposz00_18321))
																														{	/* Read/reader.scm 301 */
																															if (rgc_fill_buffer(BgL_iportz00_18311))
																																{	/* Read/reader.scm 301 */
																																	long
																																		BgL_arg1975z00_18322;
																																	long
																																		BgL_arg1977z00_18323;
																																	BgL_arg1975z00_18322
																																		=
																																		RGC_BUFFER_FORWARD
																																		(BgL_iportz00_18311);
																																	BgL_arg1977z00_18323
																																		=
																																		RGC_BUFFER_BUFPOS
																																		(BgL_iportz00_18311);
																																	{
																																		long
																																			BgL_bufposz00_31445;
																																		long
																																			BgL_forwardz00_31444;
																																		BgL_forwardz00_31444
																																			=
																																			BgL_arg1975z00_18322;
																																		BgL_bufposz00_31445
																																			=
																																			BgL_arg1977z00_18323;
																																		BgL_bufposz00_18321
																																			=
																																			BgL_bufposz00_31445;
																																		BgL_forwardz00_18320
																																			=
																																			BgL_forwardz00_31444;
																																		goto
																																			BgL_statezd293zd21151z00_18319;
																																	}
																																}
																															else
																																{	/* Read/reader.scm 301 */
																																	BgL_matchz00_18778
																																		=
																																		BgL_lastzd2matchzd2_18312;
																																}
																														}
																													else
																														{	/* Read/reader.scm 301 */
																															int
																																BgL_curz00_18324;
																															BgL_curz00_18324 =
																																RGC_BUFFER_GET_CHAR
																																(BgL_iportz00_18311,
																																BgL_forwardz00_18320);
																															{	/* Read/reader.scm 301 */

																																if (
																																	((long)
																																		(BgL_curz00_18324)
																																		== 10L))
																																	{	/* Read/reader.scm 301 */
																																		BgL_matchz00_18778
																																			=
																																			BgL_lastzd2matchzd2_18312;
																																	}
																																else
																																	{
																																		long
																																			BgL_bufposz00_31452;
																																		long
																																			BgL_forwardz00_31450;
																																		BgL_forwardz00_31450
																																			=
																																			(1L +
																																			BgL_forwardz00_18320);
																																		BgL_bufposz00_31452
																																			=
																																			BgL_bufposz00_18321;
																																		BgL_bufposz00_18314
																																			=
																																			BgL_bufposz00_31452;
																																		BgL_forwardz00_18313
																																			=
																																			BgL_forwardz00_31450;
																																		goto
																																			BgL_statezd291zd21149z00_18041;
																																	}
																															}
																														}
																												}
																											}
																										else
																											{	/* Read/reader.scm 301 */
																												if (
																													((long)
																														(BgL_curz00_18317)
																														== 34L))
																													{	/* Read/reader.scm 301 */
																														long
																															BgL_arg1883z00_18325;
																														BgL_arg1883z00_18325
																															=
																															(1L +
																															BgL_forwardz00_18313);
																														{	/* Read/reader.scm 301 */
																															long
																																BgL_newzd2matchzd2_18326;
																															RGC_STOP_MATCH
																																(BgL_iportz00_18311,
																																BgL_arg1883z00_18325);
																															BgL_newzd2matchzd2_18326
																																= 2L;
																															BgL_matchz00_18778
																																=
																																BgL_newzd2matchzd2_18326;
																													}}
																												else
																													{	/* Read/reader.scm 301 */
																														bool_t
																															BgL_test9904z00_31458;
																														if (((long)
																																(BgL_curz00_18317)
																																== 34L))
																															{	/* Read/reader.scm 301 */
																																BgL_test9904z00_31458
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Read/reader.scm 301 */
																																BgL_test9904z00_31458
																																	=
																																	((long)
																																	(BgL_curz00_18317)
																																	== 92L);
																															}
																														if (BgL_test9904z00_31458)
																															{	/* Read/reader.scm 301 */
																																BgL_matchz00_18778
																																	=
																																	BgL_lastzd2matchzd2_18312;
																															}
																														else
																															{
																																long
																																	BgL_forwardz00_31464;
																																BgL_forwardz00_31464
																																	=
																																	(1L +
																																	BgL_forwardz00_18313);
																																BgL_forwardz00_18313
																																	=
																																	BgL_forwardz00_31464;
																																goto
																																	BgL_statezd291zd21149z00_18041;
																															}
																													}
																											}
																									}
																								}
																						}
																				}
																			}
																	}
																}
															else
																{	/* Read/reader.scm 301 */
																	if (((long) (BgL_curz00_18145) == 34L))
																		{	/* Read/reader.scm 301 */
																			long BgL_arg1597z00_18153;

																			BgL_arg1597z00_18153 =
																				(1L + BgL_forwardz00_18140);
																			{	/* Read/reader.scm 301 */
																				long BgL_newzd2matchzd2_18154;

																				RGC_STOP_MATCH(BgL_iportz00_18138,
																					BgL_arg1597z00_18153);
																				BgL_newzd2matchzd2_18154 = 2L;
																				BgL_matchz00_18778 =
																					BgL_newzd2matchzd2_18154;
																		}}
																	else
																		{	/* Read/reader.scm 301 */
																			bool_t BgL_test9907z00_31472;

																			if (((long) (BgL_curz00_18145) == 34L))
																				{	/* Read/reader.scm 301 */
																					BgL_test9907z00_31472 = ((bool_t) 1);
																				}
																			else
																				{	/* Read/reader.scm 301 */
																					BgL_test9907z00_31472 =
																						((long) (BgL_curz00_18145) == 92L);
																				}
																			if (BgL_test9907z00_31472)
																				{	/* Read/reader.scm 301 */
																					BgL_matchz00_18778 =
																						BgL_newzd2matchzd2_18142;
																				}
																			else
																				{
																					long BgL_bufposz00_31482;
																					long BgL_forwardz00_31480;
																					long BgL_lastzd2matchzd2_31479;
																					obj_t BgL_iportz00_31478;

																					BgL_iportz00_31478 =
																						BgL_iportz00_18138;
																					BgL_lastzd2matchzd2_31479 =
																						BgL_newzd2matchzd2_18142;
																					BgL_forwardz00_31480 =
																						(1L + BgL_forwardz00_18140);
																					BgL_bufposz00_31482 =
																						BgL_bufposz00_18141;
																					BgL_bufposz00_18314 =
																						BgL_bufposz00_31482;
																					BgL_forwardz00_18313 =
																						BgL_forwardz00_31480;
																					BgL_lastzd2matchzd2_18312 =
																						BgL_lastzd2matchzd2_31479;
																					BgL_iportz00_18311 =
																						BgL_iportz00_31478;
																					goto BgL_statezd291zd21149z00_18041;
																				}
																		}
																}
														}
													}
											}
											break;
										case 255L:
										case 254L:
										case 253L:
										case 252L:
										case 251L:
										case 250L:
										case 249L:
										case 248L:
										case 247L:
										case 246L:
										case 245L:
										case 244L:
										case 243L:
										case 242L:
										case 241L:
										case 240L:
										case 239L:
										case 238L:
										case 237L:
										case 236L:
										case 235L:
										case 234L:
										case 233L:
										case 232L:
										case 231L:
										case 230L:
										case 229L:
										case 228L:
										case 227L:
										case 226L:
										case 225L:
										case 224L:
										case 223L:
										case 222L:
										case 221L:
										case 220L:
										case 219L:
										case 218L:
										case 217L:
										case 216L:
										case 215L:
										case 214L:
										case 213L:
										case 212L:
										case 211L:
										case 210L:
										case 209L:
										case 208L:
										case 207L:
										case 206L:
										case 205L:
										case 204L:
										case 203L:
										case 202L:
										case 201L:
										case 200L:
										case 199L:
										case 198L:
										case 197L:
										case 196L:
										case 195L:
										case 194L:
										case 193L:
										case 192L:
										case 191L:
										case 190L:
										case 189L:
										case 188L:
										case 187L:
										case 186L:
										case 185L:
										case 184L:
										case 183L:
										case 182L:
										case 181L:
										case 180L:
										case 179L:
										case 178L:
										case 177L:
										case 176L:
										case 175L:
										case 174L:
										case 173L:
										case 172L:
										case 171L:
										case 170L:
										case 169L:
										case 168L:
										case 167L:
										case 166L:
										case 165L:
										case 164L:
										case 163L:
										case 162L:
										case 161L:
										case 160L:
										case 159L:
										case 158L:
										case 157L:
										case 156L:
										case 155L:
										case 154L:
										case 153L:
										case 152L:
										case 151L:
										case 150L:
										case 149L:
										case 148L:
										case 147L:
										case 146L:
										case 145L:
										case 144L:
										case 143L:
										case 142L:
										case 141L:
										case 140L:
										case 139L:
										case 138L:
										case 137L:
										case 136L:
										case 135L:
										case 134L:
										case 133L:
										case 132L:
										case 131L:
										case 130L:
										case 129L:
										case 128L:
										case 127L:
										case 126L:
										case 125L:
										case 124L:
										case 123L:
										case 121L:
										case 119L:
										case 118L:
										case 116L:
										case 114L:
										case 113L:
										case 112L:
										case 110L:
										case 109L:
										case 107L:
										case 106L:
										case 105L:
										case 104L:
										case 103L:
										case 102L:
										case 99L:
										case 96L:
										case 95L:
										case 94L:
										case 93L:
										case 92L:
										case 91L:
										case 90L:
										case 89L:
										case 88L:
										case 87L:
										case 86L:
										case 85L:
										case 84L:
										case 83L:
										case 82L:
										case 81L:
										case 80L:
										case 79L:
										case 78L:
										case 77L:
										case 76L:
										case 75L:
										case 74L:
										case 73L:
										case 72L:
										case 71L:
										case 70L:
										case 69L:
										case 68L:
										case 67L:
										case 66L:
										case 65L:
										case 64L:
										case 63L:
										case 62L:
										case 61L:
										case 59L:
										case 58L:
										case 57L:
										case 56L:
										case 55L:
										case 54L:
										case 53L:
										case 52L:
										case 51L:
										case 50L:
										case 49L:
										case 48L:
										case 47L:
										case 46L:
										case 45L:
										case 43L:
										case 42L:
										case 41L:
										case 40L:
										case 39L:
										case 38L:
										case 37L:
										case 36L:
										case 35L:
										case 33L:
										case 32L:
										case 31L:
										case 30L:
										case 29L:
										case 28L:
										case 27L:
										case 26L:
										case 25L:
										case 24L:
										case 23L:
										case 22L:
										case 21L:
										case 20L:
										case 19L:
										case 18L:
										case 17L:
										case 16L:
										case 15L:
										case 14L:
										case 13L:
										case 12L:
										case 11L:
										case 10L:
										case 9L:
										case 8L:
										case 7L:
										case 6L:
										case 5L:
										case 4L:
										case 3L:
										case 2L:
										case 1L:
										case 0L:

											{	/* Read/reader.scm 301 */
												long BgL_arg1623z00_18164;

												BgL_arg1623z00_18164 = (1L + BgL_forwardz00_18157);
												{	/* Read/reader.scm 301 */
													long BgL_newzd2matchzd2_18165;

													RGC_STOP_MATCH(BgL_iportz00_18155,
														BgL_arg1623z00_18164);
													BgL_newzd2matchzd2_18165 = 25L;
													BgL_matchz00_18778 = BgL_newzd2matchzd2_18165;
											}} break;
										default:
											BgL_matchz00_18778 = BgL_lastzd2matchzd2_18156;
										}
								}
							}
					}
					RGC_SET_FILEPOS(BgL_iportz00_17833);
					switch (BgL_matchz00_18778)
						{
						case 25L:

							{	/* Read/reader.scm 400 */
								obj_t BgL_cz00_18781;

								{	/* Read/reader.scm 301 */
									bool_t BgL_test9909z00_31489;

									{	/* Read/reader.scm 301 */
										long BgL_arg2618z00_18777;

										BgL_arg2618z00_18777 =
											RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_17833);
										BgL_test9909z00_31489 = (BgL_arg2618z00_18777 == 0L);
									}
									if (BgL_test9909z00_31489)
										{	/* Read/reader.scm 301 */
											BgL_cz00_18781 = BEOF;
										}
									else
										{	/* Read/reader.scm 301 */
											BgL_cz00_18781 =
												BCHAR(RGC_BUFFER_CHARACTER(BgL_iportz00_17833));
										}
								}
								if (CHARP(BgL_cz00_18781))
									{	/* Read/reader.scm 402 */
										obj_t BgL_arg2626z00_18782;

										{	/* Read/reader.scm 402 */
											obj_t BgL_list2629z00_18783;

											{	/* Read/reader.scm 402 */
												obj_t BgL_arg2630z00_18784;

												BgL_arg2630z00_18784 =
													MAKE_YOUNG_PAIR(BgL_cz00_18781, BNIL);
												BgL_list2629z00_18783 =
													MAKE_YOUNG_PAIR(BCHAR(((unsigned char) '#')),
													BgL_arg2630z00_18784);
											}
											BgL_arg2626z00_18782 =
												BGl_listzd2ze3stringz31zz__r4_strings_6_7z00
												(BgL_list2629z00_18783);
										}
										return
											BGl_readzd2errorzd2zz__readerz00
											(BGl_string6920z00zz__readerz00, BgL_arg2626z00_18782,
											BgL_iportz00_17833);
									}
								else
									{	/* Read/reader.scm 401 */
										return
											BGl_readzd2errorzd2zz__readerz00
											(BGl_string6868z00zz__readerz00, BgL_cz00_18781,
											BgL_iportz00_17833);
									}
							}
							break;
						case 24L:

							{	/* Read/reader.scm 391 */
								obj_t BgL_fz00_18785;

								{	/* Read/reader.scm 391 */

									{	/* Read/reader.scm 391 */

										if (INPUT_PORT_CLOSEP(BgL_iportz00_17833))
											{	/* Read/reader.scm 818 */
												BgL_fz00_18785 =
													BGl_errorz00zz__errorz00
													(BGl_string6874z00zz__readerz00,
													BGl_string6945z00zz__readerz00, BgL_iportz00_17833);
											}
										else
											{	/* Read/reader.scm 824 */
												obj_t BgL_fun6351z00_18787;

												BgL_fun6351z00_18787 =
													BGl_za2bigloozd2grammarza2zd2zz__readerz00;
												BgL_fz00_18785 =
													BGL_PROCEDURE_CALL7(BgL_fun6351z00_18787,
													BgL_iportz00_17833, BFALSE,
													BGl_vector6946z00zz__readerz00, BINT(0L), BINT(0L),
													BNIL, BNIL);
											}
									}
								}
								if (PAIRP(BgL_fz00_18785))
									{	/* Read/reader.scm 393 */
										obj_t BgL_pz00_18788;

										{	/* Read/reader.scm 393 */
											obj_t BgL_arg2638z00_18789;

											BgL_arg2638z00_18789 = CAR(BgL_fz00_18785);
											{	/* Read/reader.scm 877 */
												obj_t BgL_pz00_18790;

												BgL_pz00_18790 =
													BGl_assqz00zz__r4_pairs_and_lists_6_3z00
													(BgL_arg2638z00_18789,
													BGl_za2readerzd2ctorsza2zd2zz__readerz00);
												if (PAIRP(BgL_pz00_18790))
													{	/* Read/reader.scm 878 */
														BgL_pz00_18788 = CDR(BgL_pz00_18790);
													}
												else
													{	/* Read/reader.scm 878 */
														BgL_pz00_18788 = BFALSE;
													}
											}
										}
										if (PROCEDUREP(BgL_pz00_18788))
											{	/* Read/reader.scm 394 */
												return apply(BgL_pz00_18788, CDR(BgL_fz00_18785));
											}
										else
											{	/* Read/reader.scm 394 */
												return
													BGl_readzd2errorzd2zz__readerz00
													(BGl_string6947z00zz__readerz00, CAR(BgL_fz00_18785),
													BgL_iportz00_17833);
											}
									}
								else
									{	/* Read/reader.scm 392 */
										return
											BGl_readzd2errorzd2zz__readerz00
											(BGl_string6948z00zz__readerz00, BgL_fz00_18785,
											BgL_iportz00_17833);
									}
							}
							break;
						case 23L:

							{	/* Read/reader.scm 387 */
								long BgL_arg2642z00_18791;

								{	/* Read/reader.scm 387 */
									obj_t BgL_arg2644z00_18792;

									BgL_arg2644z00_18792 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_17833,
										(int) (1L), (int) (5L));
									{	/* Read/reader.scm 387 */
										char *BgL_tmpz00_31535;

										BgL_tmpz00_31535 = BSTRING_TO_STRING(BgL_arg2644z00_18792);
										BgL_arg2642z00_18791 =
											BGL_STRTOL(BgL_tmpz00_31535, 0L, 16L);
								}}
								return BCNST(BgL_arg2642z00_18791);
							}
							break;
						case 22L:

							{	/* Read/reader.scm 376 */
								obj_t BgL_s2z00_18793;
								obj_t BgL_s1z00_18794;

								BgL_s2z00_18793 =
									BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_17833,
									(int) (5L), (int) (0L));
								BgL_s1z00_18794 =
									BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_17833,
									(int) (4L), (int) (5L));
								{	/* Read/reader.scm 378 */
									uint64_t BgL_arg2645z00_18795;
									uint64_t BgL_arg2647z00_18796;

									{	/* Read/reader.scm 378 */
										BGL_LONGLONG_T BgL_arg2648z00_18797;

										{	/* Read/reader.scm 376 */

											BgL_arg2648z00_18797 =
												BGl_stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00
												(BgL_s2z00_18793, 10L);
										}
										BgL_arg2645z00_18795 = (uint64_t) (BgL_arg2648z00_18797);
									}
									{	/* Read/reader.scm 379 */
										long BgL_g1187z00_18798;
										uint64_t BgL_g1188z00_18799;

										BgL_g1187z00_18798 = STRING_LENGTH(BgL_s2z00_18793);
										{	/* Read/reader.scm 380 */
											long BgL_arg2668z00_18800;

											{	/* Read/reader.scm 380 */
												char *BgL_tmpz00_31548;

												BgL_tmpz00_31548 = BSTRING_TO_STRING(BgL_s1z00_18794);
												BgL_arg2668z00_18800 =
													BGL_STRTOL(BgL_tmpz00_31548, 0L, 10L);
											}
											BgL_g1188z00_18799 = (uint64_t) (BgL_arg2668z00_18800);
										}
										{
											long BgL_powz00_18802;
											uint64_t BgL_n1z00_18803;

											BgL_powz00_18802 = BgL_g1187z00_18798;
											BgL_n1z00_18803 = BgL_g1188z00_18799;
										BgL_loopz00_18801:
											if ((BgL_powz00_18802 == 0L))
												{	/* Read/reader.scm 381 */
													BgL_arg2647z00_18796 = BgL_n1z00_18803;
												}
											else
												{	/* Read/reader.scm 383 */
													long BgL_arg2654z00_18804;
													uint64_t BgL_arg2659z00_18805;

													BgL_arg2654z00_18804 = (BgL_powz00_18802 - 1L);
													{	/* Read/reader.scm 383 */
														uint64_t BgL_arg2663z00_18806;

														BgL_arg2663z00_18806 = (uint64_t) (10L);
														BgL_arg2659z00_18805 =
															(BgL_n1z00_18803 * BgL_arg2663z00_18806);
													}
													{
														uint64_t BgL_n1z00_31558;
														long BgL_powz00_31557;

														BgL_powz00_31557 = BgL_arg2654z00_18804;
														BgL_n1z00_31558 = BgL_arg2659z00_18805;
														BgL_n1z00_18803 = BgL_n1z00_31558;
														BgL_powz00_18802 = BgL_powz00_31557;
														goto BgL_loopz00_18801;
													}
												}
										}
									}
									{	/* Read/reader.scm 378 */
										uint64_t BgL_tmpz00_31559;

										BgL_tmpz00_31559 =
											(BgL_arg2645z00_18795 + BgL_arg2647z00_18796);
										return BGL_UINT64_TO_BUINT64(BgL_tmpz00_31559);
									}
								}
							}
							break;
						case 21L:

							{	/* Read/reader.scm 374 */
								BGL_LONGLONG_T BgL_arg2669z00_18807;

								{	/* Read/reader.scm 374 */
									obj_t BgL_arg2671z00_18808;

									BgL_arg2671z00_18808 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_17833,
										(int) (4L), (int) (0L));
									{	/* Read/reader.scm 374 */

										BgL_arg2669z00_18807 =
											BGl_stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00
											(BgL_arg2671z00_18808, 10L);
								}}
								{	/* Read/reader.scm 374 */
									long BgL_xz00_18809;

									BgL_xz00_18809 = LLONG_TO_LONG(BgL_arg2669z00_18807);
									{	/* Read/reader.scm 374 */
										int64_t BgL_tmpz00_31567;

										BgL_tmpz00_31567 = (int64_t) (BgL_xz00_18809);
										return BGL_INT64_TO_BINT64(BgL_tmpz00_31567);
									}
								}
							}
							break;
						case 20L:

							{	/* Read/reader.scm 369 */
								long BgL_arg2672z00_18810;

								{	/* Read/reader.scm 369 */
									obj_t BgL_arg2673z00_18811;

									BgL_arg2673z00_18811 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_17833,
										(int) (4L), (int) (0L));
									{	/* Read/reader.scm 369 */

										BgL_arg2672z00_18810 =
											BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00
											(BgL_arg2673z00_18811, 10L);
								}}
								{	/* Read/reader.scm 369 */
									uint32_t BgL_tmpz00_31574;

									BgL_tmpz00_31574 = (uint32_t) (BgL_arg2672z00_18810);
									return BGL_UINT32_TO_BUINT32(BgL_tmpz00_31574);
								}
							}
							break;
						case 19L:

							{	/* Read/reader.scm 365 */
								long BgL_arg2675z00_18812;

								{	/* Read/reader.scm 365 */
									obj_t BgL_arg2676z00_18813;

									BgL_arg2676z00_18813 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_17833,
										(int) (4L), (int) (0L));
									{	/* Read/reader.scm 365 */

										BgL_arg2675z00_18812 =
											BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00
											(BgL_arg2676z00_18813, 10L);
								}}
								{	/* Read/reader.scm 365 */
									int32_t BgL_tmpz00_31581;

									BgL_tmpz00_31581 = (int32_t) (BgL_arg2675z00_18812);
									return BGL_INT32_TO_BINT32(BgL_tmpz00_31581);
								}
							}
							break;
						case 18L:

							{	/* Read/reader.scm 362 */
								long BgL_arg2677z00_18814;

								{	/* Read/reader.scm 362 */
									obj_t BgL_arg2678z00_18815;

									BgL_arg2678z00_18815 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_17833,
										(int) (4L), (int) (0L));
									{	/* Read/reader.scm 362 */
										char *BgL_tmpz00_31587;

										BgL_tmpz00_31587 = BSTRING_TO_STRING(BgL_arg2678z00_18815);
										BgL_arg2677z00_18814 =
											BGL_STRTOL(BgL_tmpz00_31587, 0L, 10L);
								}}
								{	/* Read/reader.scm 362 */
									uint16_t BgL_tmpz00_31590;

									BgL_tmpz00_31590 = (uint16_t) (BgL_arg2677z00_18814);
									return BGL_UINT16_TO_BUINT16(BgL_tmpz00_31590);
								}
							}
							break;
						case 17L:

							{	/* Read/reader.scm 360 */
								long BgL_arg2680z00_18816;

								{	/* Read/reader.scm 360 */
									obj_t BgL_arg2681z00_18817;

									BgL_arg2681z00_18817 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_17833,
										(int) (4L), (int) (0L));
									{	/* Read/reader.scm 360 */
										char *BgL_tmpz00_31596;

										BgL_tmpz00_31596 = BSTRING_TO_STRING(BgL_arg2681z00_18817);
										BgL_arg2680z00_18816 =
											BGL_STRTOL(BgL_tmpz00_31596, 0L, 10L);
								}}
								{	/* Read/reader.scm 360 */
									int16_t BgL_tmpz00_31599;

									BgL_tmpz00_31599 = (int16_t) (BgL_arg2680z00_18816);
									return BGL_INT16_TO_BINT16(BgL_tmpz00_31599);
								}
							}
							break;
						case 16L:

							{	/* Read/reader.scm 357 */
								long BgL_arg2682z00_18818;

								{	/* Read/reader.scm 357 */
									obj_t BgL_arg2683z00_18819;

									BgL_arg2683z00_18819 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_17833,
										(int) (3L), (int) (0L));
									{	/* Read/reader.scm 357 */
										char *BgL_tmpz00_31605;

										BgL_tmpz00_31605 = BSTRING_TO_STRING(BgL_arg2683z00_18819);
										BgL_arg2682z00_18818 =
											BGL_STRTOL(BgL_tmpz00_31605, 0L, 10L);
								}}
								{	/* Read/reader.scm 357 */
									uint8_t BgL_tmpz00_31608;

									BgL_tmpz00_31608 = (uint8_t) (BgL_arg2682z00_18818);
									return BGL_UINT8_TO_BUINT8(BgL_tmpz00_31608);
								}
							}
							break;
						case 15L:

							{	/* Read/reader.scm 355 */
								long BgL_arg2684z00_18820;

								{	/* Read/reader.scm 355 */
									obj_t BgL_arg2686z00_18821;

									BgL_arg2686z00_18821 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_17833,
										(int) (3L), (int) (0L));
									{	/* Read/reader.scm 355 */
										char *BgL_tmpz00_31614;

										BgL_tmpz00_31614 = BSTRING_TO_STRING(BgL_arg2686z00_18821);
										BgL_arg2684z00_18820 =
											BGL_STRTOL(BgL_tmpz00_31614, 0L, 10L);
								}}
								{	/* Read/reader.scm 355 */
									int8_t BgL_tmpz00_31617;

									BgL_tmpz00_31617 = (int8_t) (BgL_arg2684z00_18820);
									return BGL_INT8_TO_BINT8(BgL_tmpz00_31617);
								}
							}
							break;
						case 14L:

							{	/* Read/reader.scm 343 */
								obj_t BgL_symbolz00_18822;

								{	/* Read/reader.scm 343 */
									obj_t BgL_arg2693z00_18823;

									{	/* Read/reader.scm 343 */
										obj_t BgL_arg2694z00_18824;

										{	/* Read/reader.scm 301 */
											long BgL_arg2541z00_18825;

											BgL_arg2541z00_18825 =
												RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_17833);
											BgL_arg2694z00_18824 =
												rgc_buffer_substring(BgL_iportz00_17833, 0L,
												BgL_arg2541z00_18825);
										}
										BgL_arg2693z00_18823 =
											BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00
											(BgL_arg2694z00_18824);
									}
									BgL_symbolz00_18822 = bstring_to_symbol(BgL_arg2693z00_18823);
								}
								if ((BgL_symbolz00_18822 == BGl_symbol6949z00zz__readerz00))
									{	/* Read/reader.scm 345 */
										return BUNSPEC;
									}
								else
									{	/* Read/reader.scm 345 */
										if ((BgL_symbolz00_18822 == BGl_symbol6951z00zz__readerz00))
											{	/* Read/reader.scm 347 */
												return BEOF;
											}
										else
											{	/* Read/reader.scm 351 */
												obj_t BgL_arg2687z00_18826;

												{	/* Read/reader.scm 351 */
													obj_t BgL_arg2690z00_18827;

													{	/* Read/reader.scm 351 */
														obj_t BgL_arg6497z00_18828;

														BgL_arg6497z00_18828 =
															SYMBOL_TO_STRING(((obj_t) BgL_symbolz00_18822));
														BgL_arg2690z00_18827 =
															BGl_stringzd2copyzd2zz__r4_strings_6_7z00
															(BgL_arg6497z00_18828);
													}
													BgL_arg2687z00_18826 =
														string_append(BGl_string6953z00zz__readerz00,
														BgL_arg2690z00_18827);
												}
												return
													BGl_readzd2errorzd2zz__readerz00
													(BGl_string6954z00zz__readerz00, BgL_arg2687z00_18826,
													BgL_iportz00_17833);
											}
									}
							}
							break;
						case 13L:

							{	/* Read/reader.scm 339 */
								obj_t BgL_arg2697z00_18829;

								{	/* Read/reader.scm 339 */
									long BgL_arg2698z00_18830;

									BgL_arg2698z00_18830 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_17833);
									BgL_arg2697z00_18829 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_17833,
										(int) (2L), (int) (BgL_arg2698z00_18830));
								}
								return
									BGl_stringzd2ze3bignumz31zz__bignumz00(BgL_arg2697z00_18829,
									16L);
							}
							break;
						case 12L:

							{	/* Read/reader.scm 337 */
								obj_t BgL_arg2701z00_18831;

								{	/* Read/reader.scm 337 */
									long BgL_arg2712z00_18832;

									BgL_arg2712z00_18832 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_17833);
									BgL_arg2701z00_18831 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_17833,
										(int) (1L), (int) (BgL_arg2712z00_18832));
								}
								return
									BGl_stringzd2ze3bignumz31zz__bignumz00(BgL_arg2701z00_18831,
									10L);
							}
							break;
						case 11L:

							{	/* Read/reader.scm 334 */
								obj_t BgL_arg2713z00_18833;

								{	/* Read/reader.scm 334 */
									long BgL_arg2716z00_18834;

									BgL_arg2716z00_18834 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_17833);
									BgL_arg2713z00_18833 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_17833,
										(int) (1L), (int) (BgL_arg2716z00_18834));
								}
								return
									BGl_stringzd2ze3integerzd2objze3zz__r4_numbers_6_5_fixnumz00
									(BgL_arg2713z00_18833, 16L);
							}
							break;
						case 10L:

							{	/* Read/reader.scm 332 */
								obj_t BgL_arg2717z00_18835;

								{	/* Read/reader.scm 332 */
									long BgL_arg2720z00_18836;

									BgL_arg2720z00_18836 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_17833);
									BgL_arg2717z00_18835 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_17833,
										(int) (2L), (int) (BgL_arg2720z00_18836));
								}
								{	/* Read/reader.scm 332 */
									BGL_LONGLONG_T BgL_tmpz00_31652;

									{	/* Read/reader.scm 332 */
										char *BgL_tmpz00_31653;

										BgL_tmpz00_31653 = BSTRING_TO_STRING(BgL_arg2717z00_18835);
										BgL_tmpz00_31652 = BGL_STRTOULL(BgL_tmpz00_31653, 0L, 16L);
									}
									return make_bllong(BgL_tmpz00_31652);
								}
							}
							break;
						case 9L:

							{	/* Read/reader.scm 330 */
								obj_t BgL_arg2722z00_18837;

								{	/* Read/reader.scm 330 */
									long BgL_arg2723z00_18838;

									BgL_arg2723z00_18838 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_17833);
									BgL_arg2722z00_18837 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_17833,
										(int) (1L), (int) (BgL_arg2723z00_18838));
								}
								return
									make_bllong
									(BGl_stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00
									(BgL_arg2722z00_18837, 10L));
							}
							break;
						case 8L:

							{	/* Read/reader.scm 328 */
								obj_t BgL_arg2724z00_18839;

								{	/* Read/reader.scm 328 */
									long BgL_arg2725z00_18840;

									BgL_arg2725z00_18840 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_17833);
									BgL_arg2724z00_18839 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_17833,
										(int) (2L), (int) (BgL_arg2725z00_18840));
								}
								{	/* Read/reader.scm 328 */
									long BgL_tmpz00_31667;

									{	/* Read/reader.scm 328 */
										char *BgL_tmpz00_31668;

										BgL_tmpz00_31668 = BSTRING_TO_STRING(BgL_arg2724z00_18839);
										BgL_tmpz00_31667 = BGL_STRTOUL(BgL_tmpz00_31668, 0L, 16L);
									}
									return make_belong(BgL_tmpz00_31667);
								}
							}
							break;
						case 7L:

							{	/* Read/reader.scm 326 */
								obj_t BgL_arg2726z00_18841;

								{	/* Read/reader.scm 326 */
									long BgL_arg2727z00_18842;

									BgL_arg2727z00_18842 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_17833);
									BgL_arg2726z00_18841 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_17833,
										(int) (1L), (int) (BgL_arg2727z00_18842));
								}
								return
									make_belong
									(BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00
									(BgL_arg2726z00_18841, 10L));
							}
							break;
						case 6L:

							{	/* Read/reader.scm 324 */
								obj_t BgL_arg2728z00_18843;

								{	/* Read/reader.scm 324 */
									long BgL_arg2729z00_18844;

									BgL_arg2729z00_18844 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_17833);
									BgL_arg2728z00_18843 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_17833,
										(int) (1L), (int) (BgL_arg2729z00_18844));
								}
								return
									BGl_stringzd2ze3integerzd2objze3zz__r4_numbers_6_5_fixnumz00
									(BgL_arg2728z00_18843, 10L);
							}
							break;
						case 5L:

							{	/* Read/reader.scm 322 */
								obj_t BgL_arg2730z00_18845;

								{	/* Read/reader.scm 322 */
									long BgL_arg2731z00_18846;

									BgL_arg2731z00_18846 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_17833);
									BgL_arg2730z00_18845 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_17833,
										(int) (1L), (int) (BgL_arg2731z00_18846));
								}
								return
									BGl_stringzd2ze3integerzd2objze3zz__r4_numbers_6_5_fixnumz00
									(BgL_arg2730z00_18845, 8L);
							}
							break;
						case 4L:

							{	/* Read/reader.scm 320 */
								obj_t BgL_arg2732z00_18847;

								{	/* Read/reader.scm 320 */
									long BgL_arg2733z00_18848;

									BgL_arg2733z00_18848 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_17833);
									BgL_arg2732z00_18847 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_17833,
										(int) (1L), (int) (BgL_arg2733z00_18848));
								}
								return
									BGl_stringzd2ze3integerzd2objze3zz__r4_numbers_6_5_fixnumz00
									(BgL_arg2732z00_18847, 2L);
							}
							break;
						case 3L:

							{	/* Read/reader.scm 316 */
								obj_t BgL_strz00_18849;

								{	/* Read/reader.scm 316 */
									long BgL_arg2734z00_18850;

									{	/* Read/reader.scm 316 */
										long BgL_arg2735z00_18851;

										BgL_arg2735z00_18851 =
											RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_17833);
										BgL_arg2734z00_18850 = (BgL_arg2735z00_18851 - 1L);
									}
									BgL_strz00_18849 =
										BGl_thezd2escapezd2substringze70ze7zz__readerz00
										(BgL_iportz00_17833, (int) (2L),
										(int) (BgL_arg2734z00_18850), ((bool_t) 0));
								}
								return utf8_string_to_ucs2_string(BgL_strz00_18849);
							}
							break;
						case 2L:

							{	/* Read/reader.scm 312 */
								long BgL_arg2736z00_18852;

								{	/* Read/reader.scm 312 */
									long BgL_arg2737z00_18853;

									BgL_arg2737z00_18853 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_17833);
									BgL_arg2736z00_18852 = (BgL_arg2737z00_18853 - 1L);
								}
								return
									BGl_thezd2escapezd2substringze70ze7zz__readerz00
									(BgL_iportz00_17833, (int) (1L), (int) (BgL_arg2736z00_18852),
									((bool_t) 0));
							} break;
						case 1L:

							{	/* Read/reader.scm 308 */
								long BgL_arg2738z00_18854;

								{	/* Read/reader.scm 308 */
									obj_t BgL_arg2739z00_18855;

									BgL_arg2739z00_18855 =
										BGl_thezd2substringze70z35zz__readerz00(BgL_iportz00_17833,
										(int) (1L), (int) (5L));
									{	/* Read/reader.scm 308 */
										char *BgL_tmpz00_31707;

										BgL_tmpz00_31707 = BSTRING_TO_STRING(BgL_arg2739z00_18855);
										BgL_arg2738z00_18854 =
											BGL_STRTOL(BgL_tmpz00_31707, 0L, 16L);
								}}
								return
									BUCS2(BGl_integerzd2ze3ucs2z31zz__ucs2z00(
										(int) (BgL_arg2738z00_18854)));
							} break;
						case 0L:

							{	/* Read/reader.scm 303 */
								obj_t BgL_stringz00_18856;

								{	/* Read/reader.scm 301 */
									long BgL_arg2541z00_18857;

									BgL_arg2541z00_18857 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_17833);
									BgL_stringz00_18856 =
										rgc_buffer_substring(BgL_iportz00_17833, 0L,
										BgL_arg2541z00_18857);
								}
								{	/* Read/reader.scm 304 */
									long BgL_arg2740z00_18858;

									{	/* Read/reader.scm 304 */
										obj_t BgL_arg2741z00_18859;

										BgL_arg2741z00_18859 =
											BGl_thezd2substringze70z35zz__readerz00
											(BgL_iportz00_17833, (int) (1L), (int) (4L));
										{	/* Read/reader.scm 304 */
											char *BgL_tmpz00_31718;

											BgL_tmpz00_31718 =
												BSTRING_TO_STRING(BgL_arg2741z00_18859);
											BgL_arg2740z00_18858 =
												BGL_STRTOL(BgL_tmpz00_31718, 0L, 10L);
									}}
									return BCHAR((BgL_arg2740z00_18858));
								}
							}
							break;
						default:
							return
								BGl_errorz00zz__errorz00(BGl_string6943z00zz__readerz00,
								BGl_string6944z00zz__readerz00, BINT(BgL_matchz00_18778));
						}
				}
			}
		}

	}



/* the-escape-substring~0 */
	obj_t BGl_thezd2escapezd2substringze70ze7zz__readerz00(obj_t
		BgL_iportz00_17886, int BgL_minz00_3375, int BgL_maxz00_3376,
		bool_t BgL_strictz00_3377)
	{
		{	/* Read/reader.scm 301 */
			if (((long) (BgL_maxz00_3376) < 0L))
				{	/* Read/reader.scm 301 */
					long BgL_arg2558z00_3380;

					BgL_arg2558z00_3380 = RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_17886);
					{	/* Read/reader.scm 301 */
						long BgL_za72za7_12907;

						BgL_za72za7_12907 = (long) (BgL_maxz00_3376);
						BgL_maxz00_3376 = (int) ((BgL_arg2558z00_3380 + BgL_za72za7_12907));
				}}
			else
				{	/* Read/reader.scm 301 */
					BFALSE;
				}
			{	/* Read/reader.scm 301 */
				bool_t BgL_test9919z00_31733;

				if (((long) (BgL_minz00_3375) >= 0L))
					{	/* Read/reader.scm 301 */
						if (((long) (BgL_maxz00_3376) >= (long) (BgL_minz00_3375)))
							{	/* Read/reader.scm 301 */
								long BgL_arg2567z00_3391;

								BgL_arg2567z00_3391 =
									RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_17886);
								BgL_test9919z00_31733 =
									((long) (BgL_maxz00_3376) <= BgL_arg2567z00_3391);
							}
						else
							{	/* Read/reader.scm 301 */
								BgL_test9919z00_31733 = ((bool_t) 0);
							}
					}
				else
					{	/* Read/reader.scm 301 */
						BgL_test9919z00_31733 = ((bool_t) 0);
					}
				if (BgL_test9919z00_31733)
					{	/* Read/reader.scm 301 */
						return
							rgc_buffer_escape_substring(BgL_iportz00_17886,
							(long) (BgL_minz00_3375),
							(long) (BgL_maxz00_3376), BgL_strictz00_3377);
					}
				else
					{	/* Read/reader.scm 301 */
						obj_t BgL_arg2563z00_3385;
						obj_t BgL_arg2564z00_3386;

						{	/* Read/reader.scm 301 */
							obj_t BgL_arg2565z00_3387;

							{	/* Read/reader.scm 301 */
								long BgL_arg2541z00_12918;

								BgL_arg2541z00_12918 =
									RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_17886);
								BgL_arg2565z00_3387 =
									rgc_buffer_substring(BgL_iportz00_17886, 0L,
									BgL_arg2541z00_12918);
							}
							{	/* Read/reader.scm 301 */
								obj_t BgL_list2566z00_3388;

								BgL_list2566z00_3388 =
									MAKE_YOUNG_PAIR(BgL_arg2565z00_3387, BNIL);
								BgL_arg2563z00_3385 =
									BGl_formatz00zz__r4_output_6_10_3z00
									(BGl_string6861z00zz__readerz00, BgL_list2566z00_3388);
						}}
						BgL_arg2564z00_3386 =
							MAKE_YOUNG_PAIR(BINT(BgL_minz00_3375), BINT(BgL_maxz00_3376));
						return
							BGl_errorz00zz__errorz00(BGl_string6862z00zz__readerz00,
							BgL_arg2563z00_3385, BgL_arg2564z00_3386);
					}
			}
		}

	}



/* the-substring~0 */
	obj_t BGl_thezd2substringze70z35zz__readerz00(obj_t BgL_iportz00_17887,
		int BgL_minz00_3359, int BgL_maxz00_3360)
	{
		{	/* Read/reader.scm 301 */
			if (((long) (BgL_maxz00_3360) < (long) (BgL_minz00_3359)))
				{	/* Read/reader.scm 301 */
					long BgL_arg2544z00_3363;

					BgL_arg2544z00_3363 = RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_17887);
					{	/* Read/reader.scm 301 */
						long BgL_za72za7_12890;

						BgL_za72za7_12890 = (long) (BgL_maxz00_3360);
						BgL_maxz00_3360 = (int) ((BgL_arg2544z00_3363 + BgL_za72za7_12890));
				}}
			else
				{	/* Read/reader.scm 301 */
					BFALSE;
				}
			{	/* Read/reader.scm 301 */
				bool_t BgL_test9923z00_31763;

				if (((long) (BgL_minz00_3359) >= 0L))
					{	/* Read/reader.scm 301 */
						if (((long) (BgL_maxz00_3360) >= (long) (BgL_minz00_3359)))
							{	/* Read/reader.scm 301 */
								long BgL_arg2555z00_3374;

								BgL_arg2555z00_3374 =
									RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_17887);
								BgL_test9923z00_31763 =
									((long) (BgL_maxz00_3360) <= BgL_arg2555z00_3374);
							}
						else
							{	/* Read/reader.scm 301 */
								BgL_test9923z00_31763 = ((bool_t) 0);
							}
					}
				else
					{	/* Read/reader.scm 301 */
						BgL_test9923z00_31763 = ((bool_t) 0);
					}
				if (BgL_test9923z00_31763)
					{	/* Read/reader.scm 301 */
						return
							rgc_buffer_substring(BgL_iportz00_17887,
							(long) (BgL_minz00_3359), (long) (BgL_maxz00_3360));
					}
				else
					{	/* Read/reader.scm 301 */
						obj_t BgL_arg2549z00_3368;
						obj_t BgL_arg2550z00_3369;

						{	/* Read/reader.scm 301 */
							obj_t BgL_arg2552z00_3370;

							{	/* Read/reader.scm 301 */
								long BgL_arg2541z00_12900;

								BgL_arg2541z00_12900 =
									RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_17887);
								BgL_arg2552z00_3370 =
									rgc_buffer_substring(BgL_iportz00_17887, 0L,
									BgL_arg2541z00_12900);
							}
							{	/* Read/reader.scm 301 */
								obj_t BgL_list2553z00_3371;

								BgL_list2553z00_3371 =
									MAKE_YOUNG_PAIR(BgL_arg2552z00_3370, BNIL);
								BgL_arg2549z00_3368 =
									BGl_formatz00zz__r4_output_6_10_3z00
									(BGl_string6861z00zz__readerz00, BgL_list2553z00_3371);
						}}
						BgL_arg2550z00_3369 =
							MAKE_YOUNG_PAIR(BINT(BgL_minz00_3359), BINT(BgL_maxz00_3360));
						return
							BGl_errorz00zz__errorz00(BGl_string6863z00zz__readerz00,
							BgL_arg2549z00_3368, BgL_arg2550z00_3369);
					}
			}
		}

	}



/* bigloo-identifier-syntax */
	BGL_EXPORTED_DEF obj_t BGl_bigloozd2identifierzd2syntaxz00zz__readerz00(void)
	{
		{	/* Read/reader.scm 103 */
			return BGl_za2identifierzd2syntaxza2zd2zz__readerz00;
		}

	}



/* &bigloo-identifier-syntax */
	obj_t BGl_z62bigloozd2identifierzd2syntaxz62zz__readerz00(obj_t
		BgL_envz00_17834)
	{
		{	/* Read/reader.scm 103 */
			return BGl_bigloozd2identifierzd2syntaxz00zz__readerz00();
		}

	}



/* bigloo-identifier-syntax-set! */
	BGL_EXPORTED_DEF obj_t
		BGl_bigloozd2identifierzd2syntaxzd2setz12zc0zz__readerz00(obj_t BgL_vz00_3)
	{
		{	/* Read/reader.scm 104 */
			return (BGl_za2identifierzd2syntaxza2zd2zz__readerz00 =
				BgL_vz00_3, BUNSPEC);
		}

	}



/* &bigloo-identifier-syntax-set! */
	obj_t BGl_z62bigloozd2identifierzd2syntaxzd2setz12za2zz__readerz00(obj_t
		BgL_envz00_17835, obj_t BgL_vz00_17836)
	{
		{	/* Read/reader.scm 104 */
			{	/* Read/reader.scm 104 */
				obj_t BgL_auxz00_31786;

				if (SYMBOLP(BgL_vz00_17836))
					{	/* Read/reader.scm 104 */
						BgL_auxz00_31786 = BgL_vz00_17836;
					}
				else
					{
						obj_t BgL_auxz00_31789;

						BgL_auxz00_31789 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string6955z00zz__readerz00,
							BINT(3677L), BGl_string6956z00zz__readerz00,
							BGl_string6957z00zz__readerz00, BgL_vz00_17836);
						FAILURE(BgL_auxz00_31789, BFALSE, BFALSE);
					}
				return
					BGl_bigloozd2identifierzd2syntaxzd2setz12zc0zz__readerz00
					(BgL_auxz00_31786);
			}
		}

	}



/* bigloo-case-sensitivity */
	BGL_EXPORTED_DEF obj_t BGl_bigloozd2casezd2sensitivityz00zz__readerz00(void)
	{
		{	/* Read/reader.scm 109 */
			BGL_TAIL return BGl_bigloozd2casezd2sensitivez00zz__paramz00();
		}

	}



/* &bigloo-case-sensitivity */
	obj_t BGl_z62bigloozd2casezd2sensitivityz62zz__readerz00(obj_t
		BgL_envz00_17837)
	{
		{	/* Read/reader.scm 109 */
			return BGl_bigloozd2casezd2sensitivityz00zz__readerz00();
		}

	}



/* bigloo-case-sensitivity-set! */
	BGL_EXPORTED_DEF obj_t
		BGl_bigloozd2casezd2sensitivityzd2setz12zc0zz__readerz00(obj_t BgL_valz00_4)
	{
		{	/* Read/reader.scm 115 */
			BGL_TAIL return
				BGl_bigloozd2casezd2sensitivezd2setz12zc0zz__paramz00(BgL_valz00_4);
		}

	}



/* &bigloo-case-sensitivity-set! */
	obj_t BGl_z62bigloozd2casezd2sensitivityzd2setz12za2zz__readerz00(obj_t
		BgL_envz00_17838, obj_t BgL_valz00_17839)
	{
		{	/* Read/reader.scm 115 */
			{	/* Read/reader.scm 116 */
				obj_t BgL_auxz00_31797;

				if (SYMBOLP(BgL_valz00_17839))
					{	/* Read/reader.scm 116 */
						BgL_auxz00_31797 = BgL_valz00_17839;
					}
				else
					{
						obj_t BgL_auxz00_31800;

						BgL_auxz00_31800 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string6955z00zz__readerz00,
							BINT(4261L), BGl_string6958z00zz__readerz00,
							BGl_string6957z00zz__readerz00, BgL_valz00_17839);
						FAILURE(BgL_auxz00_31800, BFALSE, BFALSE);
					}
				return
					BGl_bigloozd2casezd2sensitivityzd2setz12zc0zz__readerz00
					(BgL_auxz00_31797);
			}
		}

	}



/* make-source-location */
	BGL_EXPORTED_DEF obj_t BGl_makezd2sourcezd2locationz00zz__readerz00(obj_t
		BgL_namez00_5, obj_t BgL_posz00_6)
	{
		{	/* Read/reader.scm 121 */
			{	/* Read/reader.scm 122 */
				obj_t BgL_list6100z00_17081;

				{	/* Read/reader.scm 122 */
					obj_t BgL_arg6101z00_17082;

					{	/* Read/reader.scm 122 */
						obj_t BgL_arg6102z00_17083;

						BgL_arg6102z00_17083 = MAKE_YOUNG_PAIR(BgL_posz00_6, BNIL);
						BgL_arg6101z00_17082 =
							MAKE_YOUNG_PAIR(BgL_namez00_5, BgL_arg6102z00_17083);
					}
					BgL_list6100z00_17081 =
						MAKE_YOUNG_PAIR(BGl_symbol6859z00zz__readerz00,
						BgL_arg6101z00_17082);
				}
				return BgL_list6100z00_17081;
			}
		}

	}



/* &make-source-location */
	obj_t BGl_z62makezd2sourcezd2locationz62zz__readerz00(obj_t BgL_envz00_17840,
		obj_t BgL_namez00_17841, obj_t BgL_posz00_17842)
	{
		{	/* Read/reader.scm 121 */
			return
				BGl_makezd2sourcezd2locationz00zz__readerz00(BgL_namez00_17841,
				BgL_posz00_17842);
		}

	}



/* get-source-location */
	BGL_EXPORTED_DEF obj_t BGl_getzd2sourcezd2locationz00zz__readerz00(obj_t
		BgL_objz00_7)
	{
		{	/* Read/reader.scm 127 */
			if (EPAIRP(BgL_objz00_7))
				{	/* Read/reader.scm 129 */
					obj_t BgL_ezd2102zd2_10149;

					BgL_ezd2102zd2_10149 = CER(((obj_t) BgL_objz00_7));
					if (PAIRP(BgL_ezd2102zd2_10149))
						{	/* Read/reader.scm 129 */
							obj_t BgL_cdrzd2104zd2_10151;

							BgL_cdrzd2104zd2_10151 = CDR(BgL_ezd2102zd2_10149);
							if ((CAR(BgL_ezd2102zd2_10149) == BGl_symbol6859z00zz__readerz00))
								{	/* Read/reader.scm 129 */
									if (PAIRP(BgL_cdrzd2104zd2_10151))
										{	/* Read/reader.scm 129 */
											obj_t BgL_cdrzd2106zd2_10155;

											BgL_cdrzd2106zd2_10155 = CDR(BgL_cdrzd2104zd2_10151);
											if (PAIRP(BgL_cdrzd2106zd2_10155))
												{	/* Read/reader.scm 129 */
													if (NULLP(CDR(BgL_cdrzd2106zd2_10155)))
														{	/* Read/reader.scm 129 */
															return BgL_ezd2102zd2_10149;
														}
													else
														{	/* Read/reader.scm 129 */
															return BFALSE;
														}
												}
											else
												{	/* Read/reader.scm 129 */
													return BFALSE;
												}
										}
									else
										{	/* Read/reader.scm 129 */
											return BFALSE;
										}
								}
							else
								{	/* Read/reader.scm 129 */
									return BFALSE;
								}
						}
					else
						{	/* Read/reader.scm 129 */
							return BFALSE;
						}
				}
			else
				{	/* Read/reader.scm 128 */
					return BFALSE;
				}
		}

	}



/* &get-source-location */
	obj_t BGl_z62getzd2sourcezd2locationz62zz__readerz00(obj_t BgL_envz00_17843,
		obj_t BgL_objz00_17844)
	{
		{	/* Read/reader.scm 127 */
			return BGl_getzd2sourcezd2locationz00zz__readerz00(BgL_objz00_17844);
		}

	}



/* reader-reset! */
	BGL_EXPORTED_DEF obj_t BGl_readerzd2resetz12zc0zz__readerz00(void)
	{
		{	/* Read/reader.scm 153 */
			return BFALSE;
		}

	}



/* &reader-reset! */
	obj_t BGl_z62readerzd2resetz12za2zz__readerz00(obj_t BgL_envz00_17845)
	{
		{	/* Read/reader.scm 153 */
			return BGl_readerzd2resetz12zc0zz__readerz00();
		}

	}



/* read-error */
	obj_t BGl_readzd2errorzd2zz__readerz00(obj_t BgL_msgz00_12,
		obj_t BgL_objz00_13, obj_t BgL_portz00_14)
	{
		{	/* Read/reader.scm 159 */
			{	/* Read/reader.scm 160 */
				obj_t BgL_fnamez00_10162;
				obj_t BgL_locz00_10163;

				BgL_fnamez00_10162 = BUNSPEC;
				BgL_locz00_10163 = BUNSPEC;
				if (EPAIRP(BgL_objz00_13))
					{

						{	/* Read/reader.scm 162 */
							obj_t BgL_ezd2111zd2_10169;

							BgL_ezd2111zd2_10169 = CER(((obj_t) BgL_objz00_13));
							if (PAIRP(BgL_ezd2111zd2_10169))
								{	/* Read/reader.scm 162 */
									obj_t BgL_cdrzd2117zd2_10171;

									BgL_cdrzd2117zd2_10171 = CDR(BgL_ezd2111zd2_10169);
									if (
										(CAR(BgL_ezd2111zd2_10169) ==
											BGl_symbol6859z00zz__readerz00))
										{	/* Read/reader.scm 162 */
											if (PAIRP(BgL_cdrzd2117zd2_10171))
												{	/* Read/reader.scm 162 */
													obj_t BgL_cdrzd2121zd2_10175;

													BgL_cdrzd2121zd2_10175 = CDR(BgL_cdrzd2117zd2_10171);
													if (PAIRP(BgL_cdrzd2121zd2_10175))
														{	/* Read/reader.scm 162 */
															if (NULLP(CDR(BgL_cdrzd2121zd2_10175)))
																{	/* Read/reader.scm 162 */
																	obj_t BgL_arg6122z00_10179;
																	obj_t BgL_arg6123z00_10180;

																	BgL_arg6122z00_10179 =
																		CAR(BgL_cdrzd2117zd2_10171);
																	BgL_arg6123z00_10180 =
																		CAR(BgL_cdrzd2121zd2_10175);
																	BgL_fnamez00_10162 = BgL_arg6122z00_10179;
																	BgL_locz00_10163 = BgL_arg6123z00_10180;
																}
															else
																{	/* Read/reader.scm 162 */
																BgL_tagzd2110zd2_10168:
																	BgL_fnamez00_10162 =
																		INPUT_PORT_NAME(BgL_portz00_14);
																	BgL_locz00_10163 =
																		BINT(INPUT_PORT_FILEPOS(BgL_portz00_14));
																}
														}
													else
														{	/* Read/reader.scm 162 */
															goto BgL_tagzd2110zd2_10168;
														}
												}
											else
												{	/* Read/reader.scm 162 */
													goto BgL_tagzd2110zd2_10168;
												}
										}
									else
										{	/* Read/reader.scm 162 */
											goto BgL_tagzd2110zd2_10168;
										}
								}
							else
								{	/* Read/reader.scm 162 */
									goto BgL_tagzd2110zd2_10168;
								}
						}
					}
				else
					{	/* Read/reader.scm 161 */
						BgL_fnamez00_10162 = INPUT_PORT_NAME(BgL_portz00_14);
						BgL_locz00_10163 = BINT(INPUT_PORT_FILEPOS(BgL_portz00_14));
					}
				{	/* Read/reader.scm 172 */
					BgL_z62iozd2readzd2errorz62_bglt BgL_arg6126z00_10183;

					{	/* Read/reader.scm 172 */
						BgL_z62iozd2readzd2errorz62_bglt BgL_new1040z00_10184;

						{	/* Read/reader.scm 176 */
							BgL_z62iozd2readzd2errorz62_bglt BgL_new1039z00_10187;

							BgL_new1039z00_10187 =
								((BgL_z62iozd2readzd2errorz62_bglt)
								BOBJECT(GC_MALLOC(sizeof(struct
											BgL_z62iozd2readzd2errorz62_bgl))));
							{	/* Read/reader.scm 176 */
								long BgL_arg6129z00_10188;

								BgL_arg6129z00_10188 =
									BGL_CLASS_NUM(BGl_z62iozd2readzd2errorz62zz__objectz00);
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_new1039z00_10187),
									BgL_arg6129z00_10188);
							}
							BgL_new1040z00_10184 = BgL_new1039z00_10187;
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1040z00_10184)))->
								BgL_fnamez00) = ((obj_t) BgL_fnamez00_10162), BUNSPEC);
						((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
											BgL_new1040z00_10184)))->BgL_locationz00) =
							((obj_t) BgL_locz00_10163), BUNSPEC);
						{
							obj_t BgL_auxz00_31863;

							{	/* Read/reader.scm 177 */
								obj_t BgL_arg6127z00_10185;

								{	/* Read/reader.scm 177 */
									obj_t BgL_arg6128z00_10186;

									{	/* Read/reader.scm 177 */
										obj_t BgL_classz00_17112;

										BgL_classz00_17112 =
											BGl_z62iozd2readzd2errorz62zz__objectz00;
										BgL_arg6128z00_10186 =
											BGL_CLASS_ALL_FIELDS(BgL_classz00_17112);
									}
									BgL_arg6127z00_10185 = VECTOR_REF(BgL_arg6128z00_10186, 2L);
								}
								BgL_auxz00_31863 =
									BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
									(BgL_arg6127z00_10185);
							}
							((((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_new1040z00_10184)))->
									BgL_stackz00) = ((obj_t) BgL_auxz00_31863), BUNSPEC);
						}
						((((BgL_z62errorz62_bglt) COBJECT(
										((BgL_z62errorz62_bglt) BgL_new1040z00_10184)))->
								BgL_procz00) =
							((obj_t) BGl_symbol6873z00zz__readerz00), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
											BgL_new1040z00_10184)))->BgL_msgz00) =
							((obj_t) BgL_msgz00_12), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
											BgL_new1040z00_10184)))->BgL_objz00) =
							((obj_t) BgL_objz00_13), BUNSPEC);
						BgL_arg6126z00_10183 = BgL_new1040z00_10184;
					}
					return BGl_raisez00zz__errorz00(((obj_t) BgL_arg6126z00_10183));
				}
			}
		}

	}



/* read-error/loc */
	obj_t BGl_readzd2errorzf2locz20zz__readerz00(obj_t BgL_locz00_15,
		obj_t BgL_msgz00_16, obj_t BgL_objz00_17, obj_t BgL_portz00_18)
	{
		{	/* Read/reader.scm 182 */
			{	/* Read/reader.scm 183 */
				obj_t BgL_fnamez00_10189;

				if (EPAIRP(BgL_objz00_17))
					{	/* Read/reader.scm 184 */
						obj_t BgL_ezd2129zd2_10201;

						BgL_ezd2129zd2_10201 = CER(((obj_t) BgL_objz00_17));
						if (PAIRP(BgL_ezd2129zd2_10201))
							{	/* Read/reader.scm 184 */
								obj_t BgL_cdrzd2135zd2_10203;

								BgL_cdrzd2135zd2_10203 = CDR(BgL_ezd2129zd2_10201);
								if (
									(CAR(BgL_ezd2129zd2_10201) == BGl_symbol6859z00zz__readerz00))
									{	/* Read/reader.scm 184 */
										if (PAIRP(BgL_cdrzd2135zd2_10203))
											{	/* Read/reader.scm 184 */
												obj_t BgL_cdrzd2139zd2_10207;

												BgL_cdrzd2139zd2_10207 = CDR(BgL_cdrzd2135zd2_10203);
												if (PAIRP(BgL_cdrzd2139zd2_10207))
													{	/* Read/reader.scm 184 */
														if (NULLP(CDR(BgL_cdrzd2139zd2_10207)))
															{	/* Read/reader.scm 184 */
																BgL_fnamez00_10189 =
																	CAR(BgL_cdrzd2135zd2_10203);
															}
														else
															{	/* Read/reader.scm 184 */
																BgL_fnamez00_10189 =
																	INPUT_PORT_NAME(BgL_portz00_18);
															}
													}
												else
													{	/* Read/reader.scm 184 */
														BgL_fnamez00_10189 =
															INPUT_PORT_NAME(BgL_portz00_18);
													}
											}
										else
											{	/* Read/reader.scm 184 */
												BgL_fnamez00_10189 = INPUT_PORT_NAME(BgL_portz00_18);
											}
									}
								else
									{	/* Read/reader.scm 184 */
										BgL_fnamez00_10189 = INPUT_PORT_NAME(BgL_portz00_18);
									}
							}
						else
							{	/* Read/reader.scm 184 */
								BgL_fnamez00_10189 = INPUT_PORT_NAME(BgL_portz00_18);
							}
					}
				else
					{	/* Read/reader.scm 183 */
						BgL_fnamez00_10189 = INPUT_PORT_NAME(BgL_portz00_18);
					}
				{	/* Read/reader.scm 190 */
					BgL_z62iozd2readzd2errorz62_bglt BgL_arg6130z00_10190;

					{	/* Read/reader.scm 190 */
						BgL_z62iozd2readzd2errorz62_bglt BgL_new1042z00_10191;

						{	/* Read/reader.scm 194 */
							BgL_z62iozd2readzd2errorz62_bglt BgL_new1041z00_10194;

							BgL_new1041z00_10194 =
								((BgL_z62iozd2readzd2errorz62_bglt)
								BOBJECT(GC_MALLOC(sizeof(struct
											BgL_z62iozd2readzd2errorz62_bgl))));
							{	/* Read/reader.scm 194 */
								long BgL_arg6133z00_10195;

								BgL_arg6133z00_10195 =
									BGL_CLASS_NUM(BGl_z62iozd2readzd2errorz62zz__objectz00);
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_new1041z00_10194),
									BgL_arg6133z00_10195);
							}
							BgL_new1042z00_10191 = BgL_new1041z00_10194;
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1042z00_10191)))->
								BgL_fnamez00) = ((obj_t) BgL_fnamez00_10189), BUNSPEC);
						((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
											BgL_new1042z00_10191)))->BgL_locationz00) =
							((obj_t) BgL_locz00_15), BUNSPEC);
						{
							obj_t BgL_auxz00_31910;

							{	/* Read/reader.scm 195 */
								obj_t BgL_arg6131z00_10192;

								{	/* Read/reader.scm 195 */
									obj_t BgL_arg6132z00_10193;

									{	/* Read/reader.scm 195 */
										obj_t BgL_classz00_17131;

										BgL_classz00_17131 =
											BGl_z62iozd2readzd2errorz62zz__objectz00;
										BgL_arg6132z00_10193 =
											BGL_CLASS_ALL_FIELDS(BgL_classz00_17131);
									}
									BgL_arg6131z00_10192 = VECTOR_REF(BgL_arg6132z00_10193, 2L);
								}
								BgL_auxz00_31910 =
									BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
									(BgL_arg6131z00_10192);
							}
							((((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_new1042z00_10191)))->
									BgL_stackz00) = ((obj_t) BgL_auxz00_31910), BUNSPEC);
						}
						((((BgL_z62errorz62_bglt) COBJECT(
										((BgL_z62errorz62_bglt) BgL_new1042z00_10191)))->
								BgL_procz00) =
							((obj_t) BGl_symbol6873z00zz__readerz00), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
											BgL_new1042z00_10191)))->BgL_msgz00) =
							((obj_t) BgL_msgz00_16), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
											BgL_new1042z00_10191)))->BgL_objz00) =
							((obj_t) BgL_objz00_17), BUNSPEC);
						BgL_arg6130z00_10190 = BgL_new1042z00_10191;
					}
					return BGl_raisez00zz__errorz00(((obj_t) BgL_arg6130z00_10190));
				}
			}
		}

	}



/* loop~0 */
	obj_t BGl_loopze70ze7zz__readerz00(obj_t BgL_portz00_17885,
		obj_t BgL_cyclesz00_17884, obj_t BgL_objz00_10216)
	{
		{	/* Read/reader.scm 201 */
			if (PROCEDUREP(BgL_objz00_10216))
				{	/* Read/reader.scm 204 */
					obj_t BgL_noz00_10219;

					BgL_noz00_10219 = BGL_PROCEDURE_CALL0(BgL_objz00_10216);
					{	/* Read/reader.scm 204 */
						obj_t BgL_val0z00_10220;

						{	/* Read/reader.scm 205 */
							long BgL_kz00_17134;

							BgL_kz00_17134 = (long) CINT(BgL_noz00_10219);
							BgL_val0z00_10220 =
								VECTOR_REF(((obj_t) BgL_cyclesz00_17884), BgL_kz00_17134);
						}
						{	/* Read/reader.scm 205 */
							obj_t BgL_valz00_10221;

							if (CBOOL(BgL_val0z00_10220))
								{	/* Read/reader.scm 206 */
									BgL_valz00_10221 = BgL_val0z00_10220;
								}
							else
								{	/* Read/reader.scm 206 */
									BgL_valz00_10221 =
										BGl_readzd2errorzd2zz__readerz00
										(BGl_string6869z00zz__readerz00, BgL_noz00_10219,
										BgL_portz00_17885);
								}
							{	/* Read/reader.scm 206 */

								if ((BgL_valz00_10221 == BgL_objz00_10216))
									{	/* Read/reader.scm 209 */
										return
											BGl_readzd2errorzd2zz__readerz00
											(BGl_string6870z00zz__readerz00, BgL_noz00_10219,
											BgL_portz00_17885);
									}
								else
									{	/* Read/reader.scm 209 */
										return BgL_valz00_10221;
									}
							}
						}
					}
				}
			else
				{	/* Read/reader.scm 203 */
					if (PAIRP(BgL_objz00_10216))
						{	/* Read/reader.scm 212 */
							{	/* Read/reader.scm 213 */
								obj_t BgL_tmpz00_31940;

								BgL_tmpz00_31940 =
									BGl_loopze70ze7zz__readerz00(BgL_portz00_17885,
									BgL_cyclesz00_17884, CAR(BgL_objz00_10216));
								SET_CAR(BgL_objz00_10216, BgL_tmpz00_31940);
							}
							{	/* Read/reader.scm 214 */
								obj_t BgL_tmpz00_31944;

								BgL_tmpz00_31944 =
									BGl_loopze70ze7zz__readerz00(BgL_portz00_17885,
									BgL_cyclesz00_17884, CDR(BgL_objz00_10216));
								SET_CDR(BgL_objz00_10216, BgL_tmpz00_31944);
							}
							return BgL_objz00_10216;
						}
					else
						{	/* Read/reader.scm 212 */
							if (VECTORP(BgL_objz00_10216))
								{
									long BgL_iz00_17148;

									BgL_iz00_17148 = 0L;
								BgL_laapz00_17147:
									if ((BgL_iz00_17148 < VECTOR_LENGTH(BgL_objz00_10216)))
										{	/* Read/reader.scm 219 */
											{	/* Read/reader.scm 221 */
												obj_t BgL_arg6156z00_17152;

												{	/* Read/reader.scm 221 */
													obj_t BgL_arg6157z00_17153;

													BgL_arg6157z00_17153 =
														VECTOR_REF(
														((obj_t) BgL_objz00_10216), BgL_iz00_17148);
													BgL_arg6156z00_17152 =
														BGl_loopze70ze7zz__readerz00(BgL_portz00_17885,
														BgL_cyclesz00_17884, BgL_arg6157z00_17153);
												}
												VECTOR_SET(
													((obj_t) BgL_objz00_10216), BgL_iz00_17148,
													BgL_arg6156z00_17152);
											}
											{
												long BgL_iz00_31958;

												BgL_iz00_31958 = (BgL_iz00_17148 + 1L);
												BgL_iz00_17148 = BgL_iz00_31958;
												goto BgL_laapz00_17147;
											}
										}
									else
										{	/* Read/reader.scm 219 */
											return BgL_objz00_10216;
										}
								}
							else
								{	/* Read/reader.scm 216 */
									if (STRUCTP(BgL_objz00_10216))
										{	/* Read/reader.scm 225 */
											int BgL_lenz00_10238;

											BgL_lenz00_10238 = STRUCT_LENGTH(BgL_objz00_10216);
											{
												long BgL_iz00_17169;

												BgL_iz00_17169 = 0L;
											BgL_laapz00_17168:
												if ((BgL_iz00_17169 < (long) (BgL_lenz00_10238)))
													{	/* Read/reader.scm 227 */
														{	/* Read/reader.scm 229 */
															obj_t BgL_arg6162z00_17173;

															{	/* Read/reader.scm 229 */
																obj_t BgL_arg6163z00_17174;

																BgL_arg6163z00_17174 =
																	STRUCT_REF(
																	((obj_t) BgL_objz00_10216),
																	(int) (BgL_iz00_17169));
																BgL_arg6162z00_17173 =
																	BGl_loopze70ze7zz__readerz00
																	(BgL_portz00_17885, BgL_cyclesz00_17884,
																	BgL_arg6163z00_17174);
															}
															{	/* Read/reader.scm 229 */
																int BgL_kz00_17178;

																BgL_kz00_17178 = (int) (BgL_iz00_17169);
																{	/* Read/reader.scm 229 */
																	obj_t BgL_tmpz00_31971;

																	BgL_tmpz00_31971 = ((obj_t) BgL_objz00_10216);
																	STRUCT_SET(BgL_tmpz00_31971, BgL_kz00_17178,
																		BgL_arg6162z00_17173);
														}}}
														{
															long BgL_iz00_31974;

															BgL_iz00_31974 = (BgL_iz00_17169 + 1L);
															BgL_iz00_17169 = BgL_iz00_31974;
															goto BgL_laapz00_17168;
														}
													}
												else
													{	/* Read/reader.scm 227 */
														return BgL_objz00_10216;
													}
											}
										}
									else
										{	/* Read/reader.scm 224 */
											return BgL_objz00_10216;
										}
								}
						}
				}
		}

	}



/* make-list! */
	obj_t BGl_makezd2listz12zc0zz__readerz00(obj_t BgL_lz00_22,
		obj_t BgL_portz00_23)
	{
		{	/* Read/reader.scm 238 */
			{
				obj_t BgL_lz00_10280;
				obj_t BgL_lz00_10264;

				if (NULLP(BgL_lz00_22))
					{	/* Read/reader.scm 268 */
						return BgL_lz00_22;
					}
				else
					{	/* Read/reader.scm 270 */
						bool_t BgL_test9955z00_31978;

						{	/* Read/reader.scm 270 */
							bool_t BgL_test9956z00_31979;

							{	/* Read/reader.scm 270 */
								obj_t BgL_tmpz00_31980;

								BgL_tmpz00_31980 = CDR(BgL_lz00_22);
								BgL_test9956z00_31979 = PAIRP(BgL_tmpz00_31980);
							}
							if (BgL_test9956z00_31979)
								{	/* Read/reader.scm 270 */
									obj_t BgL_arg6175z00_10262;

									BgL_arg6175z00_10262 = CAR(CDR(BgL_lz00_22));
									BgL_test9955z00_31978 =
										(BgL_arg6175z00_10262 ==
										BGl_za2dottedzd2markza2zd2zz__readerz00);
								}
							else
								{	/* Read/reader.scm 270 */
									BgL_test9955z00_31978 = ((bool_t) 0);
								}
						}
						if (BgL_test9955z00_31978)
							{	/* Read/reader.scm 270 */
								if (NULLP(CDR(CDR(BgL_lz00_22))))
									{	/* Read/reader.scm 271 */
										return CAR(BgL_lz00_22);
									}
								else
									{	/* Read/reader.scm 271 */
										BgL_lz00_10280 = BgL_lz00_22;
										{	/* Read/reader.scm 254 */
											obj_t BgL_g1044z00_10282;
											obj_t BgL_g1045z00_10283;

											BgL_g1044z00_10282 = CDR(CDR(BgL_lz00_10280));
											BgL_g1045z00_10283 = CAR(BgL_lz00_10280);
											{
												obj_t BgL_lz00_10285;
												obj_t BgL_rz00_10286;

												BgL_lz00_10285 = BgL_g1044z00_10282;
												BgL_rz00_10286 = BgL_g1045z00_10283;
											BgL_zc3z04anonymousza36187ze3z87_10287:
												{	/* Read/reader.scm 257 */
													bool_t BgL_test9958z00_31994;

													{	/* Read/reader.scm 257 */
														obj_t BgL_arg6194z00_10295;

														BgL_arg6194z00_10295 =
															CAR(((obj_t) BgL_lz00_10285));
														BgL_test9958z00_31994 =
															(BgL_arg6194z00_10295 ==
															BGl_za2dottedzd2markza2zd2zz__readerz00);
													}
													if (BgL_test9958z00_31994)
														{	/* Read/reader.scm 257 */
															return
																BGl_readzd2errorzd2zz__readerz00
																(BGl_string6959z00zz__readerz00, BgL_rz00_10286,
																BgL_portz00_23);
														}
													else
														{	/* Read/reader.scm 257 */
															if (NULLP(CDR(((obj_t) BgL_lz00_10285))))
																{	/* Read/reader.scm 259 */
																	{	/* Read/reader.scm 260 */
																		obj_t BgL_tmpz00_32003;

																		BgL_tmpz00_32003 = ((obj_t) BgL_lz00_10285);
																		SET_CDR(BgL_tmpz00_32003, BgL_rz00_10286);
																	}
																	return BgL_lz00_10285;
																}
															else
																{	/* Read/reader.scm 263 */
																	obj_t BgL_cdrlz00_10292;

																	BgL_cdrlz00_10292 =
																		CDR(((obj_t) BgL_lz00_10285));
																	{	/* Read/reader.scm 265 */
																		obj_t BgL_arg6192z00_10293;

																		{	/* Read/reader.scm 265 */
																			obj_t BgL_tmpz00_32008;

																			BgL_tmpz00_32008 =
																				((obj_t) BgL_lz00_10285);
																			SET_CDR(BgL_tmpz00_32008, BgL_rz00_10286);
																		}
																		BgL_arg6192z00_10293 = BgL_lz00_10285;
																		{
																			obj_t BgL_rz00_32012;
																			obj_t BgL_lz00_32011;

																			BgL_lz00_32011 = BgL_cdrlz00_10292;
																			BgL_rz00_32012 = BgL_arg6192z00_10293;
																			BgL_rz00_10286 = BgL_rz00_32012;
																			BgL_lz00_10285 = BgL_lz00_32011;
																			goto
																				BgL_zc3z04anonymousza36187ze3z87_10287;
																		}
																	}
																}
														}
												}
											}
										}
									}
							}
						else
							{	/* Read/reader.scm 270 */
								BgL_lz00_10264 = BgL_lz00_22;
								{
									obj_t BgL_lz00_10268;
									obj_t BgL_rz00_10269;

									BgL_lz00_10268 = BgL_lz00_10264;
									BgL_rz00_10269 = BNIL;
								BgL_zc3z04anonymousza36178ze3z87_10270:
									{	/* Read/reader.scm 243 */
										bool_t BgL_test9960z00_32013;

										{	/* Read/reader.scm 243 */
											obj_t BgL_arg6185z00_10278;

											BgL_arg6185z00_10278 = CAR(((obj_t) BgL_lz00_10268));
											BgL_test9960z00_32013 =
												(BgL_arg6185z00_10278 ==
												BGl_za2dottedzd2markza2zd2zz__readerz00);
										}
										if (BgL_test9960z00_32013)
											{	/* Read/reader.scm 243 */
												return
													BGl_readzd2errorzd2zz__readerz00
													(BGl_string6959z00zz__readerz00, BgL_rz00_10269,
													BgL_portz00_23);
											}
										else
											{	/* Read/reader.scm 243 */
												if (NULLP(CDR(((obj_t) BgL_lz00_10268))))
													{	/* Read/reader.scm 245 */
														{	/* Read/reader.scm 246 */
															obj_t BgL_tmpz00_32022;

															BgL_tmpz00_32022 = ((obj_t) BgL_lz00_10268);
															SET_CDR(BgL_tmpz00_32022, BgL_rz00_10269);
														}
														return BgL_lz00_10268;
													}
												else
													{	/* Read/reader.scm 249 */
														obj_t BgL_cdrlz00_10275;

														BgL_cdrlz00_10275 = CDR(((obj_t) BgL_lz00_10268));
														{	/* Read/reader.scm 251 */
															obj_t BgL_arg6183z00_10276;

															{	/* Read/reader.scm 251 */
																obj_t BgL_tmpz00_32027;

																BgL_tmpz00_32027 = ((obj_t) BgL_lz00_10268);
																SET_CDR(BgL_tmpz00_32027, BgL_rz00_10269);
															}
															BgL_arg6183z00_10276 = BgL_lz00_10268;
															{
																obj_t BgL_rz00_32031;
																obj_t BgL_lz00_32030;

																BgL_lz00_32030 = BgL_cdrlz00_10275;
																BgL_rz00_32031 = BgL_arg6183z00_10276;
																BgL_rz00_10269 = BgL_rz00_32031;
																BgL_lz00_10268 = BgL_lz00_32030;
																goto BgL_zc3z04anonymousza36178ze3z87_10270;
															}
														}
													}
											}
									}
								}
							}
					}
			}
		}

	}



/* read-multi-line-comment */
	obj_t BGl_readzd2multizd2linezd2commentzd2zz__readerz00(obj_t BgL_portz00_24)
	{
		{	/* Read/reader.scm 280 */
			{
				obj_t BgL_iportz00_10301;

				BgL_iportz00_10301 = BgL_portz00_24;
				{
					obj_t BgL_iportz00_10406;
					long BgL_lastzd2matchzd2_10407;
					long BgL_forwardz00_10408;
					long BgL_bufposz00_10409;
					obj_t BgL_iportz00_10390;
					long BgL_lastzd2matchzd2_10391;
					long BgL_forwardz00_10392;
					long BgL_bufposz00_10393;
					obj_t BgL_iportz00_10375;
					long BgL_lastzd2matchzd2_10376;
					long BgL_forwardz00_10377;
					long BgL_bufposz00_10378;
					obj_t BgL_iportz00_10361;
					long BgL_lastzd2matchzd2_10362;
					long BgL_forwardz00_10363;
					long BgL_bufposz00_10364;
					obj_t BgL_iportz00_10345;
					long BgL_lastzd2matchzd2_10346;
					long BgL_forwardz00_10347;
					long BgL_bufposz00_10348;

				BgL_zc3z04anonymousza36344ze3z87_10568:
					RGC_START_MATCH(BgL_iportz00_10301);
					{	/* Read/reader.scm 281 */
						long BgL_matchz00_10569;

						{	/* Read/reader.scm 281 */
							long BgL_arg6348z00_10576;
							long BgL_arg6349z00_10577;

							BgL_arg6348z00_10576 = RGC_BUFFER_FORWARD(BgL_iportz00_10301);
							BgL_arg6349z00_10577 = RGC_BUFFER_BUFPOS(BgL_iportz00_10301);
							BgL_iportz00_10375 = BgL_iportz00_10301;
							BgL_lastzd2matchzd2_10376 = 3L;
							BgL_forwardz00_10377 = BgL_arg6348z00_10576;
							BgL_bufposz00_10378 = BgL_arg6349z00_10577;
						BgL_zc3z04anonymousza36215ze3z87_10379:
							if ((BgL_forwardz00_10377 == BgL_bufposz00_10378))
								{	/* Read/reader.scm 281 */
									if (rgc_fill_buffer(BgL_iportz00_10375))
										{	/* Read/reader.scm 281 */
											long BgL_arg6218z00_10382;
											long BgL_arg6219z00_10383;

											BgL_arg6218z00_10382 =
												RGC_BUFFER_FORWARD(BgL_iportz00_10375);
											BgL_arg6219z00_10383 =
												RGC_BUFFER_BUFPOS(BgL_iportz00_10375);
											{
												long BgL_bufposz00_32042;
												long BgL_forwardz00_32041;

												BgL_forwardz00_32041 = BgL_arg6218z00_10382;
												BgL_bufposz00_32042 = BgL_arg6219z00_10383;
												BgL_bufposz00_10378 = BgL_bufposz00_32042;
												BgL_forwardz00_10377 = BgL_forwardz00_32041;
												goto BgL_zc3z04anonymousza36215ze3z87_10379;
											}
										}
									else
										{	/* Read/reader.scm 281 */
											BgL_matchz00_10569 = BgL_lastzd2matchzd2_10376;
										}
								}
							else
								{	/* Read/reader.scm 281 */
									int BgL_curz00_10384;

									BgL_curz00_10384 =
										RGC_BUFFER_GET_CHAR(BgL_iportz00_10375,
										BgL_forwardz00_10377);
									{	/* Read/reader.scm 281 */

										if (((long) (BgL_curz00_10384) == 124L))
											{	/* Read/reader.scm 281 */
												BgL_iportz00_10406 = BgL_iportz00_10375;
												BgL_lastzd2matchzd2_10407 = BgL_lastzd2matchzd2_10376;
												BgL_forwardz00_10408 = (1L + BgL_forwardz00_10377);
												BgL_bufposz00_10409 = BgL_bufposz00_10378;
											BgL_zc3z04anonymousza36235ze3z87_10410:
												{	/* Read/reader.scm 281 */
													long BgL_newzd2matchzd2_10411;

													RGC_STOP_MATCH(BgL_iportz00_10406,
														BgL_forwardz00_10408);
													BgL_newzd2matchzd2_10411 = 3L;
													if ((BgL_forwardz00_10408 == BgL_bufposz00_10409))
														{	/* Read/reader.scm 281 */
															if (rgc_fill_buffer(BgL_iportz00_10406))
																{	/* Read/reader.scm 281 */
																	long BgL_arg6238z00_10414;
																	long BgL_arg6239z00_10415;

																	BgL_arg6238z00_10414 =
																		RGC_BUFFER_FORWARD(BgL_iportz00_10406);
																	BgL_arg6239z00_10415 =
																		RGC_BUFFER_BUFPOS(BgL_iportz00_10406);
																	{
																		long BgL_bufposz00_32055;
																		long BgL_forwardz00_32054;

																		BgL_forwardz00_32054 = BgL_arg6238z00_10414;
																		BgL_bufposz00_32055 = BgL_arg6239z00_10415;
																		BgL_bufposz00_10409 = BgL_bufposz00_32055;
																		BgL_forwardz00_10408 = BgL_forwardz00_32054;
																		goto BgL_zc3z04anonymousza36235ze3z87_10410;
																	}
																}
															else
																{	/* Read/reader.scm 281 */
																	BgL_matchz00_10569 = BgL_newzd2matchzd2_10411;
																}
														}
													else
														{	/* Read/reader.scm 281 */
															int BgL_curz00_10416;

															BgL_curz00_10416 =
																RGC_BUFFER_GET_CHAR(BgL_iportz00_10406,
																BgL_forwardz00_10408);
															{	/* Read/reader.scm 281 */

																if (((long) (BgL_curz00_10416) == 35L))
																	{	/* Read/reader.scm 281 */
																		long BgL_arg6241z00_10418;

																		BgL_arg6241z00_10418 =
																			(1L + BgL_forwardz00_10408);
																		{	/* Read/reader.scm 281 */
																			long BgL_newzd2matchzd2_17351;

																			RGC_STOP_MATCH(BgL_iportz00_10406,
																				BgL_arg6241z00_10418);
																			BgL_newzd2matchzd2_17351 = 2L;
																			BgL_matchz00_10569 =
																				BgL_newzd2matchzd2_17351;
																	}}
																else
																	{	/* Read/reader.scm 281 */
																		BgL_iportz00_10345 = BgL_iportz00_10406;
																		BgL_lastzd2matchzd2_10346 =
																			BgL_newzd2matchzd2_10411;
																		BgL_forwardz00_10347 =
																			(1L + BgL_forwardz00_10408);
																		BgL_bufposz00_10348 = BgL_bufposz00_10409;
																	BgL_zc3z04anonymousza36197ze3z87_10349:
																		{	/* Read/reader.scm 281 */
																			long BgL_newzd2matchzd2_10350;

																			RGC_STOP_MATCH(BgL_iportz00_10345,
																				BgL_forwardz00_10347);
																			BgL_newzd2matchzd2_10350 = 1L;
																			if (
																				(BgL_forwardz00_10347 ==
																					BgL_bufposz00_10348))
																				{	/* Read/reader.scm 281 */
																					if (rgc_fill_buffer
																						(BgL_iportz00_10345))
																						{	/* Read/reader.scm 281 */
																							long BgL_arg6200z00_10353;
																							long BgL_arg6201z00_10354;

																							BgL_arg6200z00_10353 =
																								RGC_BUFFER_FORWARD
																								(BgL_iportz00_10345);
																							BgL_arg6201z00_10354 =
																								RGC_BUFFER_BUFPOS
																								(BgL_iportz00_10345);
																							{
																								long BgL_bufposz00_32070;
																								long BgL_forwardz00_32069;

																								BgL_forwardz00_32069 =
																									BgL_arg6200z00_10353;
																								BgL_bufposz00_32070 =
																									BgL_arg6201z00_10354;
																								BgL_bufposz00_10348 =
																									BgL_bufposz00_32070;
																								BgL_forwardz00_10347 =
																									BgL_forwardz00_32069;
																								goto
																									BgL_zc3z04anonymousza36197ze3z87_10349;
																							}
																						}
																					else
																						{	/* Read/reader.scm 281 */
																							BgL_matchz00_10569 =
																								BgL_newzd2matchzd2_10350;
																						}
																				}
																			else
																				{	/* Read/reader.scm 281 */
																					int BgL_curz00_10355;

																					BgL_curz00_10355 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_iportz00_10345,
																						BgL_forwardz00_10347);
																					{	/* Read/reader.scm 281 */

																						if (
																							((long) (BgL_curz00_10355) ==
																								124L))
																							{	/* Read/reader.scm 281 */
																								long BgL_arg6203z00_10357;

																								BgL_arg6203z00_10357 =
																									(1L + BgL_forwardz00_10347);
																								{
																									long BgL_forwardz00_17221;
																									long BgL_bufposz00_17222;

																									BgL_forwardz00_17221 =
																										BgL_arg6203z00_10357;
																									BgL_bufposz00_17222 =
																										BgL_bufposz00_10348;
																								BgL_statezd28zd21054z00_17220:
																									if (
																										(BgL_forwardz00_17221 ==
																											BgL_bufposz00_17222))
																										{	/* Read/reader.scm 281 */
																											if (rgc_fill_buffer
																												(BgL_iportz00_10345))
																												{	/* Read/reader.scm 281 */
																													long
																														BgL_arg6246z00_17225;
																													long
																														BgL_arg6247z00_17226;
																													BgL_arg6246z00_17225 =
																														RGC_BUFFER_FORWARD
																														(BgL_iportz00_10345);
																													BgL_arg6247z00_17226 =
																														RGC_BUFFER_BUFPOS
																														(BgL_iportz00_10345);
																													{
																														long
																															BgL_bufposz00_32083;
																														long
																															BgL_forwardz00_32082;
																														BgL_forwardz00_32082
																															=
																															BgL_arg6246z00_17225;
																														BgL_bufposz00_32083
																															=
																															BgL_arg6247z00_17226;
																														BgL_bufposz00_17222
																															=
																															BgL_bufposz00_32083;
																														BgL_forwardz00_17221
																															=
																															BgL_forwardz00_32082;
																														goto
																															BgL_statezd28zd21054z00_17220;
																													}
																												}
																											else
																												{	/* Read/reader.scm 281 */
																													BgL_matchz00_10569 =
																														BgL_newzd2matchzd2_10350;
																												}
																										}
																									else
																										{	/* Read/reader.scm 281 */
																											int BgL_curz00_17227;

																											BgL_curz00_17227 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_iportz00_10345,
																												BgL_forwardz00_17221);
																											{	/* Read/reader.scm 281 */

																												if (
																													((long)
																														(BgL_curz00_17227)
																														== 35L))
																													{	/* Read/reader.scm 281 */
																														BgL_matchz00_10569 =
																															BgL_newzd2matchzd2_10350;
																													}
																												else
																													{
																														long
																															BgL_bufposz00_32091;
																														long
																															BgL_forwardz00_32089;
																														long
																															BgL_lastzd2matchzd2_32088;
																														BgL_lastzd2matchzd2_32088
																															=
																															BgL_newzd2matchzd2_10350;
																														BgL_forwardz00_32089
																															=
																															(1L +
																															BgL_forwardz00_17221);
																														BgL_bufposz00_32091
																															=
																															BgL_bufposz00_17222;
																														BgL_bufposz00_10348
																															=
																															BgL_bufposz00_32091;
																														BgL_forwardz00_10347
																															=
																															BgL_forwardz00_32089;
																														BgL_lastzd2matchzd2_10346
																															=
																															BgL_lastzd2matchzd2_32088;
																														goto
																															BgL_zc3z04anonymousza36197ze3z87_10349;
																													}
																											}
																										}
																								}
																							}
																						else
																							{	/* Read/reader.scm 281 */
																								if (
																									((long) (BgL_curz00_10355) ==
																										35L))
																									{	/* Read/reader.scm 281 */
																										long BgL_arg6205z00_10359;

																										BgL_arg6205z00_10359 =
																											(1L +
																											BgL_forwardz00_10347);
																										{
																											long BgL_forwardz00_17242;
																											long BgL_bufposz00_17243;

																											BgL_forwardz00_17242 =
																												BgL_arg6205z00_10359;
																											BgL_bufposz00_17243 =
																												BgL_bufposz00_10348;
																										BgL_statezd27zd21053z00_17241:
																											if (
																												(BgL_forwardz00_17242 ==
																													BgL_bufposz00_17243))
																												{	/* Read/reader.scm 281 */
																													if (rgc_fill_buffer
																														(BgL_iportz00_10345))
																														{	/* Read/reader.scm 281 */
																															long
																																BgL_arg6253z00_17246;
																															long
																																BgL_arg6254z00_17247;
																															BgL_arg6253z00_17246
																																=
																																RGC_BUFFER_FORWARD
																																(BgL_iportz00_10345);
																															BgL_arg6254z00_17247
																																=
																																RGC_BUFFER_BUFPOS
																																(BgL_iportz00_10345);
																															{
																																long
																																	BgL_bufposz00_32103;
																																long
																																	BgL_forwardz00_32102;
																																BgL_forwardz00_32102
																																	=
																																	BgL_arg6253z00_17246;
																																BgL_bufposz00_32103
																																	=
																																	BgL_arg6254z00_17247;
																																BgL_bufposz00_17243
																																	=
																																	BgL_bufposz00_32103;
																																BgL_forwardz00_17242
																																	=
																																	BgL_forwardz00_32102;
																																goto
																																	BgL_statezd27zd21053z00_17241;
																															}
																														}
																													else
																														{	/* Read/reader.scm 281 */
																															BgL_matchz00_10569
																																=
																																BgL_newzd2matchzd2_10350;
																														}
																												}
																											else
																												{	/* Read/reader.scm 281 */
																													int BgL_curz00_17248;

																													BgL_curz00_17248 =
																														RGC_BUFFER_GET_CHAR
																														(BgL_iportz00_10345,
																														BgL_forwardz00_17242);
																													{	/* Read/reader.scm 281 */

																														if (
																															((long)
																																(BgL_curz00_17248)
																																== 124L))
																															{	/* Read/reader.scm 281 */
																																BgL_matchz00_10569
																																	=
																																	BgL_newzd2matchzd2_10350;
																															}
																														else
																															{
																																long
																																	BgL_bufposz00_32111;
																																long
																																	BgL_forwardz00_32109;
																																long
																																	BgL_lastzd2matchzd2_32108;
																																BgL_lastzd2matchzd2_32108
																																	=
																																	BgL_newzd2matchzd2_10350;
																																BgL_forwardz00_32109
																																	=
																																	(1L +
																																	BgL_forwardz00_17242);
																																BgL_bufposz00_32111
																																	=
																																	BgL_bufposz00_17243;
																																BgL_bufposz00_10348
																																	=
																																	BgL_bufposz00_32111;
																																BgL_forwardz00_10347
																																	=
																																	BgL_forwardz00_32109;
																																BgL_lastzd2matchzd2_10346
																																	=
																																	BgL_lastzd2matchzd2_32108;
																																goto
																																	BgL_zc3z04anonymousza36197ze3z87_10349;
																															}
																													}
																												}
																										}
																									}
																								else
																									{
																										long BgL_forwardz00_32113;
																										long
																											BgL_lastzd2matchzd2_32112;
																										BgL_lastzd2matchzd2_32112 =
																											BgL_newzd2matchzd2_10350;
																										BgL_forwardz00_32113 =
																											(1L +
																											BgL_forwardz00_10347);
																										BgL_forwardz00_10347 =
																											BgL_forwardz00_32113;
																										BgL_lastzd2matchzd2_10346 =
																											BgL_lastzd2matchzd2_32112;
																										goto
																											BgL_zc3z04anonymousza36197ze3z87_10349;
																									}
																							}
																					}
																				}
																		}
																	}
															}
														}
												}
											}
										else
											{	/* Read/reader.scm 281 */
												if (((long) (BgL_curz00_10384) == 35L))
													{	/* Read/reader.scm 281 */
														BgL_iportz00_10361 = BgL_iportz00_10375;
														BgL_lastzd2matchzd2_10362 =
															BgL_lastzd2matchzd2_10376;
														BgL_forwardz00_10363 = (1L + BgL_forwardz00_10377);
														BgL_bufposz00_10364 = BgL_bufposz00_10378;
													BgL_zc3z04anonymousza36207ze3z87_10365:
														{	/* Read/reader.scm 281 */
															long BgL_newzd2matchzd2_10366;

															RGC_STOP_MATCH(BgL_iportz00_10361,
																BgL_forwardz00_10363);
															BgL_newzd2matchzd2_10366 = 3L;
															if ((BgL_forwardz00_10363 == BgL_bufposz00_10364))
																{	/* Read/reader.scm 281 */
																	if (rgc_fill_buffer(BgL_iportz00_10361))
																		{	/* Read/reader.scm 281 */
																			long BgL_arg6210z00_10369;
																			long BgL_arg6211z00_10370;

																			BgL_arg6210z00_10369 =
																				RGC_BUFFER_FORWARD(BgL_iportz00_10361);
																			BgL_arg6211z00_10370 =
																				RGC_BUFFER_BUFPOS(BgL_iportz00_10361);
																			{
																				long BgL_bufposz00_32128;
																				long BgL_forwardz00_32127;

																				BgL_forwardz00_32127 =
																					BgL_arg6210z00_10369;
																				BgL_bufposz00_32128 =
																					BgL_arg6211z00_10370;
																				BgL_bufposz00_10364 =
																					BgL_bufposz00_32128;
																				BgL_forwardz00_10363 =
																					BgL_forwardz00_32127;
																				goto
																					BgL_zc3z04anonymousza36207ze3z87_10365;
																			}
																		}
																	else
																		{	/* Read/reader.scm 281 */
																			BgL_matchz00_10569 =
																				BgL_newzd2matchzd2_10366;
																		}
																}
															else
																{	/* Read/reader.scm 281 */
																	int BgL_curz00_10371;

																	BgL_curz00_10371 =
																		RGC_BUFFER_GET_CHAR(BgL_iportz00_10361,
																		BgL_forwardz00_10363);
																	{	/* Read/reader.scm 281 */

																		if (((long) (BgL_curz00_10371) == 124L))
																			{	/* Read/reader.scm 281 */
																				long BgL_arg6213z00_10373;

																				BgL_arg6213z00_10373 =
																					(1L + BgL_forwardz00_10363);
																				{	/* Read/reader.scm 281 */
																					long BgL_newzd2matchzd2_17272;

																					RGC_STOP_MATCH(BgL_iportz00_10361,
																						BgL_arg6213z00_10373);
																					BgL_newzd2matchzd2_17272 = 0L;
																					BgL_matchz00_10569 =
																						BgL_newzd2matchzd2_17272;
																			}}
																		else
																			{
																				long BgL_bufposz00_32139;
																				long BgL_forwardz00_32137;
																				long BgL_lastzd2matchzd2_32136;
																				obj_t BgL_iportz00_32135;

																				BgL_iportz00_32135 = BgL_iportz00_10361;
																				BgL_lastzd2matchzd2_32136 =
																					BgL_newzd2matchzd2_10366;
																				BgL_forwardz00_32137 =
																					(1L + BgL_forwardz00_10363);
																				BgL_bufposz00_32139 =
																					BgL_bufposz00_10364;
																				BgL_bufposz00_10348 =
																					BgL_bufposz00_32139;
																				BgL_forwardz00_10347 =
																					BgL_forwardz00_32137;
																				BgL_lastzd2matchzd2_10346 =
																					BgL_lastzd2matchzd2_32136;
																				BgL_iportz00_10345 = BgL_iportz00_32135;
																				goto
																					BgL_zc3z04anonymousza36197ze3z87_10349;
																			}
																	}
																}
														}
													}
												else
													{	/* Read/reader.scm 281 */
														BgL_iportz00_10390 = BgL_iportz00_10375;
														BgL_lastzd2matchzd2_10391 =
															BgL_lastzd2matchzd2_10376;
														BgL_forwardz00_10392 = (1L + BgL_forwardz00_10377);
														BgL_bufposz00_10393 = BgL_bufposz00_10378;
													BgL_zc3z04anonymousza36225ze3z87_10394:
														{	/* Read/reader.scm 281 */
															long BgL_newzd2matchzd2_10395;

															RGC_STOP_MATCH(BgL_iportz00_10390,
																BgL_forwardz00_10392);
															BgL_newzd2matchzd2_10395 = 1L;
															if ((BgL_forwardz00_10392 == BgL_bufposz00_10393))
																{	/* Read/reader.scm 281 */
																	if (rgc_fill_buffer(BgL_iportz00_10390))
																		{	/* Read/reader.scm 281 */
																			long BgL_arg6228z00_10398;
																			long BgL_arg6229z00_10399;

																			BgL_arg6228z00_10398 =
																				RGC_BUFFER_FORWARD(BgL_iportz00_10390);
																			BgL_arg6229z00_10399 =
																				RGC_BUFFER_BUFPOS(BgL_iportz00_10390);
																			{
																				long BgL_bufposz00_32149;
																				long BgL_forwardz00_32148;

																				BgL_forwardz00_32148 =
																					BgL_arg6228z00_10398;
																				BgL_bufposz00_32149 =
																					BgL_arg6229z00_10399;
																				BgL_bufposz00_10393 =
																					BgL_bufposz00_32149;
																				BgL_forwardz00_10392 =
																					BgL_forwardz00_32148;
																				goto
																					BgL_zc3z04anonymousza36225ze3z87_10394;
																			}
																		}
																	else
																		{	/* Read/reader.scm 281 */
																			BgL_matchz00_10569 =
																				BgL_newzd2matchzd2_10395;
																		}
																}
															else
																{	/* Read/reader.scm 281 */
																	int BgL_curz00_10400;

																	BgL_curz00_10400 =
																		RGC_BUFFER_GET_CHAR(BgL_iportz00_10390,
																		BgL_forwardz00_10392);
																	{	/* Read/reader.scm 281 */

																		if (((long) (BgL_curz00_10400) == 124L))
																			{	/* Read/reader.scm 281 */
																				long BgL_arg6231z00_10402;

																				BgL_arg6231z00_10402 =
																					(1L + BgL_forwardz00_10392);
																				{
																					long BgL_forwardz00_17300;
																					long BgL_bufposz00_17301;

																					BgL_forwardz00_17300 =
																						BgL_arg6231z00_10402;
																					BgL_bufposz00_17301 =
																						BgL_bufposz00_10393;
																				BgL_statezd28zd21054z00_17299:
																					if (
																						(BgL_forwardz00_17300 ==
																							BgL_bufposz00_17301))
																						{	/* Read/reader.scm 281 */
																							if (rgc_fill_buffer
																								(BgL_iportz00_10390))
																								{	/* Read/reader.scm 281 */
																									long BgL_arg6246z00_17304;
																									long BgL_arg6247z00_17305;

																									BgL_arg6246z00_17304 =
																										RGC_BUFFER_FORWARD
																										(BgL_iportz00_10390);
																									BgL_arg6247z00_17305 =
																										RGC_BUFFER_BUFPOS
																										(BgL_iportz00_10390);
																									{
																										long BgL_bufposz00_32162;
																										long BgL_forwardz00_32161;

																										BgL_forwardz00_32161 =
																											BgL_arg6246z00_17304;
																										BgL_bufposz00_32162 =
																											BgL_arg6247z00_17305;
																										BgL_bufposz00_17301 =
																											BgL_bufposz00_32162;
																										BgL_forwardz00_17300 =
																											BgL_forwardz00_32161;
																										goto
																											BgL_statezd28zd21054z00_17299;
																									}
																								}
																							else
																								{	/* Read/reader.scm 281 */
																									BgL_matchz00_10569 =
																										BgL_newzd2matchzd2_10395;
																								}
																						}
																					else
																						{	/* Read/reader.scm 281 */
																							int BgL_curz00_17306;

																							BgL_curz00_17306 =
																								RGC_BUFFER_GET_CHAR
																								(BgL_iportz00_10390,
																								BgL_forwardz00_17300);
																							{	/* Read/reader.scm 281 */

																								if (
																									((long) (BgL_curz00_17306) ==
																										35L))
																									{	/* Read/reader.scm 281 */
																										BgL_matchz00_10569 =
																											BgL_newzd2matchzd2_10395;
																									}
																								else
																									{
																										long BgL_bufposz00_32171;
																										long BgL_forwardz00_32169;
																										long
																											BgL_lastzd2matchzd2_32168;
																										obj_t BgL_iportz00_32167;

																										BgL_iportz00_32167 =
																											BgL_iportz00_10390;
																										BgL_lastzd2matchzd2_32168 =
																											BgL_newzd2matchzd2_10395;
																										BgL_forwardz00_32169 =
																											(1L +
																											BgL_forwardz00_17300);
																										BgL_bufposz00_32171 =
																											BgL_bufposz00_17301;
																										BgL_bufposz00_10348 =
																											BgL_bufposz00_32171;
																										BgL_forwardz00_10347 =
																											BgL_forwardz00_32169;
																										BgL_lastzd2matchzd2_10346 =
																											BgL_lastzd2matchzd2_32168;
																										BgL_iportz00_10345 =
																											BgL_iportz00_32167;
																										goto
																											BgL_zc3z04anonymousza36197ze3z87_10349;
																									}
																							}
																						}
																				}
																			}
																		else
																			{	/* Read/reader.scm 281 */
																				if (((long) (BgL_curz00_10400) == 35L))
																					{	/* Read/reader.scm 281 */
																						long BgL_arg6233z00_10404;

																						BgL_arg6233z00_10404 =
																							(1L + BgL_forwardz00_10392);
																						{
																							long BgL_forwardz00_17321;
																							long BgL_bufposz00_17322;

																							BgL_forwardz00_17321 =
																								BgL_arg6233z00_10404;
																							BgL_bufposz00_17322 =
																								BgL_bufposz00_10393;
																						BgL_statezd27zd21053z00_17320:
																							if (
																								(BgL_forwardz00_17321 ==
																									BgL_bufposz00_17322))
																								{	/* Read/reader.scm 281 */
																									if (rgc_fill_buffer
																										(BgL_iportz00_10390))
																										{	/* Read/reader.scm 281 */
																											long BgL_arg6253z00_17325;
																											long BgL_arg6254z00_17326;

																											BgL_arg6253z00_17325 =
																												RGC_BUFFER_FORWARD
																												(BgL_iportz00_10390);
																											BgL_arg6254z00_17326 =
																												RGC_BUFFER_BUFPOS
																												(BgL_iportz00_10390);
																											{
																												long
																													BgL_bufposz00_32183;
																												long
																													BgL_forwardz00_32182;
																												BgL_forwardz00_32182 =
																													BgL_arg6253z00_17325;
																												BgL_bufposz00_32183 =
																													BgL_arg6254z00_17326;
																												BgL_bufposz00_17322 =
																													BgL_bufposz00_32183;
																												BgL_forwardz00_17321 =
																													BgL_forwardz00_32182;
																												goto
																													BgL_statezd27zd21053z00_17320;
																											}
																										}
																									else
																										{	/* Read/reader.scm 281 */
																											BgL_matchz00_10569 =
																												BgL_newzd2matchzd2_10395;
																										}
																								}
																							else
																								{	/* Read/reader.scm 281 */
																									int BgL_curz00_17327;

																									BgL_curz00_17327 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_iportz00_10390,
																										BgL_forwardz00_17321);
																									{	/* Read/reader.scm 281 */

																										if (
																											((long) (BgL_curz00_17327)
																												== 124L))
																											{	/* Read/reader.scm 281 */
																												BgL_matchz00_10569 =
																													BgL_newzd2matchzd2_10395;
																											}
																										else
																											{
																												long
																													BgL_bufposz00_32192;
																												long
																													BgL_forwardz00_32190;
																												long
																													BgL_lastzd2matchzd2_32189;
																												obj_t
																													BgL_iportz00_32188;
																												BgL_iportz00_32188 =
																													BgL_iportz00_10390;
																												BgL_lastzd2matchzd2_32189
																													=
																													BgL_newzd2matchzd2_10395;
																												BgL_forwardz00_32190 =
																													(1L +
																													BgL_forwardz00_17321);
																												BgL_bufposz00_32192 =
																													BgL_bufposz00_17322;
																												BgL_bufposz00_10348 =
																													BgL_bufposz00_32192;
																												BgL_forwardz00_10347 =
																													BgL_forwardz00_32190;
																												BgL_lastzd2matchzd2_10346
																													=
																													BgL_lastzd2matchzd2_32189;
																												BgL_iportz00_10345 =
																													BgL_iportz00_32188;
																												goto
																													BgL_zc3z04anonymousza36197ze3z87_10349;
																											}
																									}
																								}
																						}
																					}
																				else
																					{
																						long BgL_bufposz00_32197;
																						long BgL_forwardz00_32195;
																						long BgL_lastzd2matchzd2_32194;
																						obj_t BgL_iportz00_32193;

																						BgL_iportz00_32193 =
																							BgL_iportz00_10390;
																						BgL_lastzd2matchzd2_32194 =
																							BgL_newzd2matchzd2_10395;
																						BgL_forwardz00_32195 =
																							(1L + BgL_forwardz00_10392);
																						BgL_bufposz00_32197 =
																							BgL_bufposz00_10393;
																						BgL_bufposz00_10348 =
																							BgL_bufposz00_32197;
																						BgL_forwardz00_10347 =
																							BgL_forwardz00_32195;
																						BgL_lastzd2matchzd2_10346 =
																							BgL_lastzd2matchzd2_32194;
																						BgL_iportz00_10345 =
																							BgL_iportz00_32193;
																						goto
																							BgL_zc3z04anonymousza36197ze3z87_10349;
																					}
																			}
																	}
																}
														}
													}
											}
									}
								}
						}
						RGC_SET_FILEPOS(BgL_iportz00_10301);
						switch (BgL_matchz00_10569)
							{
							case 3L:

								{	/* Read/reader.scm 290 */
									obj_t BgL_cz00_10572;

									{	/* Read/reader.scm 281 */
										bool_t BgL_test9992z00_32200;

										{	/* Read/reader.scm 281 */
											long BgL_arg6338z00_10559;

											BgL_arg6338z00_10559 =
												RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_10301);
											BgL_test9992z00_32200 = (BgL_arg6338z00_10559 == 0L);
										}
										if (BgL_test9992z00_32200)
											{	/* Read/reader.scm 281 */
												BgL_cz00_10572 = BEOF;
											}
										else
											{	/* Read/reader.scm 281 */
												BgL_cz00_10572 =
													BCHAR(RGC_BUFFER_CHARACTER(BgL_iportz00_10301));
											}
									}
									if (EOF_OBJECTP(BgL_cz00_10572))
										{	/* Read/reader.scm 291 */
											return
												BGl_readzd2errorzd2zz__readerz00
												(BGl_string6960z00zz__readerz00, BgL_cz00_10572,
												BgL_iportz00_10301);
										}
									else
										{	/* Read/reader.scm 291 */
											return BFALSE;
										}
								}
								break;
							case 2L:

								return BUNSPEC;
								break;
							case 1L:

								goto BgL_zc3z04anonymousza36344ze3z87_10568;
								break;
							case 0L:

								BGl_readzd2multizd2linezd2commentzd2zz__readerz00
									(BgL_iportz00_10301);
								goto BgL_zc3z04anonymousza36344ze3z87_10568;
								break;
							default:
								return
									BGl_errorz00zz__errorz00(BGl_string6943z00zz__readerz00,
									BGl_string6944z00zz__readerz00, BINT(BgL_matchz00_10569));
							}
					}
				}
			}
		}

	}



/* bigloo-regular-grammar */
	BGL_EXPORTED_DEF obj_t BGl_bigloozd2regularzd2grammarz00zz__readerz00(void)
	{
		{	/* Read/reader.scm 809 */
			return BGl_za2bigloozd2grammarza2zd2zz__readerz00;
		}

	}



/* &bigloo-regular-grammar */
	obj_t BGl_z62bigloozd2regularzd2grammarz62zz__readerz00(obj_t
		BgL_envz00_17846)
	{
		{	/* Read/reader.scm 809 */
			return BGl_bigloozd2regularzd2grammarz00zz__readerz00();
		}

	}



/* _read */
	obj_t BGl__readz00zz__readerz00(obj_t BgL_env1423z00_28,
		obj_t BgL_opt1422z00_27)
	{
		{	/* Read/reader.scm 815 */
			{	/* Read/reader.scm 815 */

				{	/* Read/reader.scm 815 */
					long BgL_aux1425z00_10616;

					{
						obj_t BgL_auxz00_32213;

						if (VECTORP(BgL_opt1422z00_27))
							{	/* Read/reader.scm 815 */
								BgL_auxz00_32213 = BgL_opt1422z00_27;
							}
						else
							{
								obj_t BgL_auxz00_32216;

								BgL_auxz00_32216 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string6955z00zz__readerz00, BINT(27304L),
									BGl_string6961z00zz__readerz00,
									BGl_string6876z00zz__readerz00, BgL_opt1422z00_27);
								FAILURE(BgL_auxz00_32216, BFALSE, BFALSE);
							}
						BgL_aux1425z00_10616 = VECTOR_LENGTH(BgL_auxz00_32213);
					}
					switch (BgL_aux1425z00_10616)
						{
						case 0L:

							{	/* Read/reader.scm 815 */
								obj_t BgL_iportz00_10617;

								{	/* Read/reader.scm 815 */
									obj_t BgL_tmpz00_32221;

									BgL_tmpz00_32221 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_iportz00_10617 =
										BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_32221);
								}
								{	/* Read/reader.scm 815 */

									if (INPUT_PORT_CLOSEP(BgL_iportz00_10617))
										{	/* Read/reader.scm 818 */
											return
												BGl_errorz00zz__errorz00(BGl_string6874z00zz__readerz00,
												BGl_string6945z00zz__readerz00, BgL_iportz00_10617);
										}
									else
										{	/* Read/reader.scm 824 */
											obj_t BgL_fun6351z00_17434;

											BgL_fun6351z00_17434 =
												BGl_za2bigloozd2grammarza2zd2zz__readerz00;
											{	/* Read/reader.scm 824 */
												obj_t BgL_tmpfunz00_32238;

												{	/* Read/reader.scm 824 */
													bool_t BgL_test6819z00_17939;

													BgL_test6819z00_17939 =
														PROCEDUREP(BgL_fun6351z00_17434);
													if (BgL_test6819z00_17939)
														{	/* Read/reader.scm 824 */
															BgL_tmpfunz00_32238 = BgL_fun6351z00_17434;
														}
													else
														{
															obj_t BgL_auxz00_32241;

															BgL_auxz00_32241 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string6955z00zz__readerz00, BINT(27851L),
																BGl_string6961z00zz__readerz00,
																BGl_string6962z00zz__readerz00,
																BgL_fun6351z00_17434);
															FAILURE(BgL_auxz00_32241, BFALSE, BFALSE);
														}
												}
												return
													(VA_PROCEDUREP(BgL_tmpfunz00_32238)
													? ((obj_t(*)(obj_t,
																...))
														PROCEDURE_ENTRY(BgL_tmpfunz00_32238))
													(BgL_fun6351z00_17434, BgL_iportz00_10617, BFALSE,
														BGl_vector6946z00zz__readerz00, BINT(0L), BINT(0L),
														BNIL, BNIL, BEOA) : ((obj_t(*)(obj_t, obj_t, obj_t,
																obj_t, obj_t, obj_t, obj_t,
																obj_t))
														PROCEDURE_ENTRY(BgL_tmpfunz00_32238))
													(BgL_fun6351z00_17434, BgL_iportz00_10617, BFALSE,
														BGl_vector6946z00zz__readerz00, BINT(0L), BINT(0L),
														BNIL, BNIL));
											}
										}
								}
							}
							break;
						case 1L:

							{	/* Read/reader.scm 815 */
								obj_t BgL_iportz00_10619;

								{
									obj_t BgL_auxz00_32245;

									if (VECTORP(BgL_opt1422z00_27))
										{	/* Read/reader.scm 815 */
											BgL_auxz00_32245 = BgL_opt1422z00_27;
										}
									else
										{
											obj_t BgL_auxz00_32248;

											BgL_auxz00_32248 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string6955z00zz__readerz00, BINT(27304L),
												BGl_string6961z00zz__readerz00,
												BGl_string6876z00zz__readerz00, BgL_opt1422z00_27);
											FAILURE(BgL_auxz00_32248, BFALSE, BFALSE);
										}
									BgL_iportz00_10619 = VECTOR_REF(BgL_auxz00_32245, 0L);
								}
								{	/* Read/reader.scm 815 */

									{	/* Read/reader.scm 815 */
										obj_t BgL_iportz00_17436;

										if (INPUT_PORTP(BgL_iportz00_10619))
											{	/* Read/reader.scm 815 */
												BgL_iportz00_17436 = BgL_iportz00_10619;
											}
										else
											{
												obj_t BgL_auxz00_32255;

												BgL_auxz00_32255 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string6955z00zz__readerz00, BINT(27304L),
													BGl_string6961z00zz__readerz00,
													BGl_string6963z00zz__readerz00, BgL_iportz00_10619);
												FAILURE(BgL_auxz00_32255, BFALSE, BFALSE);
											}
										if (INPUT_PORT_CLOSEP(BgL_iportz00_17436))
											{	/* Read/reader.scm 818 */
												return
													BGl_errorz00zz__errorz00
													(BGl_string6874z00zz__readerz00,
													BGl_string6945z00zz__readerz00, BgL_iportz00_17436);
											}
										else
											{	/* Read/reader.scm 824 */
												obj_t BgL_fun6351z00_17438;

												BgL_fun6351z00_17438 =
													BGl_za2bigloozd2grammarza2zd2zz__readerz00;
												{	/* Read/reader.scm 824 */
													obj_t BgL_tmpfunz00_32273;

													{	/* Read/reader.scm 824 */
														bool_t BgL_test6825z00_17945;

														BgL_test6825z00_17945 =
															PROCEDUREP(BgL_fun6351z00_17438);
														if (BgL_test6825z00_17945)
															{	/* Read/reader.scm 824 */
																BgL_tmpfunz00_32273 = BgL_fun6351z00_17438;
															}
														else
															{
																obj_t BgL_auxz00_32276;

																BgL_auxz00_32276 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string6955z00zz__readerz00, BINT(27851L),
																	BGl_string6961z00zz__readerz00,
																	BGl_string6962z00zz__readerz00,
																	BgL_fun6351z00_17438);
																FAILURE(BgL_auxz00_32276, BFALSE, BFALSE);
															}
													}
													return
														(VA_PROCEDUREP(BgL_tmpfunz00_32273)
														? ((obj_t(*)(obj_t,
																	...))
															PROCEDURE_ENTRY(BgL_tmpfunz00_32273))
														(BgL_fun6351z00_17438, BgL_iportz00_17436, BFALSE,
															BGl_vector6946z00zz__readerz00, BINT(0L),
															BINT(0L), BNIL, BNIL, BEOA) : ((obj_t(*)(obj_t,
																	obj_t, obj_t, obj_t, obj_t, obj_t, obj_t,
																	obj_t))
															PROCEDURE_ENTRY(BgL_tmpfunz00_32273))
														(BgL_fun6351z00_17438, BgL_iportz00_17436, BFALSE,
															BGl_vector6946z00zz__readerz00, BINT(0L),
															BINT(0L), BNIL, BNIL));
												}
											}
									}
								}
							}
							break;
						case 2L:

							{	/* Read/reader.scm 815 */
								obj_t BgL_iportz00_10621;

								{
									obj_t BgL_auxz00_32280;

									if (VECTORP(BgL_opt1422z00_27))
										{	/* Read/reader.scm 815 */
											BgL_auxz00_32280 = BgL_opt1422z00_27;
										}
									else
										{
											obj_t BgL_auxz00_32283;

											BgL_auxz00_32283 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string6955z00zz__readerz00, BINT(27304L),
												BGl_string6961z00zz__readerz00,
												BGl_string6876z00zz__readerz00, BgL_opt1422z00_27);
											FAILURE(BgL_auxz00_32283, BFALSE, BFALSE);
										}
									BgL_iportz00_10621 = VECTOR_REF(BgL_auxz00_32280, 0L);
								}
								{	/* Read/reader.scm 815 */
									obj_t BgL_locationz00_10622;

									{
										obj_t BgL_auxz00_32288;

										if (VECTORP(BgL_opt1422z00_27))
											{	/* Read/reader.scm 815 */
												BgL_auxz00_32288 = BgL_opt1422z00_27;
											}
										else
											{
												obj_t BgL_auxz00_32291;

												BgL_auxz00_32291 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string6955z00zz__readerz00, BINT(27304L),
													BGl_string6961z00zz__readerz00,
													BGl_string6876z00zz__readerz00, BgL_opt1422z00_27);
												FAILURE(BgL_auxz00_32291, BFALSE, BFALSE);
											}
										BgL_locationz00_10622 = VECTOR_REF(BgL_auxz00_32288, 1L);
									}
									{	/* Read/reader.scm 815 */

										{	/* Read/reader.scm 815 */
											obj_t BgL_iportz00_17440;

											if (INPUT_PORTP(BgL_iportz00_10621))
												{	/* Read/reader.scm 815 */
													BgL_iportz00_17440 = BgL_iportz00_10621;
												}
											else
												{
													obj_t BgL_auxz00_32298;

													BgL_auxz00_32298 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string6955z00zz__readerz00, BINT(27304L),
														BGl_string6961z00zz__readerz00,
														BGl_string6963z00zz__readerz00, BgL_iportz00_10621);
													FAILURE(BgL_auxz00_32298, BFALSE, BFALSE);
												}
											if (INPUT_PORT_CLOSEP(BgL_iportz00_17440))
												{	/* Read/reader.scm 818 */
													return
														BGl_errorz00zz__errorz00
														(BGl_string6874z00zz__readerz00,
														BGl_string6945z00zz__readerz00, BgL_iportz00_17440);
												}
											else
												{	/* Read/reader.scm 824 */
													obj_t BgL_fun6351z00_17442;

													BgL_fun6351z00_17442 =
														BGl_za2bigloozd2grammarza2zd2zz__readerz00;
													{	/* Read/reader.scm 824 */
														obj_t BgL_tmpfunz00_32316;

														{	/* Read/reader.scm 824 */
															bool_t BgL_test6833z00_17953;

															BgL_test6833z00_17953 =
																PROCEDUREP(BgL_fun6351z00_17442);
															if (BgL_test6833z00_17953)
																{	/* Read/reader.scm 824 */
																	BgL_tmpfunz00_32316 = BgL_fun6351z00_17442;
																}
															else
																{
																	obj_t BgL_auxz00_32319;

																	BgL_auxz00_32319 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string6955z00zz__readerz00,
																		BINT(27851L),
																		BGl_string6961z00zz__readerz00,
																		BGl_string6962z00zz__readerz00,
																		BgL_fun6351z00_17442);
																	FAILURE(BgL_auxz00_32319, BFALSE, BFALSE);
																}
														}
														return
															(VA_PROCEDUREP(BgL_tmpfunz00_32316)
															? ((obj_t(*)(obj_t,
																		...))
																PROCEDURE_ENTRY(BgL_tmpfunz00_32316))
															(BgL_fun6351z00_17442, BgL_iportz00_17440,
																BgL_locationz00_10622,
																BGl_vector6946z00zz__readerz00, BINT(0L),
																BINT(0L), BNIL, BNIL, BEOA) : ((obj_t(*)(obj_t,
																		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t,
																		obj_t))
																PROCEDURE_ENTRY(BgL_tmpfunz00_32316))
															(BgL_fun6351z00_17442, BgL_iportz00_17440,
																BgL_locationz00_10622,
																BGl_vector6946z00zz__readerz00, BINT(0L),
																BINT(0L), BNIL, BNIL));
													}
												}
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* read */
	BGL_EXPORTED_DEF obj_t BGl_readz00zz__readerz00(obj_t BgL_iportz00_25,
		obj_t BgL_locationz00_26)
	{
		{	/* Read/reader.scm 815 */
			if (INPUT_PORT_CLOSEP(BgL_iportz00_25))
				{	/* Read/reader.scm 818 */
					return
						BGl_errorz00zz__errorz00(BGl_string6874z00zz__readerz00,
						BGl_string6945z00zz__readerz00, BgL_iportz00_25);
				}
			else
				{	/* Read/reader.scm 824 */
					obj_t BgL_fun6351z00_17445;

					BgL_fun6351z00_17445 = BGl_za2bigloozd2grammarza2zd2zz__readerz00;
					return
						BGL_PROCEDURE_CALL7(BgL_fun6351z00_17445, BgL_iportz00_25,
						BgL_locationz00_26, BGl_vector6946z00zz__readerz00, BINT(0L),
						BINT(0L), BNIL, BNIL);
				}
		}

	}



/* read/case */
	BGL_EXPORTED_DEF obj_t BGl_readzf2casezf2zz__readerz00(obj_t BgL_casez00_29,
		obj_t BgL_inputzd2portzd2_30)
	{
		{	/* Read/reader.scm 829 */
			{	/* Read/reader.scm 830 */
				obj_t BgL_oldz00_17447;

				BgL_oldz00_17447 = BGl_bigloozd2casezd2sensitivez00zz__paramz00();
				BGl_bigloozd2casezd2sensitivezd2setz12zc0zz__paramz00(
					((obj_t) BgL_casez00_29));
				{	/* Read/reader.scm 832 */
					obj_t BgL_exitd1343z00_17448;

					BgL_exitd1343z00_17448 = BGL_EXITD_TOP_AS_OBJ();
					{	/* Read/reader.scm 834 */
						obj_t BgL_zc3z04anonymousza36352ze3z87_17847;

						BgL_zc3z04anonymousza36352ze3z87_17847 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza36352ze3ze5zz__readerz00, (int) (0L),
							(int) (1L));
						PROCEDURE_SET(BgL_zc3z04anonymousza36352ze3z87_17847, (int) (0L),
							BgL_oldz00_17447);
						{	/* Read/reader.scm 832 */
							obj_t BgL_arg6632z00_17453;

							{	/* Read/reader.scm 832 */
								obj_t BgL_arg6633z00_17454;

								BgL_arg6633z00_17454 =
									BGL_EXITD_PROTECT(BgL_exitd1343z00_17448);
								BgL_arg6632z00_17453 =
									MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza36352ze3z87_17847,
									BgL_arg6633z00_17454);
							}
							BGL_EXITD_PROTECT_SET(BgL_exitd1343z00_17448,
								BgL_arg6632z00_17453);
							BUNSPEC;
						}
						{	/* Read/reader.scm 833 */
							obj_t BgL_tmp1345z00_17450;

							BgL_tmp1345z00_17450 =
								apply(BGl_readzd2envzd2zz__readerz00, BgL_inputzd2portzd2_30);
							{	/* Read/reader.scm 832 */
								bool_t BgL_test10007z00_32353;

								{	/* Read/reader.scm 832 */
									obj_t BgL_arg6631z00_17456;

									BgL_arg6631z00_17456 =
										BGL_EXITD_PROTECT(BgL_exitd1343z00_17448);
									BgL_test10007z00_32353 = PAIRP(BgL_arg6631z00_17456);
								}
								if (BgL_test10007z00_32353)
									{	/* Read/reader.scm 832 */
										obj_t BgL_arg6629z00_17457;

										{	/* Read/reader.scm 832 */
											obj_t BgL_arg6630z00_17458;

											BgL_arg6630z00_17458 =
												BGL_EXITD_PROTECT(BgL_exitd1343z00_17448);
											BgL_arg6629z00_17457 =
												CDR(((obj_t) BgL_arg6630z00_17458));
										}
										BGL_EXITD_PROTECT_SET(BgL_exitd1343z00_17448,
											BgL_arg6629z00_17457);
										BUNSPEC;
									}
								else
									{	/* Read/reader.scm 832 */
										BFALSE;
									}
							}
							BGl_bigloozd2casezd2sensitivezd2setz12zc0zz__paramz00
								(BgL_oldz00_17447);
							return BgL_tmp1345z00_17450;
						}
					}
				}
			}
		}

	}



/* &read/case */
	obj_t BGl_z62readzf2casez90zz__readerz00(obj_t BgL_envz00_17848,
		obj_t BgL_casez00_17849, obj_t BgL_inputzd2portzd2_17850)
	{
		{	/* Read/reader.scm 829 */
			return
				BGl_readzf2casezf2zz__readerz00(BgL_casez00_17849,
				BgL_inputzd2portzd2_17850);
		}

	}



/* &<@anonymous:6352> */
	obj_t BGl_z62zc3z04anonymousza36352ze3ze5zz__readerz00(obj_t BgL_envz00_17851)
	{
		{	/* Read/reader.scm 832 */
			{	/* Read/reader.scm 834 */
				obj_t BgL_oldz00_17852;

				BgL_oldz00_17852 =
					((obj_t) PROCEDURE_REF(BgL_envz00_17851, (int) (0L)));
				return
					BGl_bigloozd2casezd2sensitivezd2setz12zc0zz__paramz00
					(BgL_oldz00_17852);
			}
		}

	}



/* read-case-sensitive */
	BGL_EXPORTED_DEF obj_t BGl_readzd2casezd2sensitivez00zz__readerz00(obj_t
		BgL_inputzd2portzd2_31)
	{
		{	/* Read/reader.scm 841 */
			{	/* Read/reader.scm 842 */
				obj_t BgL_runner6355z00_17461;

				{	/* Read/reader.scm 842 */
					obj_t BgL_list6353z00_17462;

					BgL_list6353z00_17462 = MAKE_YOUNG_PAIR(BgL_inputzd2portzd2_31, BNIL);
					BgL_runner6355z00_17461 =
						BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
						(BGl_symbol6901z00zz__readerz00, BgL_list6353z00_17462);
				}
				{	/* Read/reader.scm 842 */
					obj_t BgL_aux6354z00_17463;

					BgL_aux6354z00_17463 = CAR(BgL_runner6355z00_17461);
					BgL_runner6355z00_17461 = CDR(BgL_runner6355z00_17461);
					{	/* Read/reader.scm 842 */
						obj_t BgL_inputzd2portzd2_17466;

						BgL_inputzd2portzd2_17466 = BgL_runner6355z00_17461;
						{	/* Read/reader.scm 830 */
							obj_t BgL_oldz00_17467;

							BgL_oldz00_17467 = BGl_bigloozd2casezd2sensitivez00zz__paramz00();
							BGl_bigloozd2casezd2sensitivezd2setz12zc0zz__paramz00(
								((obj_t) BgL_aux6354z00_17463));
							{	/* Read/reader.scm 832 */
								obj_t BgL_exitd1343z00_17468;

								BgL_exitd1343z00_17468 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Read/reader.scm 834 */
									obj_t BgL_zc3z04anonymousza36352ze3z87_17853;

									BgL_zc3z04anonymousza36352ze3z87_17853 =
										MAKE_FX_PROCEDURE
										(BGl_z62zc3z04anonymousza36352ze36804ze5zz__readerz00,
										(int) (0L), (int) (1L));
									PROCEDURE_SET(BgL_zc3z04anonymousza36352ze3z87_17853,
										(int) (0L), BgL_oldz00_17467);
									{	/* Read/reader.scm 832 */
										obj_t BgL_arg6632z00_17473;

										{	/* Read/reader.scm 832 */
											obj_t BgL_arg6633z00_17474;

											BgL_arg6633z00_17474 =
												BGL_EXITD_PROTECT(BgL_exitd1343z00_17468);
											BgL_arg6632z00_17473 =
												MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza36352ze3z87_17853,
												BgL_arg6633z00_17474);
										}
										BGL_EXITD_PROTECT_SET(BgL_exitd1343z00_17468,
											BgL_arg6632z00_17473);
										BUNSPEC;
									}
									{	/* Read/reader.scm 833 */
										obj_t BgL_tmp1345z00_17470;

										BgL_tmp1345z00_17470 =
											apply(BGl_readzd2envzd2zz__readerz00,
											BgL_inputzd2portzd2_17466);
										{	/* Read/reader.scm 832 */
											bool_t BgL_test10008z00_32384;

											{	/* Read/reader.scm 832 */
												obj_t BgL_arg6631z00_17476;

												BgL_arg6631z00_17476 =
													BGL_EXITD_PROTECT(BgL_exitd1343z00_17468);
												BgL_test10008z00_32384 = PAIRP(BgL_arg6631z00_17476);
											}
											if (BgL_test10008z00_32384)
												{	/* Read/reader.scm 832 */
													obj_t BgL_arg6629z00_17477;

													{	/* Read/reader.scm 832 */
														obj_t BgL_arg6630z00_17478;

														BgL_arg6630z00_17478 =
															BGL_EXITD_PROTECT(BgL_exitd1343z00_17468);
														BgL_arg6629z00_17477 =
															CDR(((obj_t) BgL_arg6630z00_17478));
													}
													BGL_EXITD_PROTECT_SET(BgL_exitd1343z00_17468,
														BgL_arg6629z00_17477);
													BUNSPEC;
												}
											else
												{	/* Read/reader.scm 832 */
													BFALSE;
												}
										}
										BGl_bigloozd2casezd2sensitivezd2setz12zc0zz__paramz00
											(BgL_oldz00_17467);
										return BgL_tmp1345z00_17470;
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* &read-case-sensitive */
	obj_t BGl_z62readzd2casezd2sensitivez62zz__readerz00(obj_t BgL_envz00_17854,
		obj_t BgL_inputzd2portzd2_17855)
	{
		{	/* Read/reader.scm 841 */
			return
				BGl_readzd2casezd2sensitivez00zz__readerz00(BgL_inputzd2portzd2_17855);
		}

	}



/* &<@anonymous:6352>6804 */
	obj_t BGl_z62zc3z04anonymousza36352ze36804ze5zz__readerz00(obj_t
		BgL_envz00_17856)
	{
		{	/* Read/reader.scm 832 */
			{	/* Read/reader.scm 834 */
				obj_t BgL_oldz00_17857;

				BgL_oldz00_17857 =
					((obj_t) PROCEDURE_REF(BgL_envz00_17856, (int) (0L)));
				return
					BGl_bigloozd2casezd2sensitivezd2setz12zc0zz__paramz00
					(BgL_oldz00_17857);
			}
		}

	}



/* read-case-insensitive */
	BGL_EXPORTED_DEF obj_t BGl_readzd2casezd2insensitivez00zz__readerz00(obj_t
		BgL_inputzd2portzd2_32)
	{
		{	/* Read/reader.scm 849 */
			{	/* Read/reader.scm 850 */
				obj_t BgL_runner6358z00_17481;

				{	/* Read/reader.scm 850 */
					obj_t BgL_list6356z00_17482;

					BgL_list6356z00_17482 = MAKE_YOUNG_PAIR(BgL_inputzd2portzd2_32, BNIL);
					BgL_runner6358z00_17481 =
						BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
						(BGl_symbol6899z00zz__readerz00, BgL_list6356z00_17482);
				}
				{	/* Read/reader.scm 850 */
					obj_t BgL_aux6357z00_17483;

					BgL_aux6357z00_17483 = CAR(BgL_runner6358z00_17481);
					BgL_runner6358z00_17481 = CDR(BgL_runner6358z00_17481);
					{	/* Read/reader.scm 850 */
						obj_t BgL_inputzd2portzd2_17486;

						BgL_inputzd2portzd2_17486 = BgL_runner6358z00_17481;
						{	/* Read/reader.scm 830 */
							obj_t BgL_oldz00_17487;

							BgL_oldz00_17487 = BGl_bigloozd2casezd2sensitivez00zz__paramz00();
							BGl_bigloozd2casezd2sensitivezd2setz12zc0zz__paramz00(
								((obj_t) BgL_aux6357z00_17483));
							{	/* Read/reader.scm 832 */
								obj_t BgL_exitd1343z00_17488;

								BgL_exitd1343z00_17488 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Read/reader.scm 834 */
									obj_t BgL_zc3z04anonymousza36352ze3z87_17858;

									BgL_zc3z04anonymousza36352ze3z87_17858 =
										MAKE_FX_PROCEDURE
										(BGl_z62zc3z04anonymousza36352ze36805ze5zz__readerz00,
										(int) (0L), (int) (1L));
									PROCEDURE_SET(BgL_zc3z04anonymousza36352ze3z87_17858,
										(int) (0L), BgL_oldz00_17487);
									{	/* Read/reader.scm 832 */
										obj_t BgL_arg6632z00_17493;

										{	/* Read/reader.scm 832 */
											obj_t BgL_arg6633z00_17494;

											BgL_arg6633z00_17494 =
												BGL_EXITD_PROTECT(BgL_exitd1343z00_17488);
											BgL_arg6632z00_17493 =
												MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza36352ze3z87_17858,
												BgL_arg6633z00_17494);
										}
										BGL_EXITD_PROTECT_SET(BgL_exitd1343z00_17488,
											BgL_arg6632z00_17493);
										BUNSPEC;
									}
									{	/* Read/reader.scm 833 */
										obj_t BgL_tmp1345z00_17490;

										BgL_tmp1345z00_17490 =
											apply(BGl_readzd2envzd2zz__readerz00,
											BgL_inputzd2portzd2_17486);
										{	/* Read/reader.scm 832 */
											bool_t BgL_test10009z00_32415;

											{	/* Read/reader.scm 832 */
												obj_t BgL_arg6631z00_17496;

												BgL_arg6631z00_17496 =
													BGL_EXITD_PROTECT(BgL_exitd1343z00_17488);
												BgL_test10009z00_32415 = PAIRP(BgL_arg6631z00_17496);
											}
											if (BgL_test10009z00_32415)
												{	/* Read/reader.scm 832 */
													obj_t BgL_arg6629z00_17497;

													{	/* Read/reader.scm 832 */
														obj_t BgL_arg6630z00_17498;

														BgL_arg6630z00_17498 =
															BGL_EXITD_PROTECT(BgL_exitd1343z00_17488);
														BgL_arg6629z00_17497 =
															CDR(((obj_t) BgL_arg6630z00_17498));
													}
													BGL_EXITD_PROTECT_SET(BgL_exitd1343z00_17488,
														BgL_arg6629z00_17497);
													BUNSPEC;
												}
											else
												{	/* Read/reader.scm 832 */
													BFALSE;
												}
										}
										BGl_bigloozd2casezd2sensitivezd2setz12zc0zz__paramz00
											(BgL_oldz00_17487);
										return BgL_tmp1345z00_17490;
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* &read-case-insensitive */
	obj_t BGl_z62readzd2casezd2insensitivez62zz__readerz00(obj_t BgL_envz00_17859,
		obj_t BgL_inputzd2portzd2_17860)
	{
		{	/* Read/reader.scm 849 */
			return
				BGl_readzd2casezd2insensitivez00zz__readerz00
				(BgL_inputzd2portzd2_17860);
		}

	}



/* &<@anonymous:6352>6805 */
	obj_t BGl_z62zc3z04anonymousza36352ze36805ze5zz__readerz00(obj_t
		BgL_envz00_17861)
	{
		{	/* Read/reader.scm 832 */
			{	/* Read/reader.scm 834 */
				obj_t BgL_oldz00_17862;

				BgL_oldz00_17862 =
					((obj_t) PROCEDURE_REF(BgL_envz00_17861, (int) (0L)));
				return
					BGl_bigloozd2casezd2sensitivezd2setz12zc0zz__paramz00
					(BgL_oldz00_17862);
			}
		}

	}



/* port->list */
	BGL_EXPORTED_DEF obj_t BGl_portzd2ze3listz31zz__readerz00(obj_t
		BgL_readerz00_33, obj_t BgL_ipz00_34)
	{
		{	/* Read/reader.scm 855 */
			{
				obj_t BgL_expz00_17514;

				BgL_expz00_17514 = BNIL;
			BgL_loopz00_17513:
				{	/* Read/reader.scm 857 */
					obj_t BgL_ez00_17518;

					BgL_ez00_17518 = BGL_PROCEDURE_CALL1(BgL_readerz00_33, BgL_ipz00_34);
					if (EOF_OBJECTP(BgL_ez00_17518))
						{	/* Read/reader.scm 858 */
							return bgl_reverse_bang(BgL_expz00_17514);
						}
					else
						{	/* Read/reader.scm 860 */
							obj_t BgL_arg6361z00_17520;

							BgL_arg6361z00_17520 =
								MAKE_YOUNG_PAIR(BgL_ez00_17518, BgL_expz00_17514);
							{
								obj_t BgL_expz00_32436;

								BgL_expz00_32436 = BgL_arg6361z00_17520;
								BgL_expz00_17514 = BgL_expz00_32436;
								goto BgL_loopz00_17513;
							}
						}
				}
			}
		}

	}



/* &port->list */
	obj_t BGl_z62portzd2ze3listz53zz__readerz00(obj_t BgL_envz00_17863,
		obj_t BgL_readerz00_17864, obj_t BgL_ipz00_17865)
	{
		{	/* Read/reader.scm 855 */
			{	/* Read/reader.scm 856 */
				obj_t BgL_auxz00_32444;
				obj_t BgL_auxz00_32437;

				if (INPUT_PORTP(BgL_ipz00_17865))
					{	/* Read/reader.scm 856 */
						BgL_auxz00_32444 = BgL_ipz00_17865;
					}
				else
					{
						obj_t BgL_auxz00_32447;

						BgL_auxz00_32447 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string6955z00zz__readerz00,
							BINT(29530L), BGl_string6964z00zz__readerz00,
							BGl_string6963z00zz__readerz00, BgL_ipz00_17865);
						FAILURE(BgL_auxz00_32447, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_readerz00_17864))
					{	/* Read/reader.scm 856 */
						BgL_auxz00_32437 = BgL_readerz00_17864;
					}
				else
					{
						obj_t BgL_auxz00_32440;

						BgL_auxz00_32440 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string6955z00zz__readerz00,
							BINT(29530L), BGl_string6964z00zz__readerz00,
							BGl_string6962z00zz__readerz00, BgL_readerz00_17864);
						FAILURE(BgL_auxz00_32440, BFALSE, BFALSE);
					}
				return
					BGl_portzd2ze3listz31zz__readerz00(BgL_auxz00_32437,
					BgL_auxz00_32444);
			}
		}

	}



/* _port->sexp-list */
	obj_t BGl__portzd2ze3sexpzd2listze3zz__readerz00(obj_t BgL_env1427z00_38,
		obj_t BgL_opt1426z00_37)
	{
		{	/* Read/reader.scm 865 */
			{	/* Read/reader.scm 865 */
				obj_t BgL_g1428z00_10645;

				{
					obj_t BgL_auxz00_32452;

					if (VECTORP(BgL_opt1426z00_37))
						{	/* Read/reader.scm 865 */
							BgL_auxz00_32452 = BgL_opt1426z00_37;
						}
					else
						{
							obj_t BgL_auxz00_32455;

							BgL_auxz00_32455 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string6955z00zz__readerz00,
								BINT(29880L), BGl_string6965z00zz__readerz00,
								BGl_string6876z00zz__readerz00, BgL_opt1426z00_37);
							FAILURE(BgL_auxz00_32455, BFALSE, BFALSE);
						}
					BgL_g1428z00_10645 = VECTOR_REF(BgL_auxz00_32452, 0L);
				}
				{	/* Read/reader.scm 865 */
					long BgL_aux1430z00_10647;

					{
						obj_t BgL_auxz00_32460;

						if (VECTORP(BgL_opt1426z00_37))
							{	/* Read/reader.scm 865 */
								BgL_auxz00_32460 = BgL_opt1426z00_37;
							}
						else
							{
								obj_t BgL_auxz00_32463;

								BgL_auxz00_32463 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string6955z00zz__readerz00, BINT(29880L),
									BGl_string6965z00zz__readerz00,
									BGl_string6876z00zz__readerz00, BgL_opt1426z00_37);
								FAILURE(BgL_auxz00_32463, BFALSE, BFALSE);
							}
						BgL_aux1430z00_10647 = VECTOR_LENGTH(BgL_auxz00_32460);
					}
					switch (BgL_aux1430z00_10647)
						{
						case 1L:

							{	/* Read/reader.scm 865 */

								{	/* Read/reader.scm 865 */
									obj_t BgL_ipz00_17521;

									if (INPUT_PORTP(BgL_g1428z00_10645))
										{	/* Read/reader.scm 865 */
											BgL_ipz00_17521 = BgL_g1428z00_10645;
										}
									else
										{
											obj_t BgL_auxz00_32470;

											BgL_auxz00_32470 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string6955z00zz__readerz00, BINT(29880L),
												BGl_string6965z00zz__readerz00,
												BGl_string6963z00zz__readerz00, BgL_g1428z00_10645);
											FAILURE(BgL_auxz00_32470, BFALSE, BFALSE);
										}
									return
										BGl_portzd2ze3listz31zz__readerz00
										(BGl_proc6966z00zz__readerz00, BgL_ipz00_17521);
								}
							}
							break;
						case 2L:

							{	/* Read/reader.scm 865 */
								obj_t BgL_locationz00_10649;

								{
									obj_t BgL_auxz00_32475;

									if (VECTORP(BgL_opt1426z00_37))
										{	/* Read/reader.scm 865 */
											BgL_auxz00_32475 = BgL_opt1426z00_37;
										}
									else
										{
											obj_t BgL_auxz00_32478;

											BgL_auxz00_32478 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string6955z00zz__readerz00, BINT(29880L),
												BGl_string6965z00zz__readerz00,
												BGl_string6876z00zz__readerz00, BgL_opt1426z00_37);
											FAILURE(BgL_auxz00_32478, BFALSE, BFALSE);
										}
									BgL_locationz00_10649 = VECTOR_REF(BgL_auxz00_32475, 1L);
								}
								{	/* Read/reader.scm 865 */

									{	/* Read/reader.scm 865 */
										obj_t BgL_ipz00_17524;

										if (INPUT_PORTP(BgL_g1428z00_10645))
											{	/* Read/reader.scm 865 */
												BgL_ipz00_17524 = BgL_g1428z00_10645;
											}
										else
											{
												obj_t BgL_auxz00_32485;

												BgL_auxz00_32485 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string6955z00zz__readerz00, BINT(29880L),
													BGl_string6965z00zz__readerz00,
													BGl_string6963z00zz__readerz00, BgL_g1428z00_10645);
												FAILURE(BgL_auxz00_32485, BFALSE, BFALSE);
											}
										{	/* Read/reader.scm 866 */
											obj_t BgL_zc3z04anonymousza36363ze3z87_17866;

											BgL_zc3z04anonymousza36363ze3z87_17866 =
												MAKE_FX_PROCEDURE
												(BGl_z62zc3z04anonymousza36363ze3ze5zz__readerz00,
												(int) (1L), (int) (1L));
											PROCEDURE_SET(BgL_zc3z04anonymousza36363ze3z87_17866,
												(int) (0L), BgL_locationz00_10649);
											return
												BGl_portzd2ze3listz31zz__readerz00
												(BgL_zc3z04anonymousza36363ze3z87_17866,
												BgL_ipz00_17524);
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* &<@anonymous:6363> */
	obj_t BGl_z62zc3z04anonymousza36363ze3ze5zz__readerz00(obj_t BgL_envz00_17868,
		obj_t BgL_ipz00_17870)
	{
		{	/* Read/reader.scm 866 */
			return
				BGl_readz00zz__readerz00(BgL_ipz00_17870,
				PROCEDURE_REF(BgL_envz00_17868, (int) (0L)));
		}

	}



/* &<@anonymous:6363>6806 */
	obj_t BGl_z62zc3z04anonymousza36363ze36806ze5zz__readerz00(obj_t
		BgL_envz00_17871, obj_t BgL_ipz00_17872)
	{
		{	/* Read/reader.scm 866 */
			return BGl_readz00zz__readerz00(BgL_ipz00_17872, BFALSE);
		}

	}



/* port->sexp-list */
	BGL_EXPORTED_DEF obj_t BGl_portzd2ze3sexpzd2listze3zz__readerz00(obj_t
		BgL_ipz00_35, obj_t BgL_locationz00_36)
	{
		{	/* Read/reader.scm 865 */
			{	/* Read/reader.scm 866 */
				obj_t BgL_res6803z00_17543;

				{
					obj_t BgL_expz00_17536;

					BgL_expz00_17536 = BNIL;
				BgL_loopz00_17535:
					{	/* Read/reader.scm 857 */
						obj_t BgL_ez00_17540;

						BgL_ez00_17540 =
							BGl_readz00zz__readerz00(BgL_ipz00_35, BgL_locationz00_36);
						if (EOF_OBJECTP(BgL_ez00_17540))
							{	/* Read/reader.scm 858 */
								BgL_res6803z00_17543 = bgl_reverse_bang(BgL_expz00_17536);
							}
						else
							{	/* Read/reader.scm 860 */
								obj_t BgL_arg6361z00_17542;

								BgL_arg6361z00_17542 =
									MAKE_YOUNG_PAIR(BgL_ez00_17540, BgL_expz00_17536);
								{
									obj_t BgL_expz00_32505;

									BgL_expz00_32505 = BgL_arg6361z00_17542;
									BgL_expz00_17536 = BgL_expz00_32505;
									goto BgL_loopz00_17535;
								}
							}
					}
				}
				return BgL_res6803z00_17543;
			}
		}

	}



/* define-reader-ctor */
	BGL_EXPORTED_DEF obj_t BGl_definezd2readerzd2ctorz00zz__readerz00(obj_t
		BgL_symz00_40, obj_t BgL_procz00_41)
	{
		{	/* Read/reader.scm 884 */
			{	/* Read/reader.scm 885 */
				obj_t BgL_cz00_17547;

				BgL_cz00_17547 =
					BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_symz00_40,
					BGl_za2readerzd2ctorsza2zd2zz__readerz00);
				if (PAIRP(BgL_cz00_17547))
					{	/* Read/reader.scm 887 */
						obj_t BgL_xz00_17968;

						BgL_xz00_17968 = SET_CDR(BgL_cz00_17547, BgL_procz00_41);
						return BUNSPEC;
					}
				else
					{	/* Read/reader.scm 888 */
						obj_t BgL_arg6366z00_17549;

						BgL_arg6366z00_17549 =
							MAKE_YOUNG_PAIR(BgL_symz00_40, BgL_procz00_41);
						return (BGl_za2readerzd2ctorsza2zd2zz__readerz00 =
							MAKE_YOUNG_PAIR(BgL_arg6366z00_17549,
								BGl_za2readerzd2ctorsza2zd2zz__readerz00), BUNSPEC);
					}
			}
		}

	}



/* &define-reader-ctor */
	obj_t BGl_z62definezd2readerzd2ctorz62zz__readerz00(obj_t BgL_envz00_17873,
		obj_t BgL_symz00_17874, obj_t BgL_procz00_17875)
	{
		{	/* Read/reader.scm 884 */
			{	/* Read/reader.scm 885 */
				obj_t BgL_auxz00_32519;
				obj_t BgL_auxz00_32512;

				if (PROCEDUREP(BgL_procz00_17875))
					{	/* Read/reader.scm 885 */
						BgL_auxz00_32519 = BgL_procz00_17875;
					}
				else
					{
						obj_t BgL_auxz00_32522;

						BgL_auxz00_32522 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string6955z00zz__readerz00,
							BINT(30821L), BGl_string6967z00zz__readerz00,
							BGl_string6962z00zz__readerz00, BgL_procz00_17875);
						FAILURE(BgL_auxz00_32522, BFALSE, BFALSE);
					}
				if (SYMBOLP(BgL_symz00_17874))
					{	/* Read/reader.scm 885 */
						BgL_auxz00_32512 = BgL_symz00_17874;
					}
				else
					{
						obj_t BgL_auxz00_32515;

						BgL_auxz00_32515 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string6955z00zz__readerz00,
							BINT(30821L), BGl_string6967z00zz__readerz00,
							BGl_string6957z00zz__readerz00, BgL_symz00_17874);
						FAILURE(BgL_auxz00_32515, BFALSE, BFALSE);
					}
				return
					BGl_definezd2readerzd2ctorz00zz__readerz00(BgL_auxz00_32512,
					BgL_auxz00_32519);
			}
		}

	}



/* set-read-syntax! */
	BGL_EXPORTED_DEF obj_t BGl_setzd2readzd2syntaxz12z12zz__readerz00(obj_t
		BgL_charz00_42, obj_t BgL_procz00_43)
	{
		{	/* Read/reader.scm 898 */
			{	/* Read/reader.scm 899 */
				obj_t BgL_cz00_17551;

				BgL_cz00_17551 =
					BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_charz00_42,
					BGl_za2readerzd2extensionsza2zd2zz__readerz00);
				if (PAIRP(BgL_cz00_17551))
					{	/* Read/reader.scm 901 */
						obj_t BgL_xz00_17973;

						BgL_xz00_17973 = SET_CDR(BgL_cz00_17551, BgL_procz00_43);
						return BUNSPEC;
					}
				else
					{	/* Read/reader.scm 903 */
						obj_t BgL_arg6368z00_17553;

						BgL_arg6368z00_17553 =
							MAKE_YOUNG_PAIR(BgL_charz00_42, BgL_procz00_43);
						return (BGl_za2readerzd2extensionsza2zd2zz__readerz00 =
							MAKE_YOUNG_PAIR(BgL_arg6368z00_17553,
								BGl_za2readerzd2extensionsza2zd2zz__readerz00), BUNSPEC);
					}
			}
		}

	}



/* &set-read-syntax! */
	obj_t BGl_z62setzd2readzd2syntaxz12z70zz__readerz00(obj_t BgL_envz00_17876,
		obj_t BgL_charz00_17877, obj_t BgL_procz00_17878)
	{
		{	/* Read/reader.scm 898 */
			{	/* Read/reader.scm 899 */
				obj_t BgL_auxz00_32540;
				obj_t BgL_auxz00_32533;

				if (PROCEDUREP(BgL_procz00_17878))
					{	/* Read/reader.scm 899 */
						BgL_auxz00_32540 = BgL_procz00_17878;
					}
				else
					{
						obj_t BgL_auxz00_32543;

						BgL_auxz00_32543 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string6955z00zz__readerz00,
							BINT(31484L), BGl_string6968z00zz__readerz00,
							BGl_string6962z00zz__readerz00, BgL_procz00_17878);
						FAILURE(BgL_auxz00_32543, BFALSE, BFALSE);
					}
				if (CHARP(BgL_charz00_17877))
					{	/* Read/reader.scm 899 */
						BgL_auxz00_32533 = BgL_charz00_17877;
					}
				else
					{
						obj_t BgL_auxz00_32536;

						BgL_auxz00_32536 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string6955z00zz__readerz00,
							BINT(31484L), BGl_string6968z00zz__readerz00,
							BGl_string6969z00zz__readerz00, BgL_charz00_17877);
						FAILURE(BgL_auxz00_32536, BFALSE, BFALSE);
					}
				return
					BGl_setzd2readzd2syntaxz12z12zz__readerz00(BgL_auxz00_32533,
					BgL_auxz00_32540);
			}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__readerz00(void)
	{
		{	/* Read/reader.scm 14 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__readerz00(void)
	{
		{	/* Read/reader.scm 14 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__readerz00(void)
	{
		{	/* Read/reader.scm 14 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__readerz00(void)
	{
		{	/* Read/reader.scm 14 */
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string6970z00zz__readerz00));
			BGl_modulezd2initializa7ationz75zz__rgcz00(352600006L,
				BSTRING_TO_STRING(BGl_string6970z00zz__readerz00));
			BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string6970z00zz__readerz00));
			BGl_modulezd2initializa7ationz75zz__objectz00(475449627L,
				BSTRING_TO_STRING(BGl_string6970z00zz__readerz00));
			BGl_modulezd2initializa7ationz75zz__threadz00(149516032L,
				BSTRING_TO_STRING(BGl_string6970z00zz__readerz00));
			return
				BGl_modulezd2initializa7ationz75zz__bignumz00(289561787L,
				BSTRING_TO_STRING(BGl_string6970z00zz__readerz00));
		}

	}

#ifdef __cplusplus
}
#endif
